[sisyphus] Сборка FORTRAN-программ

[Sergei Epiphanov]

В сообщении от 27 июня 2011 12:49:44 автор vx8400 написал:
> Оригинальный кусок можно сюда показать, если код разрешен к открытой
> публикации? Без контекста непонятно, что имелось в виду.

Оригинальный код разбросан по полусотне фортрановских файлов в полностью 
неудобоваримой форме из смеси Fortran 77, Fortran90 и Fortran 2003. Смесь 
дикая ещё и потому, что использованы множественные COMMON, EQUIVALENCE (причём 
переменных разных типов данных) и IMPLICIT из-за больших ограничений 
тогдашнего Фортрана. Я уже 4 года разгребаю эти авгиевы конюшни, но до конца 
пока так и не смог разобрать.

Вот кусок (за вычетом ненужного):

SUBROUTINE TRAN2F(...)
...
character nqs(10000)
integer(4) nq(10000)
character lsp
equivalence(nq(1),nqs(1))
...
DATA lsp/' '/
...
do 1 i=400
1 nqs(i)=lsp
...

Большее открыть не могу, придётся весь код передавать для анализа. Да и 
testcase уже есть. :)

-- 
С уважением, Епифанов Сергей