akaGM
Platinum Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
топик-то живой :)
Eugeen
что-то не верится, что ты программил ещё на перфодырках :)
Цитата:| Есть ли теперь способ указать компиллятору игнорировать пробелы? |
:)
это и так дефолт для фортрана, а как ты представляешь иначе?
и ты, батенька, хочешь и рыбку съесть и и старый формат использовать и новые фичи не терять, не получится...
так и только так!
ifort /fixed myprogram.for
Код:
12--567 ----- цифры объяснять?
R E A L * 8 F U N C T I O N DRT1H ( R , T )
C#######################################################
C# ПOДПPOГPAMMA-ФУHKЦИЯ ДЛЯ PACЧETA ЧACTHOЙ #
C# ПPOИЗBOДHOЙ OT УДEЛЬHOЙ ЭHTAЛЬПИИ BOДЫ ИЛИ ПAPA#
C# ПO ПЛOTHOCTИ-R ПPИ ПOCTOЯHHOЙ TEMПEPATУPE-T #
C# ( R , KГ/KУБ.M; #
C# T , ГPAД.K; #
C# DRT1H , (KДЖ/KГ)/(KГ/KУБ.M) ) #
C#######################################################
I M P L I C I T R E A L * 8 ( A - H , O - Z )
C O M M O N /PROPTY/ VAR , TAU , RO , JDT , JDR
D A T A RGAS , X0001 , X1000
* / 4.6151D-1 , 1.D-3 , 1.D+3 /
TAU = X1000/T
RO = R*X0001
JDT = -1
JDR = -1
CALL GLBQRT
DRT1H = VAR
CALL GLBQ2T
DRT1H = VAR*TAU
JDR = 0
CALL GLBQRT
X1 = VAR*3.D0
CALL GLBQ2T
X1 = VAR*TAU+X1
JDR = 1
CALL GLBQRT
DRT1H = ( ( VAR*RO+X1 )*RO )*RGAS/TAU
R E T U R N
E N D
|
|
Всего записей: 25203 | Зарегистр. 06-12-2002 | Отправлено: 09:34 01-03-2020 | Исправлено: akaGM, 16:04 01-03-2020 |
|
