| /dports/science/nwchem-data/nwchem-7.0.2-release/src/NWints/ecp/ |
| H A D | ecp_local1.F | 74 & i_Qabc,i_gam,i_alp,i_pre,i_tmp,i_wrk,k,l,l_c,l_c_min,
175 i_alp = i_gam+n_abc
176 i_pre = i_alp+n_abc
179 & i_ai,i_gam,i_alp,i_pre
192 tmp(i_alp+i) = R_ac*zeta_a(i_a)*tmp(i_gam+i)
194 log_prefactor = tmp(i_alp+i)**2-zeta_a(i_a)*R_ac**2
245 write (LuOut,*) i_Q_int,i_Qa,i_Qabc,i_ai,i_gam,i_alp,i_pre,
261 & tmp(i_ai),tmp(i_gam),tmp(i_alp),tmp(i_pre),tol,sphcart,
|
| H A D | ecp_local2.F | 73 & i_Q_int,i_Qa,i_Qabc,i_Qp,i_gam,i_alp,i_pre,i_tmp,
165 i_alp = i_gam+n_abc
166 i_pre = i_alp+n_abc
189 & i_ai,i_gam,i_alp,i_pre,i_tmp,i_ind
208 b tmp(i_prod),tmp(i_gam),tmp(i_alp),tmp(i_ai),
240 tmp(i_alp+i) = tmp(i_rpc+j)*tmp(i_ab+j)*tmp(i_gam+i)
246 log_prefac = tmp(i_alp+i)**2-tmp(i_ab+j)*tmp(i_rpc+j)**2
258 call ecp_matpr(tmp(i_alp),1,n_ab,1,n_coef_c,
271 & n_prim_c,coef_c,tmp(i_ai),tmp(i_gam),tmp(i_alp),tmp(i_pre),
|
| H A D | ecp_int1.F | 86 & i_Qabc,i_gam,i_alp,i_pre,i_tmp,i_wrk,i_coef,k,l,l_c,l_c_min,
256 i_alp = i_gam+n_abc
257 i_pre = i_alp+n_abc
266 write (LuOut,*) i_Q_int,i_Qa,i_Qabc,i_ai,i_gam,i_alp,i_pre,
290 tmp(i_alp+i) = R_ac*zeta_a(i_a)*tmp(i_gam+i)
292 log_prefactor = tmp(i_alp+i)**2-zeta_a(i_a)*R_ac**2
295 & tmp(i_alp+i),tmp(i_ai+i),tmp(i_pre+i)
311 & tmp(i_coef),tmp(i_ai),tmp(i_gam),tmp(i_alp),tmp(i_pre),
|
| H A D | ecp_int2.F | 80 & i_off,i_Q_int,i_Qh,i_Q,i_Qabc,i_gam,i_bet,i_alp,i_pre,i_tmp,
285 i_alp = i_bet+n_abc
286 i_pre = i_alp+n_abc
293 & i_bi,i_gam,i_bet,i_alp,i_pre,i_free
310 B tmp(i_bet),tmp(i_alp),tmp(i_bi),tmp(i_ai),
323 tmp(i_alp+i) = R_ac*zeta_a(i_a)*tmp(i_gam+i)
326 log_prefactor = (tmp(i_alp+i)+tmp(i_bet+i))**2
334 write (LuOut,'(10x,i5,1p3e20.10)') i,tmp(i_alp+i),
362 & tmp(i_alp),
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/NWints/ecp/ |
| H A D | ecp_local1.F | 74 & i_Qabc,i_gam,i_alp,i_pre,i_tmp,i_wrk,k,l,l_c,l_c_min, local
175 i_alp = i_gam+n_abc
176 i_pre = i_alp+n_abc
179 & i_ai,i_gam,i_alp,i_pre
192 tmp(i_alp+i) = R_ac*zeta_a(i_a)*tmp(i_gam+i)
194 log_prefactor = tmp(i_alp+i)**2-zeta_a(i_a)*R_ac**2
245 write (LuOut,*) i_Q_int,i_Qa,i_Qabc,i_ai,i_gam,i_alp,i_pre,
261 & tmp(i_ai),tmp(i_gam),tmp(i_alp),tmp(i_pre),tol,sphcart,
|
| H A D | ecp_local2.F | 73 & i_Q_int,i_Qa,i_Qabc,i_Qp,i_gam,i_alp,i_pre,i_tmp, local
165 i_alp = i_gam+n_abc
166 i_pre = i_alp+n_abc
189 & i_ai,i_gam,i_alp,i_pre,i_tmp,i_ind
208 b tmp(i_prod),tmp(i_gam),tmp(i_alp),tmp(i_ai),
240 tmp(i_alp+i) = tmp(i_rpc+j)*tmp(i_ab+j)*tmp(i_gam+i)
246 log_prefac = tmp(i_alp+i)**2-tmp(i_ab+j)*tmp(i_rpc+j)**2
258 call ecp_matpr(tmp(i_alp),1,n_ab,1,n_coef_c,
271 & n_prim_c,coef_c,tmp(i_ai),tmp(i_gam),tmp(i_alp),tmp(i_pre),
|
| H A D | ecp_int1.F | 86 & i_Qabc,i_gam,i_alp,i_pre,i_tmp,i_wrk,i_coef,k,l,l_c,l_c_min, local
256 i_alp = i_gam+n_abc
257 i_pre = i_alp+n_abc
266 write (LuOut,*) i_Q_int,i_Qa,i_Qabc,i_ai,i_gam,i_alp,i_pre,
290 tmp(i_alp+i) = R_ac*zeta_a(i_a)*tmp(i_gam+i)
292 log_prefactor = tmp(i_alp+i)**2-zeta_a(i_a)*R_ac**2
295 & tmp(i_alp+i),tmp(i_ai+i),tmp(i_pre+i)
311 & tmp(i_coef),tmp(i_ai),tmp(i_gam),tmp(i_alp),tmp(i_pre),
|
| H A D | ecp_int2.F | 80 & i_off,i_Q_int,i_Qh,i_Q,i_Qabc,i_gam,i_bet,i_alp,i_pre,i_tmp, local
285 i_alp = i_bet+n_abc
286 i_pre = i_alp+n_abc
293 & i_bi,i_gam,i_bet,i_alp,i_pre,i_free
310 B tmp(i_bet),tmp(i_alp),tmp(i_bi),tmp(i_ai),
323 tmp(i_alp+i) = R_ac*zeta_a(i_a)*tmp(i_gam+i)
326 log_prefactor = (tmp(i_alp+i)+tmp(i_bet+i))**2
334 write (LuOut,'(10x,i5,1p3e20.10)') i,tmp(i_alp+i),
362 & tmp(i_alp),
|