| /dports/science/tinker/tinker/source/ |
| H A D | invert.f | 30 integer, allocatable :: indxr(:) local
40 allocate (indxr(n))
75 indxr(i) = irow
98 if (indxr(i) .ne. indxc(i)) then
100 temp = a(k,indxr(i))
101 a(k,indxr(i)) = a(k,indxc(i))
111 deallocate (indxr)
|
| /dports/editors/libreoffice/libreoffice-7.2.6.2/hwpfilter/source/ |
| H A D | solver.cxx | 52 std::unique_ptr<int[]> indxr( new int[n] ); in Solve() local
53 if ( !indxr ) { in Solve()
105 indxr[i] = irow; in Solve()
133 if ( indxr[j] != indxc[j] ) in Solve()
137 save = a[k][indxr[j]]; in Solve()
138 a[k][indxr[j]] = a[k][indxc[j]]; in Solve()
|
| /dports/editors/libreoffice6/libreoffice-6.4.7.2/hwpfilter/source/ |
| H A D | solver.cxx | 52 std::unique_ptr<int[]> indxr( new int[n] ); in Solve() local
53 if ( !indxr ) { in Solve()
105 indxr[i] = irow; in Solve()
133 if ( indxr[j] != indxc[j] ) in Solve()
137 save = a[k][indxr[j]]; in Solve()
138 a[k][indxr[j]] = a[k][indxc[j]]; in Solve()
|
| /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
78 indxr[i] = irow; in gaussj()
106 if (indxr[l] != indxc[l]) in gaussj()
110 dum = a[k+indxr[l]*n]; in gaussj()
111 a[k+indxr[l]*n] = a[k+indxc[l]*n]; 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
78 indxr[i] = irow; in gaussj()
106 if (indxr[l] != indxc[l]) in gaussj()
110 dum = a[k+indxr[l]*n]; in gaussj()
111 a[k+indxr[l]*n] = a[k+indxc[l]*n]; in gaussj()
|
| /dports/science/lammps/lammps-stable_29Sep2021/tools/pymol_asphere/src/ |
| H A D | miscm.cpp | 141 int *indxr=new int[n]; in invert() local
172 indxr[i]=irow; in invert()
194 if (indxr[l] != indxc[l]) in invert()
196 swap(a[k][indxr[l]],a[k][indxc[l]]); in invert()
200 delete []indxr; 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
189 indxr = nr_ivector(1,n); /* indxc are used for pivot bookkeeping */ in nr_gaussj()
229 indxr[i] = irow; /* We are now ready to divide the pivot row */ 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()
261 nr_free_ivector(indxr,1 /*,n*/ ); in nr_gaussj()
|
| /dports/net/rclone/rclone-1.57.0/vendor/github.com/vivint/infectious/ |
| H A D | math.go | 85 indxr := make([]int, k)
100 indxr[col] = irow
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 | 85 indxr := make([]int, k)
100 indxr[col] = irow
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
81 indxr[i] = irow; 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/comms/minicom/minicom-2.7.1/src/ |
| H A D | file.c | 514 int indxr, cntr; in tag_untag() local
519 for (indxr = nrents, cntr = 0; indxr; --indxr, ++d) in tag_untag()
540 int indxr, len; in concat_list() local
545 for (indxr = nrents, len = 0; indxr; --indxr, ++d) in concat_list()
559 for (indxr = nrents; indxr; --indxr, ++d) in concat_list()
|
| /dports/deskutils/latte-dock/latte-dock-0.10.6/containment/package/contents/ui/abilities/privates/ |
| H A D | IndexerPrivate.qml | 12 id: indxr
24 target: indxr
59 target: indxr
94 target: indxr
125 target: indxr
169 target: indxr
219 target: indxr
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/paw/paw_ovlp/ |
| H A D | paw_overlap_matrix.F | 229 integer npack1,indxr,indxs,indx local
273 indxr = (r-1+ii_shift)*ne + (i-1)
277 > + dconjg(dcpl_mb(c1(1)+indxr))
321 integer npack1,indxr,indxs,indx local
365 indxr = (r-1+ii_shift)*ne + (i-1)
369 > + dconjg(dcpl_mb(c1(1)+indxr))
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/paw/paw_ovlp/ |
| H A D | paw_overlap_matrix.F | 229 integer npack1,indxr,indxs,indx local
273 indxr = (r-1+ii_shift)*ne + (i-1)
277 > + dconjg(dcpl_mb(c1(1)+indxr))
321 integer npack1,indxr,indxs,indx local
365 indxr = (r-1+ii_shift)*ne + (i-1)
369 > + dconjg(dcpl_mb(c1(1)+indxr))
|
| /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
107 indxr.resize(n); in gaussj()
142 indxr[i] = irow; 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 | 231 int *indxr = alloca(k*sizeof(int)); in invert_mat() local
236 int indxr[k]; in invert_mat() local
293 indxr[col] = irow; in invert_mat()
330 if (indxr[col] <0 || indxr[col] >= k) in invert_mat()
331 fprintf(stderr, "AARGH, indxr[col] %d\n", indxr[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)
351 indxr(i) = irow
375 if (indxr(j) /= indxc(j)) then
376 scr = a(:, indxr(j))
377 a(:, indxr(j)) = a(:, indxc(j))
|
| /dports/net/mad_fcl/mad_fcl_v1.7_src/alclib/ |
| H A D | fec.c | 445 int *indxr = (int*)my_malloc(k*sizeof(int), "indxr"); in invert_mat() local
503 indxr[col] = irow ; in invert_mat()
542 if (indxr[col] <0 || indxr[col] >= k) in invert_mat()
543 fprintf( stderr, "AARGH, indxr[col] %d\n", indxr[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()
556 free(indxr); in invert_mat()
|
| /dports/misc/vdmfec/vdmfec-1.0/ |
| H A D | fec.c | 432 int *indxr = my_malloc(k*sizeof(int), "indxr"); in invert_mat() local
490 indxr[col] = irow ; in invert_mat()
529 if (indxr[col] <0 || indxr[col] >= k) in invert_mat()
530 fprintf(stderr, "AARGH, indxr[col] %d\n", indxr[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()
543 free(indxr); in invert_mat()
|
| /dports/converters/py-zfec/zfec-1.5.5/zfec/ |
| H A D | fec.c | 239 unsigned* indxr = (unsigned*) malloc (k * sizeof(unsigned)); in _invert_mat() local
285 indxr[col] = irow; in _invert_mat()
321 if (indxr[col-1] != indxc[col-1]) in _invert_mat()
323 SWAP (src[row * k + indxr[col-1]], src[row * k + indxc[col-1]], gf); in _invert_mat()
325 free(indxr); in _invert_mat()
|
| /dports/science/lammps/lammps-stable_29Sep2021/tools/phonon/ |
| H A D | dynmat.cpp | 496 int *indxc,*indxr,*ipiv; in GaussJordan() local
501 indxr = new int[n]; in GaussJordan()
534 indxr[i] = irow; in GaussJordan()
557 int rl = indxr[l]; in GaussJordan()
569 delete []indxr; in GaussJordan()
|
| /dports/graphics/reactphysics3d/reactphysics3d-0.8.0/testbed/opengl-framework/src/maths/ |
| H A D | Matrix4.h | 247 int indxc[4], indxr[4]; in getInverse() local
287 indxr[i] = irow; in getInverse()
312 if (indxr[j] != indxc[j]) { in getInverse()
314 temp = minv[k][indxr[j]]; in getInverse()
315 minv[k][indxr[j]] = minv[k][indxc[j]]; in getInverse()
|
| /dports/math/saga/saga-8.1.3/saga-gis/src/saga_core/saga_api/ |
| H A D | mat_trend.cpp | 560 CSG_Array_Int indxr(m_Params.Get_Count()); in _Get_Gaussj() local
614 indxr[i] = iRow; in _Get_Gaussj()
656 if( indxr[i] != indxc[i] ) in _Get_Gaussj()
660 SWAP(m_Params.m_Covar[j][indxr[i]], m_Params.m_Covar[j][indxc[i]]); in _Get_Gaussj()
|
| /dports/graphics/art/ART-1.9.3/rtengine/klt/ |
| H A D | trackFeatures.cc | 551 int *indxc,*indxr,*ipiv; in _am_gauss_jordan_elimination() local
558 indxr=(int *)malloc((size_t) (n*sizeof(int))); in _am_gauss_jordan_elimination()
573 free(ipiv); free(indxr); free(indxc); return KLT_SMALL_DET; in _am_gauss_jordan_elimination()
581 indxr[i]=row; in _am_gauss_jordan_elimination()
585 free(indxr); in _am_gauss_jordan_elimination()
602 if (indxr[l] != indxc[l]) in _am_gauss_jordan_elimination()
604 SWAP_ME(a[k][indxr[l]],a[k][indxc[l]]); in _am_gauss_jordan_elimination()
607 free(indxr); in _am_gauss_jordan_elimination()
|
| /dports/graphics/rawtherapee/rawtherapee-5.8/rtengine/klt/ |
| H A D | trackFeatures.cc | 551 int *indxc,*indxr,*ipiv; in _am_gauss_jordan_elimination() local
558 indxr=(int *)malloc((size_t) (n*sizeof(int))); in _am_gauss_jordan_elimination()
573 free(ipiv); free(indxr); free(indxc); return KLT_SMALL_DET; in _am_gauss_jordan_elimination()
581 indxr[i]=row; in _am_gauss_jordan_elimination()
585 free(indxr); in _am_gauss_jordan_elimination()
602 if (indxr[l] != indxc[l]) in _am_gauss_jordan_elimination()
604 SWAP_ME(a[k][indxr[l]],a[k][indxc[l]]); in _am_gauss_jordan_elimination()
607 free(indxr); in _am_gauss_jordan_elimination()
|