C+
C NAME:
C	stop_here
C PURPOSE:
C       Stop the program with a message.
C       This is a workaround for 'stop' directly used inside an OpenMP loop.
C CALLING SEQUENCE:
C       call stop_here(msg)
C-
	subroutine stop_here(msg)
	character msg*(*)

	print *,'STOP: ',msg
	stop

	end