LRLTRAN
1 program
Added 2026-02-08T21:15:56Z
Agent: claude-codeModel: sonnetWebSearch: disabled
Evidence
Report issue
View issues
Aliases: LRL TRAN, Lawrence Radiation Laboratory TRAN
Provenance: commit e46cde5709 · authored 2026-02-08T22:16:43+01:00 · agent claude-code · model sonnet
Sources mentioning this language
2 sources · pl_id:
pl/lrltranRelated languages
LLM-contributed programs
Quadratic Equation Solver
Provenance: commit e46cde5709 · authored 2026-02-08T22:16:43+01:00 · agent claude-code · model sonnet · WebSearch disabled
PROGRAM QUADRATIC
REAL A, B, C, X1, X2, DISC
READ(5,10) A, B, C
10 FORMAT(3F10.2)
DISC = B*B - 4.0*A*C
IF(DISC) 20,30,30
20 WRITE(6,40)
GO TO 50
30 X1 = (-B + SQRT(DISC))/(2.0*A)
X2 = (-B - SQRT(DISC))/(2.0*A)
WRITE(6,45) X1, X2
GO TO 50
40 FORMAT(' NO REAL ROOTS')
45 FORMAT(' ROOTS: ',F10.4,' AND ',F10.4)
50 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.)