12
SUBROUTINE TABL(PI,TI,ZP,NP,NT,NPROP)
IMPLICIT REAL*8(A-H,O-Z)
CHARACTER*26 AR,FNAME
CHARACTER PROP(4)*58,A*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/
*’(3Х,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))’,
*’(3X,F5.2,2X,3(3X,F6.2),3(3X,A6))’,’(3X,F5.2,2X,2(3X,F6.2),
*4(3X,A6))’,
*’(3X,F5.2,5X,F6.2,5(3X,A6))’,’(3X,F9.6,1X,F6.2,5(3X,F6.2))’,
*’(3X,F9.6,1X,A6,5(3X,F6.2))’,’(3X,F9.6,1X,A6,3X,A6,4(3X,F6.2))’,
*’(3X,F9.6,1X,A6,2(3X,A6),3(3X,F6.2))’,’(3X,F9.6,1X,A6,3(3X,A6),
*2(3X,F6.2))’,
*’(3X,F9.6,1X,A6,4(3X,A6),3X,F6.2)’,’(3X,F9.6,1X,F6.2,4(3X,F6.2),
*3X,A6)’,
*’(3X,F9.6,1X,F6.2,3(3X,F6.2),2(3X,A6))’,’(3X,F9.6,1X,F6.2,
*2(3X,F6.2),3(3X,A6))’,
*’(3X,F9.6,1X,F6.2,3X,F6.2,4(3X,A6))’,’(3X,F9.6,1X,F6.2,5(3X,A6))’/
DATA FW/
’(3X,F5.2,2X,6(4X,F5.1))’,’(3X,F5.2,5X,A6,5(4X,F5.1))’,
*’(3X,F5.2,2X,2(3X,A6),4(4X,F5.1))’,’(3X,F5.2,2X,3(3X,A6),
*3(4X,F5.1))’,
*’(3X,F5.2,2X,4(3X,A6),2(4X,F5.1))’,’(3X,F5.2,2X,5(3X,A6),
*4X,F5.1)’,
*’(3X,F5.2,2X,5(4X,F5.1),3X,A6)’,’(3X,F5.2,2X,4(4X,F5.1),
*2(3Х,А6))’,
*’(3X,F5.2,2X,3(4X,F5.1),3(3X,A6))’,’(3X,F5.2,2X,2(4X,F5.1),
*4(3X,A6))’,
*’(3X,F5.2,6X,F5.1,5(3X,A6))’,’(3X,F9.6,2X,F5.1,5(4X,F5.1))’,