GO TO 101
END IF
4001
CONTINUE
4000
CONTINUE
CLOSE(3)
C..........................
READ TABLE 2
........................
OPEN(4, FILE='TABLE2')
DO 5000 I=1,NCAT-1
DO 5001 J=I+1,NCAT
102
READ(4,*) NT1,NT2,NT3
IF(NAQ(I).EQ.NT1.AND.NAQ(J).EQ.NT2.AND.NT3.EQ.0)THEN
BACKSPACE(4)
READ(4,*) NT1,NT2,NT3,(TETM(I,J,K),K=1,6)
REWIND(4)
ELSE
GO TO 102
END IF
5001
CONTINUE
5000
CONTINUE
DO 6000 I=1,NCAT-1
DO 6001 J=I+1,NCAT
DO 6002 IJ = NC1,NN
105
READ(4,*) NT1,NT2,NT3
IF(NAQ(I) .EQ. NT1
$
.AND.
NAQ(J) .EQ. NT2
$
.AND.
NAQ(IJ) .EQ. NT3) THEN
BACKSPACE(4)
READ(4,*)NT1,NT2,NT3,(PSIM(I,J,IJ,K),K=1,6)
REWIND(4)
ELSE
GO TO 105
END IF
6002
CONTINUE
6001
CONTINUE
6000
CONTINUE
DO 7000 I=NC1,NN-1
DO 7001 J=I+1,NN
103
READ(4,*) NT1,NT2,NT3
20