factors.for

PROGRAM FACTORS

   IMPLICIT NONE

   INTEGER :: I, NUMBER

   PRINT *, "ENTER A NUMBER BETWEEN 1 AND 2147483647"
   READ  *, NUMBER

   DO I = 1, INT ( SQRT ( REAL ( NUMBER ))) - 1
      IF ( MOD ( NUMBER, I ) == 0 ) PRINT *, I, NUMBER / I
   END DO

   ! CHECK TO SEE IF NUMBER IS A SQUARE
   I = INT ( SQRT ( REAL ( NUMBER )))

   IF ( I**2 == NUMBER ) THEN
      PRINT *, I
   ELSE IF ( MOD ( NUMBER, I ) == 0 ) THEN
      PRINT *, I, NUMBER / I
   END IF

END PROGRAM FACTORS