Описание тега fortran77

Fortran 77, утвержденный в качестве нового стандарта в апреле 1978 года, добавил ряд важных функций для устранения многих недостатков своего предшественника Fortran 66. Fortran 90 был следующим утвержденным стандартом после Fortran 77.
1 ответ

Как мне TRIM символьный массив в стандартном F77?

Я читаю из файлов данных ASCII с текстовыми заголовками. (Заголовки содержат информацию о прогоне данных.) Я хочу добавить некоторые столбцы каждого файла данных, затем записать результат в другой файл данных, но сохранить заголовки для каждого из ф…
05 авг '13 в 23:22
1 ответ

Файл MEX fortran с использованием Gnumex и MinGW (g77)

Есть проблема, с которой я столкнулся недавно. Насколько я помню, раньше он работал нормально, но через несколько недель я снова пытаюсь MEX-файл fortran 77 в MATLAB, но он дает мне странную ошибку. Хорошо, я сделал файл опций MEX, используя Gnumex,…
02 мар '15 в 19:31
2 ответа

Как инициализировать массив целочисленного вида 8 в фортране?

Я хочу инициализировать массив больших целых чисел в Фортране, я попытался: integer(kind=8) :: XGrid(1:20) Но целые числа остаются по умолчанию вид =4. Как я позже добавлю числа в массив: XGrid = (/3002, 3340403,....,19460630000/) И я получаю ошибку…
03 янв '17 в 11:44
2 ответа

Удалить повторяющиеся строки в Fortran77

У меня есть файл, который представляет собой таблицу из 119 столбцов (разделенных пробелами) и около 50000 строк (строк). Я хотел бы удалить дублированные записи, то есть те строки, которые имеют все идентичные столбцы (119). Я набросал этот код: PR…
25 янв '15 в 13:50
1 ответ

Содержит ли Fortran 77 встроенную функцию ALL?

Я пытаюсь проверить, являются ли все элементы логического массива ложными, не проходя через это. Я не могу найти в ALL() функция в руководстве Compaq Visual Fortran 6.6. Есть ли какой-то другой внутренний способ сделать это, или ALL() поддерживается…
26 мар '15 в 20:38
1 ответ

Старый фортран: Hollerith редактирует дескриптор синтаксиса для оператора Format

Я пытаюсь модернизировать старый код (или, по крайней мере, сделать его немного более понятным), но я наткнулся на странный формат для FORMAT заявление. В частности, это FORMAT утверждение с константами Холлерита в нем (nH где n это число): FORMAT(1…
29 мар '16 в 23:37
1 ответ

Фортран, Смысл унарного * оператора в вызовах функций?

Я пытаюсь внести изменения в старый код Fortran, чтобы он обрабатывал немного другой двоичный формат входного файла. В процессе этого я сталкивался * использовался в одинарной манере. Например, этот код находится в цикле: CALL EVENT1(QDRBUF(IPNTR+EV…
18 дек '14 в 22:18
1 ответ

Может кто-нибудь объяснить, как это математически правильно, код на Фортране

program sum IMPLICIT DOUBLE PRECISION (A-H,O-Z) x = 1 y = 2 z = (x*y)/dtan(0.0D0) print *, z end program sum Когда я компилирую этот код с помощью Online Fortran Compiler, я получаю "Бесконечность". Если я напишу этот код на другом языке, я получу, …
11 авг '17 в 17:05
0 ответов

Фортран 77 вложенный цикл до (умножение)

Часть моего кода выглядит следующим образом else if (n .le.6) then call DRNUN(6, XX) trun(j,1,n)=g1(j,1,n)/(cho(1,1)*1.0d0) do 7 l=2,n u(j,l-1,n)=DNORIN(XX(l-1)*(1.0d0-DNORDF(trun(j,l-1,n))) & +DNORDF(trun(j,l-1,n))) do 17 m=1,l-1 lemda(m,j,l,n)…
05 сен '18 в 03:25
0 ответов

__gfortran_transfer_integer_write не определено для Mac OSX.6.8 - gfortran

У меня проблемы с установкой древней программы F77 на Mac (OS 10.6.8). Когда я компилирую (с gfortran), я получаю следующие ошибки: Undefined symbols for architecture x86_64: "__gfortran_transfer_integer_write", referenced from: _abfind_ in Abfind.o…
31 июл '13 в 14:35
1 ответ

Fortran 77: оператор IF, в качестве аргумента которого указана переменная, за которой следует оператор метки

Я сталкивался с этим утверждением на Фортране из модели, написанной на Фортране 77 . Я понятия не имею, что это значит. Был бы рад, если кто-то может пролить свет. Вот как выглядит код: ЕСЛИ (NC), 20,20,10 Примечание: NC - это переменная (я думаю), …
05 июн '14 в 06:51
1 ответ

Узнать Cygwin о Microsoft cl и nmake?

Я пытаюсь скомпилировать библиотеку времени выполнения Fortran (f2c) в Cygwin с помощью этой команды: nmake -f makefile.vc allПо инструкции, указанной в пакете, сначала я должен сообщить Cygwin о Microsoft cl компилятор и nmake, Как я могу сделать э…
03 фев '15 в 22:49
1 ответ

Прохождение 3D-массивов с использованием MPI_ALLGATHERV

Я пытаюсь передать трехмерные массивы всем другим процессам, используя MPI_ALLGATHERV. v1 является общим массивом блоков. parameter (nprocz=48,nzro=1) do 1 i=i101,i102 do 2 j = je0, je1-1 do 2 k = ke0, ke1 v1(k,j,i) = v1(k,j,i)*0.015*float(i-iv0) 2 …
07 ноя '13 в 21:24
3 ответа

Код Fortran 77 с несовместимыми вызывающими последовательностями - как модулировать в Fortran 90/95?

Рассмотрим следующий унаследованный "реальный мир" код Fortran 77, который в соответствии со стандартом вполне может быть недопустимым, но работает в реальной жизни с широким спектром компиляторов и не выдает предупреждений компилятора или компоновщ…
05 авг '15 в 18:58
1 ответ

Конвертировать Фортран 77 в Фортран 95

У меня здесь есть кусок кода, и я не могу найти эффективный способ преобразования этого куска кода в эквивалент Fortran 95. Я уже пробовал несколько вещей, но я всегда застрял на создании 1D-массивов из матриц и наоборот (дело в том, чтобы сократить…
02 мар '14 в 11:41
0 ответов

Как устранить ошибку сегментации при вызове подпрограммы в подпрограмме в FORTRAN 77?

Я борюсь с проблемой ошибки сегментации в FORTRAN 77 уже несколько месяцев, и я действительно не могу понять, где я ошибаюсь. Я новичок в Фортране. Я пишу программу (main) в котором я вызываю подпрограмму (source). Эта подпрограмма выполняет метод Р…
1 ответ

Ошибка: аргумент "b" встроенного в (1) знака должен быть того же типа и типа, что и "a"

Я новичок в Фортране. Так что мне нужна помощь. Я использую gfortran в SUSE для компиляции своего кода и получаю следующую ошибку: DELTAL = SIGN (.1,(GFIX-GAMFLT)) 1 Error: 'b' argument of 'sign' intrinsic at (1) must be the same type and kind as 'a…
07 авг '18 в 17:31
1 ответ

Адаптивный пошаговый метод для метода Рунге-Кутты 5-го порядка в Фортране

Я хочу решить систему уравнений, используя метод Рунге-Кутты 5-го порядка с адаптивным методом шага. Я нашел полезный код, написанный Танер Акгун. Вот код: c c Adaptive Size Method for 5th Order Runge-Kutta Method c (Based on Numerical Recipes.) c c…
0 ответов

Общий блок в openmp фортране

Мой код следующий: program ... ! Loop which I want to parallelize !$OMP parallel DO I = 1, N ... call FORD(i,j) ... !$OMP END parallel DO end program subroutine FORD(i,j) logical servo,genflg,lapflg dimension c(nvarc) dimension zl(3),zg(3),v1(3,3),v…
0 ответов

Несовместимые типы в операторе DATA возникает ошибка при попытке воспроизвести старый код

Я хотел бы спросить об ошибке в моем коде Incompatible types in DATA statement at (1); attempted conversion of CHARACTER(1) to INTEGER(4) Это произошло в строке: DATA TXT/6*' '/ Поскольку у меня нет опыта работы с Fortran77, не могли бы вы сказать м…
03 июл '15 в 08:41