Searched refs:k_pov3 (Results 1 – 2 of 2) sorted by relevance
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/NWints/api/ |
| H A D | intd_1e3ov.F | 123 integer i_pov3, j_pov3, k_pov3 local
226 k_pov3 = 3*nint_intrnl+j_pov3 ! pointer to k block of derivs
247 call dcopy(3*nint_intrnl,dOV3(k_pov3),1,dOV3(j_pov3),1)
248 call dcopy(3*nint_intrnl,0.0d00,0,dOV3(k_pov3),1)
263 call daxpy(3*nint_intrnl,1.0d00,dOV3(k_pov3),1,dOV3(i_pov3),1)
264 call dcopy(3*nint_intrnl,0.0d00,0,dOV3(k_pov3),1)
279 call daxpy(3*nint_intrnl,1.0d00,dOV3(k_pov3),1,dOV3(j_pov3),1)
280 call dcopy(3*nint_intrnl,0.0d00,0,dOV3(k_pov3),1)
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/NWints/api/ |
| H A D | intd_1e3ov.F | 123 integer i_pov3, j_pov3, k_pov3
226 k_pov3 = 3*nint_intrnl+j_pov3 ! pointer to k block of derivs
247 call dcopy(3*nint_intrnl,dOV3(k_pov3),1,dOV3(j_pov3),1)
248 call dcopy(3*nint_intrnl,0.0d00,0,dOV3(k_pov3),1)
263 call daxpy(3*nint_intrnl,1.0d00,dOV3(k_pov3),1,dOV3(i_pov3),1)
264 call dcopy(3*nint_intrnl,0.0d00,0,dOV3(k_pov3),1)
279 call daxpy(3*nint_intrnl,1.0d00,dOV3(k_pov3),1,dOV3(j_pov3),1)
280 call dcopy(3*nint_intrnl,0.0d00,0,dOV3(k_pov3),1)
|