      FUNCTION GFLOAT (IARG)
C
C     INTEGER TO WORKING-PRECISION CONVERSION
C
      REAL*8 GFLOAT,DFLOAT
C
      GFLOAT = DFLOAT (IARG)
      RETURN
      END
