      DOUBLE PRECISION FUNCTION MYMIN(A, B)
      DOUBLE PRECISION A, B
      MYMIN = DMIN1(A,B)
      RETURN
      END
