! ! ! ! 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