	subroutine error(i,a)
c     print error message and stop
c
1	format(36h1********************* manxcat error,i6,4h in ,a10)
c
	print 1,i,a
	stop
c
	end
