Здравсвуйте, Уважаемые Знатоки Fortran!
Имеется в наличие код на фотране. Необходимо высянить, что эта прога делает. Файлов до фига и в принципе после долгих ковыряний структуру я уяснил, но не понял некоторых, возможно для знающего банальных вещей.
Пример:

PRM и F это процедура и функция они описаны тут всё в порядке 
* что значит тут I=1? В файл запишется правда или ложь этого логического выражения или в файл запишется число 1?
** что означает эта конструкция? По-очереди вызвать все перечисленные в скобках метки? А зачем после скобок буква K?
*** как это вообще понимать? Два раза вызывается метка 49 и один раз 42 или тут завуалирован else?
И ещё непонятный кусок кода:

Значит ли это, что это цикл от сточки с меткой 140 до строчки с меткой 142? А где же слово CONTINUE? Или оно необязательно?
Что такое 1.Е8 в формуле?

В строчке, помеченной одной звездочкой, сидит скрытый цикл. 

Конструкция write(6,2)D,(S(K,I),I=1,KP) - это печать в 6-ой файл (как правило, это по умолчанию вывод на консоль, 5-й файл, соответственно, чтение с консоли) по формату с меткой "2" (он там где-то сверху описан) сначала содержимого переменной D, а потом элементов массива S(K,I) для всех I от 1 до KP. 

Строчка с двумя звездочками - это переход на метку в зависимости от значения переменной K. Когда K=1  - переход на первую метку из списка (10), когда K=2 - на вторую (12) и т.д. Вся эта конструкция:

на самом деле является реализацией переключателя (switch в C/C++ или case в Паскале).

Строчка с тремя звездочками - это арифметический оператор условного перехода. Смысл такой: считается выражение в скобках (т.е. KK-24), и если оно отрицательное, то выполняется переход на первую метку (49), если равно нулю, то на вторую метку (тоже 49), а если положительно, то на третью (42). В итоге вся конструкция

переписывается на современном Фортране в таком виде (метки я сохранил, чтобы было понятнее, что чему соответствует, в реальной программе их можно спокойно стереть):


В "непонятном цикле" цикл действительно до метки 142 включительно. Слово CONTINUE не является обязательным, это просто пустой оператор, который можно снабдить меткой (оно нужно именно для того, чтобы границы циклов и т.п. были лучше видны).

1.E8 - это 1.0*(10^8). 

 Я бы на самом деле выражался так аккуратнее, а то будут потом говорить, что в Fortran нет конструкции-переключателя. Конечно, не будут и, конечно, она есть. Просто в F66-77 её ещё не было. Если код планируется использовать повторно, то лучше проводить небольшой рефакторинг по мере сил, желания и эстетических амбиций:


Если функция Ок чистая, то код:

лучше переписать так:

Старайтесь записывать код кратко, если имеете возможность использовать компилятор, хотя бы поддерживающий F90. От меток можно избавиться. F09 позволяет эффективно записывать без меток вообще любой алгоритм. И добро пожаловать в мир элегантности и скорости современного Fortran.

Это сообщение отредактировал(а) Cr@$h - 2.2.2009, 02:21

Огромное вам человеческое СПАСИБО!!!
Вы просто спасли меня, а то я уже просто голову сломал именно в этих местах   

Cr@$h, y человека же весь код написан в фиксированном формате, а Вы ему подсунули кусок в свободном, которым предполагается заменить имеющийся код. Соответственно, компилятор, дойдя до стыка форматов, начнет матюгаться совершенно не по-деццки. И будет абсолютно прав. Опять же не ясно, к какому компилятору есть доступ у artjomp, вдруг он на g77 сидит?

О версии ни малейшего понятия... Комп старый престарый, даже разъём монитора с двухрядным набором штырьков... Какой-то фотран под ДОС.
Но сейчас занимаюсь поиском компилятора какой-нибудь новой версии и попробую запустить эту прогу. Ну или в итоге буду "эту польку на родной язык перепёр" (с) на родной Паскаль или Си.
Т.е. лучше не изменять код, как указал Cr@$h? Может не заработать на новом?

Понимаю всё собственной натурой . Но надежда есть   

Попробуйте g95. Правда.

Ни в коем случаею Если можете эту прогу на Pascal и C писать, то лучше используйте более менее современный компилятор Fortran.

В зависимости от того, какой у вас компилятор. Тот код выполнен в стандарте Fortran 90. Ничего стращного, но красиво, не правда ли? 

Наоборот, изменяйте. Сохранение старого кода сейчас имеет смысл только в том случае, если Вы собираетесь эту программу на той же машине под ДОС и гонять. А если она Вам нужна в нормальном виде, то лучше и код переделать. При этом, если эта задача для Вас не единичная, то стоит последовать совету  Cr@$h'а - пишите не на Паскале или C, а на современном Фортране.

Скачал компилятор http://progopedia.ru/implementation/gfortran/
Поборол кучу выдаваемых мелких ошибок.
А вот это побороть не могу :-(
G:\Program Files\gfortran\bin>gfortran.exe z.for
C:\DOCUME~1\APTEM\LOCALS~1\Temp/ccF9HcEa.o:z.for:(.text+0x16dd): undefined reference to `_ok_'
C:\DOCUME~1\APTEM\LOCALS~1\Temp/ccF9HcEa.o:z.for:(.text+0x1762): undefined reference to `_ok_'
C:\DOCUME~1\APTEM\LOCALS~1\Temp/ccF9HcEa.o:z.for:(.text+0x2754): undefined reference to `_ok_'
collect2: ld returned 1 exit status

И сразу вопрос ещё возник:

Вопросительный знак - это опечатка? На самом деле

Или в фортране есть такой оператор - вопросительный знак? Просто он ругался на эту строчку, пока я не поставил знак "/"

Вопросительного знака как оператора нет, это определенно опечатка.

Похоже, что мониторчик еще EGA. Это очень плохо. Работать на таком - только зрение портить. Я абсолютно серьезно.

Это сочетание - `_ok_' - встречается в программе? Знаки подчеркивания на первой позиции должны встречаться только в служебных словах. Возможно, что компилятор по ходу дела сам где-то поставил этот символ, а потом его не распознал. Возможно, компилятор не совсем правильно настроен, или не совсем правильно задана компиляция (скажем, программа состоит из нескольких файлов, какой-то пропущен).

Комп этот уже выбросили.
Сочетания `_ok_'  нигде в программе не встречается. Компилятор я не настраивал вообще... Просто скачал, установил и запустил 
Программа была из нескольких файлов. Процедуры и функции были по разным файлам раскиданы. Я их всех в один файл запихал посмотрел ещё раз. Нет ничего не забыл... Что может ещё быть или как настроить компилятор?
Может вообще взять какой-нибудь visual fortran там же наверное и оболочка есть, которую можно понастраивать с компилятором?

А Вы можете отправить сюда то, что скармливали компилятору? Оптимально - всю программу (в однофайловом варианте) и весь вывод компилятора.

В исходны файлах должна быть определена такая фукция Ok.

Вот программа в файле. То, что выдаёт компилятор я писал выше  это всё.
G:\Program Files\gfortran\bin>gfortran.exe z.for
C:\DOCUME~1\APTEM\LOCALS~1\Temp/ccF9HcEa.o:z.for:(.text+0x16dd): undefined reference to `_ok_'
C:\DOCUME~1\APTEM\LOCALS~1\Temp/ccF9HcEa.o:z.for:(.text+0x1762): undefined reference to `_ok_'
C:\DOCUME~1\APTEM\LOCALS~1\Temp/ccF9HcEa.o:z.for:(.text+0x2754): undefined reference to `_ok_'
collect2: ld returned 1 exit status

Cr@$h она определена само собой 

Это сообщение отредактировал(а) artjomp - 4.2.2009, 12:34

Что-то я этого определения нигде не вижу.   Вы уверены, что никакой кусок программы при сращивании в файл не потеряли?