*IDENT ABORT1Ancpr
*DECLARE ABORT1A
*I ABORT1A.33
	if (icode .eq. 1501) then

	  print *,'*** abort called with icode=1501
	  print *,'*** (non-const polar row)'
	  print *,'*** ignoring the abort: continuing'
	  return

	endif