Searched defs:rfgenpn (Results 1 – 1 of 1) sorted by relevance
52 subroutine rfgenpn(n,nsel,index) subroutine64 10 if(k.eq.1 .or. index(k).le.(n-(nsel-k))) goto 10072 100 return