!
      PROGRAM P32
!
!
!     Simple loop in FORTRAN 90
!
      IMPLICIT NONE
      INTEGER :: I,J
      REAL :: SUM,COUNT,AVE
!
      PRINT *, 'This is Program >> P32  - Relational IF'
!
!     READ DATA
!
      READ *,I
!
      DO J=1,I
           READ * ,SUM ,COUNT
           IF(COUNT == 0.0)STOP  ! or EXIT
           AVE=SUM/COUNT
           PRINT * ,'SUM=', SUM
           PRINT * ,'COUNT=', COUNT
           PRINT * ,'AVERAGE=', AVE
      END DO
      STOP
      END PROGRAM P32