1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
FTNCHEK Version 3.3 November 2004
File correct.f:
1 C AUTHORS: MIKE MYERS & LUCIA SPAGNUOLO
2 C DATE: MAY 8, 1989
3
4 C Variables:
5 C SCORE -> an array of test scores
6 C SUM -> sum of the test scores
7 C COUNT -> counter of scores read in
8 C I -> loop counter
9
10 REAL FUNCTION COMPAV(SCORE,COUNT)
11 INTEGER SUM,COUNT,I,SCORE(5)
12
13 SUM = 0
14 DO 30 I = 1,COUNT
15 SUM = SUM + SCORE(I)
16 30 CONTINUE
17 COMPAV = FLOAT(SUM)/FLOAT(COUNT)
18 END
Module COMPAV: func: real
External subprograms referenced:
FLOAT: intrns
Variables:
Name Type Dims Name Type Dims Name Type Dims Name Type Dims
COMPAV real COUNT intg I intg SCORE intg 1
SUM intg
Statement labels defined:
Label Line StmtType
<30> 16 exec
19
20
21 PROGRAM AVENUM
22 C
23 C MAIN PROGRAM
24 C
25 C AUTHOR: LOIS BIGBIE
26 C DATE: MAY 15, 1990
27 C
28 C Variables:
29 C MAXNOS -> maximum number of input values
30 C NUMS -> an array of numbers
31 C COUNT -> exact number of input values
32 C AVG -> average returned by COMPAV
33 C I -> loop counter
34 C
35
36 INTEGER MAXNOS
37 PARAMETER(MAXNOS=5)
38 INTEGER I, NUMS(MAXNOS), COUNT
39 REAL AVG
40 COUNT = 0
41 DO 80 I = 1,MAXNOS
42 READ (5,*,END=100) NUMS(I)
43 COUNT = COUNT + 1
44 80 CONTINUE
45 100 AVG = COMPAV(NUMS, COUNT)
46 WRITE(6,*) 'AVERAGE =',AVG
47 END
Module AVENUM: prog
External subprograms referenced:
COMPAV: real*
Variables:
Name Type Dims Name Type Dims Name Type Dims Name Type Dims
AVG real COUNT intg I intg MAXNOS intg
NUMS intg 1
* Variable not declared. Type has been implicitly defined.
I/O Operations:
Unit ID Unit No. Access Form Operation Line
5 SEQ FMTD READ 42
6 SEQ FMTD WRITE 46
Statement labels defined:
Label Line StmtType Label Line StmtType
<80> 44 exec <100> 45 exec
Nonportable usage: File contains tabs
0 syntax errors detected in file correct.f
2 warnings issued in file correct.f
|
