!
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
OUTPUT:
+--------------------------------------------------+
| 32-bit Power for Lahey Computer Systems |
| Phar Lap's 386|DOS-Extender(tm) Version 7.0 |
| Copyright (C) 1986-94 Phar Lap Software, Inc. |
| Available Memory = 14880 Kb |
+--------------------------------------------------+
K= 1 KREM= 1 XK= 0.10000 AL= -1.00000
K= 2 KREM= 2 XK= 0.20000 AL= -0.69897
K= 3 KREM= 3 XK= 0.30000 AL= -0.52288
K= 4 KREM= 4 XK= 0.40000 AL= -0.39794
K= 5 KREM= 0 XK= 0.50000 AL= -0.30103
K= 6 KREM= 1 XK= 0.60000 AL= -0.22185
K= 7 KREM= 2 XK= 0.70000 AL= -0.15490
K= 8 KREM= 3 XK= 0.80000 AL= -0.09691
K= 9 KREM= 4 XK= 0.90000 AL= -0.04576
K= 10 KREM= 0 XK= 1.00000 AL= 0.00000
K= 11 KREM= 1 XK= 1.10000 AL= 0.04139
K= 12 KREM= 2 XK= 1.20000 AL= 0.07918
K= 13 KREM= 3 XK= 1.30000 AL= 0.11394
K= 14 KREM= 4 XK= 1.40000 AL= 0.14613
K= 15 KREM= 0 XK= 1.50000 AL= 0.17609
Last modified: 08/07/97