_RL minusone
parameter (two=2,minusone=-1.)
I two,minusone,
parameter( minusone=-1.0)
I (sNx+2*OLx)*(sNy+2*OLy), minusone,
parameter ( minusone=-1.0 )
I imt, minusone,