!
     PROGRAM P69
!
!  This program demonstrates the MOD function in FORTRAN 90
!
     IMPLICIT NONE
     INTEGER :: K,KREM
     REAL :: XK,AL
!
     DO K=1,15
        XK= 0.1 * K
        AL= ALOG10(XK)
        KREM= MOD(K,5)
        PRINT 90,K,KREM,XK,AL
90      FORMAT(' K=',I3,'  KREM=',I3,'  XK=',F10.5,' AL=',F10.5)
        IF(MOD(K,5) == 0) PRINT *,' '
     END DO
     STOP
     END PROGRAM P69