      FUNCTION GABS (ARG)
C
C     ABSOLUTE VALUE
C
      REAL*8 GABS,DABS,ARG
C
      GABS = DABS (ARG)
      RETURN
      END
