Lines Matching refs:jpvt

1       subroutine cchdc(a,lda,p,work,jpvt,job,info)  argument
2       integer lda,p,jpvt(1),job,info  local
99             swapk = jpvt(k) .gt. 0
100             negk = jpvt(k) .lt. 0
101             jpvt(k) = k
102             if (negk) jpvt(k) = -jpvt(k)
126                   jpvt(k) = jpvt(pl)
127                   jpvt(pl) = k
136             if (jpvt(k) .ge. 0) go to 130
137                jpvt(k) = -jpvt(k)
160                   jt = jpvt(k)
161                   jpvt(k) = jpvt(pu)
162                   jpvt(pu) = jt
203             jp = jpvt(maxl)
204             jpvt(maxl) = jpvt(k)
205             jpvt(k) = jp