/************************************************************************
*	ratfor	-ratfor mainline					*
*									*
*	useage:	Called from monitor.					*
*	note:	Complete documentation is available for use in the	*
*		routine "openf".					*
*									*
*	version	reason							*
*	------- ------							*
*	2.3	first numbered version.					*
*	2.4	bug fixes in next/switch code, and rewrite of "scan"	*
*	2.5	bug fix in scan involving > and <.			*
*	2.6	line continuation character processing added.		*
*	2.7	Buffers made larger (in GETLIN, NEWSCAN, DEFGEN) to	*
*		allow the use of version 2.6 changes.			*
*	2.8	Bug fix in long name generation.			*
*	2.9	Add switches.						*
*	2.10	Fix in % as only character on line (in GETLIN)		*
*	2.11	String statements					*
*	2.12	Octal constants						*
*	2.13	string constants in case labels				*
*	2.14	Exit with status and allowing "$" in var names		*
*	2.15	New improved PARSE.					*
************************************************************************/
logical openf				#opens files and such
include ratfor.def
include flags.cmm
logical temp

while (openf()) {			#get file names and open files
	call ratini			#initialization and the like
	if(print_version)
		type *,'Ratfor version 2.15'
	call parse
	close(unit = OUTLUN)
	call init			#start with a clean slate
	}
call ratout
end