!
!
!
! This program demonstrates the MOD function in FORTRAN 90
!
!
DO K=1,50
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 *,' '
ENDDO
END
OUTPUT:
Program entered
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.52287
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.22184
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.04575
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.14612
K= 15 KREM= 0 XK= 1.50000 AL= 0.17609
K= 16 KREM= 1 XK= 1.60000 AL= 0.20412
K= 17 KREM= 2 XK= 1.70000 AL= 0.23044
K= 18 KREM= 3 XK= 1.80000 AL= 0.25527
K= 19 KREM= 4 XK= 1.90000 AL= 0.27875
K= 20 KREM= 0 XK= 2.00000 AL= 0.30103
K= 21 KREM= 1 XK= 2.10000 AL= 0.32221
K= 22 KREM= 2 XK= 2.20000 AL= 0.34242
K= 23 KREM= 3 XK= 2.30000 AL= 0.36172
K= 24 KREM= 4 XK= 2.40000 AL= 0.38021
K= 25 KREM= 0 XK= 2.50000 AL= 0.39794
K= 26 KREM= 1 XK= 2.60000 AL= 0.41497
K= 27 KREM= 2 XK= 2.70000 AL= 0.43136
K= 28 KREM= 3 XK= 2.80000 AL= 0.44715
K= 29 KREM= 4 XK= 2.90000 AL= 0.46239
K= 30 KREM= 0 XK= 3.00000 AL= 0.47712
K= 31 KREM= 1 XK= 3.10000 AL= 0.49136
K= 32 KREM= 2 XK= 3.20000 AL= 0.50515
K= 33 KREM= 3 XK= 3.30000 AL= 0.51851
K= 34 KREM= 4 XK= 3.40000 AL= 0.53147
K= 35 KREM= 0 XK= 3.50000 AL= 0.54406
K= 36 KREM= 1 XK= 3.60000 AL= 0.55630
K= 37 KREM= 2 XK= 3.70000 AL= 0.56820
K= 38 KREM= 3 XK= 3.80000 AL= 0.57978
K= 39 KREM= 4 XK= 3.90000 AL= 0.59106
K= 40 KREM= 0 XK= 4.00000 AL= 0.60206
K= 41 KREM= 1 XK= 4.10000 AL= 0.61278
K= 42 KREM= 2 XK= 4.20000 AL= 0.62324
K= 43 KREM= 3 XK= 4.30000 AL= 0.63346
K= 44 KREM= 4 XK= 4.40000 AL= 0.64345
K= 45 KREM= 0 XK= 4.50000 AL= 0.65321
K= 46 KREM= 1 XK= 4.60000 AL= 0.66275
K= 47 KREM= 2 XK= 4.70000 AL= 0.67209
K= 48 KREM= 3 XK= 4.80000 AL= 0.68124
K= 49 KREM= 4 XK= 4.90000 AL= 0.69019
K= 50 KREM= 0 XK= 5.00000 AL= 0.69897
Page builder: Charles Boivin
Last modified: 11/07/95