Searched refs:k_tmp2 (Results 1 – 6 of 6) sorted by relevance
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/tce/mrcc/uss/ |
| H A D | tce_uss_offdiagonal_2.F | 39 integer l_tmp2,k_tmp2 local
221 CALL DFILL(sizenew,0.0d0,dbl_mb(k_tmp2),1)
223 dbl_mb(k_tmp2+ioff)=dbl_mb(k_r2a+counter-1)*dsmult/
226 call add_hash_block(d_c1,dbl_mb(k_tmp2),sizenew,
329 CALL DFILL(sizenew,0.0d0,dbl_mb(k_tmp2),1)
331 dbl_mb(k_tmp2+ioff)=dbl_mb(k_r2a+counter-1)*dsmult*
335 call add_hash_block(d_c2,dbl_mb(k_tmp2),sizenew,
421 CALL DFILL(sizenew1,0.0d0,dbl_mb(k_tmp2),1)
427 call add_hash_block(d_c2,dbl_mb(k_tmp2),sizenew1,
510 CALL DFILL(sizenew1,0.0d0,dbl_mb(k_tmp2),1)
[all …]
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/tce/mrcc/uss/ |
| H A D | tce_uss_offdiagonal_2.F | 39 integer l_tmp2,k_tmp2
221 CALL DFILL(sizenew,0.0d0,dbl_mb(k_tmp2),1)
223 dbl_mb(k_tmp2+ioff)=dbl_mb(k_r2a+counter-1)*dsmult/
226 call add_hash_block(d_c1,dbl_mb(k_tmp2),sizenew,
329 CALL DFILL(sizenew,0.0d0,dbl_mb(k_tmp2),1)
331 dbl_mb(k_tmp2+ioff)=dbl_mb(k_r2a+counter-1)*dsmult*
335 call add_hash_block(d_c2,dbl_mb(k_tmp2),sizenew,
421 CALL DFILL(sizenew1,0.0d0,dbl_mb(k_tmp2),1)
427 call add_hash_block(d_c2,dbl_mb(k_tmp2),sizenew1,
510 CALL DFILL(sizenew1,0.0d0,dbl_mb(k_tmp2),1)
[all …]
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/uccsdt/ |
| H A D | moscreen.F | 22 integer k_mos, k_tmp1, k_tmp2, k_tmp3, k_ints
68 $ l_tmp2, k_tmp2)) call errquit
137 $ dbl_mb(k_tmp1), dbl_mb(k_tmp2),
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/uccsdt/ |
| H A D | moscreen.F | 22 integer k_mos, k_tmp1, k_tmp2, k_tmp3, k_ints
68 $ l_tmp2, k_tmp2)) call errquit
137 $ dbl_mb(k_tmp1), dbl_mb(k_tmp2),
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/develop/ |
| H A D | jantest.F | 2471 integer l_tmp1, k_tmp1, l_tmp2, k_tmp2 local
2482 if (.not. ma_push_get(mt_dbl, nbf*nbf,'tmp2', l_tmp2, k_tmp2))
2495 $ 0.0d0, dbl_mb(k_tmp2), n1)
2497 $ 1.0d0, dbl_mb(k_tmp2), n1, c2t, lda2,
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/develop/ |
| H A D | jantest.F | 2471 integer l_tmp1, k_tmp1, l_tmp2, k_tmp2
2482 if (.not. ma_push_get(mt_dbl, nbf*nbf,'tmp2', l_tmp2, k_tmp2))
2495 $ 0.0d0, dbl_mb(k_tmp2), n1)
2497 $ 1.0d0, dbl_mb(k_tmp2), n1, c2t, lda2,
|