| /dports/math/R-cran-gss/gss/src/ |
| H A D | dprmut.f | 1 subroutine dprmut (x,npar,jpvt,job) argument
2 integer npar,jpvt(npar),job local
31 jpvt(j) = -jpvt(j)
40 jpvt(j) = -jpvt(j)
41 k = jpvt(j)
47 jpvt(k) = -jpvt(k)
49 k = jpvt(k)
61 jpvt(i) = -jpvt(i)
62 j = jpvt(i)
68 jpvt(j) = -jpvt(j)
[all …]
|
| H A D | dchdc0.f | 2 integer lda,p,jpvt(1),job,info local
101 jpvt(k) = k
102 if (negk) jpvt(k) = -jpvt(k)
125 jpvt(k) = jpvt(pl)
126 jpvt(pl) = k
136 jpvt(k) = -jpvt(k)
158 jt = jpvt(k)
159 jpvt(k) = jpvt(pu)
201 jp = jpvt(maxl)
202 jpvt(maxl) = jpvt(k)
[all …]
|
| /dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/linpack/ |
| H A D | dqrdc.f | 3 integer jpvt(*) local
109 jpvt(j) = j
113 jpvt(j) = jpvt(pl)
114 jpvt(pl) = j
122 jpvt(j) = -jpvt(j)
125 jp = jpvt(pu)
126 jpvt(pu) = jpvt(j)
127 jpvt(j) = jp
164 jp = jpvt(maxj)
165 jpvt(maxj) = jpvt(l)
[all …]
|
| /dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/linpack/ |
| H A D | sqrdc.f | 3 integer jpvt(1) local
103 jpvt(j) = j
107 jpvt(j) = jpvt(pl)
108 jpvt(pl) = j
116 jpvt(j) = -jpvt(j)
119 jp = jpvt(pu)
120 jpvt(pu) = jpvt(j)
121 jpvt(j) = jp
158 jp = jpvt(maxj)
159 jpvt(maxj) = jpvt(l)
[all …]
|
| H A D | dqrdc.f | 3 integer jpvt(1) local
103 jpvt(j) = j
107 jpvt(j) = jpvt(pl)
108 jpvt(pl) = j
116 jpvt(j) = -jpvt(j)
119 jp = jpvt(pu)
120 jpvt(pu) = jpvt(j)
121 jpvt(j) = jp
158 jp = jpvt(maxj)
159 jpvt(maxj) = jpvt(l)
[all …]
|
| H A D | cqrdc.f | 3 integer jpvt(1) local
107 jpvt(j) = j
111 jpvt(j) = jpvt(pl)
112 jpvt(pl) = j
120 jpvt(j) = -jpvt(j)
123 jp = jpvt(pu)
124 jpvt(pu) = jpvt(j)
125 jpvt(j) = jp
162 jp = jpvt(maxj)
163 jpvt(maxj) = jpvt(l)
[all …]
|
| H A D | zqrdc.f | 3 integer jpvt(1) local
111 jpvt(j) = j
115 jpvt(j) = jpvt(pl)
116 jpvt(pl) = j
124 jpvt(j) = -jpvt(j)
127 jp = jpvt(pu)
128 jpvt(pu) = jpvt(j)
129 jpvt(j) = jp
166 jp = jpvt(maxj)
167 jpvt(maxj) = jpvt(l)
[all …]
|
| /dports/math/R/R-4.1.2/src/appl/ |
| H A D | dqrdc.f | 83 integer jpvt(p) local
104 jpvt(j) = j
108 jpvt(j) = jpvt(pl)
109 jpvt(pl) = j
117 jpvt(j) = -jpvt(j)
120 jp = jpvt(pu)
121 jpvt(pu) = jpvt(j)
122 jpvt(j) = jp
159 jp = jpvt(maxj)
160 jpvt(maxj) = jpvt(l)
[all …]
|
| H A D | dchdc.f | 2 integer lda,p,jpvt(p),job,info local
101 jpvt(k) = k
102 if (negk) jpvt(k) = -jpvt(k)
125 jpvt(k) = jpvt(pl)
126 jpvt(pl) = k
136 jpvt(k) = -jpvt(k)
158 jt = jpvt(k)
159 jpvt(k) = jpvt(pu)
201 jp = jpvt(maxl)
202 jpvt(maxl) = jpvt(k)
[all …]
|
| /dports/math/libRmath/R-4.1.1/src/appl/ |
| H A D | dqrdc.f | 83 integer jpvt(p) local
104 jpvt(j) = j
108 jpvt(j) = jpvt(pl)
109 jpvt(pl) = j
117 jpvt(j) = -jpvt(j)
120 jp = jpvt(pu)
121 jpvt(pu) = jpvt(j)
122 jpvt(j) = jp
159 jp = jpvt(maxj)
160 jpvt(maxj) = jpvt(l)
[all …]
|
| H A D | dchdc.f | 2 integer lda,p,jpvt(p),job,info local
101 jpvt(k) = k
102 if (negk) jpvt(k) = -jpvt(k)
125 jpvt(k) = jpvt(pl)
126 jpvt(pl) = k
136 jpvt(k) = -jpvt(k)
158 jt = jpvt(k)
159 jpvt(k) = jpvt(pu)
201 jp = jpvt(maxl)
202 jpvt(maxl) = jpvt(k)
[all …]
|
| /dports/math/linpack/linpack-1.0_14/ |
| H A D | dqrdc.f | 3 integer jpvt(1) local
103 jpvt(j) = j
107 jpvt(j) = jpvt(pl)
108 jpvt(pl) = j
116 jpvt(j) = -jpvt(j)
119 jp = jpvt(pu)
120 jpvt(pu) = jpvt(j)
121 jpvt(j) = jp
158 jp = jpvt(maxj)
159 jpvt(maxj) = jpvt(l)
[all …]
|
| H A D | sqrdc.f | 3 integer jpvt(1) local
103 jpvt(j) = j
107 jpvt(j) = jpvt(pl)
108 jpvt(pl) = j
116 jpvt(j) = -jpvt(j)
119 jp = jpvt(pu)
120 jpvt(pu) = jpvt(j)
121 jpvt(j) = jp
158 jp = jpvt(maxj)
159 jpvt(maxj) = jpvt(l)
[all …]
|
| H A D | cqrdc.f | 3 integer jpvt(1) local
107 jpvt(j) = j
111 jpvt(j) = jpvt(pl)
112 jpvt(pl) = j
120 jpvt(j) = -jpvt(j)
123 jp = jpvt(pu)
124 jpvt(pu) = jpvt(j)
125 jpvt(j) = jp
162 jp = jpvt(maxj)
163 jpvt(maxj) = jpvt(l)
[all …]
|
| H A D | zqrdc.f | 3 integer jpvt(1) local
111 jpvt(j) = j
115 jpvt(j) = jpvt(pl)
116 jpvt(pl) = j
124 jpvt(j) = -jpvt(j)
127 jp = jpvt(pu)
128 jpvt(pu) = jpvt(j)
129 jpvt(j) = jp
166 jp = jpvt(maxj)
167 jpvt(maxj) = jpvt(l)
[all …]
|
| H A D | schdc.f | 2 integer lda,p,jpvt(1),job,info local
101 jpvt(k) = k
102 if (negk) jpvt(k) = -jpvt(k)
125 jpvt(k) = jpvt(pl)
126 jpvt(pl) = k
136 jpvt(k) = -jpvt(k)
158 jt = jpvt(k)
159 jpvt(k) = jpvt(pu)
201 jp = jpvt(maxl)
202 jpvt(maxl) = jpvt(k)
[all …]
|
| H A D | dchdc.f | 2 integer lda,p,jpvt(1),job,info local
101 jpvt(k) = k
102 if (negk) jpvt(k) = -jpvt(k)
125 jpvt(k) = jpvt(pl)
126 jpvt(pl) = k
136 jpvt(k) = -jpvt(k)
158 jt = jpvt(k)
159 jpvt(k) = jpvt(pu)
201 jp = jpvt(maxl)
202 jpvt(maxl) = jpvt(k)
[all …]
|
| H A D | cchdc.f | 2 integer lda,p,jpvt(1),job,info local
101 jpvt(k) = k
102 if (negk) jpvt(k) = -jpvt(k)
126 jpvt(k) = jpvt(pl)
127 jpvt(pl) = k
137 jpvt(k) = -jpvt(k)
160 jt = jpvt(k)
161 jpvt(k) = jpvt(pu)
203 jp = jpvt(maxl)
204 jpvt(maxl) = jpvt(k)
[all …]
|
| H A D | zchdc.f | 2 integer lda,p,jpvt(1),job,info local
104 jpvt(k) = k
105 if (negk) jpvt(k) = -jpvt(k)
129 jpvt(k) = jpvt(pl)
130 jpvt(pl) = k
140 jpvt(k) = -jpvt(k)
163 jt = jpvt(k)
164 jpvt(k) = jpvt(pu)
206 jp = jpvt(maxl)
207 jpvt(maxl) = jpvt(k)
[all …]
|
| /dports/misc/vxl/vxl-3.3.2/v3p/netlib/linpack/ |
| H A D | sqrdc.f | 3 integer jpvt(1) local
103 jpvt(j) = j
107 jpvt(j) = jpvt(pl)
108 jpvt(pl) = j
116 jpvt(j) = -jpvt(j)
119 jp = jpvt(pu)
120 jpvt(pu) = jpvt(j)
121 jpvt(j) = jp
158 jp = jpvt(maxj)
159 jpvt(maxj) = jpvt(l)
[all …]
|
| H A D | dqrdc.f | 3 integer jpvt(1) local
103 jpvt(j) = j
107 jpvt(j) = jpvt(pl)
108 jpvt(pl) = j
116 jpvt(j) = -jpvt(j)
119 jp = jpvt(pu)
120 jpvt(pu) = jpvt(j)
121 jpvt(j) = jp
158 jp = jpvt(maxj)
159 jpvt(maxj) = jpvt(l)
[all …]
|
| H A D | zqrdc.f | 3 integer jpvt(1) local
111 jpvt(j) = j
115 jpvt(j) = jpvt(pl)
116 jpvt(pl) = j
124 jpvt(j) = -jpvt(j)
127 jp = jpvt(pu)
128 jpvt(pu) = jpvt(j)
129 jpvt(j) = jp
166 jp = jpvt(maxj)
167 jpvt(maxj) = jpvt(l)
[all …]
|
| H A D | cqrdc.f | 3 integer jpvt(1) local
107 jpvt(j) = j
111 jpvt(j) = jpvt(pl)
112 jpvt(pl) = j
120 jpvt(j) = -jpvt(j)
123 jp = jpvt(pu)
124 jpvt(pu) = jpvt(j)
125 jpvt(j) = jp
162 jp = jpvt(maxj)
163 jpvt(maxj) = jpvt(l)
[all …]
|
| /dports/math/optpp/optpp-2.4/src/PDS/ |
| H A D | dqrdc.c | 125 --jpvt; in dqrdc()
145 jpvt[j] = j; in dqrdc()
148 jpvt[j] = -j; in dqrdc()
159 jpvt[j] = jpvt[pl]; in dqrdc()
160 jpvt[pl] = j; in dqrdc()
176 jpvt[j] = -jpvt[j]; in dqrdc()
183 jp = jpvt[pu]; in dqrdc()
184 jpvt[pu] = jpvt[j]; in dqrdc()
185 jpvt[j] = jp; in dqrdc()
246 jpvt[maxj] = jpvt[l]; in dqrdc()
[all …]
|
| /dports/science/dakota/dakota-6.13.0-release-public.src-UI/packages/external/OPTPP/src/PDS/ |
| H A D | dqrdc.c | 125 --jpvt; in dqrdc()
145 jpvt[j] = j; in dqrdc()
148 jpvt[j] = -j; in dqrdc()
159 jpvt[j] = jpvt[pl]; in dqrdc()
160 jpvt[pl] = j; in dqrdc()
176 jpvt[j] = -jpvt[j]; in dqrdc()
183 jp = jpvt[pu]; in dqrdc()
184 jpvt[pu] = jpvt[j]; in dqrdc()
185 jpvt[j] = jp; in dqrdc()
246 jpvt[maxj] = jpvt[l]; in dqrdc()
[all …]
|