C*	REMOVE DEFINED EQUIVALENCED VARIABLES  -  UNDECR
C
C 	REMOVE ALL DEFINED EQUIVALENCE GROUPS FROM LIST OF
C 	UNDEFINED VARIABLES
C
C	SUBROUTINE ECREM
C	THIS SUBROUTINE REMOVES ALL EQUIVALENCED VARIABLES THAT HAVE
C	BEEN DEFINED
C	ALL EQUIVALENCE GROUP NUMBERS THAT HAVE BEEN DEFINED ARE STORED
C	IN IEQARR
C
      SUBROUTINE ECREM
      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)
C
D	WRITE(NOUT,1030) (IEQARR(I), I = 1,IEQDEF)
D1030	FORMAT('0', 'SUBROUTINE ECREM (IEQARR): ', 30I3)
      NN = 0
      DO 40 N=1,NV
      READ (NVAR'N) VARS, ISUB, IEQ
C	WRITE(NOUT,1040) VARS,ISUB, IEQ
D1040	FORMAT(' ', 'SUBROUTINE ECREM (VARS,IEQ,ISUB): ', 8A1, 5X, 2I2)
C
      DO 25 I = 1, IEQDEF
      IF (IEQ .EQ. IEQARR(I)) GO TO 40
   25 CONTINUE
C
C	REWRITE THE RECORD, IT IS NOT PART OF AN EQUIVALENCE GROUP
C	THAT HAS BEEN DEFINED
      NN = NN + 1
      WRITE(NVAR'NN) VARS, ISUB, IEQ
   40 CONTINUE
      NV = NN			! RESET NV TO NN
80    KL=0
      IF (NV.EQ.0) KL=-1
      RETURN
      END