home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / FORCHEK1.ZIP / AVERAGE.OUT < prev    next >
Encoding:
Text File  |  1991-10-28  |  2.8 KB  |  99 lines
  1.  
  2. FORCHEK Version 2.4 August 1991
  3.  
  4. File average.f:
  5.  
  6.       1 C       AUTHORS: MIKE MYERS AND LUCIA SPAGNUOLO
  7.       2 C       DATE:    MAY 8, 1989
  8.       3
  9.       4 C       Variables:
  10.       5 C               SCORE -> an array of test scores
  11.       6 C               SUM ->   sum of the test scores
  12.       7 C               COUNT -> counter of scores read in
  13.       8 C               I ->     loop counter
  14.       9
  15.      10         REAL FUNCTION COMPAV(SCORE,COUNT)
  16.      11             INTEGER SUM,COUNT,J,SCORE(5)
  17.      12
  18.      13             DO 30 I = 1,COUNT
  19.      14                 SUM = SUM + SCORE(I)
  20.      15 30          CONTINUE
  21.      16             COMPAV = SUM/COUNT
  22.                            ^
  23. Warning near line 16 col 20: integer quotient expr converted to real
  24.      17         END
  25.      18
  26.  
  27. Module COMPAV: func: real
  28.  
  29. Variables:
  30.  
  31.       Name Type Dims     Name Type Dims     Name Type Dims     Name Type Dims
  32.     COMPAV real         COUNT intg             I intg*            J intg
  33.      SCORE intg  1        SUM intg
  34.  
  35. * Variable not declared. Type has been implicitly defined.
  36.  
  37.  
  38. Variables declared but never referenced in module COMPAV:
  39.          J
  40.  
  41. Variables may be used before set in module COMPAV:
  42.        SUM
  43.  
  44.  
  45.      19
  46.      20         PROGRAM AVENUM
  47.      21 C
  48.      22 C                       MAIN PROGRAM
  49.      23 C
  50.      24 C       AUTHOR:   LOIS BIGBIE
  51.      25 C       DATE:     MAY 15, 1990
  52.      26 C
  53.      27 C       Variables:
  54.      28 C               MAXNOS -> maximum number of input values
  55.      29 C               NUMS    -> an array of numbers
  56.      30 C               COUNT   -> exact number of input values
  57.      31 C               AVG     -> average returned by COMPAV
  58.      32 C               I       -> loop counter
  59.      33 C
  60.      34
  61.      35             PARAMETER(MAXNOS=5)
  62.      36             INTEGER I, COUNT
  63.      37             REAL NUMS(MAXNOS), AVG
  64.      38             COUNT = 0
  65.      39             DO 80 I = 1,MAXNOS
  66.      40                 READ (5,*,END=100) NUMS(I)
  67.      41                 COUNT = COUNT + 1
  68.      42 80          CONTINUE
  69.      43 100         AVG = COMPAV(NUMS, COUNT)
  70.      44         END
  71.  
  72. Module AVENUM: prog
  73.  
  74. External subprograms referenced:
  75.  
  76.     COMPAV: real*
  77.  
  78. Variables:
  79.  
  80.       Name Type Dims     Name Type Dims     Name Type Dims     Name Type Dims
  81.        AVG real         COUNT intg             I intg        MAXNOS intg*
  82.       NUMS real  1
  83.  
  84. * Variable not declared. Type has been implicitly defined.
  85.  
  86.  
  87. Variables set but never used in module AVENUM:
  88.        AVG
  89.  
  90.  
  91.  
  92.  0 syntax errors detected in file average.f
  93.  1 warning issued in file average.f
  94.  
  95. Subprogram COMPAV:  argument data type mismatch
  96.   at position 1:
  97. `Dummy type intg  in module COMPAV line 10 file average.f
  98. `Actual type real  in module AVENUM line 43 file average.f
  99.