Home
last modified time | relevance | path

Searched refs:rfac (Results 1 – 25 of 119) sorted by relevance

12345

/dports/math/spooles-mpich/spooles.2.2/InpMtx/src/
H A Dgmvm.c80 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 DmvmVector.c58 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 Dgmmm.c78 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 Dmvm.c102 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 DmvmVector.c58 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 Dgmvm.c80 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 Dgmmm.c78 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 Dmvm.c102 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 Dgmvm.c80 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 DmvmVector.c58 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 Dgmmm.c78 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 Dmvm.c102 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 DmvmVector.c58 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 Dgmvm.c80 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 Dgmmm.c78 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 Dmvm.c102 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 Dplmolp.f106 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 Dplmol.f98 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 Ddsband.f336 & 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 Dssband.f336 & 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 Ddnband.f413 & 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 Dsnband.f413 & 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 Dexp_series_monomial_ui.c23 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 Dexp_series_monomial_ui.c23 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 Dexp_series_monomial_ui.c23 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()

12345