Парни.Есть вопрос.
Хочу перевести программу из фортрана в Си. Все вроде понятно, но в книге приведен листинг где до самой программы и подпрограмм есть кусок, который не дает компилировать.
Может его нужно в отдельный файл занести?Или что то другое...

*COMDECK,COMMONI
    PARAMETER (IBAR2=40,JBAR2=40,MESHX=20,MESHY=20,NVOR=25,NOBD=20)
    PARAMETER (MSHX=MESHX+1, MSHY=MESHY+1)
    COMMON /FV/ ACOM(1),UN(IBAR2,JBAR2),VN(IBAR2,JBAR2),PN(IBAR2,
    1JBAR2),FN(IBAR2,JBAR2),U(IBAR2,JBAR2),V(IBAR2,JBAR2),P(IBAR2
    2,JBAR2),F(IBAR2,JBAR2),PETA(IBAR2,JBAR2),BETA(IBAR2,JBAR2),NF(IBAR,
     3JBAR),PS(IBAR2,JBAR2), AR(IBAR2,JBAR2), AT(IBAR2,JBAR2),AC(IBAR2,
     4JBAR2)
    COMMON /ME/X(IBAR2), XI(IBAR2),RXI(IBAR2), DELX(IBAR2),
    1RDX(IBAR2),RX(IBAR2), Y(JBAR2), YJ(JBAR2),RYJ(JBAR2), 
     2DELY(JBAR2),IEQIC, NDUMP,
     3QVOL, CON, FCVLIM, RDY(JBAR2), XL(MSHX), XC(MESHX),DXMN(MESHX), 
     4NXL(MESHX), NXR(MESHX), YL(MSHY), YC(MESHY), DYMN(MESHY), 
     5NYL(MESHY), NYR(MESHY), ZC(20), R(IBAR2), RI(IBAR2),
     6COSO(IBAR2,JBAR2), SINO(IBAR2,JBAR2),NW(IBAR2,JBAR2)
    COMMON /PV/ NR(NVOR), PR(NVOR), VOL(NVOR), NAME(10), FVOL
    COMMON /IV/ IBAR, JBAR, IMAX, JMAX, IM1, JM1, NKX, NKY, NCYC, 
    1DELT,T, AUTOT, PRTDT, TWPRT, PLTDT, TWPLT, TWFIN, FLHT, XNU,RHOF,
     2NREG, VCHGT,ISURF10, SIGMA, CANGLE, ICYL, CYL, GX, GY, UI, VI, OMG
     3, ALPHA, KL, KR, KB, KT, ITER, EPSI, FLG, FLGC, FNOC, NOCON, NFLGC
     4,ISYMPLT, IMOVY,VELMX, VELMX1, XSHFT, YSHFT, XMIN, XMAX, YMIN,YMAX
     5, SF, YPB, YPT, IPL, IPR, JPB, JPT, DTVIS,I,J,DUDR,DUDL,DUDT, DUDB
     6,DVDR,DVDL,DVDT,DVDB,DTSFT,DXMIN,DYMIN,PSAT,LITER, ISOR, IDEFM
     7,NPACK,LABS(5),ADEFM,BDEFM,DTCRMX,IDIV
    COMMON /CONST/EMF,EMF1, EM6, EM10, EP10, PI, TPI, RPD, EM6P1,EM61
    COMMON /OBS/NOBS, OA2(NOBD),OA1(NOBD),OB2(NOBD),OB1(NOBD),
    1OC2(NOBD),OC1(NOBD),IOH(NOBD)

Соответственно далее идет объявление программы...

Во фрагменте, начиная со 2-ой строки, видим описание констант и COMMON-блоков - т.е. статически размещаемых данных.
Но они должны находиться внутри какой-либо програмной единицы, возможно внутри BLOCK DATA.

Неплохо было бы посмотреть, как начинается следующая за этим фрагментом программная единица- т.е. ее шапку и описания переменных и т.п.

Что в книге-то пишут на этот счет? Какой у них компилятор, какая ОС, какая платформа?



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

Первое ("parameter") - это объявления констант. Второе ("common") - это фактически глобальные переменные, доступные во всех частях программы, разбитые на несколько "областей видимости".

P.S. Вы уверены, что переводить нужно? Судя по размеру common-блоков, перевод будет очень сложным, проще пользоваться так.

Сразу после этого блока идет объявление главной программы.

    PROGRAM IIWI (INPUT,TAPE5=INPUT,OUTPUT,TAPE6=OUTPUT
    1,TAPE7, TAPE8,TTY,TAPE59=TTY)     
Об используемом компиляторе, ОС и платформе ни слова не сказано в книге

А переводить наччал просто из-за того, что не могу просто напросто запустить эту программу. Банально не могу найти нормальный комптлятор. Я пробовал fortran powerstation 4.0.Подходит ли он?.

P.S.:Короче требуется помощь.Не могу даже этот код запустить.

Присоединённый файл ( Кол-во скачиваний: 8 )
 FULLTEXT.for 68,86 Kb

jhjkh

Очень сложно будет переводить. Такое ощущение, что в программе специально допущены ошибки(minO вместо min0, gG to вместо go to, где то место точек запятые и т.д.)
Остановился править когда увидел

NAMELIST

Непонятно откуда берутся значения переменных

Использую Compaq Visual Fortran v6.6 Professional с VS6.0

Это сообщение отредактировал(а) KrotOnline - 1.11.2010, 13:09

Ну, запуск больших старых фортран-программ - это вообще детектив  (Холмс отдыхает).

Что касается того блока инструкций, что безхозно болтается до PROGRAM, то 
1) его можно загнать в отдельный фортран-исходник (файл с расширением .for или .f90)? и пометсить его в папку проекта.
2) в тех программных ед-цах где он используется , добавить строку  


Но кроме этого 
- надо поработать над кучей опечаток 
- подумать, как в современном стиле интерпретировать шапку :
 
 и согласовать соответствующий вывод.
- и многое другое.

В каком году программа написана?

Не устарел ли алгоритм решения задачи, реализованный в программе? - стоит ли "овчинка выделки"?

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

О том устарел или нет алгоритм не могу судить, так как ничего лучше не нашел.Есть код без ошибок более позднего релиза, если кто поможет с компиляцией....

Вот код

Присоединённый файл ( Кол-во скачиваний: 4 )
 VOF85.rar 40,05 Kb

Там есть ошибки. Просто берешь исходник и компилируешь - компилятор выдаст ошибки.

Вот выложу подправленный вариант .

Он компилируется, но при запуске ошибка чтения из файла setupVOF85.txt - cм. подпрограмму SETUP, стр. 3232. Возможно для запуска нужен такой файл c исходными данными. 

Еще непонятны инструкции виду WRITE(12, ...),  WRITE(59, ...) - где эти утсройтсва ввода/вывода 12 и 59 определены непонятно.


Присоединённый файл ( Кол-во скачиваний: 5 )
 VOF85.F90 192,97 Kb

Спасибо огромное.Да вы прад. Теперь я понял куда вносить исходные данные.

Помогите пожалуйста с компилятором еще.Какой использовать?Compaq visual fortran не ставится.Не пойму почему, то ругается на какую то строку, то еще что то.

У меня стоит fortran power station 4.0, но я сомневаюсь в корректности его, так как в отредактированном вами файле он ругается буквально на все(на объявление программы и подпрограмм, параметры ему не так указаны....)

p..:Может вот это самое write - это вывод на ленту(а как заменить это на вывод в файл?)

Это сообщение отредактировал(а) qwerty1986 - 2.11.2010, 09:41

OPEN (3,FILE='file.txt')
WRITE(3,*) ПЕРЕМЕННЫЕ
CLOSE(3)

Спасибо

Компиляторы линейки Visual Fortran ругаются на подправленный вариант опять же в связи с невозможностью считывания данных из ранее упомянутого файла setupVOF85.txt подпрограммой SETUP.

Я компилировал в gfortran 4.5 - там все компилируется и линкуется, но проблема с SETUP сказывается на этапе выполнения программы.

Нужно выяснить насчет setupVOF85.txt  

Это сообщение отредактировал(а) FCM - 2.11.2010, 14:27

Это кошмар какой-то. Помогите мне с этим. Как вообще установить хотя бы этот gfortran? В инете скачивание в виде какой то кучи разновидночтей, архитектур и так далее.Да и скачивать по частям.Скоро нервный тик из-за этого фортрана будет.Или я такой тупой.....

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

Что касается gfortran для Windows, то ставится в составе GCC(куда еще входит gcc/g++ и др.)
Качаешь с  http://tdm-gcc.tdragon.net/download например, tdm-gcc-4.5.1.exe (20.6Mb) для win32
Устанавливаешь - в процессе установки нужно указать установку фортрана (по умолчанию ставится только gcc и др.)

Качаешь Code::Blocks IDE for Fortran  http://darmar.vgtu.lt/
Распаковываешь в желаемую директорию.
Прописываешь там пути (если автоматически не определеились) - см. также http://darmar.vgtu.lt/index.php/notes

(Но если нужна будет графика, то возможно стоит упереться в Visual Fortran)

Бесплатно еще есть Silverfrost  http://www.silverfrost.com/default.aspx

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

С расширением f90

Короче парни.Дайте пожалуйста ссылки если кто знает на нормальный visual fortran.У меня есть, но кряк почему то не работест

На форуме не дают ссылки на нелицензионное коммерческое ПО

ну хотя бы на мейл([email protected]).Помогите пожалуйста.Расскажите где что скачать, как установить....И я отстану.
Просто не пойму.Может система у меня косячная.Те ссылки которые приводили мне для скачивания gfortran биты почему-то(вернее архивы битые скачиваюся), compaq visual fortran не устанавливается, выдает ошибку каких то строк и требует ключ, который из кряка не воспринимается как правильный.Для интел мшыгфд фортрана требуется визуал студио, которая тоже зараза не ставится.

Очень нужно.Я не прошу что то делать(программировать) для меня.

Кстати файл с входными данными я прикрепил и исправленный код программы на фортран.Проверьте пожалуйста работает или нет, в виду того что сам проверить не могу.

Это сообщение отредактировал(а) qwerty1986 - 3.11.2010, 11:34

Присоединённый файл ( Кол-во скачиваний: 2 )
 setupVOF85.txt 0,64 Kb

и текст

Присоединённый файл ( Кол-во скачиваний: 4 )
 VOF85.f90 192,97 Kb

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

Про коммерческие ничего не скажу - потому что не знаю. Знаю только, что есть пробные (на 1 мес.) бесплатные версии Intel Visual Fortran на intel-сайте - но там качать немало. Еще есть Intel Compiler Suite for Students на allsoft.ru - стоит около 4 т.р.  и тоже качать. Все без Visual Studio, по моему.

С Visual Studio идет бесплатный Silverfrost FNT95 Express - ссылку давал выше.

Нужно навести порядок с системой. 
Можно попробовать качать с помощью Flashget (бесплатная программа). 


Что касается файл с начальными данными  - посмотрю.

Это сообщение отредактировал(а) FCM - 3.11.2010, 13:01

Посмотрел с начальным файлом - пока не идет - похоже там есть несоответствия.
Нет ли в нем опечаток?.


Это сообщение отредактировал(а) FCM - 3.11.2010, 13:29

Ну вот наконец то получилось установить на работе. О каких путях вы говорили(вроде прописать их надо). Все поставил, но выдает при компиляции ошибки такого типа:

||Warning: Extension: Hollerith constant at (1)|
||Warning: Extension: Hollerith constant at (1)|
||Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)|
||Warning: The Hollerith constant at (1) is too long to convert to INTEGER(4)|
||Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)|
||Warning: The Hollerith constant at (1) is too long to convert to INTEGER(4)|
||warning: auto-importing has been activated without --enable-auto-import specified on the command line.|
c:\mingw32\bin\..\lib\gcc\mingw32\4.5.1\..\..\..\crt2.o:crt1.c|| undefined reference to `__dyn_tls_init_callback'|
c:\mingw32\bin\..\lib\gcc\mingw32\4.5.1\..\..\..\crt2.o:crt1.c|| undefined reference to `__cpu_features_init'|
c:\mingw32\bin\..\lib\gcc\mingw32\4.5.1\..\..\..\crt2.o:crt1.c|| undefined reference to `_pei386_runtime_relocator'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_st_open'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_st_open'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_st_write'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_transfer_integer'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_transfer_real'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_st_write_done'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_st_write'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_transfer_integer'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_transfer_real'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_st_write_done'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_st_write'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_transfer_integer'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_transfer_real'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_st_write_done'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_st_write'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_transfer_integer'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_transfer_real'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_st_write_done'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_st_write'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_transfer_integer'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_transfer_real'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_st_write_done'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_st_write'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_transfer_integer'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_transfer_real'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_st_write_done'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_st_write'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_transfer_integer'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_transfer_real'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_st_write_done'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_st_write'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_transfer_integer'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_transfer_real'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_transfer_integer'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_st_write_done'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_st_write'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_transfer_integer'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_transfer_real'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_transfer_integer'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_st_write_done'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_st_write'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_transfer_integer'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_transfer_real'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_transfer_integer'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_st_write_done'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_st_close'|
\VOF85.o:VOF85.f90|| undefined reference to `_gfortran_st_close'|
||More errors follow but not being shown.|
||Edit the max errors limit in compiler options...|
||=== Build finished: 50 errors, 7 warnings (0 minutes, 20 seconds) ===|

Если речь идет о Сode::Blocks for Fortran, то нужно 
зайти в меню Settings-> Compiler and Debugger - > Global Compiler Settings
выбрать GNU Fortran Compiler
затем воити во вкладку Toolchain executables
удостовериться, что правильно указана директория установки MINGW
и правильно заданы следующие пункты
С compiler     -   mingw32-gfortran.exe
C++ compiler -   mingw32-gfortran.exe
Linker for DLL  - mingw32-gfortran.exe

Затем при создании консольного фортран-проекта нужно следить, что выбирается именно GNU Fortran Compiler

Все задано а ошибки не отстают.
\VOF85.f90|3561|\VOF85.f90 3561 .13:|
||Warning: Extension: Hollerith constant  |
\VOF85.f90|3562|\VOF85.f90 3562 .28:|
||Warning: Extension: Hollerith constant  |
\VOF85.f90|3561|\VOF85.f90 3561 .11:|
||Warning: Extension: Conversion from HOLLERITH to INTEGER(4)  |
\VOF85.f90|3561|\VOF85.f90 3561 .11:|
||Warning: The Hollerith constant  is too long to convert to INTEGER(4)|
\VOF85.f90|3562|\VOF85.f90 3562 .26:|
||Warning: Extension: Conversion from HOLLERITH to INTEGER(4)  |
\VOF85.f90|3562|\VOF85.f90 3562 .26:|
||Warning: The Hollerith constant  is too long to convert to INTEGER(4)|
||warning: auto-importing has been activated without --enable-auto-import specified on the command line.|
c:\mingw32\bin\..\lib\gcc\mingw32\4.5.1\..\..\..\crt2.o:crt1.c|| undefined reference to `__dyn_tls_init_callback'|
c:\mingw32\bin\..\lib\gcc\mingw32\4.5.1\..\..\..\crt2.o:crt1.c|| undefined reference to `__cpu_features_init'|
c:\mingw32\bin\..\lib\gcc\mingw32\4.5.1\..\..\..\crt2.o:crt1.c|| undefined reference to `_pei386_runtime_relocator'|
ertr000001.o:(.rdata+0x0)||undefined reference to `_pei386_runtime_relocator'|
||Info: resolving __fmode by linking to __imp___fmode |
||Info: resolving __fpreset by linking to __imp___fpreset |
||=== Build finished: 4 errors, 7 warnings (0 minutes, 4 seconds) ===|

Какой компилятор указан в свойствах даннгого проекта?

настроил так как вы сказали.

Попробуй для начала простую программу, например

Как то странно.Я скачал указанный архив с фортраном. и еще с этого дополнительно архив с фортраном.Установил все это.но сейчас в кодблоке при создании нового файла можно только указать с и с++ файл.Это означает, что фортран у меня все таки не встал?

ПРи создании файла попробуй явно впечатать расширение .f90 
Если используется Сode::Blocks IDE for Fortran, то при выборе создаваемого проекта доступна опция Fortran Project, что соответтсвует консольному фортран-проекту. 

Зайди в директорию
c:\mingw32\bin\.- 
посмотри , есть ли там mingw32-gfortran.exe.

Зайди в директорию
c:\mingw32\lib\gcc\mingw32\4.5.1\
посмотри, есть ли там файлы  libgfortran.a, libgfortran.dll.a

Все естьв указанных дерикториях.Странно...

Создай заново в Code::Blocks IDE for Fortran проект типа  Fortran Application. Созданный проект должен содержать файл hello.f90 и должен компилироваться/линковаться без проблем.

Это сообщение отредактировал(а) FCM - 2.12.2010, 10:07