/dports/math/spooles-mpich/spooles.2.2/InpMtx/src/ |
H A D | gmvm.c | 80 double rfac ; in InpMtx_nonsym_gmvm() local 83 rfac = alpha[0] ; in InpMtx_nonsym_gmvm() 85 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmvm() 97 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmvm() 109 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmvm() 310 double rfac ; in InpMtx_nonsym_gmvm_T() local 313 rfac = alpha[0] ; in InpMtx_nonsym_gmvm_T() 315 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmvm_T() 327 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmvm_T() 725 double rfac ; in InpMtx_sym_gmvm() local [all …]
|
H A D | mvmVector.c | 58 double rfac ; in InpMtx_nonsym_mmmVector() local 61 rfac = alpha[0] ; in InpMtx_nonsym_mmmVector() 63 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmmVector() 75 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmmVector() 87 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmmVector() 270 double rfac ; in InpMtx_nonsym_mmmVector_T() local 273 rfac = alpha[0] ; in InpMtx_nonsym_mmmVector_T() 275 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmmVector_T() 287 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmmVector_T() 640 double rfac ; in InpMtx_sym_mmmVector() local [all …]
|
H A D | gmmm.c | 78 double rfac ; in InpMtx_nonsym_gmmm() local 81 rfac = alpha[0] ; in InpMtx_nonsym_gmmm() 83 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmmm() 101 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmmm() 119 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmmm() 350 double rfac ; in InpMtx_nonsym_gmmm_T() local 353 rfac = alpha[0] ; in InpMtx_nonsym_gmmm_T() 355 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmmm_T() 373 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmmm_T() 831 double rfac ; in InpMtx_sym_gmmm() local [all …]
|
H A D | mvm.c | 102 double rfac ; in InpMtx_nonsym_mmm() local 105 rfac = alpha[0] ; in InpMtx_nonsym_mmm() 107 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmm() 125 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmm() 143 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmm() 403 double rfac ; in InpMtx_nonsym_mmm_T() local 406 rfac = alpha[0] ; in InpMtx_nonsym_mmm_T() 408 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmm_T() 426 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmm_T() 923 double rfac ; in InpMtx_sym_mmm() local [all …]
|
/dports/math/spooles-mpich/spooles.2.2_SHARED/InpMtx/src/ |
H A D | mvmVector.c | 58 double rfac ; in InpMtx_nonsym_mmmVector() local 61 rfac = alpha[0] ; in InpMtx_nonsym_mmmVector() 63 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmmVector() 75 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmmVector() 87 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmmVector() 270 double rfac ; in InpMtx_nonsym_mmmVector_T() local 273 rfac = alpha[0] ; in InpMtx_nonsym_mmmVector_T() 275 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmmVector_T() 287 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmmVector_T() 640 double rfac ; in InpMtx_sym_mmmVector() local [all …]
|
H A D | gmvm.c | 80 double rfac ; in InpMtx_nonsym_gmvm() local 83 rfac = alpha[0] ; in InpMtx_nonsym_gmvm() 85 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmvm() 97 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmvm() 109 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmvm() 310 double rfac ; in InpMtx_nonsym_gmvm_T() local 313 rfac = alpha[0] ; in InpMtx_nonsym_gmvm_T() 315 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmvm_T() 327 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmvm_T() 725 double rfac ; in InpMtx_sym_gmvm() local [all …]
|
H A D | gmmm.c | 78 double rfac ; in InpMtx_nonsym_gmmm() local 81 rfac = alpha[0] ; in InpMtx_nonsym_gmmm() 83 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmmm() 101 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmmm() 119 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmmm() 350 double rfac ; in InpMtx_nonsym_gmmm_T() local 353 rfac = alpha[0] ; in InpMtx_nonsym_gmmm_T() 355 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmmm_T() 373 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmmm_T() 831 double rfac ; in InpMtx_sym_gmmm() local [all …]
|
H A D | mvm.c | 102 double rfac ; in InpMtx_nonsym_mmm() local 105 rfac = alpha[0] ; in InpMtx_nonsym_mmm() 107 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmm() 125 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmm() 143 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmm() 403 double rfac ; in InpMtx_nonsym_mmm_T() local 406 rfac = alpha[0] ; in InpMtx_nonsym_mmm_T() 408 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmm_T() 426 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmm_T() 923 double rfac ; in InpMtx_sym_mmm() local [all …]
|
/dports/math/spooles/spooles.2.2_SHARED/InpMtx/src/ |
H A D | gmvm.c | 80 double rfac ; in InpMtx_nonsym_gmvm() local 83 rfac = alpha[0] ; in InpMtx_nonsym_gmvm() 85 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmvm() 97 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmvm() 109 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmvm() 310 double rfac ; in InpMtx_nonsym_gmvm_T() local 313 rfac = alpha[0] ; in InpMtx_nonsym_gmvm_T() 315 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmvm_T() 327 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmvm_T() 725 double rfac ; in InpMtx_sym_gmvm() local [all …]
|
H A D | mvmVector.c | 58 double rfac ; in InpMtx_nonsym_mmmVector() local 61 rfac = alpha[0] ; in InpMtx_nonsym_mmmVector() 63 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmmVector() 75 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmmVector() 87 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmmVector() 270 double rfac ; in InpMtx_nonsym_mmmVector_T() local 273 rfac = alpha[0] ; in InpMtx_nonsym_mmmVector_T() 275 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmmVector_T() 287 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmmVector_T() 640 double rfac ; in InpMtx_sym_mmmVector() local [all …]
|
H A D | gmmm.c | 78 double rfac ; in InpMtx_nonsym_gmmm() local 81 rfac = alpha[0] ; in InpMtx_nonsym_gmmm() 83 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmmm() 101 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmmm() 119 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmmm() 350 double rfac ; in InpMtx_nonsym_gmmm_T() local 353 rfac = alpha[0] ; in InpMtx_nonsym_gmmm_T() 355 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmmm_T() 373 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmmm_T() 831 double rfac ; in InpMtx_sym_gmmm() local [all …]
|
H A D | mvm.c | 102 double rfac ; in InpMtx_nonsym_mmm() local 105 rfac = alpha[0] ; in InpMtx_nonsym_mmm() 107 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmm() 125 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmm() 143 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmm() 403 double rfac ; in InpMtx_nonsym_mmm_T() local 406 rfac = alpha[0] ; in InpMtx_nonsym_mmm_T() 408 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmm_T() 426 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmm_T() 923 double rfac ; in InpMtx_sym_mmm() local [all …]
|
/dports/math/spooles/spooles.2.2/InpMtx/src/ |
H A D | mvmVector.c | 58 double rfac ; in InpMtx_nonsym_mmmVector() local 61 rfac = alpha[0] ; in InpMtx_nonsym_mmmVector() 63 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmmVector() 75 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmmVector() 87 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmmVector() 270 double rfac ; in InpMtx_nonsym_mmmVector_T() local 273 rfac = alpha[0] ; in InpMtx_nonsym_mmmVector_T() 275 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmmVector_T() 287 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmmVector_T() 640 double rfac ; in InpMtx_sym_mmmVector() local [all …]
|
H A D | gmvm.c | 80 double rfac ; in InpMtx_nonsym_gmvm() local 83 rfac = alpha[0] ; in InpMtx_nonsym_gmvm() 85 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmvm() 97 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmvm() 109 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmvm() 310 double rfac ; in InpMtx_nonsym_gmvm_T() local 313 rfac = alpha[0] ; in InpMtx_nonsym_gmvm_T() 315 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmvm_T() 327 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmvm_T() 725 double rfac ; in InpMtx_sym_gmvm() local [all …]
|
H A D | gmmm.c | 78 double rfac ; in InpMtx_nonsym_gmmm() local 81 rfac = alpha[0] ; in InpMtx_nonsym_gmmm() 83 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmmm() 101 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmmm() 119 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmmm() 350 double rfac ; in InpMtx_nonsym_gmmm_T() local 353 rfac = alpha[0] ; in InpMtx_nonsym_gmmm_T() 355 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmmm_T() 373 if ( rfac == 1.0 ) { in InpMtx_nonsym_gmmm_T() 831 double rfac ; in InpMtx_sym_gmmm() local [all …]
|
H A D | mvm.c | 102 double rfac ; in InpMtx_nonsym_mmm() local 105 rfac = alpha[0] ; in InpMtx_nonsym_mmm() 107 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmm() 125 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmm() 143 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmm() 403 double rfac ; in InpMtx_nonsym_mmm_T() local 406 rfac = alpha[0] ; in InpMtx_nonsym_mmm_T() 408 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmm_T() 426 if ( rfac == 1.0 ) { in InpMtx_nonsym_mmm_T() 923 double rfac ; in InpMtx_sym_mmm() local [all …]
|
/dports/biology/molden/molden5.8/ |
H A D | plmolp.f | 106 if (rfac.lt.0.0d0) rfac = 0.d0 235 if (rfac.lt.0.0d0) rfac = 0.d0 300 if (rfac.lt.0.0d0) rfac = 0.d0 421 if (rfac.lt.0.0d0) rfac = 0.d0 422 if (rfac.gt.1.0d0) rfac = 1.d0 482 if (rfac.lt.0.0d0) rfac = 0.d0 483 if (rfac.gt.1.0d0) rfac = 1.d0 533 if (rfac.lt.0.0d0) rfac = 0.d0 599 if (rfac.lt.0.0d0) rfac = 0.d0 634 if (rfac.lt.0.0d0) rfac = 0.d0 [all …]
|
H A D | plmol.f | 98 if (rfac.lt.0.0d0) rfac = 0.d0 225 if (rfac.lt.0.0d0) rfac = 0.d0 378 if (rfac.lt.0.0d0) rfac = 0.d0 379 if (rfac.gt.1.0d0) rfac = 1.d0 439 if (rfac.lt.0.0d0) rfac = 0.d0 440 if (rfac.gt.1.0d0) rfac = 1.d0 490 if (rfac.lt.0.0d0) rfac = 0.d0 614 if (rfac.lt.0.0d0) rfac = 0.d0 650 if (rfac.lt.0.0d0) rfac = 0.d0 771 if (rfac.lt.0.0d0) rfac = 0.d0 [all …]
|
/dports/math/arpack-ng/arpack-ng-3.8.0/EXAMPLES/BAND/ |
H A D | dsband.f | 336 & n, ab, mb, lda, rfac, kl, ku, which, bmat, nev, 359 & ab(lda,*), mb(lda,*), rfac(lda,*), 459 call dlacpy ('A', ibot, n, ab, lda, rfac, lda ) 461 rfac(imid,j) = ab(imid,j) - sigma 463 call dgbtrf(n, n, kl, ku, rfac, lda, iwork, ierr ) 479 call dlacpy ('A', ibot, n, mb, lda, rfac, lda ) 480 call dgbtrf(n, n, kl, ku, rfac, lda, iwork, ierr) 502 rfac(i,j) = ab(i,j) - sigma*mb(i,j) 506 call dgbtrf(n, n, kl, ku, rfac, lda, iwork, ierr) 611 call dgbtrs('Notranspose', n, kl, ku, 1, rfac, lda, [all …]
|
H A D | ssband.f | 336 & n, ab, mb, lda, rfac, kl, ku, which, bmat, nev, 359 & ab(lda,*), mb(lda,*), rfac(lda,*), 459 call slacpy ('A', ibot, n, ab, lda, rfac, lda ) 461 rfac(imid,j) = ab(imid,j) - sigma 463 call sgbtrf(n, n, kl, ku, rfac, lda, iwork, ierr ) 479 call slacpy ('A', ibot, n, mb, lda, rfac, lda ) 480 call sgbtrf(n, n, kl, ku, rfac, lda, iwork, ierr) 502 rfac(i,j) = ab(i,j) - sigma*mb(i,j) 506 call sgbtrf(n, n, kl, ku, rfac, lda, iwork, ierr) 611 call sgbtrs('Notranspose', n, kl, ku, 1, rfac, lda, [all …]
|
H A D | dnband.f | 413 & ab(lda,*), mb(lda,*), rfac(lda,*), 555 call dlacpy ('A', ibot, n, ab, lda, rfac, lda ) 557 rfac(imid,j) = ab(imid,j) - sigmar 559 call dgbtrf(n, n, kl, ku, rfac, lda, iwork, ierr ) 603 call dlacpy ('A', ibot, n, mb, lda, rfac, lda ) 604 call dgbtrf(n, n, kl, ku, rfac, lda, iwork, ierr) 628 rfac(i,j) = ab(i,j) - sigmar*mb(i,j) 632 call dgbtrf(n, n, kl, ku, rfac, lda, iwork, ierr) 700 call dgbtrs ('Notranspose', n, kl, ku, 1, rfac, lda, 749 call dgbtrs ('Notranspose', n, kl, ku, 1, rfac, lda, [all …]
|
H A D | snband.f | 413 & ab(lda,*), mb(lda,*), rfac(lda,*), 555 call slacpy ('A', ibot, n, ab, lda, rfac, lda ) 557 rfac(imid,j) = ab(imid,j) - sigmar 559 call sgbtrf(n, n, kl, ku, rfac, lda, iwork, ierr ) 603 call slacpy ('A', ibot, n, mb, lda, rfac, lda ) 604 call sgbtrf(n, n, kl, ku, rfac, lda, iwork, ierr) 628 rfac(i,j) = ab(i,j) - sigmar*mb(i,j) 632 call sgbtrf(n, n, kl, ku, rfac, lda, iwork, ierr) 700 call sgbtrs ('Notranspose', n, kl, ku, 1, rfac, lda, 749 call sgbtrs ('Notranspose', n, kl, ku, 1, rfac, lda, [all …]
|
/dports/math/e-antic/e-antic-1.0.0-rc.13/libeantic/upstream/antic/nmod_poly/ |
H A D | exp_series_monomial_ui.c | 23 mp_limb_t rfac; in _nmod_poly_exp_series_monomial_ui() local 27 rfac = n_factorial_mod2_preinv(r, mod.n, mod.ninv); in _nmod_poly_exp_series_monomial_ui() 28 rfac = n_invmod(rfac, mod.n); in _nmod_poly_exp_series_monomial_ui() 37 a = rfac; in _nmod_poly_exp_series_monomial_ui() 53 a = rfac; in _nmod_poly_exp_series_monomial_ui()
|
/dports/math/e-antic/flint2-ae7ec89/nmod_poly/ |
H A D | exp_series_monomial_ui.c | 23 mp_limb_t rfac; in _nmod_poly_exp_series_monomial_ui() local 27 rfac = n_factorial_mod2_preinv(r, mod.n, mod.ninv); in _nmod_poly_exp_series_monomial_ui() 28 rfac = n_invmod(rfac, mod.n); in _nmod_poly_exp_series_monomial_ui() 37 a = rfac; in _nmod_poly_exp_series_monomial_ui() 53 a = rfac; in _nmod_poly_exp_series_monomial_ui()
|
/dports/math/flint2/flint-2.8.4/nmod_poly/ |
H A D | exp_series_monomial_ui.c | 23 mp_limb_t rfac; in _nmod_poly_exp_series_monomial_ui() local 27 rfac = n_factorial_mod2_preinv(r, mod.n, mod.ninv); in _nmod_poly_exp_series_monomial_ui() 28 rfac = n_invmod(rfac, mod.n); in _nmod_poly_exp_series_monomial_ui() 37 a = rfac; in _nmod_poly_exp_series_monomial_ui() 53 a = rfac; in _nmod_poly_exp_series_monomial_ui()
|