! 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 P69OUTPUT:
+--------------------------------------------------+ | 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