C**********************************************************************
C
C	INICODCLE.FTN INITIALISE LA FILE DU LIBELLE
C	DES MOTS CLE EN
C
C	DL1:[204,100]CODCLE.BIB
C
C	NMC=NOMBRE DE MOTS CLES 
C	NF=NOMBRE DE FICHES DANS FICHES.BIB
C	CLE=PLACE POUR 1000 MOTS CLE DE 12 LETTRES
C
C**********************************************************************
	PROGRAM INICODCLE
	DIMENSION CLE(1000,12)
	BYTE CLE
	CALL ASSIGN(1,'DL1:[204,100]CODCLE.BIB')
	CALL FDBSET(1,'NEW','SHARE')
	NMC=0
	NF=0
	DO 10 I=1,1000
	DO 10 J=1,12
10	CLE(I,J)=' '
	WRITE(1)NMC,NF,CLE
	CLOSE (UNIT=1)
	CALL EXIT
	END