
*****************************************************************
*
* Subroutine to check for unexpected status codes.  Used by the 
* example FORTRAN86 SortMerge program.

	Subroutine ChkErc(iErc)
		if (iErc .eq. 0) return
		write(*, '(  1x, a)')  'Error encountered'
		write(*, '(1x, a, i5)') '    Status code', iErc
		stop
	end