. " -3 1" ( )

.. "122 1944 ." ( )

. " " ( )

.. " " ( )

.. " " ( )
- ..
.., .., .., .. . .. .: , 1982. 267 c.
( ): primenenevm1982.djvu
<< 1 .. 90 91 92 93 94 95 < 96 > 97 98 99 100 101 102 .. 103 >>

GO TO 34
33 IF (N3.GT.500) GO TO 41 IF (N2.BQ.2) G(N3)=W IF (N2.EQ.3)
* E(N3)=W/8065.48
IF (N2.EQ.8) E(N3)=W
IF (N2.EQ.2.QR.N2.EQ.3.0R
* .N2.EQ.8) GO TO 331
IF (N3.GT.100) GO TO 41 IF (N2.EQ.1) OM(N3)=W IF (N2.EQ.4) F(N3)=W IF (N2.EQ.5) CP(N3)=W IF (N2.BQ.6) H(N3)=W IF (N2.EQ.7) T(N3)=W IF (N2.EQ.9) SS(N3)=W IF (N2.I.T.10) GO TO 331 IF (N3.GT.55) GO TO 41 IF (N2.EQ.10) FK(N3)=W IF (N2.UT.11) GO TO 331 IF (N3.GT.35) GO TO 41 CPK(N3)=W 331 N3N3+1
34 M=O
IF (Q(K-I ).EQ.AZ( 47))
* GO TO 44 GO TO 5
35 IF (M.GT.15) M=15 DO 36 X=I9M N3=NN(I)+1
36 QZ(I)=AZ(N3)
IF (M.EQ.15) GO TO 38 M=M+1
DO 37 I=M9I5
37 QZ(I)=AZ(43)
38 CALL FLAGS (QZ9JA9JB) IF (JA.BQ.777) GO TO 42 KI=JA
K2=JB GO TO 34
240
23 K=I+1
IF (M.BQ.O) QO TO 5 IF (N2.EQ.30) QO TO 35 W=O. IS= 1
IF (NN(1).BQ.35) NM(I)=O IF (NN(1).EQ.36) IS=2 BO 24 J=IS9M IF (NN(J) .BQ. 13.OR.NN(J)
* .BQ.M.OR.NN(J) .EQ.16)
* GO TO 28
IF (NN(J)EQ.40) QO TO 25
24 W=W*10.NN(J) GO TO 27
25 J1=J+1
IF (JI .GT .M) GO TO 27 W1=0.1
DO 26 J=Jt 9M
IF (NN(J) .EQ. 13.OR.lOf(J)
* .EQ.14.0R.NN(J).EQ.16)
* GO TO 28 W=W+NN(J)*W1
26 W1=W1*0.1
27 IF (IS.BQ.2) W=-W GO TO 32
28 J1=J+1
IF (JI .GT .M) GO TO 27 IF (IS.EQ.2) W=-W IS=O W1=10.0
IF (NN(JI).EQ.35)
* NN(JI)=O
IF (NN(JI).NB.36)
* GO TO 29 WI=O.1 NM(JI)=O
29 DO 30 J=JI9M
30 IS=IS*10+NN(J)
IF (IS.EQ.O) QO TO 32 * DO 31 J=I9IS
31 W=W*W1
C**
39 PRINT 102, Q QO 7
40 PRINT 103, Q GO 7
41 PRINT 104, Q GO TO 7
42 PRINT 105, QZ GO TO 7
43 IF (Q(2).NE.AZ(38))
* CALL EXIT 1=80
Q(I)=AZ(47) GO TO 23
C****
44 DO 45 1=1,5 DO 45 J=1,9
45 CO(I,J)=FC(J,I) TO=RZ(H) HO=RZ(I5) S0=RZ(13) DHO=O.
DO 46 1=1,5
IF (ABS(CPC(I,1)-.77777)
* .LE.1E-4) GO TO 50 CO(I1I)=CPC(I,1) CO(I,2)=CPC(2,1) CO(I,4)=CPC(3,1)
CO(I,5)=CPC(5,I)*0.5E-8 CO(I,7)=CPC(4,1)*0.5E+4 CO(I,8)=CPC(6,I)*
* 0.16667E+8 CO(I,9)=CPC(7,1)*
. * 0.83333E+11
CO(I,6)=((((CPC(7,D*
* 0.25*T0+CPC(6,1)/3.0)*
* T0+0.5*CPC(4,I))*T0+
* CPC(3,1))*T0-H0-DH0-
* CPC(5,I)/T0)*lE-4 CO(I,3)=DH0/T0-CPC(3,D*
* ALOG(T0)+0.5*CPC(5,I)A
* (T0*T0)-CPC(4,I)*T0+S0-
* 0.5*CPC(6,I)*T0*T0-
* CPC(7,I)*T0*T0*T0/3.0+
* CPC(3,I)*8.21034 TO=CO(I,2) W=T0*1E-4
SO=CO(I,4)*(1.0+ALOG(W))
* CO(I,3)-CO(I,5)*W**(-2)
* ((4.0*CO(I,9)*W+CO(I,8)
* 3.0)*W+2.0*CO(I,7))*W H0=((((3.0*CO(I,9)*W+2.0
* CO(I,8))*W+CO(I,7))*W+
* CO(I,4))*W-CO(I,6)-2.0*
* CO(I,5)/W)*1E+4 DHO=O.
IF (ABS(T0-RZ(18))
* .LT.1.0) DH0=RZ(19) IF (ABS(T0-RZ(20))
* .LT.1.0) DH0=RZ(21) IF (ABS(T0-RZ(22))
* .LT. 1.0) DH0=RZ(23) IF (ABS(T0-RZ(24))
* .LT.1.0) DH0=RZ(25) 46 CONTINUE
C***
50 PRINT 106, QZ DO 51 1=1,512
51 X(I)=AZ(43) J=O
DO 54 1=1,30
IF (ABS(RZ(I)-.77777)
* .LT.1E-4) GO TO 54 14=216000 NI=NR(I)
DO 52 N2=4,7 N3=N1/M+1 IF (N3.NE.1)
* X(J*16+N2)=AZ(N3) N1=N1-(N3-D*M
52 M=M/60 X(J*16+8)=AZ(49) CALL NlCRS (RZ(I) ,Xl) DO 53 N2=9,16
53 X(J*16+N2)=X1(N2-8) J=J+1
241
54 CONTINUE J=(J+1)*16
PRINT 107, (X(I)1I=I1J)
DO 55 1=1,100
Zd1I)=E(I)
Z(2,I)=G(I)
Z(3,I)=OM(I)
Z(4,I)=T(I)
Z(5,I)=F(I)
Z(6,I)=H(I)
Z(7,I)=CP(I)
55 Z(8,I)=SS(I) NG(1)=NM(3) NG(2)=NM(2) NGO)=NM(I) NG(4)=NM(7) NG(5)=NM(4) NG(6)=NM(6) NG(7)=NM(5) NG(8)=NM(13) DO 551 1=1,8
IF (ABS(Z(I,1)-.77777)
* .LT.1E-4) GO TO 552
551 CONTINUE GO TO 557
552 NG(I)=NM(H) DO 553 J=I,45
553 Z(I1J)=FK(J) DO 554 1=1,8
IF (ABS(Z(I1D-.77777)
* .LT.1E-4) GO TO 555
554 CONTINUE GO TO 557
555 NG(I)=NM(15) DO 556 J=1,35
556 Z(I,J)=CPK(J)
557 DO 61 J=I,8 DO 56 1=1,60
56 X(I)=AZ(43) N1=NG(J)/3600+1
IF (N1.NE.1) X(2)=AZ(N1) N2=NG(J)-(NI-I)*3600 N2=N2/60+1
IF (N2.NE.1) X(3)=AZ(N2)
N1=NG(J)-(N1-1)*3600
N1=N1-(N2-1)*60+1
X(4)=AZ(N1)
X(5)=AZ(49)
N2=0
57 DO 58 1=1,5 W=Z(J,N2*5+1)
IF (ABS(W-.77777)
* .LT.1E-4) GO TO 59 CALL NMRS (W,X1)
DO 58 N1=1,8 N3=1*11+N1-3
58 X(N3)=X1(N1) I=O
59 IF (I.NE.1) PRINT 100,
* (X(I),I=1,60)
IF (ABS(W-.77777)
* .LT.1E-4)GO TO 61 DO 60 1=1,60
60 X(I)=AZ(43) N2=N2+1
IF (N2.LT.20) GO TO 57
61 CONTINUE PRINT 108
IF (ABS(RZ(26)-.77777)
* .LT.1E-4) RZ(26)=0.01 RETURN
100 FORMAT (80Al)
101 FORMAT (/5X,'*** ',
* *** HE1 ,
* '/,
* 80A1///)
102 FORMAT (/5X/*** ' ,
* ' *** ',
* ' 20 ',
* ''/10,801///)
103 FORMAT (/5X,'*** ',
* ' *** ',
* 1 ',
* ' '/
* 10,80Al////)
104 FORMAT (/5X,1*** ',
242
* * Ż,
* ' ',
* '/10X9
* 801///)
105 FORMAT (/5X9'*** ', *'*** ' ,
* ' ',
* ': 9151///)
106 FORMAT (/,' ',
* ' ',
* ' (9
* ')'/5X9
* ' 1,
* ' ',151/)
107 FORMAT (8(641/))
108 FORMAT (/) END
SUBROUTINE CALAPP
COMMON /SYMB/K(94),BY(44)
* /TAM/AM(94)//AA(60),
* ID(5)9RR(5'99)9AX(220)9
* AC(5,8)/APR/CC(5,8)
* /DA/E(500),G(500),
* OM(100),F(100),T(100),
* CP(100),H(100)9S(100)9
* R(30)9QZ(15),K1,K29NP9
* CO(5,11)/REZ/TR(36) C******************************
<< 1 .. 90 91 92 93 94 95 < 96 > 97 98 99 100 101 102 .. 103 >>
 
 
2010 PiroChem. .