C**********************************************************************
C
C	ININONIDX.FTN INITIALISE LA FILE DANS LAQUELLE SONT
C	REPERTORIEES LES FICHES NON ENCORE INDEXEES
C
C	DL1:[204,100]NONINDX.BIB
C
C	NX=NOMBRE DE FICHES NON INDEXEES
C	NDX(1 A 255)=NUMERO DES FICHES NON INDEXEES
C
C**********************************************************************
	PROGRAM ININONIDX
	DIMENSION NDX(255)
	CALL ASSIGN(1,'DL1:[204,100]NONINDX.BIB')
	CALL FDBSET(1,'NEW','SHARE',,1)
	NX=0
	DO 10 I=1,255
10	NDX(I)=0
	WRITE(1)NX,NDX
	CLOSE(UNIT=1)
	CALL EXIT
	END