Lines Matching refs:infowk
14 integer i, j, nn, idamax, infowk, idum
28 infowk = 0 globalVar
29 for (i=1;i<=nn;i=i+1) infowk = infowk + jpvt(i) globalVar
31 j = idamax (rkv-infowk, v(infowk+1,infowk+1), nn+1)
32 while (v(rkv,rkv)<v(infowk+j,infowk+j)*dsqrt(mchpr)) rkv = rkv - 1
40 call dtrsl (v, nn, nn, dc, 11, infowk)
42 call dtrsl (v, nn, nn, dc, 01, infowk)
54 call dtrsl (v, nn, nn, mu, 11, infowk)
67 dum, sr(1,nnull+i), dum, dum, dum, 01000, infowk)
102 call dtrsl (v, nn, nn, mu, 11, infowk)
130 integer i, j, infowk
135 call dtrsl (v, nn, nn, r(1,i), 11, infowk)
137 call dtrsl (v, nn, nn, r(1,i), 01, infowk)
144 call dtrsl (v, nn, nn, wk(1,i), 11, infowk)