/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/NWints/rel/ |
H A D | rel_onel.F | 79 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 D | rel_pot.F | 147 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 D | rel_oneld.F | 84 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 D | rel_pot2.F | 140 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 D | rel_oneld_cosmo.F | 77 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 D | rel_pvp.F | 81 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 D | rel_SSLLd.F | 82 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 D | rel_SSSSd.F | 84 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 D | rel_LLSSd.F | 82 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 D | rel_onel.F | 79 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 D | rel_pot.F | 147 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 D | rel_oneld.F | 84 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 D | rel_pot2.F | 140 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 D | rel_oneld_cosmo.F | 77 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 D | rel_pvp.F | 81 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 D | rel_SSSSd.F | 84 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 D | rel_LLSS.F | 89 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 D | ecp_integral.F | 109 & 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 D | ecp_local0.F | 67 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 D | ecp_int0.F | 80 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 D | ecp_local2.F | 76 & 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 D | ecp_integral.F | 109 & 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 D | ecp_local0.F | 67 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 D | ecp_int0.F | 80 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 D | ecp_local2.F | 76 & 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,
|