/dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
H A D | cgesvd.c | 253 integer chunk, minmn, wrkbl, itaup, itauq, mnthr, iwork; in cgesvd_() local 312 minmn = min(*m,*n); in cgesvd_() 348 else if (*ldvt < 1 || wntva && *ldvt < *n || wntvs && *ldvt < minmn) in cgesvd_() 363 if (*m >= *n && minmn > 0) in cgesvd_() 619 else if (minmn > 0) in cgesvd_() 3280 slascl_("G", &c__0, &c__0, &bignum, &anrm, &minmn, &c__1, &s[1], & minmn, &ierr); in cgesvd_() 3284 i__2 = minmn - 1; in cgesvd_() 3285 slascl_("G", &c__0, &c__0, &bignum, &anrm, &i__2, &c__1, &rwork[ ie], &minmn, &ierr); in cgesvd_() 3289 slascl_("G", &c__0, &c__0, &smlnum, &anrm, &minmn, &c__1, &s[1], & minmn, &ierr); in cgesvd_() 3293 i__2 = minmn - 1; in cgesvd_() [all …]
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/Modules/ |
H A D | lmdif.f90 | 1402 INTEGER i, j, jp1, k, kmax, minmn 1422 minmn = min0 (m, n) 1423 DO 110 j = 1, minmn
|
/dports/audio/praat/praat-6.2.03/external/clapack/ |
H A D | lapack_dg.cpp | 26 integer minmn; in dgbbrd_() local 241 i__1 = minmn; in dgbbrd_() 516 i__1 = minmn; in dgbbrd_() 527 i__1 = minmn - 1; in dgbbrd_() 532 i__1 = minmn; in dgbbrd_() 6107 nx = minmn; in dgebrd_() 12058 minmn = std::max(1_integer,minmn); in dgelsd_() 12469 minmn, info); in dgelsd_() 12474 minmn, info); in dgelsd_() 13242 minmn, info); in dgelss_() [all …]
|
/dports/cad/repsnapper/repsnapper-2.5a4/libraries/lmfit/lmfit-5.0/lib/ |
H A D | lmmin.c | 803 int i, j, k, kmax, minmn; in lm_qrfac() local 820 minmn = MIN(m, n); in lm_qrfac() 821 for (j = 0; j < minmn; j++) { in lm_qrfac()
|
/dports/science/opensim-core/opensim-core-4.1/OpenSim/Common/ |
H A D | Lmdif.cpp | 1118 int minmn; in qrfac() local 1148 minmn = min0(m,n); in qrfac() 1149 for (j=0; j<minmn; j++) in qrfac()
|
/dports/finance/quantlib/QuantLib-1.20/ql/math/optimization/ |
H A D | lmdif.cpp | 454 int i,ij,jj,j,jp1,k,kmax,minmn; in qrfac() local 476 minmn = min0(m,n); in qrfac() 477 for( j=0; j<minmn; j++ ) in qrfac()
|
/dports/graphics/libpano13/libpano13-2.9.20/ |
H A D | lmdif.c | 1004 int i,ij,jj,j,jp1,k,kmax,minmn; in qrfac() local 1029 minmn = m<=n?m:n; in qrfac() 1030 for( j=0; j<minmn; j++ ) in qrfac()
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/ |
H A D | dgesvd.c | 43 static integer chunk, minmn, wrkbl, itaup, itauq, mnthr, iwork; in dgesvd_() local 241 minmn = min(*m,*n); in dgesvd_() 4061 i__2 = minmn - 1; in dgesvd_() 4068 for (i__ = minmn - 1; i__ >= 1; --i__) { in dgesvd_() 4079 dlascl_("G", &c__0, &c__0, &bignum, &anrm, &minmn, &c__1, &s[1], & in dgesvd_() 4080 minmn, &ierr, (ftnlen)1); in dgesvd_() 4083 i__2 = minmn - 1; in dgesvd_() 4085 &minmn, &ierr, (ftnlen)1); in dgesvd_() 4089 minmn, &ierr, (ftnlen)1); in dgesvd_() 4092 i__2 = minmn - 1; in dgesvd_() [all …]
|
H A D | sgesvd.c | 44 static integer minmn, wrkbl, itaup, itauq, mnthr, iwork; in sgesvd_() local 238 minmn = min(*m,*n); in sgesvd_() 4058 i__2 = minmn - 1; in sgesvd_() 4065 for (i__ = minmn - 1; i__ >= 1; --i__) { in sgesvd_() 4076 slascl_("G", &c__0, &c__0, &bignum, &anrm, &minmn, &c__1, &s[1], & in sgesvd_() 4077 minmn, &ierr, (ftnlen)1); in sgesvd_() 4080 i__2 = minmn - 1; in sgesvd_() 4082 &minmn, &ierr, (ftnlen)1); in sgesvd_() 4086 minmn, &ierr, (ftnlen)1); in sgesvd_() 4089 i__2 = minmn - 1; in sgesvd_() [all …]
|
H A D | zgesvd.c | 43 static integer chunk, minmn; in zgesvd_() local 257 minmn = min(*m,*n); in zgesvd_() 289 } else if (*ldvt < 1 || wntva && *ldvt < *n || wntvs && *ldvt < minmn) { in zgesvd_() 4232 dlascl_("G", &c__0, &c__0, &bignum, &anrm, &minmn, &c__1, &s[1], & in zgesvd_() 4233 minmn, &ierr, (ftnlen)1); in zgesvd_() 4236 i__2 = minmn - 1; in zgesvd_() 4238 ie], &minmn, &ierr, (ftnlen)1); in zgesvd_() 4241 dlascl_("G", &c__0, &c__0, &smlnum, &anrm, &minmn, &c__1, &s[1], & in zgesvd_() 4242 minmn, &ierr, (ftnlen)1); in zgesvd_() 4245 i__2 = minmn - 1; in zgesvd_() [all …]
|
H A D | cgesvd.c | 45 static integer chunk, minmn, wrkbl, itaup, itauq, mnthr, iwork; in cgesvd_() local 249 minmn = min(*m,*n); in cgesvd_() 281 } else if (*ldvt < 1 || wntva && *ldvt < *n || wntvs && *ldvt < minmn) { in cgesvd_() 4224 slascl_("G", &c__0, &c__0, &bignum, &anrm, &minmn, &c__1, &s[1], & in cgesvd_() 4225 minmn, &ierr, (ftnlen)1); in cgesvd_() 4228 i__2 = minmn - 1; in cgesvd_() 4230 ie], &minmn, &ierr, (ftnlen)1); in cgesvd_() 4233 slascl_("G", &c__0, &c__0, &smlnum, &anrm, &minmn, &c__1, &s[1], & in cgesvd_() 4234 minmn, &ierr, (ftnlen)1); in cgesvd_() 4237 i__2 = minmn - 1; in cgesvd_() [all …]
|
/dports/science/hypre/hypre-2.23.0/src/lapack/ |
H A D | dgesvd.c | 48 static integer chunk, minmn, wrkbl, itaup, itauq, mnthr, iwork; in dgesvd_() local 236 minmn = min(*m,*n); in dgesvd_() 4038 i__2 = minmn - 1; in dgesvd_() 4045 for (i__ = minmn - 1; i__ >= 1; --i__) { in dgesvd_() 4056 dlascl_("G", &c__0, &c__0, &bignum, &anrm, &minmn, &c__1, &s[1], & in dgesvd_() 4057 minmn, &ierr); in dgesvd_() 4060 i__2 = minmn - 1; in dgesvd_() 4062 &minmn, &ierr); in dgesvd_() 4066 minmn, &ierr); in dgesvd_() 4069 i__2 = minmn - 1; in dgesvd_() [all …]
|
/dports/misc/visp/visp-3.4.0/modules/vision/src/pose-estimation/ |
H A D | vpLevenbergMarquartd.cpp | 544 int i, j, ip1, k, kmax, minmn; in qrfac() local 568 minmn = vpMath::minimum(m, n); in qrfac() 569 for (i = 0; i < minmn; i++) { in qrfac()
|
/dports/science/opensim-core/opensim-core-4.1/OpenSim/Utilities/simmToOpenSim/ |
H A D | lmdif_c.c | 1123 int minmn; in qrfac() local 1153 minmn = min0(m,n); in qrfac() 1154 for (j=0; j<minmn; j++) in qrfac()
|
/dports/cad/gmsh/gmsh-4.9.2-source/contrib/ALGLIB/ |
H A D | linalg.cpp | 9724 ae_int_t minmn; in rmatrixqr() local 9880 ae_int_t minmn; in rmatrixlq() local 10021 ae_int_t minmn; in cmatrixqr() local 10163 ae_int_t minmn; in cmatrixlq() local 10306 ae_int_t minmn; in rmatrixqrunpackq() local 10504 ae_int_t minmn; in rmatrixlqunpackq() local 10702 ae_int_t minmn; in cmatrixqrunpackq() local 10903 ae_int_t minmn; in cmatrixlqunpackq() local 12708 k = minmn; in ortfac_rmatrixqrbasecase() 12807 if( minmn<=0 ) in ortfac_cmatrixqrbasecase() [all …]
|
/dports/math/gambit/gambit-16.0.1/src/labenski/src/ |
H A D | lm_lsqr.cpp | 1336 int i,ij,jj,j,jp1,k,kmax,minmn; in qrfac() local 1360 minmn = min0(m,n); in qrfac() 1361 for( j=0; j<minmn; j++ ) in qrfac()
|
/dports/math/grace/grace-5.1.25/src/ |
H A D | lmdif.c | 1346 static integer minmn; in qrfac_() local 1455 minmn = min(*m,*n); in qrfac_() 1456 i__1 = minmn; in qrfac_()
|
/dports/math/maxima/maxima-5.43.2/share/lapack/lapack/ |
H A D | dgesdd.lisp | 42 (ldwrku 0) (maxwrk 0) (minmn 0) (minwrk 0) (mnthr 0) (nwork 0) 50 ldwrkl ldwrkr ldwrku maxwrk minmn 54 (setf minmn (min (the f2cl-lib:integer4 m) (the f2cl-lib:integer4 n))) 55 (setf mnthr (f2cl-lib:int (/ (* minmn 11.0) 6.0))) 77 (and wntqs (< ldvt minmn)) 2839 (dlascl "G" 0 0 bignum anrm minmn 1 s minmn ierr) 2847 (dlascl "G" 0 0 smlnum anrm minmn 1 s minmn ierr)
|
H A D | dgesvd.lisp | 39 (iu 0) (iwork 0) (ldwrkr 0) (ldwrku 0) (maxwrk 0) (minmn 0) 48 ldwrku maxwrk minmn minwrk mnthr ncu 53 (setf minmn (min (the f2cl-lib:integer4 m) (the f2cl-lib:integer4 n))) 80 ((or (< ldvt 1) (and wntva (< ldvt n)) (and wntvs (< ldvt minmn))) 7390 (f2cl-lib:fdo (i (f2cl-lib:int-add minmn (f2cl-lib:int-sub 1)) 7411 (dlascl "G" 0 0 bignum anrm minmn 1 s minmn ierr) 7419 (dlascl "G" 0 0 bignum anrm (f2cl-lib:int-sub minmn 1) 1 7425 minmn ierr) 7433 (dlascl "G" 0 0 smlnum anrm minmn 1 s minmn ierr) 7441 (dlascl "G" 0 0 smlnum anrm (f2cl-lib:int-sub minmn 1) 1 [all …]
|
/dports/science/PETSc/petsc-3.14.1/src/dm/dt/fv/interface/ |
H A D | fv.c | 2234 PetscInt dim,m,n,nrhs,minmn,maxmn; in PetscFVLeastSquaresSetMaxFaces_LS() local 2245 minmn = PetscMin(m,n); in PetscFVLeastSquaresSetMaxFaces_LS() 2247 ls->workSize = 3*minmn + PetscMax(2*minmn, PetscMax(maxmn, nrhs)); /* required by LAPACK */ in PetscFVLeastSquaresSetMaxFaces_LS() 2248 …ierr = PetscMalloc4(m*n,&ls->B,maxmn*maxmn,&ls->Binv,minmn,&ls->tau,ls->workSize,&ls->work);CHKERR… in PetscFVLeastSquaresSetMaxFaces_LS()
|
/dports/math/asymptote/asymptote-2.67/base/ |
H A D | lmfit.asy | 279 int i, j, k, kmax, minmn; 291 minmn = min(m, n); 292 for (j = 0; j < minmn; ++j) {
|
/dports/print/texlive-base/texlive-20150521-source/utils/asymptote/base/ |
H A D | lmfit.asy | 279 int i, j, k, kmax, minmn; 291 minmn = min(m, n); 292 for (j = 0; j < minmn; ++j) {
|
/dports/astro/qmapshack/qmapshack-V_1.16.1/3rdparty/alglib/src/ |
H A D | linalg.cpp | 12981 ae_int_t minmn; in sparsecreatesksbuf() local 13114 ae_int_t minmn; in sparsecreatesksbandbuf() local 33995 ae_int_t minmn; in rmatrixqr() local 34172 ae_int_t minmn; in rmatrixlq() local 34334 ae_int_t minmn; in cmatrixqr() local 34497 ae_int_t minmn; in cmatrixlq() local 34661 ae_int_t minmn; in rmatrixqrunpackq() local 34883 ae_int_t minmn; in rmatrixlqunpackq() local 35537 k = minmn; in rmatrixqrbasecase() 37486 if( minmn<=0 ) in ortfac_cmatrixqrbasecase() [all …]
|
/dports/math/alglib/alglib-cpp/src/ |
H A D | linalg.cpp | 19132 ae_int_t minmn; in rmatrixqr() local 19320 ae_int_t minmn; in rmatrixlq() local 19493 ae_int_t minmn; in cmatrixqr() local 19667 ae_int_t minmn; in cmatrixlq() local 19842 ae_int_t minmn; in rmatrixqrunpackq() local 20075 ae_int_t minmn; in rmatrixlqunpackq() local 20308 ae_int_t minmn; in cmatrixqrunpackq() local 20544 ae_int_t minmn; in cmatrixlqunpackq() local 20751 k = minmn; in rmatrixqrbasecase() 22700 if( minmn<=0 ) in ortfac_cmatrixqrbasecase() [all …]
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/EPW/src/ |
H A D | pw2wan2epw.f90 | 1246 INTEGER :: minmn local 1356 minmn = MIN(numbands, 2 * nrtot) 1364 ALLOCATE(qr_tau(2 * minmn), STAT = ierr) 1372 minmn = MIN(numbands, nrtot) 1376 ALLOCATE(qr_tau(2 * minmn), STAT = ierr)
|