| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/tce/mrcc/ |
| H A D | tce_mrcc_mul_2.F | 28 integer inoab,invab local
56 do p1b = inoab+1,inoab+invab
57 do p2b = p1b,inoab+invab
58 do h3b = 1,inoab
59 do h4b = h3b,inoab
90 1 int_mb(k_c_offset),((((p1b-inoab-1)*invab+p2b-inoab-1)
91 2 *inoab+h3b-1)*inoab+h4b-1))
94 1 int_mb(k_c_offset),((((p1b-inoab-1)*invab+p2b-inoab-1)
95 2 *inoab+h3b-1)*inoab+h4b-1))
111 1 int_mb(k_c_offset),((((p1b-inoab-1)*invab+p2b-inoab-1)
[all …]
|
| H A D | tce_mrcc_mul_1.F | 27 integer inoab,invab local
48 inoab = nblcks(1,iref)+nblcks(2,iref)
51 do p1b = inoab+1,inoab+invab
52 do h2b = 1,inoab
74 1 int_mb(k_c_offset),((p1b-inoab-1)*inoab+h2b-1))
77 1 int_mb(k_c_offset),((p1b-inoab-1)*inoab+h2b-1))
94 1 int_mb(k_c_offset),((p1b-inoab-1)*inoab+h2b-1))
|
| H A D | tce_mrcc_print.F | 73 integer iref,inoab,counter local
80 inoab = nblcks(1,iref)+nblcks(2,iref)
106 1 int_mb(k_t1_offset),((p5b-inoab-1)*inoab+h6b-1))
182 integer iref,inoab,counter local
197 inoab = nblcks(1,iref)+nblcks(2,iref)
200 DO p1b = inoab+1,inoab+invab
201 DO p2b = p1b,inoab+invab
202 DO h3b = 1,inoab
203 DO h4b = h3b,inoab
224 2 inoab * (h3b - 1 + inoab * (p2b-
[all …]
|
| H A D | tce_mrcc_c2_offset.F | 39 integer inoab,invab
88 inoab = nblcks(1,iref)+nblcks(2,iref)
91 DO p1b = inoab+1,inoab+invab
92 DO p2b = p1b,inoab+invab
93 DO h3b = 1,inoab
94 DO h4b = h3b,inoab
363 2 inoab * (h3b - 1 + inoab * (p2b-
364 &inoab - 1 + invab * (p1b - inoab - 1)))))
|
| H A D | tce_mrcc_c1.F | 17 integer inoab,invab local
|
| H A D | tce_mrcc_c2.F | 20 integer inoab,invab
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/tce/mrcc/ |
| H A D | tce_mrcc_mul_2.F | 28 integer inoab,invab local
56 do p1b = inoab+1,inoab+invab
57 do p2b = p1b,inoab+invab
58 do h3b = 1,inoab
59 do h4b = h3b,inoab
90 1 int_mb(k_c_offset),((((p1b-inoab-1)*invab+p2b-inoab-1)
91 2 *inoab+h3b-1)*inoab+h4b-1))
94 1 int_mb(k_c_offset),((((p1b-inoab-1)*invab+p2b-inoab-1)
95 2 *inoab+h3b-1)*inoab+h4b-1))
111 1 int_mb(k_c_offset),((((p1b-inoab-1)*invab+p2b-inoab-1)
[all …]
|
| H A D | tce_mrcc_mul_1.F | 27 integer inoab,invab local
48 inoab = nblcks(1,iref)+nblcks(2,iref)
51 do p1b = inoab+1,inoab+invab
52 do h2b = 1,inoab
74 1 int_mb(k_c_offset),((p1b-inoab-1)*inoab+h2b-1))
77 1 int_mb(k_c_offset),((p1b-inoab-1)*inoab+h2b-1))
94 1 int_mb(k_c_offset),((p1b-inoab-1)*inoab+h2b-1))
|
| H A D | tce_mrcc_print.F | 73 integer iref,inoab,counter local
80 inoab = nblcks(1,iref)+nblcks(2,iref)
106 1 int_mb(k_t1_offset),((p5b-inoab-1)*inoab+h6b-1))
182 integer iref,inoab,counter local
197 inoab = nblcks(1,iref)+nblcks(2,iref)
200 DO p1b = inoab+1,inoab+invab
201 DO p2b = p1b,inoab+invab
202 DO h3b = 1,inoab
203 DO h4b = h3b,inoab
224 2 inoab * (h3b - 1 + inoab * (p2b-
[all …]
|
| H A D | tce_mrcc_c2_offset.F | 39 integer inoab,invab
88 inoab = nblcks(1,iref)+nblcks(2,iref)
91 DO p1b = inoab+1,inoab+invab
92 DO p2b = p1b,inoab+invab
93 DO h3b = 1,inoab
94 DO h4b = h3b,inoab
363 2 inoab * (h3b - 1 + inoab * (p2b-
364 &inoab - 1 + invab * (p1b - inoab - 1)))))
|
| H A D | tce_mrcc_c1.F | 17 integer inoab,invab
|
| H A D | tce_mrcc_c2.F | 20 integer inoab,invab
|