      Function IGFix(R)
      Implicit Real*8(A-H,O-Z)
C
C     Convert working precision to integer.
C
      IGFix = IFix(Sngl(R))
      Return
      End
