|
|
|
Шурф |
|
||||||
Новичок Профиль Группа: Участник Сообщений: 6 Регистрация: 22.4.2013 Репутация: нет Всего: нет |
Вечер добрый.
Я совсем плохо соображаю в Fortran и програмировании вообще, поэтому строго не судите =) Надеюсь, слова типа энтропии никого не введут в ступор, т.к. в принципе они не важны. Вопрос в следующем. В основной программе мне нужно посчитать три параметра: плотность, энтальпию и температуру. При компилировании выдает ошибку следующего содержания:
Я так понял, что нет какой-то ссылки на ROT и TT. Что нужно сделать? Программа:
Подпрограмма:
Если нужна еще какая-то информация, говорите. Помогите, пожалуйста! |
||||||
|
|||||||
Фантом |
|
|||
Вы это прекратите! Профиль Группа: Участник Клуба Сообщений: 1516 Регистрация: 23.3.2008 Репутация: 5 Всего: 49 |
Переменные TT и ROT являются локальными для подпрограммы, внешняя программа о них ничего не знает. Соответственно, надо каким-то образом передать их наверх.
P.S. Вы в 2013 году используете стандарт Fortran IV образца 1966 года из религиозных соображений или любви к антиквариату? Ему скоро полвека стукнет, за это время только новых стандартов языка успело появиться пять штук. |
|||
|
||||
Шурф |
|
|||
Новичок Профиль Группа: Участник Сообщений: 6 Регистрация: 22.4.2013 Репутация: нет Всего: нет |
главное чтобы то, что я использую, считало то,ч то мне нужно)
так а как их передать наверх? Даже если я копирую часть подпрограммы в программу основную, то все равно ничего не считает(ошибка исчезает, но после ввода значений окно сразу же закрывается)
|
|||
|
||||
Фантом |
|
|||
Вы это прекратите! Профиль Группа: Участник Клуба Сообщений: 1516 Регистрация: 23.3.2008 Репутация: 5 Всего: 49 |
Теперь надо бы где-то найти функции CRRO, CRS и CRH, инициализировать содержимое коммон-блока... короче говоря, дописать всю содержательную часть программы.
Давайте-ка признаваться: это такое извращенное учебное задание или честная попытка приспособить древний код к чему-нибудь? |
|||
|
||||
Шурф |
|
|||
Новичок Профиль Группа: Участник Сообщений: 6 Регистрация: 22.4.2013 Репутация: нет Всего: нет |
с CRRO, CRS и CRH все нормально, там это все как-то считается(это часть большой прграммы). По крайней мере в еще одном варианте другой программы считалось. Отставим их в сторону
основной вопрос в ROT и TT Признаюсь: древний код к чему-нибдуь. Вся эта дребедень - грубо говоря, справочник теплофизических свойств криоагентов. Мне нужен гелий-1. Без этой программы, которая будет считать энтальпию, плотность и температуру в зависимости от давления и энтропии, я повешусь Это сообщение отредактировал(а) Шурф - 22.4.2013, 23:02 |
|||
|
||||
Шурф |
|
|||
Новичок Профиль Группа: Участник Сообщений: 6 Регистрация: 22.4.2013 Репутация: нет Всего: нет |
как там использовать common?
я что-то почитал про него, вроде то, но до конца не понимаю |
|||
|
||||
Фантом |
|
|||
Вы это прекратите! Профиль Группа: Участник Клуба Сообщений: 1516 Регистрация: 23.3.2008 Репутация: 5 Всего: 49 |
Отлично, но с этой программой они должны быть слинкованы, иначе ничего работать не будет. Да, кстати, слона-то я и не приметил... Почему в основной программе вызывается подпрограмма He1 и какое отношение ко всему имеет FPST? Нет, это только одна мелочь из целой горы вопросов. Просто эти ошибки компилятор находит раньше остальных. Понятно. Тогда давайте сделаем так: запакуйте в архив и прицепите к сообщению все, что у Вас есть по части этой программы. Желательно - в исходном виде, до внесения правок. Посмотрим, что из этого можно собрать. |
|||
|
||||
Шурф |
|
|||
Новичок Профиль Группа: Участник Сообщений: 6 Регистрация: 22.4.2013 Репутация: нет Всего: нет |
He1 - это, на сколько я понял, подпрограмма с общей информацией о гелии
FPST - это расчет остальный параметров, которые мне нужны(там еще куча таких подпрограмм) Запаковал все, что намудрил. В изначальном виде, в котором часть работала. Сначала вообще ничего не работало, но танцы с бубном помогли. Наверное там много лишнего. Открывал я путем "open workspace..." helium-основная программа cryag-z - с подпрограммами спасибо уже за то, что занимаетесь мной Это сообщение отредактировал(а) Шурф - 23.4.2013, 00:38 Присоединённый файл ( Кол-во скачиваний: 1 ) Св_ва_гелия.zip 253,83 Kb |
|||
|
||||
Фантом |
|
|||
Вы это прекратите! Профиль Группа: Участник Клуба Сообщений: 1516 Регистрация: 23.3.2008 Репутация: 5 Всего: 49 |
Ну что ж, теперь все ясно, поскольку хвосты видны. Программа, кстати, совершенно нормально и без каких-либо изменений собирается, но, правда, нормальным же компилятором (а у Вас там, похоже, MS PowerStation).
Вам надо написать в главной программе следующее:
Получится то, что требуется. |
|||
|
||||
Шурф |
|
|||
Новичок Профиль Группа: Участник Сообщений: 6 Регистрация: 22.4.2013 Репутация: нет Всего: нет |
ох, вот оно как значит.
правда окно программы все равно закрывается после ввода значений. Но ладно спасибо |
|||
|
||||
Фантом |
|
|||
Вы это прекратите! Профиль Группа: Участник Клуба Сообщений: 1516 Регистрация: 23.3.2008 Репутация: 5 Всего: 49 |
Запустите получившийся exe-шник из командной строки, тогда ничего не закроется.
|
|||
|
||||
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Fortran | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |