/************************************************************************
* ratout -- exits with status from ratfor for 11M v3.2			*
*									*
*	note:	all of the exits from ratfor come through this routine.	*
*		The exit with status is effective in RSX-11M, VMS,	*
*		and RT-11, as far as I am aware.  This routine is	*
*		written for RSX-11M, V3.2.  Modifications for other	*
*		versions may be neccessary.  Modifications for other	*
*		operating systems is probably mandatory.		*
************************************************************************/
subroutine ratout
include ratfor.def
include error.cmm		#common holds error status

close (unit=OUTLUN)		#redundent sometimes, but on fatal errors
				#prevents locked files.
call sys$exit(%%val(error))
return
end