      DOUBLE PRECISION FUNCTION DFLOAT (I)
      IMPLICIT NONE
C
C AMIGA FUNCTION WHICH CONVERTS INTEGERS TO DOUBLE FLOATS
C
      INTEGER I
C
      DOUBLE PRECISION DBLE
C
C
      DFLOAT = DBLE (I)
C
      RETURN
      END
