C*****************************************************************
C
C
C	INIFIKILL.FTN INITIALISE LA FILE DL1:[204,100]FICHKILL.BIB
C
C
C*******************************************************************
	PROGRAM INIFIKILL
	DIMENSION IFK(50)
	NFK=0
	DO 10 I=1,50
	IFK(I)=0
10	CONTINUE
	OPEN (UNIT=1,NAME='DL1:[204,100]FICHKILL.BIB',TYPE='NEW',
	2ACCESS='SEQUENTIAL',FORM='UNFORMATTED',SHARED)
	WRITE(1)NFK,IFK
	CLOSE (UNIT=1)
	CALL EXIT
	END