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)