C***********************************************************************
C
C
C	BIBSAVMOT PERMET DE SAUVER LA FILE MOTCLE.BIB EN 2 BOUTS
C	DE 450 MOTS CLES
C
C
C**********************************************************************
	DIMENSION MOT(512)
	COMMON /ASVAR/L,J
	OPEN (UNIT=7,NAME='DL1:[204,100]MOTCLE.BIB',TYPE='OLD',
	2ACCESS='DIRECT',SHARED,FORM='UNFORMATTED',
	3RECORDSIZE=256,ASSOCIATEVARIABLE=J)
	OPEN (UNIT=3,NAME='DY:[204,100]MOTCLE1.BIB',TYPE='NEW',
	2ACCESS='DIRECT',SHARED,FORM='UNFORMATTED',
	3RECORDSIZE=256,ASSOCIATEVARIABLE=JA)
	OPEN (UNIT=4,NAME='DY1:[204,100]MOTCLE2.BIB',TYPE='NEW',
	2ACCESS='DIRECT',SHARED,FORM='UNFORMATTED',
	3RECORDSIZE=256,ASSOCIATEVARIABLE=JB)
	DO 100 I=1,450
	READ(7'I,END=200,ERR=200)MOT
	WRITE(3'I)MOT
100	CONTINUE
	DO 150 I=451,900
	READ(7'I,END=200,ERR=200)MOT
	WRITE(4'I)MOT
150	CONTINUE
200	CLOSE (UNIT=7)
	CLOSE (UNIT=3)
	CLOSE (UNIT=4)
	CALL EXIT
	END