C***************************************************************
C
C
C	INIAUTALP.FTN PERMET  D'INITIALISER LA FILE
C	NECESSAIRE A BIBAUTALP.FTN.
C
C
C******************************************************************
	PROGRAM INIAUT
	DIMENSION AUT(2559)
	INTEGER AUT
	OPEN (UNIT=1,NAME='DL1:[204,100]AUTALPH.BIB',TYPE='NEW'
	2,ACCESS='DIRECT',SHARED,FORM='UNFORMATTED',RECORDSIZE=1280
	3,ASSOCIATEVARIABLE=JAK,MAXREC=26)
	DO 1000 NFD=1,2559
	AUT(NFD)=0
1000	CONTINUE
	NFC=0
	DO 50 IL=1,26
	IK=IL
	WRITE(1'IK)NFC,AUT
50	CONTINUE
	CLOSE (UNIT=1)
	CALL EXIT
	END