C**********************************************************************
C
C
C	BIBREFER.FTN PERMET DE CREER OU MODIFIER UNE FILE DE REFERENCES
C	CETTE FILE SERA UTILISEE POUR SORTIR DES BIBLIOGRAPHIES.
C
C
C**********************************************************************
	SUBROUTINE REFER(NDFA,LB)
	DIMENSION LB(512)
	DIMENSION NOM(30)
	BYTE NOM
	DO 300 I=1,512
300	LB(I)=I
	NDFA=0
	TYPE 12
12	FORMAT(/'$NOM DE LA FILE DES REFERENCES(SANS EXTENSION):')
	ACCEPT 14,NCHA,(NOM(I),I=4,30)
14	FORMAT(Q,30A1)
	NOM(1)='S'
	NOM(2)='Y'
	NOM(3)=':'
	NOM(NCHA+4)='.'
	NOM(NCHA+5)='R'
	NOM(NCHA+6)='E'
	NOM(NCHA+7)='F'
	NOM(NCHA+8)=0
	OPEN (UNIT=1,NAME=NOM,TYPE='UNKNOWN',ACCESS='SEQUENTIAL'
	2,FORM='UNFORMATTED')
	TYPE 1
1	FORMAT(/'$EST-CE UNE NOUVELLE FILE<OUI OU NON>:')
	ACCEPT 2,REP
2	FORMAT(A3)
	IF (REP.EQ.'OUI') GO TO 150
	READ(1)NDFA,LB
	TYPE 4
4	FORMAT(' LISTE DES REFERENCES EXISTANT DEJA:'//)
	DO 100 I=1,NDFA
	TYPE 3,I,LB(I)
3	FORMAT(1X,I5,'--> ',I6)
100	CONTINUE
450	TYPE 5
5	FORMAT('$NUMERO DE LA REFERENCE A RETIRER<FIN=0>:')
	ACCEPT 6,NDEL
6	FORMAT(I6)
	IF (NDEL)150,150,200
200	DO 220 J=1,NDFA
	IF (LB(J).NE.NDEL) GO TO 220
	LB(J)=0
	K=J
	GO TO 230
220	CONTINUE
230	DO 210 I=K,NDFA
	LB(I)=LB(I+1)
210	CONTINUE
	NDFA=NDFA-1
	GO TO 450
150	TYPE 15
15	FORMAT('$NUMERO DE LA REFERENCE A AJOUTER<FIN=0>:')
	ACCEPT 6,NAJ
	IF (NAJ)400,400,410
410	NDFA=NDFA+1
	LB(NDFA)=NAJ
	GO TO 150
400	TYPE 7
7	FORMAT(//' NOUVELLE FILE DES REFERENCES:')
	DO 240 I=1,NDFA
	TYPE 3,I,LB(I)
240	CONTINUE
	IF (REP.NE.'OUI') REWIND 1
	WRITE(1)NDFA,LB
	CLOSE (UNIT=1)
	RETURN
	END