Computers in Engineering WWW Site - Example 6.6

Example 6.6


FORTRAN Version

!
     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