C**********************************************************************
C
C
C	BIBSUPPRI.FTN EST LA SOUSROUTINE QUI PERMET
C	DE SUPPRIMER DES MOTS CLE APRES SAUVETAGE DANS LES FICHES
C	BIBLIOGRAPHIQUES.
C
C***********************************************************************
	SUBROUTINE SUPPR(MCF,NF)
	DIMENSION MOT(512),CLE(1000,12),MOC(12,10),MCLE(10),RPL(12)
	BYTE RPL,CR,CLE,MOC
	COMMON /ASVAR/L,J
	COMMON /CHANG/NMC,CLE,MCLE,MOC,MOT
	NCL=1
1210	TYPE 110
110	FORMAT(/,'$MOT CLE a supprimer :')
	ACCEPT 106,(MOC(K,NCL),K=1,12)
106	FORMAT(12A1)
	IF (MOC(1,NCL).EQ.' ') GO TO 130
	NCL=NCL+1
	IF (NCL.LT.MCF) GO TO 1210
130	NCL=NCL-1
	IF (MCF)214,214,131
131	DO 200 I=1,NCL
205	IF (MOC(1,I).GE.'A') GO TO 207
	KIZ=0
	DO 208 KI=1,12
	IF (MOC(KI,I).EQ.' ') GO TO 209
	KIZ=KIZ+1
	RPL(KI)=MOC(KI,I)
208	CONTINUE
209	DECODE(KIZ,206,RPL) K
206	FORMAT(I12)
	TYPE 217,(CLE(K,KI),KI=1,12)
	ACCEPT 507,CR
507	FORMAT(A1)
	IF (CR.NE.'N') GO TO 210
	TYPE 110,I
	ACCEPT 106,(MOC(KI,I),KI=1,12)
	GO TO 205
207	CONTINUE
	IF (NMC) 202,202,204
204	K=0
201	K=K+1
	NON=0
	DO 211 KI=1,12
	IF(MOC(KI,I).NE.CLE(K,KI)) NON=NON+1
211	CONTINUE
	IF (NON.GT.2) GO TO 213
	IF (NON.EQ.0) GO TO 210
	TYPE 217,(CLE(K,KI),KI=1,12)
217	FORMAT(//'$Vous voulez dire ',12A1,' ? <[O] ou N>:')
	ACCEPT 507,CR
	IF (CR.EQ.'N') GO TO 201
	GO TO 210
213	IF (K-NMC) 201,202,202
202	TYPE 203,(MOC(KI,I),KI=1,12)
203	FORMAT(//,1H$,12A1,' n''existe pas!',//)
60	FORMAT(A3)
220	TYPE 110,I
	ACCEPT 106,(MOC(KI,I),KI=1,12)
	GO TO 204
210	READ(7'K)MOT
	IN=MOT(1)+1
	DO 218 KD=2,IN
	IF (MOT(KD).NE.NF) GO TO 218
	MOT(KD)=0
	IF (KD.EQ.512) GO TO 2210
	INM=IN-1
	DO 219 KDI=KD,INM
	MOT(KDI)=MOT(KDI+1)
219	CONTINUE
2210	MOT(IN)=0
	MOT(1)=MOT(1)-1
	GO TO 221
218	CONTINUE
221	CONTINUE
	WRITE(7'K) MOT
	DO 222 KD=1,MCF
	IF (MCLE(KD).NE.K) GO TO 222
	MCLE(KD)=0
	IF (KD.EQ.10) GO TO 230
	MCFM=MCF-1
	DO 223 KX=KD,MCFM
	MCLE(KX)=MCLE(KX+1)
223	CONTINUE
230	MCLE(MCF)=0
	GO TO 200
222	CONTINUE
200	CONTINUE
214	RETURN
	END