      DOUBLE PRECISION FUNCTION MYCOS(A)
      DOUBLE PRECISION A
      MYCOS = DCOS(A)
      RETURN
      END
