DOUBLE PRECISION FUNCTION MYMAX(A, B)
      DOUBLE PRECISION A, B
      MYMAX = DMAX1(A,B)
      RETURN
      END