REAL FUNCTION COMPAV ( SCORE, COUNT )
Argument Definitions (+ indicates altered content)
INTEGER            count,      score(5)
Description
AUTHORS: MIKE MYERS AND LUCIA SPAGNUOLO 
DATE:    MAY 8, 1989 
Variables: 
        SCORE -> an array of test scores 
        SUM ->   sum of the test scores 
        COUNT -> counter of scores read in 
        I ->     loop counter
Source file:model.f90
Local Variables (+ indicates altered content)
INTEGER           +i,         +sum

PROGRAM AVENUM ( )
Description
                MAIN PROGRAM 
 
AUTHOR:   LOIS BIGBIE 
DATE:     MAY 15, 1990 
 
Variables: 
        MAXNOS -> maximum number of input values 
        NUMS    -> an array of numbers 
        COUNT   -> exact number of input values 
        AVG     -> average returned by COMPAV 
        I       -> loop counter
Source file:model.f90
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
               5          SEQ  FMTD          R   

Operation codes A=rewind,B=backspace,C=close,E=endfile
                I=inquire,O=open,R=read,W=write
External Functions and Subroutines Called
REAL               compav
Parameter Variables Used
INTEGER            maxnos             (maxnos = 5)
Local Variables (+ indicates altered content)
INTEGER           +count,     +i
REAL              +avg,       +nums(maxnos)