C**********************************************************************
C
C
C	INIMOTCLE.FTN INITIALISE LA FILE DANS LAQUELLE
C	SE TROUVENT LES FICHES QUI POSSEDENT LE MOT CLE 
C	CORRESPONDANT DANS CODCLE.BIB AU NUMERO DU RECORD CONSIDERE.
C
C	DL1:[204,100]MOTCLE.BIB
C
C	DANS CHAQUE RECORD:
C	MOT(1)=NOMBRE DE FICHES AYANT CE MOT CLE
C	MOT(2 A 512)= NUMERO DES FICHES INDEXEES SOUS CE MOT CLE.
C
C**********************************************************************
	PROGRAM INIMOTCLE
	DIMENSION MOT(512)
	OPEN (UNIT=1,NAME='DL1:[204,100]MOTCLE.BIB',TYPE='NEW'
	2,ACCESS='DIRECT',SHARED,FORM='UNFORMATTED',RECORDSIZE=256,
	3ASSOCIATEVARIABLE=J)
	J=1
	DO 10 I=1,512
10	MOT(I)=0
	DO 20 I=1,1
	IL=I
	WRITE(1'IL)MOT
20	CONTINUE
	CLOSE (UNIT=1)
	CALL EXIT
	END