Source model.f90

### REAL FUNCTION COMPAV ( SCORE, COUNT )

> Argument Definitions (+ indicates altered content)
>     INTEGER            COUNT,      SCORE

> 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