C**********************************************************************
C
C
C	BIBKILLFI.FTN EST LA SOUSROUTINE PERMETTANT DE SUPPRIMER
C	DES FICHES BIBLIOGRAPHIQUES APRES BIBINDEX OU BIBSUPFIC.
C	BIBLIOGRAPHIQUES.
C
C***********************************************************************
	SUBROUTINE KILLF
	DIMENSION MOT(512),T(72,4),TD(72,4),P(6,5),PD(6,5),A(18,5)
	DIMENSION AD(18,5),BOOK(36)
	DIMENSION PAGE(10),VOL(4),DAYB(9),TAP(10)
	DIMENSION MCLE(10),IFK(50),IAKIL(10)
	BYTE T,TD,P,PD,A,AD,BOOK,PAGE,VOL,DAYB,TAP
	BYTE NSD,CR
	COMMON /ASVAR/L,J
	COMMON /FKIL/NAKIL,IAKIL
	OPEN (UNIT=3,NAME='DL1:[204,100]FICHKILL.BIB',TYPE='OLD',
	2ACCESS='SEQUENTIAL',FORM='UNFORMATTED',SHARED)
	OPEN (UNIT=7,NAME='DL1:[204,100]MOTCLE.BIB',TYPE='OLD',
	2ACCESS='DIRECT',SHARED,FORM='UNFORMATTED',
	3RECORDSIZE=256,ASSOCIATEVARIABLE=J)
	READ(3)NFK,IFK
	CALL ASSIGN(4,'DL1:[204,100]FICHES.BIB')
	CALL FDBSET(4,'OLD')
	DEFINE FILE 4(8000,256,U,L)
	DO 88 LZ=1,NAKIL
	NF=IAKIL(LZ)
	READ(4'NF)NSD,NF,NA,A,P,T,BOOK,VOL,PAGE,NAN,TAP,ICB,DAYB,MCLE
	IF (NSD.EQ.'S') GO TO 86
	IF (NSD.EQ.'K') GO TO 88
	READ(4'NF)NSD,NF,NA,A,AD,T
	NFK=NFK+1
	IFK(NFK)=NF
	NSD='K'
	WRITE(4'NF)NSD,NF,NA,A,AD,T
	NFB=NF+1
	READ(4'NFB)NSD,NF,P,PD,TD,BOOK,VOL,PAGE,NAN,TAP,ICB,DAYB,MCLE
	NFK=NFK+1
	IFK(NFK)=NFB
	NSD='K'
	WRITE(4'NFB)NSD,NF,P,PD,TD,BOOK,VOL,PAGE,NAN,TAP,ICB,DAYB,MCLE
	GO TO 90
86	NFK=NFK+1
	IFK(NFK)=NF
	NSD='K'
	WRITE(4'NF)NSD,NF,NA,A,P,T,BOOK,VOL,PAGE,NAN,TAP,ICB,DAYB,MCLE
90	CONTINUE
	DO 200 IKM=1,10
	K=MCLE(IKM)
	IF (K.EQ.0) GO TO 200
	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
200	CONTINUE
88	CONTINUE
	REWIND 3
	WRITE(3)NFK,IFK
	NAKIL=0
	DO 300 I=1,10
300	IAKIL(I)=0
	CLOSE (UNIT=3)
	CLOSE (UNIT=7)
	CLOSE (UNIT=4)
	RETURN
	END