C***************************************************************
C
C
C	EXAMAUTAL.FTN PERMET  D'EXAMINER 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='OLD'
	2,ACCESS='DIRECT',SHARED,FORM='UNFORMATTED',RECORDSIZE=1280
	3,ASSOCIATEVARIABLE=JAK,MAXREC=26)
	DO 50 IL=1,26
	IK=IL
	READ(1'IK)NFC,AUT
	TYPE 10,NFC,(AUT(I),I=1,NFC)
10	FORMAT(1X,12(I5,1X))
50	CONTINUE
	CLOSE (UNIT=1)
	CALL EXIT
	END