Searched defs:BPSORT (Results 1 – 1 of 1) sorted by relevance
30221 SUBROUTINE BPSORT(B,I1,I2,R,N,JLV,JRV) subroutine30236 10 JNDL=JLV(JSS)30239 20 JNC=JNDL30243 30 IF (B(JNC).GE.XX) GOTO 4030246 40 IF (XX.GE.B(J)) GOTO 5030249 50 IF (JNC.GT.J) GOTO 6030264 60 IF (JNC.LE.J) GOTO 3030270 70 JNDL=JNC30272 80 IF (JNC.GE.JR) GOTO 9030276 90 JR=J[all …]