Home
last modified time | relevance | path

Searched refs:log_prefac (Results 1 – 6 of 6) sorted by relevance

/dports/science/nwchem-data/nwchem-7.0.2-release/src/NWints/ecp/
H A Decp_skipint.F48 double precision log_prefac,pr,pre,pref,sum
58 log_prefac = zero
113 log_prefac = pref
116 log_prefac = max(log_prefac, pref)
121 log_prefac = log_prefac + log(dble(n_prim_a*n_prim_b))
122 ecp_skipint = log_prefac .lt. ln_thr_ecp
H A Decp_local2_k.F16 double precision rsq,ab_in,log_prefac
47 log_prefac = alp(i)**2-ab(j)*rpc(j)**2
50 if (log_prefac.gt.ln_thr_ecp)
51 & pre(i) = exp(log_prefac)
H A Decp_local2.F87 & tol,log_prefac,ab,fourpi
246 log_prefac = tmp(i_alp+i)**2-tmp(i_ab+j)*tmp(i_rpc+j)**2
249 if (log_prefac.gt.ln_thr_ecp)
250 & tmp(i_pre+i) = exp(log_prefac)
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/NWints/ecp/
H A Decp_skipint.F48 double precision log_prefac,pr,pre,pref,sum local
58 log_prefac = zero
113 log_prefac = pref
116 log_prefac = max(log_prefac, pref)
121 log_prefac = log_prefac + log(dble(n_prim_a*n_prim_b))
122 ecp_skipint = log_prefac .lt. ln_thr_ecp
H A Decp_local2_k.F16 double precision rsq,ab_in,log_prefac
47 log_prefac = alp(i)**2-ab(j)*rpc(j)**2
50 if (log_prefac.gt.ln_thr_ecp)
51 & pre(i) = exp(log_prefac)
H A Decp_local2.F87 & tol,log_prefac,ab,fourpi local
246 log_prefac = tmp(i_alp+i)**2-tmp(i_ab+j)*tmp(i_rpc+j)**2
249 if (log_prefac.gt.ln_thr_ecp)
250 & tmp(i_pre+i) = exp(log_prefac)