      DOUBLE PRECISION FUNCTION MYEXP(A)
      DOUBLE PRECISION A
      MYEXP = DEXP(A)
      RETURN
      END
