C***********************************************************************
C
C	PROGRAMME DE RECHERCHE DES FICHES DANS LE FICHIER BIBLIOGRAPHIQUE
C	A PARTIR D'UNE COMBINAISON LOGIQUE DE MOTS CLES
C	SUR PDP 11/34   SOUS RSX 11 M V3.2
C
C
C
C	6 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	
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
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 BIBREC
	DIMENSION IBUF(32),DAY(9),LA(512),COMM(132)
	BYTE IBUF,DAY,COMM,REP
	COMMON /ASVAR/L,J,JAK
31	FORMAT(//)
110	TYPE 31
	TYPE *,'****PROGRAMME POUR RECHERCHER LES FICHES DANS LE
	2 FICHIER BIBLIOGRAPHIQUE****'
	TYPE 31
	CALL RMCLE(NDF,LA,COMM)
	CALL RMCPR(NDF,LA,COMM)
	TYPE 1
1	FORMAT(/'$ Desirez vous continuer?<O ou [N]>:')
	ACCEPT 2,REP
2	FORMAT(A1)
	IF (REP.EQ.'O') GO TO 110
	TYPE 31
	TYPE *,'AU REVOIR , A BIENTOT... '
	CALL EXIT
	END