/dports/math/R-cran-gss/gss/src/ |
H A D | reg.f | 8 integer i, j, nn, idamax, infowk, idum 26 infowk = 0 29 infowk = infowk + jpvt(i) 34 j = idamax (rkv-infowk, v(infowk+1,infowk+1), nn+1) 35 23011 if(v(rkv,rkv).lt.v(infowk+j,infowk+j)*dsqrt(mchpr))then 49 call dtrsl (v, nn, nn, dc, 11, infowk) 51 call dtrsl (v, nn, nn, dc, 01, infowk) 68 call dtrsl (v, nn, nn, mu, 11, infowk) 82 *ull+i), dum, dum, dum, 01000, infowk) 137 call dtrsl (v, nn, nn, mu, 11, infowk) [all …]
|
H A D | hzdaux.f | 81 integer i, infowk local 85 call dtrsl (v, nxis, nxis, r(1,i), 11, infowk) 98 integer i, j, k, kk, idamax, iter, flag, infowk 163 call dmcdc (v, nxis, nxis, wk, jpvt, infowk) 167 call dtrsl (v, nxis, nxis, cdnew, 11, infowk) 168 call dtrsl (v, nxis, nxis, cdnew, 01, infowk)
|
H A D | hzdnewton.f | 35 integer i, j, k, kk, iter, flag, rkv, idamax, infowk 150 call dtrsl (v, nxis, nxis, cdnew, 11, infowk) 152 call dtrsl (v, nxis, nxis, cdnew, 01, infowk) 277 call dtrsl (v, nxis, nxis, rs(1,i), 11, infowk) 282 call dtrsl (v, nxis, nxis, mrs, 11, infowk)
|
H A D | cdennewton.f | 39 integer i, j, k, kk, iter, flag, rkv, idamax, infowk 173 call dtrsl (v, nxis, nxis, cdnew, 11, infowk) 175 call dtrsl (v, nxis, nxis, cdnew, 01, infowk) 311 call dtrsl (v, nxis, nxis, rs(1,i), 11, infowk) 353 integer i, j, k, kk, iter, flag, idamax, infowk 426 call dmcdc (v, nxis, nxis, cdnew, jpvt, infowk) 430 call dtrsl (v, nxis, nxis, cdnew, 11, infowk) 431 call dtrsl (v, nxis, nxis, cdnew, 01, infowk)
|
H A D | cdennewton10.f | 25 integer i, j, k, iter, flag, rkv, idamax, infowk 100 call dtrsl (v, nxis, nxis, cdnew, 11, infowk) 102 call dtrsl (v, nxis, nxis, cdnew, 01, infowk) 250 call dtrsl (v, nxis, nxis, wk, 11, infowk)
|
H A D | dnewton10.f | 25 integer i, j, k, iter, flag, rkv, idamax, infowk 105 call dtrsl (v, nxis, nxis, cdnew, 11, infowk) 107 call dtrsl (v, nxis, nxis, cdnew, 01, infowk) 262 call dtrsl (v, nxis, nxis, wk, 11, infowk)
|
H A D | llrmnewton.f | 37 integer i, j, k, kk, iter, flag, rkv, idamax, infowk 180 call dtrsl (v, nxis, nxis, cdnew, 11, infowk) 182 call dtrsl (v, nxis, nxis, cdnew, 01, infowk) 332 call dtrsl (v, nxis, nxis, rs(1,i), 11, infowk) 458 integer i, j, k, kk, iter, flag, idamax, infowk 532 call dmcdc (v, nxis, nxis, cdnew, jpvt, infowk) 536 call dtrsl (v, nxis, nxis, cdnew, 11, infowk) 537 call dtrsl (v, nxis, nxis, cdnew, 01, infowk)
|
H A D | drkl.f | 31 integer i, j, k, m, iter, flag, idamax, infowk 127 call dmcdc (v, nxis, nxis, muwk, jpvt, infowk) 131 call dtrsl (v, nxis, nxis, cdnew, 11, infowk) 132 call dtrsl (v, nxis, nxis, cdnew, 01, infowk)
|
H A D | hzdnewton10.f | 27 integer i, j, k, iter, flag, rkv, idamax, infowk 95 call dtrsl (v, nxis, nxis, cdnew, 11, infowk) 97 call dtrsl (v, nxis, nxis, cdnew, 01, infowk) 204 call dtrsl (v, nxis, nxis, wk, 11, infowk)
|
H A D | dnewton.f | 38 integer i, j, k, m, iter, flag, rkv, idamax, infowk 183 call dtrsl (v, nxis, nxis, cdnew, 11, infowk) 185 call dtrsl (v, nxis, nxis, cdnew, 01, infowk) 353 call dtrsl (v, nxis, nxis, rs(1,i), 11, infowk)
|
H A D | copu2newton.f | 47 integer nobs, i, j, k, kk, iter, flag, rkv, idamax, infowk 383 call dtrsl (v, nxis, nxis, cdnew, 11, infowk) 385 call dtrsl (v, nxis, nxis, cdnew, 01, infowk) 638 call dtrsl (v, nxis, nxis, muwk, 11, infowk) 665 call dtrsl (v, nxis, nxis, muwk, 11, infowk) 692 call dtrsl (v, nxis, nxis, muwk, 11, infowk) 730 call dtrsl (v, nxis, nxis, muwk, 11, infowk)
|
/dports/math/R-cran-gss/gss/src/ratfor/ |
H A D | reg.r | 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) 102 call dtrsl (v, nn, nn, mu, 11, infowk) 130 integer i, j, infowk [all …]
|
H A D | hzdaux.r | 58 integer i, infowk 62 call dtrsl (v, nxis, nxis, r(1,i), 11, infowk) 81 integer i, j, k, kk, idamax, iter, flag, infowk 121 call dmcdc (v, nxis, nxis, wk, jpvt, infowk) 126 call dtrsl (v, nxis, nxis, cdnew, 11, infowk) 127 call dtrsl (v, nxis, nxis, cdnew, 01, infowk)
|
H A D | hzdnewton.r | 49 integer i, j, k, kk, iter, flag, rkv, idamax, infowk 115 call dtrsl (v, nxis, nxis, cdnew, 11, infowk) 117 call dtrsl (v, nxis, nxis, cdnew, 01, infowk) 206 call dtrsl (v, nxis, nxis, rs(1,i), 11, infowk) 209 call dtrsl (v, nxis, nxis, mrs, 11, infowk)
|
H A D | cdennewton.r | 55 integer i, j, k, kk, iter, flag, rkv, idamax, infowk 132 call dtrsl (v, nxis, nxis, cdnew, 11, infowk) 134 call dtrsl (v, nxis, nxis, cdnew, 01, infowk) 226 call dtrsl (v, nxis, nxis, rs(1,i), 11, infowk) 262 integer i, j, k, kk, iter, flag, idamax, infowk 305 call dmcdc (v, nxis, nxis, cdnew, jpvt, infowk) 310 call dtrsl (v, nxis, nxis, cdnew, 11, infowk) 311 call dtrsl (v, nxis, nxis, cdnew, 01, infowk)
|
H A D | dnewton10.r | 41 integer i, j, k, iter, flag, rkv, idamax, infowk 91 call dtrsl (v, nxis, nxis, cdnew, 11, infowk) 93 call dtrsl (v, nxis, nxis, cdnew, 01, infowk) 193 call dtrsl (v, nxis, nxis, wk, 11, infowk)
|
H A D | drkl.r | 46 integer i, j, k, m, iter, flag, idamax, infowk 100 call dmcdc (v, nxis, nxis, muwk, jpvt, infowk) 105 call dtrsl (v, nxis, nxis, cdnew, 11, infowk) 106 call dtrsl (v, nxis, nxis, cdnew, 01, infowk)
|
H A D | cdennewton10.r | 41 integer i, j, k, iter, flag, rkv, idamax, infowk 87 call dtrsl (v, nxis, nxis, cdnew, 11, infowk) 89 call dtrsl (v, nxis, nxis, cdnew, 01, infowk) 185 call dtrsl (v, nxis, nxis, wk, 11, infowk)
|
H A D | llrmnewton.r | 54 integer i, j, k, kk, iter, flag, rkv, idamax, infowk 135 call dtrsl (v, nxis, nxis, cdnew, 11, infowk) 137 call dtrsl (v, nxis, nxis, cdnew, 01, infowk) 233 call dtrsl (v, nxis, nxis, rs(1,i), 11, infowk) 322 integer i, j, k, kk, iter, flag, idamax, infowk 365 call dmcdc (v, nxis, nxis, cdnew, jpvt, infowk) 370 call dtrsl (v, nxis, nxis, cdnew, 11, infowk) 371 call dtrsl (v, nxis, nxis, cdnew, 01, infowk)
|
H A D | hzdnewton10.r | 41 integer i, j, k, iter, flag, rkv, idamax, infowk 85 call dtrsl (v, nxis, nxis, cdnew, 11, infowk) 87 call dtrsl (v, nxis, nxis, cdnew, 01, infowk) 166 call dtrsl (v, nxis, nxis, wk, 11, infowk)
|
H A D | dnewton.r | 56 integer i, j, k, m, iter, flag, rkv, idamax, infowk 134 call dtrsl (v, nxis, nxis, cdnew, 11, infowk) 136 call dtrsl (v, nxis, nxis, cdnew, 01, infowk) 242 call dtrsl (v, nxis, nxis, rs(1,i), 11, infowk)
|
H A D | copu2newton.r | 61 integer nobs, i, j, k, kk, iter, flag, rkv, idamax, infowk 237 call dtrsl (v, nxis, nxis, cdnew, 11, infowk) 239 call dtrsl (v, nxis, nxis, cdnew, 01, infowk) 386 call dtrsl (v, nxis, nxis, muwk, 11, infowk) 399 call dtrsl (v, nxis, nxis, muwk, 11, infowk) 412 call dtrsl (v, nxis, nxis, muwk, 11, infowk) 429 call dtrsl (v, nxis, nxis, muwk, 11, infowk)
|