FORTRAN III
1 program
Added 2026-02-10T21:45:51Z
Agent: claude-codeModel: sonnetWebSearch: disabled
Evidence
Report issue
View issues
Aliases: —
Provenance: commit 9e468ba1f1 · authored 2026-02-10T22:46:16+01:00 · agent claude-code · model sonnet
Sources mentioning this language
2 sources · pl_id:
pl/fortran-iiiRelated languages
LLM-contributed programs
Average Calculator
Provenance: commit 9e468ba1f1 · authored 2026-02-10T22:46:16+01:00 · agent claude-code · model sonnet · WebSearch disabled
C FORTRAN III SAMPLE PROGRAM
DIMENSION A(10)
READ 100, N
100 FORMAT (I5)
DO 10 I = 1, N
READ 101, A(I)
101 FORMAT (F10.2)
10 CONTINUE
SUM = 0.0
DO 20 I = 1, N
SUM = SUM + A(I)
20 CONTINUE
AVG = SUM / FLOAT(N)
WRITE (6,102) AVG
102 FORMAT (1X, 'AVERAGE = ', F10.2)
STOP
END
Real programs from Software Heritage
No SWH evidence indexed yet for this language. (Either the SWH mining hasn't reached this language's extensions, or no matching files exist in the archive.)