| /dports/science/tinker/tinker/source/ |
| H A D | invert.f | 29 integer, allocatable :: indxc(:) local
39 allocate (indxc(n))
76 indxc(i) = icol
98 if (indxr(i) .ne. indxc(i)) then
101 a(k,indxr(i)) = a(k,indxc(i))
102 a(k,indxc(i)) = temp
110 deallocate (indxc)
|
| /dports/editors/libreoffice/libreoffice-7.2.6.2/hwpfilter/source/ |
| H A D | solver.cxx | 49 std::unique_ptr<int[]> indxc( new int[n] ); in Solve() local
50 if ( !indxc ) in Solve()
106 indxc[i] = icol; in Solve()
133 if ( indxr[j] != indxc[j] ) in Solve()
138 a[k][indxr[j]] = a[k][indxc[j]]; in Solve()
139 a[k][indxc[j]] = save; in Solve()
|
| /dports/editors/libreoffice6/libreoffice-6.4.7.2/hwpfilter/source/ |
| H A D | solver.cxx | 49 std::unique_ptr<int[]> indxc( new int[n] ); in Solve() local
50 if ( !indxc ) in Solve()
106 indxc[i] = icol; in Solve()
133 if ( indxr[j] != indxc[j] ) in Solve()
138 a[k][indxr[j]] = a[k][indxc[j]]; in Solve()
139 a[k][indxc[j]] = save; in Solve()
|
| /dports/math/xtensor-blas/xtensor-blas-0.20.0/include/xflens/cxxlapack/interface/ |
| H A D | laed2.tcc | 57 IndexType *indxc, in laed2() argument
77 indxc, in laed2()
105 IndexType *indxc, in laed2() argument
125 indxc, in laed2()
|
| H A D | laed2.h | 55 IndexType *indxc,
75 IndexType *indxc,
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/nwpwlib/pseudopotential/ |
| H A D | gaussj.c | 28 int ipiv[NMAX], indxr[NMAX], indxc[NMAX]; in gaussj() local
79 indxc[i] = icol; in gaussj()
106 if (indxr[l] != indxc[l]) in gaussj()
111 a[k+indxr[l]*n] = a[k+indxc[l]*n]; in gaussj()
112 a[k+indxc[l]*n] = dum; in gaussj()
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/nwpwlib/pseudopotential/ |
| H A D | gaussj.c | 28 int ipiv[NMAX], indxr[NMAX], indxc[NMAX]; in gaussj() local
79 indxc[i] = icol; in gaussj()
106 if (indxr[l] != indxc[l]) in gaussj()
111 a[k+indxr[l]*n] = a[k+indxc[l]*n]; in gaussj()
112 a[k+indxc[l]*n] = dum; in gaussj()
|
| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
| H A D | slaed1.c | 159 integer i__, k, n1, n2, is, iw, iz, iq2, cpp1, indx, indxc, indxp; in slaed1_() local
230 indxc = indx + *n; in slaed1_()
231 coltyp = indxc + *n; in slaed1_()
240 …, &work[ iz], &work[idlmda], &work[iw], &work[iq2], &iwork[indx], &iwork[ indxc], &iwork[indxp], &… in slaed1_()
249 …utpnt, &d__[1], &q[q_offset], ldq, rho, &work[idlmda], &work[iq2], &iwork[indxc], &iwork[coltyp], … in slaed1_()
|
| H A D | dlaed1.c | 159 integer i__, k, n1, n2, is, iw, iz, iq2, zpp1, indx, indxc; in dlaed1_() local
233 indxc = indx + *n; in dlaed1_()
234 coltyp = indxc + *n; in dlaed1_()
243 …, &work[ iz], &work[idlmda], &work[iw], &work[iq2], &iwork[indx], &iwork[ indxc], &iwork[indxp], &… in dlaed1_()
252 …utpnt, &d__[1], &q[q_offset], ldq, rho, &work[idlmda], &work[iq2], &iwork[indxc], &iwork[coltyp], … in dlaed1_()
|
| H A D | slaed2.c | 206 …rho, real *z__, real * dlamda, real *w, real *q2, integer *indx, integer *indxc, integer * indxp, … in slaed2_() argument
262 --indxc; in slaed2_()
326 slamrg_(n1, &n2, &dlamda[1], &c__1, &c__1, &indxc[1]); in slaed2_()
332 indx[i__] = indxq[indxc[i__]]; in slaed2_()
534 indxc[psm[ct - 1]] = j; in slaed2_()
|
| H A D | dlaed2.c | 206 …oublereal *dlamda, doublereal *w, doublereal *q2, integer *indx, integer *indxc, integer *indxp, i… in dlaed2_() argument
263 --indxc; in dlaed2_()
327 dlamrg_(n1, &n2, &dlamda[1], &c__1, &c__1, &indxc[1]); in dlaed2_()
333 indx[i__] = indxq[indxc[i__]]; in dlaed2_()
535 indxc[psm[ct - 1]] = j; in dlaed2_()
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/ |
| H A D | slaed1.c | 21 static integer i__, k, n1, n2, is, iw, iz, iq2, cpp1, indx, indxc, indxp; in slaed1_() local
186 indxc = indx + *n; in slaed1_()
187 coltyp = indxc + *n; in slaed1_()
203 indxc], &iwork[indxp], &iwork[coltyp], info); in slaed1_()
215 &work[iq2], &iwork[indxc], &iwork[coltyp], &work[iw], &work[ in slaed1_()
|
| H A D | dlaed1.c | 21 static integer i__, k, n1, n2, is, iw, iz, iq2, zpp1, indx, indxc; in dlaed1_() local
190 indxc = indx + *n; in dlaed1_()
191 coltyp = indxc + *n; in dlaed1_()
207 indxc], &iwork[indxp], &iwork[coltyp], info); in dlaed1_()
219 &work[iq2], &iwork[indxc], &iwork[coltyp], &work[iw], &work[ in dlaed1_()
|
| H A D | slaed2.c | 15 dlamda, real *w, real *q2, integer *indx, integer *indxc, integer * in slaed2_() argument
193 --indxc; in slaed2_()
255 slamrg_(n1, &n2, &dlamda[1], &c__1, &c__1, &indxc[1]); in slaed2_()
258 indx[i__] = indxq[indxc[i__]]; in slaed2_()
448 indxc[psm[ct - 1]] = j; in slaed2_()
|
| H A D | dlaed2.c | 16 integer *indx, integer *indxc, integer *indxp, integer *coltyp, in dlaed2_() argument
197 --indxc; in dlaed2_()
259 dlamrg_(n1, &n2, &dlamda[1], &c__1, &c__1, &indxc[1]); in dlaed2_()
262 indx[i__] = indxq[indxc[i__]]; in dlaed2_()
452 indxc[psm[ct - 1]] = j; in dlaed2_()
|
| /dports/science/lammps/lammps-stable_29Sep2021/tools/pymol_asphere/src/ |
| H A D | miscm.cpp | 140 int *indxc=new int[n]; in invert() local
173 indxc[i]=icol; in invert()
194 if (indxr[l] != indxc[l]) in invert()
196 swap(a[k][indxr[l]],a[k][indxc[l]]); in invert()
201 delete []indxc; in invert()
|
| /dports/games/flightgear/flightgear-2020.3.11/src/FDM/LaRCsim/ |
| H A D | ls_matrix.c | 182 int *indxc, *indxr, *ipiv; in nr_gaussj() local
188 indxc = nr_ivector(1,n); /* The integer arrays ipiv, indxr, and */ in nr_gaussj()
230 indxc[i] = icol; /* by the pivot element, a[irow][icol] */ in nr_gaussj()
253 if (indxr[l] != indxc[l]) in nr_gaussj()
255 SWAP(a[k][indxr[l]],a[k][indxc[l]]) in nr_gaussj()
262 nr_free_ivector(indxc,1 /*,n*/ ); in nr_gaussj()
|
| /dports/net/rclone/rclone-1.57.0/vendor/github.com/vivint/infectious/ |
| H A D | math.go | 84 indxc := make([]int, k)
101 indxc[col] = icol
136 if indxr[i] != indxc[i] {
138 swap(&matrix[row*k+indxr[i]], &matrix[row*k+indxc[i]])
|
| /dports/net/storj/storj-1.45.3/vendor/github.com/vivint/infectious/ |
| H A D | math.go | 84 indxc := make([]int, k)
101 indxc[col] = icol
136 if indxr[i] != indxc[i] {
138 swap(&matrix[row*k+indxr[i]], &matrix[row*k+indxc[i]])
|
| /dports/math/universal/universal-3.48/include/universal/blas/ |
| H A D | inverse.hpp | 40 vector<size_t> indxc(N), indxr(N), indxp(N); in inv() local
82 indxc[i] = icol; in inv()
102 if (indxr[l-1] != indxc[l-1]) { in inv()
103 for (size_t k = 0; k < N; ++k) std::swap(B(k, indxr[l-1]), B(k, indxc[l-1])); in inv()
|
| /dports/math/saga/saga-8.1.3/saga-gis/src/tools/table/table_calculus/ |
| H A D | LMFit.cpp | 102 vector < int> indxc, indxr, ipiv; in gaussj() local
106 indxc.resize(n); in gaussj()
143 indxc[i] = icol; in gaussj()
171 if (indxr[l] != indxc[l]) in gaussj()
173 SWAP(aa[k][indxr[l]], aa[k][indxc[l]]); in gaussj()
|
| /dports/games/moonlight-embedded/moonlight-embedded-2.4.11/third_party/moonlight-common-c/reedsolomon/ |
| H A D | rs.c | 230 int *indxc = alloca(k*sizeof(int)); in invert_mat() local
235 int indxc[k]; in invert_mat() local
294 indxc[col] = icol; in invert_mat()
332 else if (indxc[col] <0 || indxc[col] >= k) in invert_mat()
333 fprintf(stderr, "AARGH, indxc[col] %d\n", indxc[col]); in invert_mat()
335 if (indxr[col] != indxc[col] ) { in invert_mat()
337 SWAP( src[row*k + indxr[col]], src[row*k + indxc[col]], gf); in invert_mat()
|
| /dports/science/xtb/xtb-6.4.1/src/solv/ddcosmo/ |
| H A D | solver.f90 | 303 integer, allocatable :: indxc(:), indxr(:), piv(:) local
308 allocate(indxc(n), indxr(n), piv(n), stat=istatus)
352 indxc(i) = icol
375 if (indxr(j) /= indxc(j)) then
377 a(:, indxr(j)) = a(:, indxc(j))
378 a(:, indxc(j)) = scr
|
| /dports/net/mad_fcl/mad_fcl_v1.7_src/alclib/ |
| H A D | fec.c | 444 int *indxc = (int*)my_malloc(k*sizeof(int), "indxc"); in invert_mat() local
504 indxc[col] = icol ; in invert_mat()
544 else if (indxc[col] <0 || indxc[col] >= k) in invert_mat()
545 fprintf( stderr, "AARGH, indxc[col] %d\n", indxc[col] ); in invert_mat()
547 if (indxr[col] != indxc[col] ) { in invert_mat()
549 SWAP( src[row*k + indxr[col]], src[row*k + indxc[col]], gf) ; in invert_mat()
555 free(indxc); in invert_mat()
|
| /dports/misc/vdmfec/vdmfec-1.0/ |
| H A D | fec.c | 431 int *indxc = my_malloc(k*sizeof(int), "indxc"); in invert_mat() local
491 indxc[col] = icol ; in invert_mat()
531 else if (indxc[col] <0 || indxc[col] >= k) in invert_mat()
532 fprintf(stderr, "AARGH, indxc[col] %d\n", indxc[col]); in invert_mat()
534 if (indxr[col] != indxc[col] ) { in invert_mat()
536 SWAP( src[row*k + indxr[col]], src[row*k + indxc[col]], gf) ; in invert_mat()
542 free(indxc); in invert_mat()
|