ГОСТ Р 8.769—2011
+STOP’ NO SOLUTION’
D3REP=1 .ODO/3.0DO
CEFF =X1*X11*C111 ♦3.0D0’X11*X2*(CA112)**D3REP*(Y12+(T-27O.0D0)
* (CA113)**D3REP *Y13
♦*0.001300)
♦ ♦ 3.0D0*X11*X3
+ ♦ 3.0D0*X1*X15
+♦ 3.0D0*X1*X22
* (CA115)**D3REP *Y115
* (CA122)"D3REP * (Y12+(T-270.000)*0.0013DO)
+♦ 6.0D0’X1*X2*X3* (CA123)**D3REP *Y123
+*3.0D0*X1*X33 * (CA133)"D3REP *Y13
♦ ♦X22*X2*C222 ♦ 3.0D0*X22*X3*C223 ♦ 3.0D0*X2*X33*C233
+ ♦ ХЗ’ХЗЗ’СЗЗЗ* X5*X55*C55S ♦ 3.0D0*X11*X7*C117
RETURN
END
SUBROUTINE ITER(P.T.B.C.V.Z)
IMPLICIT DOUBLE PRECISION (A-H.O-Z)
COMMON /MBLOK/GM1RO.GM1R1.GM2.GM3.GM5.GM7.FA.FB.RL.TO.H5.H7.R
RT - R’T
RTP a RT/P
V3 RTP*B
KK =0
5 V aRTP*(1.0D0*B,‘V-»C/V**2)
KK = KK+1
IF (KK GT. 20) STOP ’NO CONVERGENCY ЯЗ’
Z= 1.0DO+B/V*C/V**2
PA = RTW Z
IF(ABS(PA-P) .GE. 1 ,D-5)GO TO 5
RETURN
END
BLOCK DATA
IMPLICIT DOUBLE PRECISION (A-H.O-Z)
COMMON /BBLOK/ BR11H0(3). BR11H1(3). BR11H2(3). BR22(3). BR23(3).
+BR33(3). BR15(3). 8R17(3). BRS5(3). BR77(3). B25
COMMON /CBLOK/CR111H0(3). CR111H1(3). CR111H2(3). CR222<3).
+CR223(3). CR233(3). CR333(3). CR555(3). CR117(3)
COMMON/ZETA/Z12.Z13.Y12.Y13.Y123.Y115
COMMON /MBLOK/GM1RO.GM1R1.GM2.GM3.GMS.GM7.FA.FB.RL.TO.H5.H7.R
DATA BR11 H0/-0.425468D0. 0.286S00D-2. -4620730-5/.
♦ BR11H1/0.877118D-3. -.5562810-5. 0.881510D-8/.
♦ BR11H2/-.8247470-6. 0.4314360-8. -.608319D-11/,
♦ BR22 /-.14460000 . 0.740910D-3. -.9119500-6/.
♦ BR23 / -.339693D0 . 0.161176D-2. -.2044290-5/.
+BR33 / -.868340D0 . 0.403760D-2.-.5165700-5/.
+ BR15 / -.5212800-1. 0.271570D-3. -.250-6/.
+BR17 / -.6872900-1. -.2393810-5.0.518195D-6/,
+BR55 /-.1105960-2.0.8133850-4.- 9872200-7/,
+BR77 / -.13082000 . 0.602540D-3,-.6443000-6 /.
+B25 / 0.01200/
DATA CR111HO/-.30248800.0.1958610-2. -.3163020-5 /.
+CR111H1/0.6464220-3. -.4228760-5. 0.6881570-8 /.
+ CR111H2/-.332805D-6, 0.2231600-8.-.367713D-11/.
+CR222 / 0.784980D-2. -.3989500-4.0.6118700-7/.
♦CR223 /0.5520660-2. -.1686090-4.0.1571690-7/.
+CR233 / 0.3587830-2. 0.8066740-5.-.3257980-7/.
♦CR333 / 0.2051300-2. 0.3488800-4,-.8370300-7/.
♦CR555 / 0.1047110-2. -.364887D-5. .4670950-8/,
+CR117 / 0.7367480-2. -.2765780-4. .3430510-7/
DATAZ12 /0.7200/. Z13/-.865D0/.
+Y12 /0.9200/, Y13/ 0.9200/. Y123/1.1000/.
+Y115/1.200/
28