C**********************************************************************
C
C	INIFICHES.FTN INITIALISE LE FICHIER DES FICHES BIBLIOGRA-
C	PHIQUES EN
C
C	DL1:[204,100]FICHES.BIB
C
C	UNE FICHE PEUT ETRE SIMPLE OU DOUBLE (1 OU 2 BLOCKS)
C	CHAQUE FICHE CONTIENT
C
C		A/ FICHE SIMPLE
C		TYPE (S)
C		NUMERO (I)
C		NOMBRE D'AUTEURS(1 A 5)
C		1 A 5 NOMS D'AUTEURS
C		1 A 5 PRENOMS D'AUTEURS
C		1 A 4 LIGNES DE TITRE
C		JOURNAL
C		VOLUME
C		PAGES
C		ANNEE (I4)
C		INDICATION DE T-A-P (1 A 10 LETTRES)
C		NUMERO DE MEMBRE SOUS LEQUEL LA FICHE A ETE ENTREE
C		DATE A LAQUELLE LA FICHE A ETE ENTREE
C		1 A 10 NUMEROS DE MOT CLE
C
C		B/ FICHE DOUBLE
C		B1/ 1ER BLOCK
C		TYPE (D)
C		NUMERO (I)
C		NOMBRE D'AUTEURS (1 A 10)
C		1 A 10 NOMS D'AUTEURS
C		LES 4 PREMIERES LIGNES DU TITRE
C
C		B2/ SECOND BLOCK
C		TYPE (D)
C		NUMERO (I)
C		1 A 10 PRENOMS D'AUTEURS
C		LES 4 LIGNES DE TITRE SUIVANTES
C		JOURNAL
C		VOLUME
C		PAGES
C		ANNEE (I4)
C		INDICATION DE T-A-P (1 A 10 LETTRES)
C		NUMERO DE MEMBRE SOUS LEQUEL A ETE RENTRE LA FICHE
C		DATE  A LAQUELLE LA FICHE A ETE RENTREE
C		1 10 NUMEROS DE MOTS CLE
C
C***********************************************************************
	PROGRAM INIFICHES
	DIMENSION IF(506)
	BYTE IF
	CALL ASSIGN(1,'DL1:[204,100]FICHES.BIB')
	CALL FDBSET(1,'NEW')
	DEFINE FILE 1(8000,256,U,L)
	DO 10 I=1,506
10	IF(I)=' '
	DO 100 IZX=1,1
	IX=IZX
	WRITE(1'IX)IF
100	CONTINUE
	CLOSE (UNIT=1)
	CALL EXIT
	END