$ ir2a.v707  efficiency alter for param, inrel=-2
$ rev. 1 2 Jan 2001.  use param, grdpnt, [gid] as reference point

compile sekrrs list noref $
alter 'partn.*pt6','' $ do 2-way partn
type parm,,I,n,ntm6 $
ntm6= notset - 6 $
matgen ,/xvt6/6/notset/ntm6/6 $ use to discard last 6 rows
partn pt,vp6,xvt6/,,pt6,/0
alter 'merge.*kll','' $ add ktt instead of merge
merge ,,p6t,pt6,,,xvt6/kll1/-1 $
add5 kll1,ktt,,,/kll $
compile statrs list noref $
alter 'if ( inrel'(4,),''(4,) $ 
if (false) then $ avoid the inrel=-2 branches
alter 'if ( inrel'(5,),''(5,) $
if (true) then $ 

compile phase0 list $ use grdpnt as reference for rb modes
alter 'IF ( GRDPNT.*0 OR INREL=-2 ) REFPNT=0','' $ V70.7
IF ( GRDPNT<0 ) REFPNT=0 $ added 2 jan 2001

$ end of ir2a.v707