Lines Matching refs:RLEFT
11 INTEGER FUNCTION INTOCN(HICODE,HSCODE,RTOP,RBOTT,RRIGHT,RLEFT,
143 REAL RTOP, RBOTT, RRIGHT, RLEFT, RYRES, RXRES
522 NXLEFT = INTDN((RLEFT-KLON1*XUNIT)/RXIRES+1)
590 XPSIGN = SIGN(1.0,(RRIGHT-RLEFT))
591 NXP = NINT((RRIGHT-RLEFT)/RXRES*XPSIGN)+1
599 RRIGHT = RLEFT+RXRES*XPSIGN*(NXP-1)
600 XARR(1) = RLEFT
617 XFPREV= (KSEC1(IOFFSET+1)*XUNIT-RLEFT)/RXRES*XPSIGN - 0.5*XRSIGN
619 XFPOSN = (KSEC1(IOFFSET+JI)*XUNIT-RLEFT)/(RXRES*XPSIGN)
647 XPSIGN = SIGN(1.0,(RRIGHT-RLEFT))
648 NXP = NINT((RRIGHT-RLEFT)/RXRES*XPSIGN)+1
656 RRIGHT = RLEFT+RXRES*XPSIGN*(NXP-1)
657 XARR(1) = RLEFT
677 RPOS = (RLEFT+(JI-1)*RXRES-XOWEST)/XORES + 1