check_error_msg()

subroutine radiation_tools::check_error_msg	(	character(len=*), intent(in)	routine_name,
		character(len=*), intent(in)	error_msg )