      FUNCTION GMOD (ARG1,ARG2)
C
C     REMAINDER ... RETURNS THE REMAINDER OF ARG1/ARG2
C
      REAL*8 GMOD,DMOD,ARG1,ARG2
C
      GMOD = DMOD (ARG1,ARG2)
      RETURN
      END
