C***********************************************************************
C
C	PROGRAMME D'ENTREE DES FICHES DANS LE FICHIER BIBLIOGRAPHIQUE
C	SUR PDP 11/34   SOUS RSX 11 M V3.2
C
C	CE PROGRAMME PERMET DE DIRIGER  VERS LE SOUS PROGRAMME DESIRE
C	D'ENTREE DANS LE FICHIER.
C
C
C	7 FICHIERS DE TYPE FILE11 SONT UTILISES:
C
C		1	DL1:[204,100]FICHES.BIB
C	CONTIENT LE LIBELLE DES FICHES BIBLIOGRAPHIQUES,
C	AVEC LEURS MOTS CLE,L'UIC ET LA DATE D'ENTREE.
C	
C		2	DL1:[204,100]CODCLE.BIB
C	CONTIENT LE LIBELLE DES 1000 MOTS CLE POSSIBLES
C	AVEC LE NOMBRE ACTUEL DES MOTS CLES DANS LE 1 ER MOT
C	ET LE NOMBRE DE FICHES DANS LE SECOND MOT
C	
C		3	DL1:[204,100]MOTCLE.BIB
C	CONTIENT LES NUMEROS DES FICHES APPARTENANT
C	AU MOT CLE CONSIDERE;CHAQUE RECORD CORRESPOND A
C	UN MOT CLE;DANS CHAQUE RECORD,LE 1ER MOT EST LE NOMBRE
C	DE FICHES DANS CE MOT CLE,ET LES 511 AUTRES SONT LES
C	NUMEROS DES FICHES REPERTORIEES.
C
C		4	DL1:[204,100]ABBAUT.BIB
C	CONTIENT LA LISTE DES ABBREVIATIONS ET LEURS CORRESPONDANCE
C	EN NOM DE JOURNAL,ANSI QUE LA LISTE DES AUTEURS A METTRE
C	AUTOMATIQUEMENT EN MOT CLE.
C
C		5	DL1:[204,100]NONINDX.BIB
C	CONTIENT LE NOMBRE DE FICHES RENTREES SANS MOT CLE DANS
C	LE 1ER MOT  ET LES NUMEROS DE CES FICHES DANS LES
C	MOTS SUIVANTS,
C
C		6	DL1:[204,100]AUTALPH.BIB
C	EST CONSTITUE DE 26 RECORDS DE 2560 MOTS.CHAQUE RECORD
C	CORRESPOND A UNE LETTRE DE L'ALPHABET.LE 1ER MOT EST
C	LE NOMBRE DE FICHES INDEXEES POUR CETTE LETTRE,ET LES
C	2559 SUIVANTS LES NUMEROS DES FICHES POSSEDANT AU MOINS
C	UN AUTEUR COMMENCANT PAR CETTE LETTRE.
C
C		7	DL1:[204,100]FICHKILL.BIB
C	CONTIENT LE NOMBRE ET LES NUMEROS DES FICHES A SUPPRIMER
C	DU FICHIER
C
C	
C	UNE FICHE BIBLIOGRAPHIQUE EST CONSTITUEE DE:
C
C		0/ SON TYPE ,SIMPLE ('S') OU DOUBLE ('D')
C		1/ SON NUMERO
C		2/ LE NOMBRE D'AUTEURS(1 A 10)
C		3/ 1 A 10 NOMS ET PRENOMS D'AUTEURS
C		4/ 1 A 8 LIGNES DE TITRE
C		5/ LE NOM DU JOURNAL
C		6/ LE NUMERO DU VOLUME <EN ASCII>
C		7/ LES NUMERO DE PAGE <EN ASCII>
C		8/ L'ANNEE DE PARUTION EN I4
C		9/ L'UIC SOUS LEQUEL ELLE A ETE RENTREE
C		    ET/OU INDEXEE
C		10/ LA DATE A LAQUELLE ELLE A ETE RENTREE
C		    ET/OU INDEXEE
C		11/ UNE INDICATION CONCERNANT LES T-A-P<10 LETTRES>
C		12/ 1 A  10 NUMEROS DE MOTS CLE
C
C
C	CES 6 FICHIERS SONT SAUVES SOUS L'UIC [204,100]
C	ET BENEFICIENT DE LA PROTECTION SUIVANTE:
C	(RWED,RWED,RWE,R)
C
C	POUR LES ACCEDER ON DEVRA PREALABLEMENT MONTER LE DL1 PAR
C	MCR>MOU DL1:BIBLIO1
C
C
C			Version du 23 AVRIL 1980
C			par
C
C			Dr J.-F. VIBERT
C			
C			Laboratoire de physiologie du tronc cerebral
C			Pr A. HUGELIN
C			CHU Saint Antoine
C			Universite Pierre et Marie CURIE /PARIS 
C			&
C			LA 204 CESN/CNRS 		 /GIF-SUR-YVETTE
C			FRANCE
C**********************************************************************
	PROGRAM BIBENT
	DIMENSION IBUF(32),DAY(9),IFRPL(50)
	BYTE IBUF,DAY
	COMMON /ASVAR/L,J,JAK
	COMMON /RP/NRPL,IFRPL
	NRPL=0
	DO 50 I=1,50
50	IFRPL(I)=0
	CALL GETTSK(IBUF)
	CALL DATE(DAY)
	ICG=IBUF(16)
	ICM=IBUF(15)
31	FORMAT(//)
110	TYPE 31
	TYPE *,'****PROGRAMME POUR ENTRER LES FICHES DANS LE
	2 FICHIER BIBLIOGRAPHIQUE****'
	TYPE 31
C	-124 EST LA VALEUR DECIMALE DU NUMERO DE GROUPE 204
	IF (ICG.EQ.-124) GO TO 20
	TYPE *,' Vous n''appartenez pas au LA 204'
	TYPE *,' Vous n''etes pas autorise a ecrire sur le fichier.'
	CALL EXIT
20	CALL FICHE(ICM,DAY,NFDA,NFDB)
	IF (NRPL.EQ.0) GO TO 100
	CALL AUTRP
	CALL PRTRP
100	CALL AUTALP(NFDA,NFDB)
	CALL PRTFI(NFDA,NFDB)
	TYPE 31
	TYPE *,'AU REVOIR , A BIENTOT... '
	CALL EXIT
	END