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

  1. Документы
DIMENSION Y(8),DIJ(8,8),VCIJ(8,8),TCIJ(8,8),V13(8),TC(8),VC(8),
*PII(8),PIIJ(8,8)
COMMON/PARCM/TCM,VCM/Y/Y/NC/NC/PCM/PCM/PIM/PIM
DO 1 I=1,NC
1 V13(I)=VC(I)**(1.D0/3.D0)
DO 3 I=1,NC
VCIJ(I,I)=VC(I)
PIIJ(I,I)=PII(I)
TCIJ(I,I)=TC(I)
DO 3 J=1,NC
IF(I.GE.J) GO TO 3
VCIJ(I,J)=(l.D0-LIJ(I,J))*((V13(I)+V13(J))/2.)**3
PIIJ(I,J)=(VC(I)*PII(I)+VC(J)*PII(J))/(VC(I)+VC(J))
TCIJ(I,J)=(l.D0-DIJ(I,J))*(TC(I)*TC(J))**0.5
VCIJ(J,I)=VCIJ(I,J)
PIIJ(J,I)=PIIJ(I,J)
TCIJ(J,I)=TCIJ(I,J)
3 CONTINUE
VCM=0.D0
PIM=0.D0
TCM=0.D0
DO 5 I=1,NC
DO 5 J=1,NC
VCM=VCM+Y(I)*Y(J)*VCIJ(I,J)
PIM=PIM+Y(I)*Y(J)*VCIJ(I,J)*PIIJ(I,J)
5 TCM=TCM+Y(I)*Y(J)*VCIJ(I,J)*TCIJ(I,J)**2
PIM=PIM/VCM
ТСМ=(ТСМ/VСМ)**0.5
PCM=8.31451D-3*(0.28707D0-0.05559*PIM)*TCM/VCM
RETURN
END
SUBROUTINE PHASE
IMPLICIT REAL*8(A-H,O-Z)
COMMON/Z/Z/RM/RM/T/T/P/P/PCM/PCM/RON/RON/BMM/BMM
*/АI/АО,А1,А2,А3
IF(T.LT.240D0.OR.T.GT.480D0.OR.P.LE.0D0.OR.P.GT.12D0)THEN
Z=0D0
GO TO 134
ENDIF
PR=P/PCM
RO=9D3*P/(RM*T*(1.1*PR+0.7D0))
CALL FUN(RO)
CALL OMTAU(RO,T)
IF(Z.EQ.0D0) GO TO 134
Z=l.D0+AO
IF(RON.NE.0D0) THEN
BMM=1D-3*Z*RON*RM*T/P
GO TO 134
ENDIF
NPRIZ=2
Содержание
Межгосударственный стандарт ГОСТ 28775-90 "Агрегаты газоперекачивающие с газотурбинным приводом. Общие технические условия" (утв. постановлением Государственного комитета СССР по управлению качеством продукции и стандартам от 6 декабря 1990 г. N 3071)
Межгосударственный стандарт ГОСТ 30546.3-98 "Методы определения сейсмостойкости машин, приборов и других технических изделий, установленных на месте эксплуатации, при их аттестации или сертификации на сейсмическую безопасность" (введен в действие постанов
Межгосударственный стандарт ГОСТ 28966.1-91 "Клеи полимерные. Метод определения прочности при расслаивании" (утв. постановлением Государственного комитета СССР по управлению качеством продукции и стандартам от 5 апреля 1991 г. N 454)
Межгосударственный стандарт ГОСТ 28656-90 "Газы углеводородные сжиженные. Расчетный метод определения плотности и давления насыщенных паров" (утв. постановлением Государственного комитета СССР по управлению качеством продукции и стандартам от 4 сентября 1
Межгосударственный стандарт ГОСТ 32958-2014 "Дороги автомобильные общего пользования. Экраны акустические. Методы контроля" (введен в действие приказом Федерального агентства по техническому регулированию и метрологии от 9 сентября 2015 г. N 1296-ст)