      Function GInt(R)
      Implicit Real*8(A-H,O-Z)
C
C     Integer part or R.
C
      GInt = AInt(R)
      Return
      End
