| /dports/science/afni/afni-AFNI_21.3.16/src/ |
| H A D | cl1.c | 547 q_dim1 = *klm2d; in cl1_fort()
548 q_offset = q_dim1 + 1; in cl1_fort()
581 q[i__ + j * q_dim1] = -q[i__ + j * q_dim1]; in cl1_fort()
765 q[i__ + in * q_dim1] = -q[i__ + in * q_dim1]; in cl1_fort()
791 z__ = q[ia + j * q_dim1]; in cl1_fort()
792 q[ia + j * q_dim1] = q[iout + j * q_dim1]; in cl1_fort()
873 q[iout + n2 * q_dim1] = -q[iout + n2 * q_dim1]; in cl1_fort()
908 q[i__ + j * q_dim1] += z__ * q[i__ + in * q_dim1]; in cl1_fort()
925 q[iout + n2 * q_dim1] = q[klm2 + in * q_dim1]; in cl1_fort()
934 q[i__ + in * q_dim1] = q[i__ + js * q_dim1]; in cl1_fort()
[all …]
|
| /dports/math/cminpack/cminpack-1.3.6/ |
| H A D | qform.c | 14 int q_dim1, q_offset; in __cminpack_func__() local
60 q_dim1 = ldq; in __cminpack_func__()
61 q_offset = 1 + q_dim1 * 1; in __cminpack_func__()
73 q[i + j * q_dim1] = 0.; in __cminpack_func__()
84 q[i + j * q_dim1] = 0.; in __cminpack_func__()
86 q[j + j * q_dim1] = 1.; in __cminpack_func__()
95 wa[i] = q[i + k * q_dim1]; in __cminpack_func__()
96 q[i + k * q_dim1] = 0.; in __cminpack_func__()
98 q[k + k * q_dim1] = 1.; in __cminpack_func__()
103 sum += q[i + j * q_dim1] * wa[i]; in __cminpack_func__()
[all …]
|
| H A D | qform_.c | 16 int q_dim1, q_offset, i__1, i__2, i__3; in __minpack_func__() local
62 q_dim1 = *ldq; in __minpack_func__()
63 q_offset = 1 + q_dim1 * 1; in __minpack_func__()
79 q[i__ + j * q_dim1] = 0.; in __minpack_func__()
96 q[i__ + j * q_dim1] = 0.; in __minpack_func__()
99 q[j + j * q_dim1] = 1.; in __minpack_func__()
111 wa[i__] = q[i__ + k * q_dim1]; in __minpack_func__()
112 q[i__ + k * q_dim1] = 0.; in __minpack_func__()
115 q[k + k * q_dim1] = 1.; in __minpack_func__()
124 sum += q[i__ + j * q_dim1] * wa[i__]; in __minpack_func__()
[all …]
|
| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/flamec/front/ |
| H A D | dopgtr.c | 107 integer q_dim1, q_offset, i__1, i__2, i__3; in dopgtr_() local
139 q_dim1 = *ldq; in dopgtr_()
140 q_offset = 1 + q_dim1; in dopgtr_()
186 q[i__ + j * q_dim1] = ap[ij]; in dopgtr_()
191 q[*n + j * q_dim1] = 0.; in dopgtr_()
199 q[i__ + *n * q_dim1] = 0.; in dopgtr_()
202 q[*n + *n * q_dim1] = 1.; in dopgtr_()
215 q[q_dim1 + 1] = 1.; in dopgtr_()
221 q[i__ + q_dim1] = 0.; in dopgtr_()
230 q[j * q_dim1 + 1] = 0.; in dopgtr_()
[all …]
|
| H A D | sopgtr.c | 107 integer q_dim1, q_offset, i__1, i__2, i__3; in sopgtr_() local
139 q_dim1 = *ldq; in sopgtr_()
140 q_offset = 1 + q_dim1; in sopgtr_()
186 q[i__ + j * q_dim1] = ap[ij]; in sopgtr_()
191 q[*n + j * q_dim1] = 0.f; in sopgtr_()
199 q[i__ + *n * q_dim1] = 0.f; in sopgtr_()
202 q[*n + *n * q_dim1] = 1.f; in sopgtr_()
215 q[q_dim1 + 1] = 1.f; in sopgtr_()
221 q[i__ + q_dim1] = 0.f; in sopgtr_()
230 q[j * q_dim1 + 1] = 0.f; in sopgtr_()
[all …]
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/ |
| H A D | dopgtr.c | 13 integer q_dim1, q_offset, i__1, i__2, i__3; in dopgtr_() local
99 q_dim1 = *ldq; in dopgtr_()
100 q_offset = 1 + q_dim1; in dopgtr_()
139 q[i__ + j * q_dim1] = ap[ij]; in dopgtr_()
144 q[*n + j * q_dim1] = 0.; in dopgtr_()
149 q[i__ + *n * q_dim1] = 0.; in dopgtr_()
152 q[*n + *n * q_dim1] = 1.; in dopgtr_()
170 q[q_dim1 + 1] = 1.; in dopgtr_()
173 q[i__ + q_dim1] = 0.; in dopgtr_()
179 q[j * q_dim1 + 1] = 0.; in dopgtr_()
[all …]
|
| H A D | sopgtr.c | 12 integer q_dim1, q_offset, i__1, i__2, i__3; in sopgtr_() local
97 q_dim1 = *ldq; in sopgtr_()
98 q_offset = 1 + q_dim1; in sopgtr_()
137 q[i__ + j * q_dim1] = ap[ij]; in sopgtr_()
142 q[*n + j * q_dim1] = 0.f; in sopgtr_()
147 q[i__ + *n * q_dim1] = 0.f; in sopgtr_()
150 q[*n + *n * q_dim1] = 1.f; in sopgtr_()
168 q[q_dim1 + 1] = 1.f; in sopgtr_()
171 q[i__ + q_dim1] = 0.f; in sopgtr_()
177 q[j * q_dim1 + 1] = 0.f; in sopgtr_()
[all …]
|
| H A D | dlaed3.c | 20 integer q_dim1, q_offset, i__1, i__2; in dlaed3_() local
168 q_dim1 = *ldq; in dlaed3_()
169 q_offset = 1 + q_dim1; in dlaed3_()
242 w[1] = q[j * q_dim1 + 1]; in dlaed3_()
243 w[2] = q[j * q_dim1 + 2]; in dlaed3_()
245 q[j * q_dim1 + 1] = w[ii]; in dlaed3_()
247 q[j * q_dim1 + 2] = w[ii]; in dlaed3_()
265 w[i__] *= q[i__ + j * q_dim1] / (dlamda[i__] - dlamda[j]); in dlaed3_()
288 s[i__] = w[i__] / q[i__ + j * q_dim1]; in dlaed3_()
295 q[i__ + j * q_dim1] = s[ii] / temp; in dlaed3_()
[all …]
|
| H A D | slaed3.c | 19 integer q_dim1, q_offset, i__1, i__2; in slaed3_() local
165 q_dim1 = *ldq; in slaed3_()
166 q_offset = 1 + q_dim1; in slaed3_()
239 w[1] = q[j * q_dim1 + 1]; in slaed3_()
240 w[2] = q[j * q_dim1 + 2]; in slaed3_()
242 q[j * q_dim1 + 1] = w[ii]; in slaed3_()
244 q[j * q_dim1 + 2] = w[ii]; in slaed3_()
262 w[i__] *= q[i__ + j * q_dim1] / (dlamda[i__] - dlamda[j]); in slaed3_()
285 s[i__] = w[i__] / q[i__ + j * q_dim1]; in slaed3_()
292 q[i__ + j * q_dim1] = s[ii] / temp; in slaed3_()
[all …]
|
| H A D | cupgtr.c | 13 integer q_dim1, q_offset, i__1, i__2, i__3, i__4; in cupgtr_() local
98 q_dim1 = *ldq; in cupgtr_()
99 q_offset = 1 + q_dim1; in cupgtr_()
138 i__3 = i__ + j * q_dim1; in cupgtr_()
145 i__2 = *n + j * q_dim1; in cupgtr_()
151 i__2 = i__ + *n * q_dim1; in cupgtr_()
155 i__1 = *n + *n * q_dim1; in cupgtr_()
174 i__1 = q_dim1 + 1; in cupgtr_()
178 i__2 = i__ + q_dim1; in cupgtr_()
185 i__2 = j * q_dim1 + 1; in cupgtr_()
[all …]
|
| H A D | zupgtr.c | 13 integer q_dim1, q_offset, i__1, i__2, i__3, i__4; in zupgtr_() local
99 q_dim1 = *ldq; in zupgtr_()
100 q_offset = 1 + q_dim1; in zupgtr_()
139 i__3 = i__ + j * q_dim1; in zupgtr_()
146 i__2 = *n + j * q_dim1; in zupgtr_()
152 i__2 = i__ + *n * q_dim1; in zupgtr_()
156 i__1 = *n + *n * q_dim1; in zupgtr_()
175 i__1 = q_dim1 + 1; in zupgtr_()
179 i__2 = i__ + q_dim1; in zupgtr_()
186 i__2 = j * q_dim1 + 1; in zupgtr_()
[all …]
|
| H A D | dlaed9.c | 18 integer q_dim1, q_offset, s_dim1, s_offset, i__1, i__2; in dlaed9_() local
129 q_dim1 = *ldq; in dlaed9_()
130 q_offset = 1 + q_dim1; in dlaed9_()
191 dlaed4_(k, &j, &dlamda[1], &w[1], &q[j * q_dim1 + 1], rho, &d__[j], in dlaed9_()
207 s[j + i__ * s_dim1] = q[j + i__ * q_dim1]; in dlaed9_()
227 w[i__] *= q[i__ + j * q_dim1] / (dlamda[i__] - dlamda[j]); in dlaed9_()
232 w[i__] *= q[i__ + j * q_dim1] / (dlamda[i__] - dlamda[j]); in dlaed9_()
250 q[i__ + j * q_dim1] = w[i__] / q[i__ + j * q_dim1]; in dlaed9_()
253 temp = dnrm2_(k, &q[j * q_dim1 + 1], &c__1); in dlaed9_()
256 s[i__ + j * s_dim1] = q[i__ + j * q_dim1] / temp; in dlaed9_()
|
| H A D | slaed9.c | 17 integer q_dim1, q_offset, s_dim1, s_offset, i__1, i__2; in slaed9_() local
127 q_dim1 = *ldq; in slaed9_()
128 q_offset = 1 + q_dim1; in slaed9_()
189 slaed4_(k, &j, &dlamda[1], &w[1], &q[j * q_dim1 + 1], rho, &d__[j], in slaed9_()
205 s[j + i__ * s_dim1] = q[j + i__ * q_dim1]; in slaed9_()
225 w[i__] *= q[i__ + j * q_dim1] / (dlamda[i__] - dlamda[j]); in slaed9_()
230 w[i__] *= q[i__ + j * q_dim1] / (dlamda[i__] - dlamda[j]); in slaed9_()
248 q[i__ + j * q_dim1] = w[i__] / q[i__ + j * q_dim1]; in slaed9_()
251 temp = snrm2_(k, &q[j * q_dim1 + 1], &c__1); in slaed9_()
254 s[i__ + j * s_dim1] = q[i__ + j * q_dim1] / temp; in slaed9_()
|
| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
| H A D | dlaed3.c | 180 integer q_dim1, q_offset, i__1, i__2; in dlaed3_() local
216 q_dim1 = *ldq; in dlaed3_()
217 q_offset = 1 + q_dim1; in dlaed3_()
299 w[1] = q[j * q_dim1 + 1]; in dlaed3_()
300 w[2] = q[j * q_dim1 + 2]; in dlaed3_()
302 q[j * q_dim1 + 1] = w[ii]; in dlaed3_()
304 q[j * q_dim1 + 2] = w[ii]; in dlaed3_()
324 w[i__] *= q[i__ + j * q_dim1] / (dlamda[i__] - dlamda[j]); in dlaed3_()
357 s[i__] = w[i__] / q[i__ + j * q_dim1]; in dlaed3_()
367 q[i__ + j * q_dim1] = s[ii] / temp; in dlaed3_()
[all …]
|
| H A D | slaed3.c | 180 integer q_dim1, q_offset, i__1, i__2; in slaed3_() local
216 q_dim1 = *ldq; in slaed3_()
217 q_offset = 1 + q_dim1; in slaed3_()
299 w[1] = q[j * q_dim1 + 1]; in slaed3_()
300 w[2] = q[j * q_dim1 + 2]; in slaed3_()
302 q[j * q_dim1 + 1] = w[ii]; in slaed3_()
304 q[j * q_dim1 + 2] = w[ii]; in slaed3_()
324 w[i__] *= q[i__ + j * q_dim1] / (dlamda[i__] - dlamda[j]); in slaed3_()
357 s[i__] = w[i__] / q[i__ + j * q_dim1]; in slaed3_()
367 q[i__ + j * q_dim1] = s[ii] / temp; in slaed3_()
[all …]
|
| H A D | cupgtr.c | 107 integer q_dim1, q_offset, i__1, i__2, i__3, i__4; in cupgtr_() local
139 q_dim1 = *ldq; in cupgtr_()
140 q_offset = 1 + q_dim1; in cupgtr_()
186 i__3 = i__ + j * q_dim1; in cupgtr_()
194 i__2 = *n + j * q_dim1; in cupgtr_()
204 i__2 = i__ + *n * q_dim1; in cupgtr_()
209 i__1 = *n + *n * q_dim1; in cupgtr_()
224 i__1 = q_dim1 + 1; in cupgtr_()
232 i__2 = i__ + q_dim1; in cupgtr_()
243 i__2 = j * q_dim1 + 1; in cupgtr_()
[all …]
|
| H A D | zupgtr.c | 107 integer q_dim1, q_offset, i__1, i__2, i__3, i__4; in zupgtr_() local
139 q_dim1 = *ldq; in zupgtr_()
140 q_offset = 1 + q_dim1; in zupgtr_()
186 i__3 = i__ + j * q_dim1; in zupgtr_()
194 i__2 = *n + j * q_dim1; in zupgtr_()
204 i__2 = i__ + *n * q_dim1; in zupgtr_()
209 i__1 = *n + *n * q_dim1; in zupgtr_()
224 i__1 = q_dim1 + 1; in zupgtr_()
232 i__2 = i__ + q_dim1; in zupgtr_()
243 i__2 = j * q_dim1 + 1; in zupgtr_()
[all …]
|
| H A D | dlaed9.c | 148 integer q_dim1, q_offset, s_dim1, s_offset, i__1, i__2; in dlaed9_() local
182 q_dim1 = *ldq; in dlaed9_()
183 q_offset = 1 + q_dim1; in dlaed9_()
257 dlaed4_(k, &j, &dlamda[1], &w[1], &q[j * q_dim1 + 1], rho, &d__[j], info); in dlaed9_()
277 s[j + i__ * s_dim1] = q[j + i__ * q_dim1]; in dlaed9_()
299 w[i__] *= q[i__ + j * q_dim1] / (dlamda[i__] - dlamda[j]); in dlaed9_()
307 w[i__] *= q[i__ + j * q_dim1] / (dlamda[i__] - dlamda[j]); in dlaed9_()
332 q[i__ + j * q_dim1] = w[i__] / q[i__ + j * q_dim1]; in dlaed9_()
335 temp = dnrm2_(k, &q[j * q_dim1 + 1], &c__1); in dlaed9_()
341 s[i__ + j * s_dim1] = q[i__ + j * q_dim1] / temp; in dlaed9_()
|
| H A D | slaed9.c | 148 integer q_dim1, q_offset, s_dim1, s_offset, i__1, i__2; in slaed9_() local
182 q_dim1 = *ldq; in slaed9_()
183 q_offset = 1 + q_dim1; in slaed9_()
257 slaed4_(k, &j, &dlamda[1], &w[1], &q[j * q_dim1 + 1], rho, &d__[j], info); in slaed9_()
277 s[j + i__ * s_dim1] = q[j + i__ * q_dim1]; in slaed9_()
299 w[i__] *= q[i__ + j * q_dim1] / (dlamda[i__] - dlamda[j]); in slaed9_()
307 w[i__] *= q[i__ + j * q_dim1] / (dlamda[i__] - dlamda[j]); in slaed9_()
332 q[i__ + j * q_dim1] = w[i__] / q[i__ + j * q_dim1]; in slaed9_()
335 temp = snrm2_(k, &q[j * q_dim1 + 1], &c__1); in slaed9_()
341 s[i__ + j * s_dim1] = q[i__ + j * q_dim1] / temp; in slaed9_()
|
| /dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/arpack/ |
| H A D | dsapps.c | 303 q_dim1 = *ldq; in dsapps_()
304 q_offset = 1 + q_dim1; in dsapps_()
468 q_dim1]; in dsapps_()
470 q[j + (istart + 1) * q_dim1] = -s * q[j + istart * q_dim1] + in dsapps_()
471 c__ * q[j + (istart + 1) * q_dim1]; in dsapps_()
473 q[j + istart * q_dim1] = a1; in dsapps_()
569 q_dim1]; in dsapps_()
571 q[j + (i__ + 1) * q_dim1] = -s * q[j + i__ * q_dim1] + in dsapps_()
572 c__ * q[j + (i__ + 1) * q_dim1]; in dsapps_()
574 q[j + i__ * q_dim1] = a1; in dsapps_()
[all …]
|
| /dports/misc/vxl/vxl-3.3.2/v3p/netlib/arpack/ |
| H A D | dsapps.c | 303 q_dim1 = *ldq; in dsapps_()
304 q_offset = 1 + q_dim1; in dsapps_()
468 q_dim1]; in dsapps_()
470 q[j + (istart + 1) * q_dim1] = -s * q[j + istart * q_dim1] + in dsapps_()
471 c__ * q[j + (istart + 1) * q_dim1]; in dsapps_()
473 q[j + istart * q_dim1] = a1; in dsapps_()
569 q_dim1]; in dsapps_()
571 q[j + (i__ + 1) * q_dim1] = -s * q[j + i__ * q_dim1] + in dsapps_()
572 c__ * q[j + (i__ + 1) * q_dim1]; in dsapps_()
574 q[j + i__ * q_dim1] = a1; in dsapps_()
[all …]
|
| /dports/science/gromacs/gromacs-2021.4/src/gromacs/linearalgebra/gmx_lapack/ |
| H A D | dlasd3.cpp | 43 q_dim1 = *ldq; in F77_FUNC()
44 q_offset = 1 + q_dim1; in F77_FUNC()
124 z__[i__] = (q[i__ + q_dim1] > 0) ? d__2 : -d__2; in F77_FUNC()
139 q[i__ * q_dim1 + 1] = u[i__ * u_dim1 + 1] / temp; in F77_FUNC()
143 q[j + i__ * q_dim1] = u[jc + i__ * u_dim1] / temp; in F77_FUNC()
154 ldu2, &q[q_dim1 + 2], ldq, &zero, &u[u_dim1 + 1], ldu); in F77_FUNC()
158 , ldu2, &q[ktemp + q_dim1], ldq, &one, &u[u_dim1 + 1], in F77_FUNC()
164 ldu2, &q[ktemp + q_dim1], ldq, &zero, &u[u_dim1 + 1], ldu); in F77_FUNC()
178 q[i__ + q_dim1] = vt[i__ * vt_dim1 + 1] / temp; in F77_FUNC()
182 q[i__ + j * q_dim1] = vt[jc + i__ * vt_dim1] / temp; in F77_FUNC()
[all …]
|
| H A D | slasd3.cpp | 43 q_dim1 = *ldq; in F77_FUNC()
44 q_offset = 1 + q_dim1; in F77_FUNC()
124 z__[i__] = (q[i__ + q_dim1] > 0) ? d__2 : -d__2; in F77_FUNC()
139 q[i__ * q_dim1 + 1] = u[i__ * u_dim1 + 1] / temp; in F77_FUNC()
143 q[j + i__ * q_dim1] = u[jc + i__ * u_dim1] / temp; in F77_FUNC()
154 ldu2, &q[q_dim1 + 2], ldq, &zero, &u[u_dim1 + 1], ldu); in F77_FUNC()
158 , ldu2, &q[ktemp + q_dim1], ldq, &one, &u[u_dim1 + 1], in F77_FUNC()
164 ldu2, &q[ktemp + q_dim1], ldq, &zero, &u[u_dim1 + 1], ldu); in F77_FUNC()
178 q[i__ + q_dim1] = vt[i__ * vt_dim1 + 1] / temp; in F77_FUNC()
182 q[i__ + j * q_dim1] = vt[jc + i__ * vt_dim1] / temp; in F77_FUNC()
[all …]
|
| /dports/math/igraph/igraph-0.9.5/vendor/lapack/ |
| H A D | dsapps.c | 249 q_dim1 = *ldq; in igraphdsapps_()
250 q_offset = 1 + q_dim1; in igraphdsapps_()
378 q_dim1]; in igraphdsapps_()
379 q[j + (istart + 1) * q_dim1] = -s * q[j + istart * q_dim1] + in igraphdsapps_()
380 c__ * q[j + (istart + 1) * q_dim1]; in igraphdsapps_()
381 q[j + istart * q_dim1] = a1; in igraphdsapps_()
456 q_dim1]; in igraphdsapps_()
457 q[j + (i__ + 1) * q_dim1] = -s * q[j + i__ * q_dim1] + in igraphdsapps_()
458 c__ * q[j + (i__ + 1) * q_dim1]; in igraphdsapps_()
459 q[j + i__ * q_dim1] = a1; in igraphdsapps_()
[all …]
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/arpack/ |
| H A D | ssapps.c | 272 q_dim1 = *ldq; in ssapps_()
273 q_offset = 1 + q_dim1; in ssapps_()
404 q_dim1]; in ssapps_()
405 q[j + (istart + 1) * q_dim1] = -s * q[j + istart * q_dim1] + in ssapps_()
406 c__ * q[j + (istart + 1) * q_dim1]; in ssapps_()
407 q[j + istart * q_dim1] = a1; in ssapps_()
482 q_dim1]; in ssapps_()
483 q[j + (i__ + 1) * q_dim1] = -s * q[j + i__ * q_dim1] + in ssapps_()
484 c__ * q[j + (i__ + 1) * q_dim1]; in ssapps_()
485 q[j + i__ * q_dim1] = a1; in ssapps_()
[all …]
|