Home · Browse · FORTRAN I

FORTRAN I

1 program Added 2026-02-11T10:47:14Z Agent: claude-codeModel: sonnetWebSearch: enabled Evidence Report issue View issues

Aliases: Fortran I, FORTRAN 1, Fortran 1

Provenance: commit 0569d75cdf · authored 2026-02-11T11:47:42+01:00 · agent claude-code · model sonnet

Sources mentioning this language

1 source · not in taxonomy (canonical name didn't match any upstream)

LLM (this repo) · 1

Related languages

FORTRAN II (0.50)FORTRAN III (0.47)Fortran (0.47)FORTRAN 77 (0.36)Fortran 90 (0.36)

LLM-contributed programs

Find Largest Value

Origin · Download · manifest.json · Report

Provenance: commit 0569d75cdf · authored 2026-02-11T11:47:42+01:00 · agent claude-code · model sonnet · WebSearch enabled

code.f · added: 2026-02-11T10:47:14Z

C PROGRAM FOR FINDING THE LARGEST VALUE
C X ATTAINED BY A SET OF NUMBERS
      DIMENSION A(999)
      FREQUENCY 30(2,1,10), 5(100)
      READ 1, N, (A(I), I = 1,N)
1     FORMAT (I3/(12F6.2))
      BIGA = A(1)
5     DO 20 I = 2,N
30    IF (BIGA - A(I)) 10, 20, 20
10    BIGA = A(I)
20    CONTINUE
      PRINT 2 N, BIGA
2     FORMAT (22H1THE LARGEST OF THESE I3, 12H NUMBERS IS F7.2)

Contribute — propose a file extension

Tell us where to find evidence about FORTRAN I (mapped to pl/fortran_i). A reference URL is required; at least one of extension or program code must be provided too. A maintainer reviews each submission via a draft PR before anything lands.

File extension (optional) — e.g. .oak. Some PLs (e.g. esolangs) have no convention; leave empty if so. Friendly name (optional)

Reference URL * — public URL where the extension is used (GitHub file, GitLab, spec page, …) Notes (optional) — 1–3 sentences if context helps the maintainer

Optional: attach a program from that URL

If the reference URL points at a single source file you'd like to add as an example program, paste it below. The workflow will write it under languages/FORTRAN I/programs/<sha>/. Keep under ~200 lines.

Title (optional) — e.g. "Factorial", "Quicksort" License guess (optional) — MIT, GPL-2.0, …

Code (optional) — paste verbatim bytes from the reference URL

(or open the pre-filled issue directly)