C**********************************************************************
C
C	INIABBAUT.FTN INITIALISE LA FILE DES ABBREVIATIONS
C	ET DES AUTEURS MOT CLE EN
C
C	DL1:[204,100]ABBAUT.BIB
C
C**********************************************************************
	PROGRAM INIABBAUT
	DIMENSION EGO(30,12),ABB(40,42)
	BYTE EGO,ABB
	CALL ASSIGN(1,'DL1:[204,100]ABBAUT.BIB')
	CALL FDBSET(1,'NEW','SHARE',,4)
	NABB=0
	NEGO=0
	DO 10 I=1,30
	DO 10 J=1,12
10	EGO(I,J)=' '
	DO 20 I=1,40
	DO 20 J=1,42
20	ABB(I,J)=' '
	WRITE(1)NABB,ABB,NEGO,EGO
	CLOSE (UNIT=1)
	CALL EXIT
	END