Да, процедура из файла pureread.for - это подпрограмма purere10. (Процедурой удобно называть обобщенно либо подпрограмму либо функцию). Поскольку ты пишешь, что она вызвается в процедуре READINP, то видимо по исходнику READINP и можно выяснить замысел авторов.
Но процедуру READINP тебе выложить не удалось, так что не могу ее посмотреть.


Имеются ввиду старые версии Visual Fortran (Digital Visual Fortran 5.X или Compaq Visual Fortran 6.Х) ?

Это сообщение отредактировал(а) FCM - 28.5.2009, 16:53

Ой и правда..

Вот.

Присоединённый файл ( Кол-во скачиваний: 3 )
 readinp.for 2,90 Kb

Как видим  PURERE10 вызывается в READINP

стр 19:  CALL PURERE10 (NKOMP,KUERZ,NEG,NAG,*9998)

стр 46:   CALL PURERE10 (NKOMP,KUERZ,0,NAG,*9998)

Тут надо подумать , каждый вызов предполагает свой режим работы PURERE10, один из которых может включать "проблемное" считывание. 

Это сообщение отредактировал(а) FCM - 28.5.2009, 17:34

Ну те процедуры, что используются в output все нашел.

А про чтение из неоткрытого файла можно подробнее?

Я подредактировал предыдущее сообщение  - пока неясно, что делать с чтением в PURERE10



Насчет неоткрытого файла я погорячился - он открывается в output.for


Ну вот проблема со считыванием KUERZ в PURERE10. KUERZ - является параметром процедуры и и возникает проблема при считывании KUERZ из файла, запрограммированное  внутри процедуры.

Это сообщение отредактировал(а) FCM - 28.5.2009, 18:20

Если раскоментировать строку
DIMENSION KUERZ(NKOMP)
в начале процедуры PURERE10
то компилятор к считыванию KUERZ относится нормально.

Но где определен формат с меткой 903 - это вопрос.

О, вот откопал старый файлик. То есть по идее из него должны были делать этот модифицированный. Теперь пытаюсь разобраться, что изменяли..
Там в конце как раз есть 903 строка с определением формата.

Присоединённый файл ( Кол-во скачиваний: 2 )
 purere10.for 4,03 Kb

Обрати внимание, что во первой (т.е. которую ты выложил первой) версии, за считывание отвечает код

а во второй версии

для второй версии имеется подходящий формат
 
где первое число предполагается целым (I5), затем предполагается 5 пробелов (5X), затем 6 вещественных чисел в фиксированном формате (F10.0), перевод строки (/), 3 вещественных числа фикс формата (F10.0), символ или символьная строка (A).

Т.е. видим, чтоr код считывание отличается и формат должен соответствующим образом отличаться.
Но в конечном счете некоторые детали формата более менее однозначно можно установить по реальному содержанию считываемого файла.
Для начала лучше проанализировать считываемый файл для второй версии с известным форматом.
По моему ранее выложенный файл poly.in не соответствует коду считывания ни в первом, ни во втором случаях - проверь по типам и количеству считываемых элементов. (Может этот файл считывается в другом месте другой поцедурой?)


Это сообщение отредактировал(а) FCM - 30.5.2009, 15:46

Мда.. задачка. 
poly.in должен считываться в одном из тех файлов, что я привел. Так как это как раз и относится к модификации программы, а все модифицированные файлы мне дали. Может быть в pinread?

Постараюсь пока отыскать соответствующий считываемый файл для pereread.

В коде не могу понять, как он находит файл который нужно считывать? Я делал только когда через оператор OPEN, например 

В главной программе (output.for) есть строки


Затем NEG (номер устройства ввода/вывода) передается в качестве параметра в READINP а оттуда в PURERE10.
Т.е. файл открывается  в главной программе, а имя файла  определяется  вышеприведенными строками.


Это сообщение отредактировал(а) FCM - 2.6.2009, 19:00

Аха, понятно. ТО есть все равно где файл открывать. Ну значит, по идее, надо найти файл PSRK.in, что бы понять формат считвания.

Но вот вопрос, где же этот poly.in считывается, непонятно. Может удастся еще что-нить в архивах найти..

Ну, в общем, отпишусь. Благодарю, в любом случае

Я вернулся   Все оказалось немного сложнее, чем я думал, с одной стороны, с другой - проще.
Вобщем, есть некий большой блок программ, независимых друг от друга - проект, а в нем собрание всяких программ (Назову это все оригинальным кодом) С одной из которых я работаю. Так вот этот большой оригинальный код несколько раз актуализировался (легкие изменения), а про мою часть забыли, соответственно, помимо того, что она была в свое время модернизирована (уже отличалась от оригинального когда), так со временем еще от него и "отстала", устарела.

Вобщем, нашел я этот весь проект, заменил там на имеющиеся у меня файлы. Нашел еще библиотеку, которую использует проект и поместил в папку с прогой. Поисправлял ошибки, надеюсь правильно!  Все компилируется, линкуется. До cчитываемых файлов пока не дошел. Пробую запустить исполняемый файл, но выскакивает



Либо, если из Fortran запускаю исходник (F5)



О чем это говорит? В чем проблема?




Это сообщение отредактировал(а) MetalHeart - 11.6.2009, 19:38

При диагностике Visual Fortran run-time error указаны процедуры и в них строки, где возникли проблемы:
RQIPIN строка 20
PSRK    строка 98.
Посмотри, что там находится.

Угу, спасибо. Еще вопрос, общего характера. В фортране строки можно как-то автоматически найти или только самому отсчитывать (98)?

Visual Fortran'ом  ты же пользуешься под Visual Studio, в редакторе которой внизу где-то всегда отображается строка и колонка расположения курсора. Кроме того можно нажать Ctrl+G   и указать строку, на которую хочешь перейти.

По-видимому в 98 строке  PSRK вызывается процедура RQIPIN, в 20-ой строке которой есть проблема

Это сообщение отредактировал(а) FCM - 12.6.2009, 20:03