. " -3 1" ( )

.. "122 1944 ." ( )

. " " ( )

.. " " ( )

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



DEFINE FILE 8 (50,3600,L1
* LC)
DO 2 1=1,75 DO 1 J=I,10
1 H(I,J)=O-K(I,1)=777
2 K(I,2)=777 DO 3 NT=I,50 WRITE (8NT) H,K
3 CONTINUE STOP END
C PROGRAM MDWRT
COMMON /SYMB/L(94),A(44)
* /TAM/AM(94) DIMENSION H(75,10),
* K(75,2),F(1Q),CN(12),
* C(4,12),IC(4,2)
Q*****************************




DEFINE FILE 8 (50,3600,L,
* LC)
CALL CONST PRINT 104 J=I
1 DO 3 NT=I,50
READ (81NT) H9K
DO 2 NK=1,74
IF (K(NK,!).EQ.777)
* GO TO 4
2 CONTINUE
IF (K(75,1).EQ.777)
* GO TO 3 PRINT 100, NT GO TO 8
3 CONTINUE PRINT 101 GO TO 8
4 CALL INCOMP (K1,K2,F) K3=ABS(F(10)-777.)
IF (.LT.0.1) GO TO 4 IF (KIEQ.777) GO TO 8 F(6)=F(6)+F(10)*1E-4 K(NK,I)=KI K(NK,2)=K2 DO 5 1=1,10
5 H(NK,I)=F(I)
CALL CONAME (K1,K2,CN) DO 6 1=1,12
6 C(J1I)=CN(I) IC(J1I)=H(NK,1)+0.5 IC(J,2)=H(NK,2)+0.5 J=J+1
IF (J.LE.4) GO TO 7 PRINT 102, ((C(J,I),
* 1=1,12),IC(J,I)1IC(J,2)
* J=I,4> J=I
7 NK=M+1
IF (NK.NE.75) GO TO 4
K(75,2)=0
WRITE (8'NT) H1K
GO TO 1
C*
8 WRITE (8NT) H1K J=J-I
IF (J.LE.0) GO TO 9 PRINT 102, ((C(M1I)1
229
* 1=1,12),IC(M,1),IC(M,2),
* M=1,J)
9 PRINT 103 10 STOP
100 FORMAT(/5X, '',
* 1 ',15,
* '- ',
* ' '///)
101 FORMAT (/5,' Ż,
* 'KE ',
* ' ',
* ''///)
102 FORMAT (4(7,121,15,1H-,
* 15))
103 FORMAT (/5,' ',
* ''///)
104 FORMAT (//5,' ',
* ' '/) END
PROGRAM MDDLT
COMMON //Q(80),NS(20),
* N1(5),N2(5),H(75,10),
* K(75,2),CS(12)/SYMB/
* L(94),A(44)/TAM/AM(94) DATA R1/1H;/,R2/1H,/,
* R3/1HV




DEFINE FILE 8 (50,3600,L,
* LC)
CALL CONST NK=O
NS(2)=33 NS(3)=33 1 READ (1,100,END=3D Q
N=1
2 IF (N.GT.80) GO TO 1 DO 4 I=N,80
IF (Q(I).EQ.A(33))
* GO TO 4
IF (Q(I).EQ.R1.QR.Q(I)
* .EQ.R2) GO TO 5 IF (Q(I).EQ.R3)
* Q(I)=A(H) NK=NK+1
IF (NK.GE.21) GO TO 32
NS(NK)=45
DO 3 J=I,44
IF (Q(I).EQ.A(J))
* NS(NK)=J
3 CONTINUE
IF (NS(NK).EQ.45)
* GO TO 33
4 CONTINUE GO TO 1
5 N=1+1
IF (NK.EQ.0) GO TO 2 DO 6 J=I15 NI(J)=O
6 N2(J)=0
IF (NS(1).NE.29.0R.NS(2)
* .NE.30) GO TO 7 N1(1)=4 N2(1)=1
GO TO 21
7 IS=I N1(1)=2
IF (NS(2).NE.28.AND.NS(3)
* .NE.28) GO TO 8
IS=3 NId) = I
IF (NS(2).EQ.28) GO TO 8 IS=4
IF (NS(D .NE.26.AND.NS(D
* .NE.27) GO TO 8 N2(1)=NS(2)-35 N1(1)=3
230
IF (NS(D .EQ.27) NKDM
ѻ***
8 M= 2
DO 20 J=IS9NK
9 IF (NS(J)-26) 10,10,17
10 IF (N2(M)j 11,11,13
11 IF (N1(M)-26) 14,14,12
12 N2(M)=1
13 M=M+1 GO TO 9
14 IF (NKM)) 15,15,16
15 NI(M)=NS(J) GO TO 20
16 N1 (M) =N 1 (M) 26+NS( J) GO TO 20
17 IF (N2(M)) 18,18,19
18 N2 (M)=NS(J )-3 5 GO TO 20
19 N2(M)=N2(M)*10+NS(J)-35 M=M+1
20 CONTINDE
IF (N2(M).BQ.O) N2(M) = 1
C****
21 KI=NI(I) K2=N2(1)
DO 24 J=2,5 IS=O
IF (NI(J).EQ.O) GO TO 23
DO 22 M=I,94
IF (NI(J).EQ.L(M)) IS=M
22 CCAWINUE
IF (IS.EQ.0) GO TO 34
23 K1=K1*100+IS
24 K2=K2100+N2(J) NS(2)=33 NS(3)=33
Q***
DO 28 NT=I,50 READ (81NT) H,K NR=I
DO 27 NK=I ,75
IF (K(NK9I) EQ Kl .AND. K (NK, 2).EQ.K2)GO TO 26
16. . 1554
K(NR, I)=K(NK, 1) K(NR,2)=K(NK,2) DO 25 J=I,10
25 H(NR, J)=H(NK ,J) NR=NR+1
GO TO 27
26 CALL CONAME (KI ,K2,CS) LTN=H(NK9I) LTM=H(NK, 2)
PRINT 101, NT9NK9CS9LTN9
* LTM
27 CONTINUE
IF (NR.GE.7 5) GO TO 272 DO 271 NK=NR, 74 M=NK-I
K(NK,D=K(M91) K(NK,2)=K(M,2) DO 271 J=I,10
271 H(NK9J)=H(M9J)
272 HRITE (81NT) H,K IF (K(75,2).EQ.777)
* GO TO 29
28 CONTINUE
29 NK=O
IF (Q(N-I ).NE.R1) GO TO 2
30 STOP
31 IF (NK.EQ.O) GO TO 30 1=80
Q(80)=R1 GO TO 5
32 PRINT 102, Q GO TO 35
33 PRINT 103, Q GO TO 35
34 PRINT 104, Q
35 READ (i 910O9END=3O) Q GO TO 35
100 FORMAT (80A1)
101 FORMAT ( 5X9 ' ',
* '? \I4,1H(,I2,1H),
* 1OX,' 1,IZAI1
231
* T(MIN) = ' .15,3XJT(MAX' ,
* ')^,15)
102 FOBMAT (/5X,*** *,
* ** *,
* 20 *,
* **/10,801///)
103 FORMAT (/5X,*** ',
* *** ,
* *
* /10,801///)
104 FOBMAT (/5X,**** ,
* * *** ,
* ' *,
* *
* /10,801///) END
PROGRAM MDLST
COMMON /SYMB/L(94),A(44)
* //(94) DIMENSION (75,),
* K(75,2),F(10),CN(12),
* C(4,12),IC<4,2)



******************************
DEFINE FILE 8 (50,3600,L,
* LC)
CALL CONST DO 4 NT=I,50 J=1
PRINT 100, NT READ (8*NT) H1K DO 2 NK=1,75 IF (K(NK,2).EQ.777)
* GO TO 5
IF (K(NK,D.EQ.777)
* GO TO 3
CALL CONAME (K(NK,1),
* K(NK,2),CN) DO 1 1=1,12
1 C(J,I)=CN(I)
IC(J,I)=H(NK,1)+0.5 IC(J,2)=H(NK,2)+0.5 J=J+1
IF (J.LE.4) GO TO 2 PRINT 101, ((C(J,I),
* 1=1,12),IC(J,1),IC(J,2),
* J=I,4) J= 1
2 CONTINUE
3 J=J-I
IF (J.LE.Q) GO TO 4 PItINT 101, ((C(M1I),
<< 1 .. 87 88 89 90 91 92 < 93 > 94 95 96 97 98 99 .. 103 >>
 
 
2010 PiroChem. .