C
C-------------------------- FignTab.inc -------------------------------
C
C------------------ Include file for FignTab.for ----------------------
C
	IMPLICIT INTEGER*2 (A-Z)

	PARAMETER (Decimal=1,Roman_upper=2,Roman_lower=3)
	PARAMETER (Letter_upper=4,Letter_lower=5)
	PARAMETER (Optional=1,required=0)
	PARAMETER (FirstLun=10,Out=1)
	PARAMETER (Paragraf=2,Fig=3,Tab=4,line_len=60)
	PARAMETER (Maxsave=300)

	CHARACTER*200 inline,tmp_line,choice*17,title*50
	CHARACTER*200 blanks/' '/,dots/
     -' . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 
     -. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 
     -. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 
     -. .'/
	CHARACTER*60  infile,outfile,tabfile,figfile,reqfile
	CHARACTER*24  fig_name(maxsave),tab_name(maxsave),
     -			para_name(maxsave)
	CHARACTER*1   linefmt*3/'(A)'/,inputfmt*5/'(Q,A)'/

	LOGICAL*4 pass_2	/.false./,
     -		EOF		/.false./,
     -		tab_sequential	/.false./,	!assume prefixed by para.
     -		fig_sequential	/.false./,	!assume prefixed by para.
     -		para_sequential	/.false./,	!always false
     -		tab_status	/.false./,	!assume no table reference
     -		fig_status	/.false./	!assume no figure reference

	INTEGER*4 fig_len(maxsave) /maxsave*0/,
     -		tab_len(maxsave)   /maxsave*0/,
     -		para_len(maxsave)  /maxsave*0/,
     -		in_lun		/firstlun/,
     -		num_lines	/0/,
     -		figure		/0/,
     -		table		/0/,
     -		chapter		/0/,
     -		level(6)	/6*0/,
     -		cur_level	/1/,
     -		fig_format	/decimal/,
     -		tab_format	/decimal/,
     -		chp_format	/decimal/,
     -		level_format(6)	/6*decimal/


	COMMON /Figures/num_lines,n,fig_len,tab_len,para_len,
     -		figure,table,chapter,level,cur_level,
     -		fig_format,tab_format,chp_format,level_format,in_lun,
     -		inline,dots,fig_name,tab_name,para_name,blanks,
     -		linefmt,inputfmt,pass_2,EOF,iostat,
     -		tab_sequential,fig_sequential,para_sequential,
     -		tab_status,fig_status