C SET EQUIVALENCE GROUP MARKER IN LIST OF UNDEFINED VARIABLES C SUBROUTINE ECSET(KL) C C THIS SUBROUTINE SEARCHES FOR VARS IN FILE OF UNDEFINED VARIABLES. C IF FOUND, IT REWRITES ITS RECORD WITH AN EQUIVALENCE GROUP C OF IEQG C C CALLED FROM SUBROUTINE EC C SUBROUTINE ECSET(KL) BYTE STRING, ISTR, VAR, IB, VARS(8) COMMON STRING(660), ISTR(660), VAR(6), NV COMMON/EQUIV/ IEQG, IEQDEF, IEQARR(30) DATA NOUT/6/,NVAR/3/ DATA IB/1H / 1000 FORMAT(1X,6A1) 1020 FORMAT(1X, 'NV = ', I4) L=KL+1 IF (L.GT.6) GO TO 20 DO 10 K=L,6 VAR(K)=IB 10 CONTINUE 20 CONTINUE C WRITE (NOUT,1000) VAR C WRITE(NOUT,1020) NV C IF (NV .EQ. 0) STOP 'NV = 0' DO 40 N=1,NV READ (NVAR'N) VARS DO 30 K=1,6 IF (VAR(K).NE.VARS(K)) GO TO 40 30 CONTINUE GO TO 50 40 CONTINUE GO TO 80 C 50 WRITE(NVAR'N) VARS, ISUB, IEQG ! REWRITE RECORD C WRITE(NOUT,1030) VARS, ISUB, IEQG 1030 FORMAT(' ', 'SUBROUTINE ECSET (VARS,ISUB,IEQG): ', 8A1,5X,2I2) C READ(NVAR'N) VARS, ISUB, IEQG C WRITE(NOUT,1030) VARS, ISUB, IEQG 80 KL = 0 IF (NV .EQ. 0) KL = -1 RETURN END