Межгосударственный стандарт ГОСТ 30319.3-96 "Газ природный. Методы расчета физических свойств. Определение физических свойств по уравнению состояния" (введен в действие постановлением Государственного комитета РФ по стандартизации, метрологии и сертификац стр. 12

  1. Документы
ELSE
NL=NT-I+1
ENDIF
WRITE(1,7)
IF(NL.GT.1)WRITE(1,17)LIN2(1),(LIN1(K),K=1,NL-1)
IF(NL.EQ.l) WRITE(1,17)LIN2(1)
17 FORMAT('──────────',6A9)
WRITE(1,19)AT(NL)
19 FORMAT(' |',А28)
IF(NL.GT.l) WRITE(1,21)LIN4,(LIN2(K),K=1,NL-1)
IF(NL.EQ.l) WRITE(1,21)LIN4
21 FORMAT(' p, МПа ',6А9)
WRITE(1,23)(TI(K),K=I,I+NL-1)
23 FORMAT(10X,6(:,' |',F6.2))
WRITE(1,17)(LIN3(K),K= 1,NL)
NW=NW+6
DO 25 J=1,NP
JP=1
IF(PI(J).EQ.0.101325D0) JP=2
NL1=0
NLN=0
DO 27 K=I,I+NL-1
NL1=NL1+1
IF(ZP(J,K).EQ.0D0) THEN
ZPP(NL1)=A
NLN=NLN+1
ELSE
ZPP(NL1)=ZP(J,K)
ENDIF
27 CONTINUE
IF(NLN.EQ.NL) GO TO 133
IF(NLN.EQ.0) THEN
IF(NPROP.NE.3) F=FZ(1,JP)
IF(NPROP.EQ3) F=FW(1,JP)
ELSE
IF(ZP(J,I).EQ.0D0.AND.NPROP.NE.3) F=FZ(NLN+1,JP)
IF(ZP(J,I+NL-l).EQ.0D0.AND.NPROP.NE.3)F=FZ(NLN+12-NL,JP)
IF(ZP(J,I).EQ.0D0.AND.NPROP.EQ.3)F=FW(NLN+l,JP)
IF(ZP(J,I+NL-1).EQ.ODO.AND.NPROP.EQ.3)F=FW(NLN+12-NL,JP)
ENDIF
IF(NLl.EQ.l) WRITE(1,F)PI(J),ZPP(1)
IF(NL1.EQ.2) WRITE(1,F)PI(J),ZPP(1),ZPP(2)
IF(NL1.EQ.3) WRITE(1,F)PI(J),ZPP(1),ZPP(2),ZPP(3)
IF(NL1.EQ.4) WRITE(1,F)PI(J),ZPP(1),ZPP(2),ZPP(3),ZPP(4)
IF(NL1.EQ.5)
*WRITE(1,F)PI(J),ZPP(1),ZPP(2),ZPP(3),ZPP(4),ZPP(5)
IF(NL1.EQ.6)
*WRITE(1,F)PI(J),ZPP(1),ZPP(2),ZPP(3),ZPP(4),ZPP(5),ZPP(6)
NW=NW+1
133 CONTINUE
Содержание
Межгосударственный стандарт ГОСТ 12.3.043-90 "Система стандартов безопасности труда. Процессы производственные нанесения оптических покрытий на детали. Общие требования безопасности" (утв. постановлением Государственного комитета СССР по управлению качест
Межгосударственный стандарт ГОСТ 2.106-96 "Единая система конструкторской документации. Текстовые документы" (введен в действие постановлением Госстандарта РФ от 13 ноября 1996 г. N 620)
Межгосударственный стандарт ГОСТ 30546.3-98 "Методы определения сейсмостойкости машин, приборов и других технических изделий, установленных на месте эксплуатации, при их аттестации или сертификации на сейсмическую безопасность" (введен в действие постанов
Межгосударственный стандарт ГОСТ 28966.1-91 "Клеи полимерные. Метод определения прочности при расслаивании" (утв. постановлением Государственного комитета СССР по управлению качеством продукции и стандартам от 5 апреля 1991 г. N 454)
Межгосударственный стандарт ГОСТ 32958-2014 "Дороги автомобильные общего пользования. Экраны акустические. Методы контроля" (введен в действие приказом Федерального агентства по техническому регулированию и метрологии от 9 сентября 2015 г. N 1296-ст)