SUBROUTINE FSQUARE(N,M)
C     COMPUTES THE SQUARE OF N, RETURNS IN M     
      M=N*N
      RETURN
      END
C
      INTEGER FUNCTION FCUBE(N)
C     COMPUTES THE CUBE OF N 
      FF1=N*N*N
      RETURN
      END