Плохо ищешь, на Фортране уже все написано, если верить легенде.
А

http://orion.math.iastate.edu/burkardt/f_src/f_src.html

не забудь,
в FORTRAN-е нет локальных переменных
параметры функции с локольные переменные в FORTRAN на самом деле просто глобальные переменные с облостью видимости внутри подпрограммы/функции

>>1169

>глобальные переменные с облостью видимости внутри подпрограммы/функции

Епта, это и есть локальные. Это их определение просто-таки, блядь. Или их нельзя будет переопределить вне зоны видимости?

>>1168
там примеры на FORTRAN77
а не на FORTRAN IV

>>1171 Напиши транслятор в IV, очевидно же.

как транслировать вызов функции если передача по значению:
fname_a = 12;
fname_b = 34;
fname();
сама функция:
procedure end
subroutine fname()
begin
writeln(fname_a*1000+fname_b);
end
оригинал на FORTRAN :
end
subroutine fname(a,b)
write(a*1000+b)
end

FORTRAN унекален своей реализацией подпрограмм
делать на других языках то же можно но не удобноваще

>>1170
нет, ты не прав. Разница будет заметна, когда ты попытаешься сделать рекурсию.

FORTRAN IV в Паскаль

FORTRAN77
я считаю лучшая версия,
в ней полная обратная совместимость
в более новые версии добавили много ненужного и порезали обратную совместимость