Home
last modified time | relevance | path

Searched refs:n_all_b (Results 1 – 25 of 42) sorted by relevance

12

/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/NWints/rel/
H A Drel_onel.F79 integer n_all_b ! n_cart_b*n_cont_b local
142 n_all_b = n_cart_b*n_cont_b
153 write (LuOut,*) 'n_all_b',n_all_b
187 if (doS) call ecp_matpr(S,1,n_all_b,1,n_all_a,
188 & 1,n_all_b,1,n_all_a,'LL overlap','E',120,6)
189 if (doT) call ecp_matpr(T,1,n_all_b,1,n_all_a,
190 & 1,n_all_b,1,n_all_a,'LL kinetic','E',120,6)
191 if (doV) call ecp_matpr(V,1,n_all_b,1,n_all_a,
192 & 1,n_all_b,1,n_all_a,'LL potential','E',120,6)
219 call ecp_matpr (T,1,n_all_b,1,n_all_a,
[all …]
H A Drel_pot.F147 if (debug_arrays) call ecp_matpr (scr(i_scr),1,n_all_b,
148 & 1,n_all_a*9,1,n_all_b,1,n_all_a*9,'Gradients','E',120,6)
169 if (debug_arrays) call ecp_matpr (Vrel,1,n_all_b,1,n_all_a,
170 & 1,n_all_b,1,n_all_a,'Scalar integrals','E',78,4)
184 & 1,n_all_b,1,n_all_a,1,n_all_b,1,n_all_a,
187 & 1,n_all_b,1,n_all_a,1,n_all_b,1,n_all_a,
190 & 1,n_all_b,1,n_all_a,1,n_all_b,1,n_all_a,
H A Drel_oneld.F84 integer n_all_b ! n_cart_b*n_cont_b local
156 n_all_b = n_cart_b*n_cont_b
169 write (LuOut,*) 'n_all_b',n_all_b
207 if (doS) call ecp_matpr(S(i),1,n_all_b,1,n_all_a,
208 & 1,n_all_b,1,n_all_a,'LL overlap','E',120,6)
210 & 1,n_all_b,1,n_all_a,'LL kinetic','E',120,6)
246 call ecp_matpr(T(i),1,n_all_b,1,n_all_a,
270 call ecp_matpr(scr(i),1,n_all_b,1,n_all_a,
285 call ecp_matpr(T(i),1,n_all_b,1,n_all_a,
317 call ecp_matpr(scr(i),1,n_all_b,1,n_all_a,
[all …]
H A Drel_pot2.F140 if (debug_arrays) call ecp_matpr (Vrel,1,n_all_b,1,n_all_a,
141 & 1,n_all_b,1,n_all_a,'Scalar integrals','E',78,4)
155 & 1,n_all_b,1,n_all_a,1,n_all_b,1,n_all_a,
158 & 1,n_all_b,1,n_all_a,1,n_all_b,1,n_all_a,
161 & 1,n_all_b,1,n_all_a,1,n_all_b,1,n_all_a,
H A Drel_oneld_cosmo.F77 integer n_all_b ! n_cart_b*n_cont_b local
151 n_all_b = n_cart_b*n_cont_b
164 write (LuOut,*) 'n_all_b',n_all_b
207 if (doV) call ecp_matpr(V(i,1),1,n_all_b,1,n_all_a,
208 & 1,n_all_b,1,n_all_a,'LL potential','E',120,6)
571 call ecp_matpr(scr(k),1,n_all_b,1,n_all_a,
572 & 1,n_all_b,1,n_all_a,'SS potential','E',120,6)
585 call ecp_matpr(scr(k),1,n_all_b,1,n_all_a,1,n_all_b,
H A Drel_pvp.F81 integer n_all_b ! n_cart_b*n_cont_b local
134 n_all_b = n_cart_b*n_cont_b
144 write (LuOut,*) 'n_all_b',n_all_b
280 call ecp_matpr (pVp,1,n_all_b,1,n_all_a,
281 & 1,n_all_b,1,n_all_a,'pV.p integrals','E',120,6)
H A Drel_SSLLd.F82 integer n_all_b ! n_cart_b*NCB local
131 n_all_b = n_cart_b*NCB
134 n_ab = n_all_a*n_all_b
147 write (LuOut,*) 'n_all_b',n_all_b
H A Drel_SSSSd.F84 integer n_all_b ! n_cart_b*NCB local
134 n_all_b = n_cart_b*NCB
137 n_ab = n_all_a*n_all_b
149 write (LuOut,*) 'n_all_b',n_all_b
H A Drel_LLSSd.F82 integer n_all_b ! n_cart_b*NCB local
131 n_all_b = n_cart_b*NCB
134 n_ab = n_all_a*n_all_b
148 write (LuOut,*) 'n_all_b',n_all_b
/dports/science/nwchem-data/nwchem-7.0.2-release/src/NWints/rel/
H A Drel_onel.F79 integer n_all_b ! n_cart_b*n_cont_b local
142 n_all_b = n_cart_b*n_cont_b
153 write (LuOut,*) 'n_all_b',n_all_b
187 if (doS) call ecp_matpr(S,1,n_all_b,1,n_all_a,
188 & 1,n_all_b,1,n_all_a,'LL overlap','E',120,6)
189 if (doT) call ecp_matpr(T,1,n_all_b,1,n_all_a,
190 & 1,n_all_b,1,n_all_a,'LL kinetic','E',120,6)
191 if (doV) call ecp_matpr(V,1,n_all_b,1,n_all_a,
192 & 1,n_all_b,1,n_all_a,'LL potential','E',120,6)
219 call ecp_matpr (T,1,n_all_b,1,n_all_a,
[all …]
H A Drel_pot.F147 if (debug_arrays) call ecp_matpr (scr(i_scr),1,n_all_b,
148 & 1,n_all_a*9,1,n_all_b,1,n_all_a*9,'Gradients','E',120,6)
169 if (debug_arrays) call ecp_matpr (Vrel,1,n_all_b,1,n_all_a,
170 & 1,n_all_b,1,n_all_a,'Scalar integrals','E',78,4)
184 & 1,n_all_b,1,n_all_a,1,n_all_b,1,n_all_a,
187 & 1,n_all_b,1,n_all_a,1,n_all_b,1,n_all_a,
190 & 1,n_all_b,1,n_all_a,1,n_all_b,1,n_all_a,
H A Drel_oneld.F84 integer n_all_b ! n_cart_b*n_cont_b local
156 n_all_b = n_cart_b*n_cont_b
169 write (LuOut,*) 'n_all_b',n_all_b
207 if (doS) call ecp_matpr(S(i),1,n_all_b,1,n_all_a,
208 & 1,n_all_b,1,n_all_a,'LL overlap','E',120,6)
210 & 1,n_all_b,1,n_all_a,'LL kinetic','E',120,6)
246 call ecp_matpr(T(i),1,n_all_b,1,n_all_a,
270 call ecp_matpr(scr(i),1,n_all_b,1,n_all_a,
285 call ecp_matpr(T(i),1,n_all_b,1,n_all_a,
317 call ecp_matpr(scr(i),1,n_all_b,1,n_all_a,
[all …]
H A Drel_pot2.F140 if (debug_arrays) call ecp_matpr (Vrel,1,n_all_b,1,n_all_a,
141 & 1,n_all_b,1,n_all_a,'Scalar integrals','E',78,4)
155 & 1,n_all_b,1,n_all_a,1,n_all_b,1,n_all_a,
158 & 1,n_all_b,1,n_all_a,1,n_all_b,1,n_all_a,
161 & 1,n_all_b,1,n_all_a,1,n_all_b,1,n_all_a,
H A Drel_oneld_cosmo.F77 integer n_all_b ! n_cart_b*n_cont_b local
151 n_all_b = n_cart_b*n_cont_b
164 write (LuOut,*) 'n_all_b',n_all_b
207 if (doV) call ecp_matpr(V(i,1),1,n_all_b,1,n_all_a,
208 & 1,n_all_b,1,n_all_a,'LL potential','E',120,6)
571 call ecp_matpr(scr(k),1,n_all_b,1,n_all_a,
572 & 1,n_all_b,1,n_all_a,'SS potential','E',120,6)
585 call ecp_matpr(scr(k),1,n_all_b,1,n_all_a,1,n_all_b,
H A Drel_pvp.F81 integer n_all_b ! n_cart_b*n_cont_b
134 n_all_b = n_cart_b*n_cont_b
144 write (LuOut,*) 'n_all_b',n_all_b
280 call ecp_matpr (pVp,1,n_all_b,1,n_all_a,
281 & 1,n_all_b,1,n_all_a,'pV.p integrals','E',120,6)
H A Drel_SSSSd.F84 integer n_all_b ! n_cart_b*NCB
134 n_all_b = n_cart_b*NCB
137 n_ab = n_all_a*n_all_b
149 write (LuOut,*) 'n_all_b',n_all_b
H A Drel_LLSS.F89 integer n_all_b ! n_cart_b*NCB
138 n_all_b = n_cart_b*NCB
141 n_ab = n_all_a*n_all_b
154 write (LuOut,*) 'n_all_b',n_all_b
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/NWints/ecp/
H A Decp_integral.F109 & max_type0,max_type1,max_type2,n_intt,n_all_a,n_all_b,
145 n_all_b = n_cart_b*n_cont_b
257 & call ecp_matpr (scr,1,n_all_b,1,n_all_a,1,n_all_b,
286 & call ecp_matpr (scr,1,n_all_b,1,n_all_a,1,n_all_b,
315 & call ecp_matpr (scr,1,n_all_b,1,n_all_a,1,n_all_b,
344 & call ecp_matpr (scr,1,n_all_b,1,n_all_a,1,n_all_b,
366 call ecp_matpr (scr(n),1,n_all_b,1,n_all_a,1,n_all_b,
385 call ecp_matpr (ecp_ints(n),1,n_all_b,1,n_all_a,
386 & 1,n_all_b,1,n_all_a,'Final ECP integrals','E',78,4)
H A Decp_local0.F67 integer n_all_a,n_all_b,n_ang local
92 n_all_b = n_cont_b*n_nb
183 & 1,n_all_b,1,n_all_a,1,n_all_b,1,n_all_a,
202 call ecp_matpr (ecp_ints,1,n_all_b,1,n_all_a,
203 & 1,n_all_b,1,n_all_a,'ECP integrals','E',78,4)
H A Decp_int0.F80 integer n_all_a,n_all_b,n_ang,n_x,n_pass local
105 n_all_b = n_cont_b*n_nb
274 & 1,n_all_b,1,n_all_a,1,n_all_b,1,n_all_a,
301 call ecp_matpr (ecp_ints(1,1,1,1,j),1,n_all_b,1,n_all_a,
302 & 1,n_all_b,1,n_all_a,'ECP integrals','E',78,4)
H A Decp_local2.F76 & n_na,n_all_a,n_bas_a,n_pbas_a,n_nb,n_all_b,n_bas_b,n_pbas_b, local
122 n_all_b = n_nb*(l_b+3)/3
125 & n_na,n_all_a,n_nb,n_all_b
176 i_x = max(i_ca+n_nc*n_all_c,i_cb+n_nb*n_all_b)
352 call ecp_cart_xpd (l_b,n_nb,n_all_b,X_BP,Y_BP,Z_BP,tmp(i_x),
355 & 1,n_n,1,n_all_b,1,n_nb,1,n_all_b,
/dports/science/nwchem-data/nwchem-7.0.2-release/src/NWints/ecp/
H A Decp_integral.F109 & max_type0,max_type1,max_type2,n_intt,n_all_a,n_all_b,
145 n_all_b = n_cart_b*n_cont_b
257 & call ecp_matpr (scr,1,n_all_b,1,n_all_a,1,n_all_b,
286 & call ecp_matpr (scr,1,n_all_b,1,n_all_a,1,n_all_b,
315 & call ecp_matpr (scr,1,n_all_b,1,n_all_a,1,n_all_b,
344 & call ecp_matpr (scr,1,n_all_b,1,n_all_a,1,n_all_b,
366 call ecp_matpr (scr(n),1,n_all_b,1,n_all_a,1,n_all_b,
385 call ecp_matpr (ecp_ints(n),1,n_all_b,1,n_all_a,
386 & 1,n_all_b,1,n_all_a,'Final ECP integrals','E',78,4)
H A Decp_local0.F67 integer n_all_a,n_all_b,n_ang
92 n_all_b = n_cont_b*n_nb
183 & 1,n_all_b,1,n_all_a,1,n_all_b,1,n_all_a,
202 call ecp_matpr (ecp_ints,1,n_all_b,1,n_all_a,
203 & 1,n_all_b,1,n_all_a,'ECP integrals','E',78,4)
H A Decp_int0.F80 integer n_all_a,n_all_b,n_ang,n_x,n_pass local
105 n_all_b = n_cont_b*n_nb
274 & 1,n_all_b,1,n_all_a,1,n_all_b,1,n_all_a,
301 call ecp_matpr (ecp_ints(1,1,1,1,j),1,n_all_b,1,n_all_a,
302 & 1,n_all_b,1,n_all_a,'ECP integrals','E',78,4)
H A Decp_local2.F76 & n_na,n_all_a,n_bas_a,n_pbas_a,n_nb,n_all_b,n_bas_b,n_pbas_b,
122 n_all_b = n_nb*(l_b+3)/3
125 & n_na,n_all_a,n_nb,n_all_b
176 i_x = max(i_ca+n_nc*n_all_c,i_cb+n_nb*n_all_b)
352 call ecp_cart_xpd (l_b,n_nb,n_all_b,X_BP,Y_BP,Z_BP,tmp(i_x),
355 & 1,n_n,1,n_all_b,1,n_nb,1,n_all_b,

12