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

  1. Документы
IF(NPRIZ.EQ.1) GO TO 5
A2=0.D0
A3=0.D0
5 DO 33 I=1,10
D=BK(I)*ROR**I
AO=AO+D
A1=A1+(I+1)*D
IF(NPRIZ.EQ.1) GO TO 33
DO 3 J=1,8
D1=B(I,J)*ROR**I/TR**(J-1)
A2=A2+(2-J)*D1
3 A3=A3+(J-1)*(2-J)*D1/I
33 CONTINUE
RETURN
END
С Подпрограмма расчета плотности, показателя адиабаты, скорости
С звука
SUBROUTINE TP(ROM)
IMPLICIT REAL*8(A-H,O-Z)
COMMON/BMM/BMM/AI/AO,A1,A2,A3/RM/RM/T/T/TS/RO,PA,W/Z/Z
CALL IDGFU(T,CVOS)
RO=BMM*ROM
R=RM/BMM
A11=1.D0+A1
A21=1.D0+A2
CV=R*(A3+CV0S)
CP=CV+R*A21**2/A11
W=DSQRT(DABS(1.D3*R*T*CP/CV))*DSQRT(DABS(A11))
PA=CP/CV*A11/Z
RETURN
END
С Подпрограмма расчета изохорной теплоемкости в идеально газовом
С состоянии
SUBROUTINE IDGFU(T,CVOS)
IMPLICIT REAL*8(A-H,O-Z)
DIMENSION CPO(8),CVO(8)
COMMON/IDGF/CPC(20,8),TOI(8),MCO(8),MCP(8)/Y/Y(8)/NC/NC
CVOS=0.D0
DO 21 I=1,NC
M=MCP(I)
N=MCO(I)
TAU=T/TOI(I)
S1=0.D0
S2=0.D0
S3=0.D0
S1=CPC(1,I)
IF(M.EQ.0) GO TO 7
DO 9 J=1,M
9 S2=S2+CPC(J+1,I)*TAU**J
7 IF(N.EQ.0)GO TO 11
Содержание
Межгосударственный стандарт ГОСТ 9980.3-86"Материалы лакокрасочные. Упаковка"(утв. постановлением Госстандарта СССР от 20 июня 1986 г. N 1618)
Межгосударственный стандарт ГОСТ 30546.3-98 "Методы определения сейсмостойкости машин, приборов и других технических изделий, установленных на месте эксплуатации, при их аттестации или сертификации на сейсмическую безопасность" (введен в действие постанов
Межгосударственный стандарт ГОСТ 28966.1-91 "Клеи полимерные. Метод определения прочности при расслаивании" (утв. постановлением Государственного комитета СССР по управлению качеством продукции и стандартам от 5 апреля 1991 г. N 454)
Межгосударственный стандарт ГОСТ 28656-90 "Газы углеводородные сжиженные. Расчетный метод определения плотности и давления насыщенных паров" (утв. постановлением Государственного комитета СССР по управлению качеством продукции и стандартам от 4 сентября 1
Межгосударственный стандарт ГОСТ 32958-2014 "Дороги автомобильные общего пользования. Экраны акустические. Методы контроля" (введен в действие приказом Федерального агентства по техническому регулированию и метрологии от 9 сентября 2015 г. N 1296-ст)