Lines Matching refs:pos3
958 SUBROUTINE DIRInsert3(pos1,pos2,pos3,deep,anchor,point,free, argument
962 INTEGER deep,free,pos1,pos2,pos3
967 CALL DIRSort3(pos1,pos2,pos3,f,maxfunc)
971 point(pos2) = pos3
972 point(pos3) = 0
982 CALL DIRInsert(pos,pos3,point,f,maxfunc)
1036 SUBROUTINE DIRSort3(pos1,pos2,pos3,f,maxfunc) argument
1040 INTEGER pos1,pos2,pos3,help local
1043 IF (f(pos1,1) .LT. f(pos3,1)) THEN
1044 IF (f(pos3,1) .LT. f(pos2,1)) THEN
1046 pos2 = pos3
1047 pos3 = help
1051 pos1 = pos3
1052 pos3 = pos2
1056 IF (f(pos2,1) .LT. f(pos3,1)) THEN
1057 IF (f(pos3,1) .LT. f(pos1,1)) THEN
1060 pos2 = pos3
1061 pos3 = help
1069 pos1 = pos3
1070 pos3 = help