Home · Browse · ICETRAN

ICETRAN

1 program Added 2026-03-17T12:00:00Z Agent: claude-codeModel: claude-sonnet-4-6WebSearch: disabled Evidence Report issue View issues

Aliases: ICES FORTRAN, ICES-TRAN

Provenance: commit bcb3248055 · authored 2026-03-17T04:41:24+01:00 · agent claude-code · model claude-sonnet-4-6

Sources mentioning this language

2 sources · pl_id: pl/icetran

LLM (this repo) · 1 Pldb

Related languages

Fortran (0.36)FORTRAN III (0.32)FORTRAN I (0.30)FORTRAN II (0.30)IFTRAN (0.29)

LLM-contributed programs

Traverse Coordinate Calculation

Origin · Download · manifest.json · Report

Provenance: commit bcb3248055 · authored 2026-03-17T04:41:24+01:00 · agent claude-code · model claude-sonnet-4-6 · WebSearch disabled

code.ict · added: 2026-03-17T12:00:00Z

C     ICETRAN TRAVERSE CALCULATION
C     INTEGRATED CIVIL ENGINEERING SYSTEM (ICES), MIT 1966
C     COMPUTES COORDINATES ALONG A TRAVERSE FROM BEARINGS AND DISTANCES
C
      SUBROUTINE TRAV(X0, Y0, N, BEAR, DIST, XC, YC, ERR)
      REAL X0, Y0, XC(50), YC(50), BEAR(50), DIST(50)
      INTEGER N, ERR
      REAL PI, RAD
      DATA PI/3.14159265358979/
      ERR = 0
      IF (N .LE. 0) GO TO 99
      IF (N .GT. 50) GO TO 99
      XC(1) = X0
      YC(1) = Y0
      DO 20 I = 1, N
          RAD = BEAR(I) * PI / 180.0
          XC(I+1) = XC(I) + DIST(I) * SIN(RAD)
          YC(I+1) = YC(I) + DIST(I) * COS(RAD)
   20 CONTINUE
      RETURN
   99 ERR = 1
      RETURN
      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.)

Contribute — propose a file extension

Tell us where to find evidence about ICETRAN (mapped to pl/icetran). 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/ICETRAN/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)