Searched refs:ytopaseg (Results 1 – 2 of 2) sorted by relevance
6214 static real ytopaseg; in crdacc_() local6305 ytopaseg = nolev + segar[iacctype + ((isega + 1 << 1) + 2) * 5 - in crdacc_()6315 if (segrb[(isegrb << 1) - 1] < ytopaseg) { in crdacc_()6334 if (segrb[(isegrb + 1 << 1) - 1] > ytopaseg) { in crdacc_()
3718 ytopaseg = nolev+segar(iacctype,2,isega+1)3726 if (segrb(2,isegrb) .lt. ytopaseg) then3744 if (segrb(2,isegrb+1) .gt. ytopaseg) go to 4