Вечер добрый.

 Я совсем плохо соображаю в Fortran и програмировании вообще, поэтому строго не судите =)
 Надеюсь, слова типа энтропии никого не введут в ступор, т.к. в принципе они не важны. 
 Вопрос в следующем. В основной программе мне нужно посчитать три параметра: плотность, энтальпию и температуру. 
 При компилировании выдает ошибку следующего содержания:


Я так понял, что нет какой-то ссылки на ROT и TT.
 Что нужно сделать?

 Программа:


Подпрограмма:



Если нужна еще какая-то информация, говорите. 
 Помогите, пожалуйста!

Переменные TT и ROT являются локальными для подпрограммы, внешняя программа о них ничего не знает. Соответственно, надо каким-то образом передать их наверх.

P.S. Вы в 2013 году используете стандарт Fortran IV образца 1966 года из религиозных соображений или любви к антиквариату? Ему скоро полвека стукнет, за это время только новых стандартов языка успело появиться пять штук.

главное чтобы то, что я использую, считало то,ч то мне нужно)

так а как их передать наверх? Даже если я копирую часть подпрограммы в программу основную, то все равно ничего не считает(ошибка исчезает, но после ввода значений окно сразу же закрывается)

Теперь надо бы где-то найти функции CRRO, CRS и CRH, инициализировать содержимое коммон-блока... короче говоря, дописать всю содержательную часть программы.   

Давайте-ка признаваться: это такое извращенное учебное задание или честная попытка приспособить древний код к чему-нибудь? 

с CRRO, CRS и CRH все нормально, там это все как-то считается(это часть большой прграммы). По крайней мере в еще одном варианте другой программы считалось. Отставим их в сторону

основной вопрос в ROT и TT


Признаюсь: древний код к чему-нибдуь. Вся эта дребедень - грубо говоря, справочник теплофизических свойств криоагентов. Мне нужен гелий-1. Без этой программы, которая будет считать энтальпию, плотность и температуру в зависимости от давления и энтропии, я повешусь  




Это сообщение отредактировал(а) Шурф - 22.4.2013, 23:02

как там использовать common?
я что-то почитал про него, вроде то, но до конца не понимаю

Отлично, но с этой программой они должны быть слинкованы, иначе ничего работать не будет.

Да, кстати, слона-то я и не приметил... Почему в основной программе вызывается подпрограмма He1 и какое отношение ко всему имеет FPST?


Нет, это только одна мелочь из целой горы вопросов. Просто эти ошибки компилятор находит раньше остальных.



Понятно. Тогда давайте сделаем так: запакуйте в архив и прицепите к сообщению все, что у Вас есть по части этой программы. Желательно - в исходном виде, до внесения правок. Посмотрим, что из этого можно собрать.

He1 - это, на сколько я понял, подпрограмма с общей информацией о гелии
FPST - это расчет остальный параметров, которые мне нужны(там еще куча таких подпрограмм)
Запаковал все, что намудрил. В изначальном виде, в котором часть работала. Сначала вообще ничего не работало, но танцы с бубном помогли.
Наверное там много лишнего. Открывал я путем "open workspace..."
helium-основная программа
cryag-z - с подпрограммами

спасибо уже за то, что занимаетесь мной    

Это сообщение отредактировал(а) Шурф - 23.4.2013, 00:38

Присоединённый файл ( Кол-во скачиваний: 1 )
 Св_ва_гелия.zip 253,83 Kb

Ну что ж, теперь все ясно, поскольку хвосты видны. Программа, кстати, совершенно нормально и без каких-либо изменений собирается, но, правда, нормальным же компилятором (а у Вас там, похоже, MS PowerStation). 

Вам надо написать в главной программе следующее:


Получится то, что требуется.

ох, вот оно как значит.
правда окно программы все равно закрывается после ввода значений. Но ладно
спасибо  

Запустите получившийся exe-шник из командной строки, тогда ничего не закроется.