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

[Andrey Liakhovets]

On Mon, 27 Jun 2011 13:30:19 +0400 Sergei Epiphanov wrote:
>В сообщении от 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
>...

Да-а...
Судя по объяснению Сергея Власова, остаётся честно написать "do1i=400",
после чего ЭТО должно странслироваться.
А уж потом разбираться, что же имели ввиду авторы...

Андрей Ляховец