	subroutine print( msg, value )
	integer       value
	character*(*) msg
	print *,msg,value
	return
	end
