*
*	Common block for library names, and current library name.
*	The Array Filnams holds the names as supplied by the user,
*	and Deftyps (not yet used) holds the default file types
*	to be applied to each file.
*	The array Excluded holds the names (if any) of files to exclude.
*
*	Current_File holds the expanded filename of the current
*	library.
*
*	Helplib is true if the current library is a help library
*
C	
C	Modified 4-Aug-1994 - EJG - rearrange common for AXP alignment
C	
	Integer Maxfiles
	Parameter (Maxfiles = 10)
	Character*160 Filnams(Maxfiles)          !Names of files to search
	Character*160 Excluded(Maxfiles)	 !Files to exclude
	Integer Lexcl(Maxfiles)
	Integer Nexcl
	Character*3 Deftyps(Maxfiles)		 !Default file types
	Character*(Lbr$C_MaxKeyLen) Modquals(MaxFiles),Cmodqual  !Modules
	Character*(Lbr$C_MaxkeyLen) Modexcl(Maxfiles)   !Excluded modules
	Integer Modqlen(Maxfiles),Cmodqlen       !Lengths of module names
	Integer Lmodexcl(Maxfiles)
	Integer Fnamlen(Maxfiles)                !Lengths of file names
	Character*256 Current_file		!Expanded current filename
	Integer Cfilnaml
	Integer Nfiles,Cfile			!Total files, current file
	Integer FilIdx				!Library handle
	Logical Helplib

	Common /FILCOM/Nfiles,Cfile,Modqlen,FilIdx,Fnamlen,Lexcl,
     $    Nexcl,Lmodexcl,Cfilnaml,Cmodqlen,Helplib,Modquals,
     $    Filnams,Deftyps,Excluded,Modexcl,Current_File,Cmodqual