	subroutine stop_here(msg)
	character msg*(*)
	
	print *,'STOP: ',msg
	stop

	end
