. " -3 1" ( )

.. "122 1944 ." ( )

. " " ( )

.. " " ( )

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

* GO 2 IA=IA-K* IC L(N)=K N=N1
2 IC*(IOM)/10
IF (N.GE.8) GO 5
3 10=1000000 DO 4 I=N97 K=(IBM-H )/(1*4) IB=IB-K*IC L(I)=K
4 =(ѫ)/0
5 L(8)=0 IF(L(7).GE.5) M6)=L(6)H L(7)=0
DO 6 1=2,6 J= 8-
IF (L(J).LT.10) GO TO 8 L(J)=O
6 L(J-I )=L(J-1)-H
IF (L(1) .LT .10) GO TO f
253
DO 7 1=1,6 J=8-I
7 L(J-H)=L(J) L(I)=I L(2)=0 N=N+1
IF(N.GE.10.OR.(N.EQ.9.AND.
* AA.LT.O)) GO TO 16
8 K=I
DO 11 1=1,8
IF (I.NE.1 .OR.AA.GE.O.)
* GO TO 9 B(D=C(II) GO TO 11
9 IF (K.NE.N) GO TO 10 B(I)=C(12)
N=IO
GO TO 11
10 IA=L(K)+! B(I)=C(IA) K=K+!
11 CONTINUE
12 IF (N.EQ.9) RETURN DO 13 1=1,8 A=B(9-I)
IF (A.NE.C(12)) GO TO 18
B(9-D=C(13)
RETURN
18 IF (A.NE.C(D) RETURN
13 B(9-I)=C(13)
14 DO 15 1=2,8
15 B(I)=C(13) B(I)=C(I) RETURN
16 DO 17 1=1,8
17 B(I)=C(M) RETURN
19 DO 20 1=1,8
20 B(I)=C(U) RETURN END
SUBROUTINE REPORT C010K)N/DA/G( 110O)9F(IOO),
* T(100),CP(100),H(100)/,
* S(100),R(30),QZ(15),^t1,
* K2,NP,CO(5,11)//AZ(6b),
* ID(5),U(265),CC(5,8),
* D(5,80)/APR/C(5,8) DIMENSION FI(10),Q(I50),
* QK8),Q2(8),Q3(10) DATA 1/4(/,
* E2/4H (/

()
Q*****************************
IF (NP.LT.1) GO 54 IF (IDO).LT.I) GO 54 NZ=IDO) W=LO
IF (ID(2).EQ.O) W=4.184 DO 19 J=1,NP DO 19 M=I,7,2
19 C(J,M)=C(J,M)W DO 20 J=I9IOO
IF (T(J)-.77777.LT.1E-4)
* GO TO 20 W1=J
F(J)=F(J)*W S(J)=S(J)*W
H(J)=H(J)*W CP(J)=CP(J)*W
20 CONTINUE NN=(W1 + 1.5)/2.0 DO 53 IZ=1,NZ W=LO
IF (ID(2).EQ.O) W=4.184 E3=E1
IF (ID(2).EQ.O) E3=E2 DO 21 J= 1,NP CO(J,1O)=PO)-RU) DO 21 M=3,10
21 CO(J,M)=CO(J,M)*W CALL NMRS (CO(1 ,1O)9QD
254
PRINT 103, QZ,Q1,E3 ^ DO 26 J=I1NP * IT1=CO(J91)+0.5 \ IT2=CO(J92)+0.5
DO 22 M=3,9
CALL NMRS (CO(J,M),Q1)
DO 22 IX=I,8
NX=(M-3)*8+IX
22 Q(NX)=QKIX)
PRINT 104, IT1,IT2,
* (Q(IX),IX=1,56) IF (C(J9I)./.1-5)
* GO TO 23
CALL NMRS (C(J9I)1QD CALL NMRS (C(J,2),Q2) PRINT 106, Q19Q2
23 IF (C(J93).LT.1E-5)
* GO TO 24
CALL NMRS (C(J,3),QD CALL NMRS (C(J,4),Q2) PRINT 105, Q'1 ,Q2
24 IF (C(J,5).LT.1E-5)
* GO TO 25
CALL NMRS (C(J,5),QD CALL NMRS (C(J,6),Q2) PRINT 107, Q1,Q2
25 IF (C(J,7).LT.1E-5)
* GO TO 26
CALL NMRS (C(J,7),QD CALL NMRS (C(J,8),Q2) PRINT 108, Ql,Q2
26 CONTINUE PRINT 109
DO 28 M=I,NN CALL NMRS(T(M)9QI) CALL NMRS(T(M+NN) 9Q2) IT1=H(M)+CO(1,10)+0.5 IT2=H( M+NN) +CO( 1,10)+0.5 IF (ABS(T(M)-.77777)
* .GTt E-4) GO TO 261
IF (ABS(T(M+NN)-.77777)
* .LT.1E-4) GO TO 28 PRINT 112, Q2,F(M+NN),
* S(M+NN) ,IT2,CP(M+NN) GO TO 28
261 IF (ABS(T(M+NN)-.77777)
* .GT.1E-4) GO TO 262 PRINT 110, QI9F(M)9S(M)1
* ITI9CP(M) GO TO 28
26 2 PRINT 110, QI9F(M)1S(M),
* ITI,CP(M)9Q29F(M+NN)9
* S(M+NN),IT2,CP(M+NN) 28 CONTINUE
C**
PRINT 111 W=1.0
IF (ID(2).EQ.O)W=O.239006 DO 53 J=I1NP DO 48 M=3,10
48 CO(J ,M)=CO(J 9M)*W EPS=O.0005
49 EPS=EPS*2.0 DO 50 M=I,80
50 Q(M)=AZ(43) FI(D=KO FI(2)=1.0 FIO)=EPS X=CO(J,1)*1E-4 FI(4)=EPS/AL0G(X) FI(4)=ABS(FI(4)) FI(6)=EPS*X FI(5)=FI(6)*X X=CO(J92)*1E-4 FI(7)=EPS/X FI(8)=FI(7)/X FI(9)=FI(8)/X FI(10)=1.0
K=O
DO 51 M=I,15
IF (QZ(M).EQ.AZ(43))
* GO TO 52 K=K+1
51 Q(K)=QZ(M)
52 K=K+1 Q(K)=AZ(48)
255
DO 10 M=I9IO
A=CO(J9M)
E=FI(M)
IF (ABS(A) .GE.E) GO TO 2 K=K+1
Q(K)=AZ(I)
1 K=K+1 Q(K)=AZ(48) GO TO 9
2 IF (A.GE.O.) GO TO 3 K=K+I
Q(K)=AZ(37) A=ABS(A)
3 A=A+E*0.5
IF (A.GE.1.0) GO TO 6
4 K=K+1 Q(K)=AZUD S1=0.1
5 A=A*10. I=A A=A-I K=K+1
Q(K)=AZ(I+1)
IF (E.GE.S1) GO TO 1
S1=S1/10.
GO TO 5
?***
6 SI=LO S2=A/10.
7 S3=S2/S1
IF (S3.LT.L0) GO TO 8
S1=S1*10.
GO TO 7
8 A=A/S1 I=A A=A-I A=A*S1 K=K+1
Q(K) =AZ( 1+1) S1=S1/10.
IF (SLGE*0.5) GO TO 8 IF (E-0.5) 4,4,1
9 IF (K.GT.80) GO TO 49
10 CONTINUE Q(K)=AZ( 47)
PRINT 100, (Q(M),M=I,80) IF(ID(5).EQ.I)PONCH 101,
* (Q(M)9M=I,80)
IF (IZ.GT.1) GO TO 53 DO 11 1=1,80
11 D(J,I)=Q(I) ' 53 CONTINUE
54 PEONT 102 RETURN
100 FORMAT (3X,80A1)
101 FORMAT (80A1)
102 FORMAT (//)
103 FORMAT (//10X,15A1,5X,
* eDH(298)-[H(298)-H(0),
* ]=,,8A1,10X,1A4,
* -MQJIb-K)D
104 FORMAT (/15X,T5,1H-,I5,
* 2H K,3X,eF1=e,8A1,
* F2=ef8A1,e F3=e,8A1,
* F4-',8A1,e F5=',8A1,
* F6=e,8A1,e F7=e,8A1)
105 FORMAT (30X19MAX[S-(S)9,
* ?]=1 ,1 T=1,
* 8A1)
106 FORMAT (30X9 9MAX[F-(F)1,
* 1AUnP]=1^AI,' T=',
* 8A1)
107 FORMAT (30X11MAX[H-(H)9,
* AUnP]=1JeAI,' T=1,
* 8A1)
108 FORMAT (30X, MAX[CP-1,
* (CP)AHHP]=SeAI,
* T=1,8A1)
109 FORMAT (/6X, IHT, 10X, 1,
* 9X,1HS,10X91HI97X92HCP9
* 14X,1HT, 9X,1,9X,1HS,
* 10X,1HI,7X,2HCP)
110 FORMAT (5X,8A1,F7.2,
* F10.2,111,Ffr. 2,11X9BAI9
* F7.2,F10.2,H1,Fe.2)
256
111 /' TOT*,
* 1 ,
* TB (--):)
112 FORMAT (60X,8A1,F7.2,
* F10.2,I11,F8.2) END
SUBROUTINE WRTDA COMMON/DA/E( 1630 ) ,QZ( 1 5) ,
* K1 .Ka1MPiCO(1J,11) DIMENSION H(75,10),
* K(75,2)





DEFINE FILE 8 (50,3600,L,
* LC)
IF (NP.LE.O) GO TO 9
J=O
KR=O
1 DO 3 NT=I ,50 READ (8NT) H9K DO 2 NK=I,74
IF (K(NK,D.EQ.777)
<< 1 .. 94 95 96 97 98 99 < 100 > 101 102 .. 103 >>
 
 
2010 PiroChem. .