COMMON /MATRIX/ ACT,UM,PHI,AH2O,IZ,IP,NMV
IF (IFLAG.EQ.1) GO TO 1
IF (IFLAG.EQ.2) GO TO 2
ICOL=6
NN=NCAT+NANI
NC1=NCAT+1
DO 2000 I=1,NN
Z(I)=IZ(I+IP)
NAQ(I)=NMM(I+IP)
2000
CONTINUE
C........................
READ TABLES 1 AND 2
.......................
OPEN(3, FILE='TABLE1')
C..........................
READ TABLE 1
........................
DO 3000 I=1,NN
DO 3001 J=1,NN
DO 3002 K=1,6
C0M(I,J,K)=0.
BET2M(I,J,K)=0.
3002
CONTINUE
3001
CONTINUE
3000
CONTINUE
READ(3,*) (A0M(I), I=1,6)
DO 4000 I=1,NCAT
DO 4001 J=NC1,NN
101
READ(3,FMT='(2I3)') NT1,NT2
IF(NAQ(I).EQ.NT1.AND.NAQ(J).EQ.NT2) THEN
READ(3,*) (BET0M(I,J,K),K=1,6)
READ(3,*) (BET1M(I,J,K),K=1,6)
IF((NT1.EQ.3 .OR. NT1.EQ.4) .AND. NT2.EQ.12)THEN
READ(3,*) (BET2M(I,J,K),K=1,6)
READ(3,*) (C0M(I,J,K),K=1,6)
ELSE
READ(3,*) (C0M(I,J,K),K=1,6)
END IF
ELSE
IF((NT1.EQ.3 .OR. NT1.EQ.4) .AND. NT2.EQ.12)THEN
READ(3,FMT='(///)',END=910)
ELSE
READ(3,FMT='(//)',END=910)
END IF
19
Previous Page
