*10Х,' '/
*10Х,'──────────────────────────────────────────────────────────'/)
WRITE(*,5)
5 FORMAT(/,3X,
*'Введите порядковый номер свойства для вывода результатов расче',
*'та'/
*' или 5 для выхода в ДОС '\)
READ(*,*)NPROP
RETURN
END
SUBROUTINE RANGE(NRANGE)
IMPLICIT REAL*8(A-H,O-Z)
COMMON/Z/Z
WRITE(*,1)
1 FORMAT(//
*' Метод расчета при заданных параметрах "не работает"'/
*' Продолжить работу программы ? 0 - нет, 1 - да '\)
READ(*,*)NRANGE
RETURN
END
SUBROUTINE TABL(PI,TI,ZP,NP,NT,NPROP)
IMPLICIT REAL*8(A-H,O-Z)
CHARACTER*26 AR,FNAME
CHARACTER PROP(4)*58A*6,LIN1(5)*9,LIN2(5)*9,LIN3(6)*9,LIN4*9,
*AT(6)*28,RAZM(4)*39
CHARACTER*70 F,FZ(11,2),FW(11,2)
DIMENSION PI(100),TI(100),ZP(100,100),ZPP(6)
COMMON/YI/YC(25)/NPR/NPR/AR/AR(25)
DATA PROP/
*' Плотность природного газа.',
*' Показатель адиабаты природного газа.',
*' Скорость звука природного газа.',
*' Коэффициент динамической вязкости природного газа.'/
DATA RAZM/
*' (в кг/куб.м)',' ',
*' (в м/с)',
*' (в мкПа*с)'/
DATA LIN1/5*'──────────'/,LIN2/5*'──────────'/,LIN3/6*'──────────'/,
*LIN4/'───────────'/,А/' - '/
DATA AT/
*' Т, К',' Т, К',' Т, К',' Т, К',
*' Т, К',' Т, К'/
DATA FZ/
*'(3X,F5.2,2X,6(3X,F6.2))','(3X,F5.2,5X,A6,5(3X,F6.2))',
*'(3X,F5.2,2X,2(3X,A6),4(3X,F6.2))','(3X,F5.2,2X,3(3X,A6),
*3(3X,F6.2))',
*'(3X,F5.2,2X,4(3X,A6),2(3X,F6.2))','(3X,F5.2,2X,5(3X,A6),
*3X,F6.2)',
*'(3X,F5.2,2X,5(3X,F6.2),3X,A6)','(3X,F5.2,2X,4(3X,F6.2),
*2(3X,A6))',