Вопрос по языку FORTRAN

[Munin]

x51 в сообщении #826920 писал(а):

Munin, а ошибки нет

Есть, если два разных текста программы, которые должны компилироваться в абсолютно одинаковые программы, дают разные результаты.

[sssveta]

Доброе время суток!
Прошу помощи.
Как можно в фортране задать функцию ux(x,y)=1, которая дальше будет использоваться в уравнении, а х и у меняются пока выполняется условие do while($x^2+y^2\geqslant1$.OR.x>0)
заранее спасибо

[sssveta]

sssveta в сообщении #833263 писал(а):

Доброе время суток!
Прошу помощи.
Как можно в фортране задать функцию ux(x,y)=1, которая дальше будет использоваться в уравнении, а х и у меняются пока выполняется условие do while($x^2+y^2\geqslant1$.OR.x>0)
заранее спасибо

или просто как задать функцию ux(x,y)?

[sssveta]

опять я надеюсь на помощь. последние два сообщения про функцию уже не актуальны - проблема решена. но теперь появилась новая.
в файл вывода мне нужно чтобы в строчку вывелись параметры

write(1,*) x,y,vx,vy,t,st

но x,y,vx,vy он пишет в первую строчку, а t и st переносит на следующую.
Как быть? Спасибо заранее за помощь)

[iifat]

А файл-то текстовый или бинарный? Если текстовый, откройте для себя оператор FORMAT, так, кажись, и всё, с ним связанное.

[sssveta]

iifat в сообщении #836391 писал(а):

А файл-то текстовый или бинарный? Если текстовый, откройте для себя оператор FORMAT, так, кажись, и всё, с ним связанное.

спасибо)) уже сама смогла сделать))

[Mavlik]

Народ! Имеется программа на фортране (для старой машины типа ЕС-1060).
А также есть описание и выходной файл.
Может кто помочь откомпилировать под Powerstation или Compaq Fortran?

[Pphantom]

Mavlik в сообщении #1016923 писал(а):

Народ! Имеется программа на фортране (для старой машины типа ЕС-1060).
А также есть описание и выходной файл.
Может кто помочь откомпилировать под Powerstation или Compaq Fortran?

А в чем конкретно состоят сложности?

Просто, с одной стороны, упомянутые компиляторы сейчас уже лишь немногим свежее, чем ЕС-1060, с другой - проблемы с обратной совместимостью в Фортране встречаются редко. Возможно, проще будет рассказать, как поправить какую-нибудь одну конкретную строчку.

[Mavlik]

Можно и одну.
Ругается на строчку
ACCEPT"COUNT A? Y-1 N-2",IG0
Далее идет строка.
GO TO(33,44)IG0

F:\Angle\ANGLET2.FOR(64) : Error: First non-blank character in a character type format specifier must be a left paren. ['COUNT A? Y-1 N-2']
ACCEPT"COUNT A? Y-1 N-2",IG0

[Pphantom]

Mavlik в сообщении #1016984 писал(а):

ACCEPT"COUNT A? Y-1 N-2",IG0

М-да, это серьезно. Насколько я помню, эта конструкция должна читать значение в переменную IG0 из файлов, открытых под номерами Y-1 или N-2 в зависимости от содержимого переменной A (если она нуль - из второго, если нет - из первого). Т.е. ее можно переписать как

Используется синтаксис Fortran

IF(A .EQ.0) THEN
READ(N-2,*) IG0
ELSE 
READ(Y-1,*) IG0
END IF
 

Хотя, честно сказать, до конца не уверен. Второй вариант - не читать из файла значение, а просто брать его равным какому-то из этих двух выражений (хотя это тогда какое-то локальное расширение ЕС-1060). Пожалуй, все-таки одной строчки мало... скиньте-ка код целиком в ЛС, если он не очень большой.

[iifat]

Pphantom в сообщении #1016962 писал(а):

проблемы с обратной совместимостью в Фортране встречаются редко

Вспоминается статеечка о сравнении компиляторов Фортрана. Оператор goto 5 действительно везде исполняется одинаково. Прочие хоть с маленькими, да особенностями.

-- 19.05.2015, 11:39 --

Фортранов, кстати говоря, на ЕС было четыре или пять. Там в комментариях не уточняется, какой именно?

[Pphantom]

Pphantom в сообщении #1017004 писал(а):

М-да, это серьезно. Насколько я помню, эта конструкция должна читать значение

Все, дошло. Обе мои исходных гипотезы были дурацкими, а правильный ответ совсем смешной. Строчка

Mavlik в сообщении #1016984 писал(а):

ACCEPT"COUNT A? Y-1 N-2",IG0

переводится как:

Используется синтаксис Fortran

write(*,*) "Вычислить A? 1 - да, 2 - нет:"
read(*,*) IG0 

-- 19.05.2015, 17:41 --

iifat в сообщении #1017012 писал(а):

Фортранов, кстати говоря, на ЕС было четыре или пять. Там в комментариях не уточняется, какой именно?

Нет. Я повелся на тетрарный оператор в качестве расширения языка, а все оказалось намного проще.

[iifat]

Pphantom в сообщении #1017301 писал(а):

переводится как

Тьфу, ёлки ж. Да, это Фортран