subroutine st(mype)
	implicit integer(a-z)

	if (mype.eq.0) then
		print *, mype, 'call sleep'
		call sleep(30)
	endif

	if (mype.eq.1) then
		print *, mype, 'call abort'
		call abort
	endif

	return
	end