| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/tce/ccsdtq_lambda/ |
| H A D | ccsdtq_lambda2_13.F | 38 INTEGER p1b_1
100 &b_1,h14b_1,h15b_1,p1b_1,p2b_1,p16b_1,p17b_1)
117 & - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p17b_1 - noab - 1
128 & - noab - 1 + nvab * (p17b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
139 &1 - noab - 1 + nvab * (p2b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
151 &1 + nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h3b_1 -
162 &1 + nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h3b_1 -
172 &1 + nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h3b_1 -
182 & - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p17b_1 - noab - 1
194 & - noab - 1 + nvab * (p17b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
[all …]
|
| H A D | ccsdtq_lambda2_30_2_1_1.F | 33 INTEGER p1b_1
74 &,h7b_1,h11b_1,p1b_1,p5b_1,p6b_1,p9b_1)
87 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
99 & - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p6b_1 - noab - 1
110 & - noab - 1 + nvab * (p6b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
121 &+ nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h3b_1 - 1
130 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
142 & - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p6b_1 - noab - 1
153 & - noab - 1 + nvab * (p6b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
165 &+ nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h11b_1 -
[all …]
|
| H A D | ccsdtq_lambda2_30_2_1_2.F | 33 INTEGER p1b_1
74 &,h7b_1,h11b_1,p1b_1,p5b_1,p6b_1,p9b_1)
87 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
99 & - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p6b_1 - noab - 1
110 & - noab - 1 + nvab * (p6b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
121 &+ nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h3b_1 - 1
130 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
142 & - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p6b_1 - noab - 1
153 & - noab - 1 + nvab * (p6b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
165 &+ nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h11b_1 -
[all …]
|
| H A D | ccsdtq_lambda2_24.F | 39 INTEGER p1b_1
104 &b_1,h13b_1,h16b_1,p1b_1,p5b_1,p15b_1,p17b_1)
121 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
133 &1 - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p15b_1 - noab -
144 &1 - noab - 1 + nvab * (p15b_1 - noab - 1 + nvab * (p1b_1 - noab -
155 &1 + nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h3b_1 -
164 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
176 &1 - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p15b_1 - noab -
187 &1 - noab - 1 + nvab * (p15b_1 - noab - 1 + nvab * (p1b_1 - noab -
199 &1 + nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h16b_1
[all …]
|
| H A D | ccsdtq_lambda2_26_4_2_1.F | 33 INTEGER p1b_1
74 &1,h8b_1,h11b_1,p1b_1,p5b_1,p9b_1,p10b_1)
87 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
99 &1 - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p9b_1 - noab - 1
110 &1 - noab - 1 + nvab * (p9b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
121 & + nvab * (p1b_1 - noab - 1 + nvab * (h3b_1 - 1 + noab * (h11b_1 -
130 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
142 &1 - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p9b_1 - noab - 1
153 &1 - noab - 1 + nvab * (p9b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
165 & + nvab * (p1b_1 - noab - 1 + nvab * (h11b_1 - 1 + noab * (h3b_1 -
[all …]
|
| H A D | ccsdtq_lambda2_26_4_2_2.F | 33 INTEGER p1b_1
74 &1,h8b_1,h11b_1,p1b_1,p5b_1,p9b_1,p10b_1)
87 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
99 &1 - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p9b_1 - noab - 1
110 &1 - noab - 1 + nvab * (p9b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
121 & + nvab * (p1b_1 - noab - 1 + nvab * (h3b_1 - 1 + noab * (h11b_1 -
130 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
142 &1 - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p9b_1 - noab - 1
153 &1 - noab - 1 + nvab * (p9b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
165 & + nvab * (p1b_1 - noab - 1 + nvab * (h11b_1 - 1 + noab * (h3b_1 -
[all …]
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/tce/eomccsdtq/ |
| H A D | eomccsdtq_y2_12.F | 38 INTEGER p1b_1
100 &b_1,h14b_1,h15b_1,p1b_1,p2b_1,p16b_1,p17b_1)
117 & - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p17b_1 - noab - 1
128 & - noab - 1 + nvab * (p17b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
139 &1 - noab - 1 + nvab * (p2b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
151 &1 + nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h3b_1 -
162 &1 + nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h3b_1 -
172 &1 + nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h3b_1 -
182 & - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p17b_1 - noab - 1
194 & - noab - 1 + nvab * (p17b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
[all …]
|
| H A D | eomccsdtq_y2_29_2_1_1.F | 33 INTEGER p1b_1
74 &,h7b_1,h11b_1,p1b_1,p5b_1,p6b_1,p9b_1)
87 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
99 & - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p6b_1 - noab - 1
110 & - noab - 1 + nvab * (p6b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
121 &+ nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h3b_1 - 1
130 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
142 & - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p6b_1 - noab - 1
153 & - noab - 1 + nvab * (p6b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
165 &+ nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h11b_1 -
[all …]
|
| H A D | eomccsdtq_y2_29_2_1_2.F | 33 INTEGER p1b_1
74 &,h7b_1,h11b_1,p1b_1,p5b_1,p6b_1,p9b_1)
87 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
99 & - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p6b_1 - noab - 1
110 & - noab - 1 + nvab * (p6b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
121 &+ nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h3b_1 - 1
130 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
142 & - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p6b_1 - noab - 1
153 & - noab - 1 + nvab * (p6b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
165 &+ nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h11b_1 -
[all …]
|
| H A D | eomccsdtq_y2_23.F | 39 INTEGER p1b_1
104 &b_1,h13b_1,h16b_1,p1b_1,p5b_1,p15b_1,p17b_1)
121 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
133 &1 - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p15b_1 - noab -
144 &1 - noab - 1 + nvab * (p15b_1 - noab - 1 + nvab * (p1b_1 - noab -
155 &1 + nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h3b_1 -
164 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
176 &1 - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p15b_1 - noab -
187 &1 - noab - 1 + nvab * (p15b_1 - noab - 1 + nvab * (p1b_1 - noab -
199 &1 + nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h16b_1
[all …]
|
| H A D | eomccsdtq_y2_25_4_2_1.F | 33 INTEGER p1b_1
74 &1,h8b_1,h11b_1,p1b_1,p5b_1,p9b_1,p10b_1)
87 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
99 &1 - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p9b_1 - noab - 1
110 &1 - noab - 1 + nvab * (p9b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
121 & + nvab * (p1b_1 - noab - 1 + nvab * (h3b_1 - 1 + noab * (h11b_1 -
130 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
142 &1 - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p9b_1 - noab - 1
153 &1 - noab - 1 + nvab * (p9b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
165 & + nvab * (p1b_1 - noab - 1 + nvab * (h11b_1 - 1 + noab * (h3b_1 -
[all …]
|
| H A D | eomccsdtq_y2_25_4_2_2.F | 33 INTEGER p1b_1
74 &1,h8b_1,h11b_1,p1b_1,p5b_1,p9b_1,p10b_1)
87 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
99 &1 - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p9b_1 - noab - 1
110 &1 - noab - 1 + nvab * (p9b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
121 & + nvab * (p1b_1 - noab - 1 + nvab * (h3b_1 - 1 + noab * (h11b_1 -
130 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
142 &1 - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p9b_1 - noab - 1
153 &1 - noab - 1 + nvab * (p9b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
165 & + nvab * (p1b_1 - noab - 1 + nvab * (h11b_1 - 1 + noab * (h3b_1 -
[all …]
|
| H A D | eomccsdtq_y3_23.F | 40 INTEGER p1b_1
110 &1,h10b_1,h11b_1,p1b_1,p2b_1,p7b_1,p8b_1)
127 & - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p8b_1 - noab - 1
138 & - noab - 1 + nvab * (p8b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
149 & - noab - 1 + nvab * (p2b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
161 &+ nvab * (p1b_1 - noab - 1 + nvab * (h5b_1 - 1 + noab * (h4b_1 - 1
172 &+ nvab * (p1b_1 - noab - 1 + nvab * (h5b_1 - 1 + noab * (h4b_1 - 1
182 &+ nvab * (p1b_1 - noab - 1 + nvab * (h5b_1 - 1 + noab * (h4b_1 - 1
192 & - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p8b_1 - noab - 1
203 & - noab - 1 + nvab * (p8b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
[all …]
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/tce/ccsdtq_lambda/ |
| H A D | ccsdtq_lambda2_13.F | 38 INTEGER p1b_1
100 &b_1,h14b_1,h15b_1,p1b_1,p2b_1,p16b_1,p17b_1)
117 & - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p17b_1 - noab - 1
128 & - noab - 1 + nvab * (p17b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
139 &1 - noab - 1 + nvab * (p2b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
151 &1 + nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h3b_1 -
162 &1 + nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h3b_1 -
172 &1 + nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h3b_1 -
182 & - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p17b_1 - noab - 1
194 & - noab - 1 + nvab * (p17b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
[all …]
|
| H A D | ccsdtq_lambda2_30_2_1_2.F | 33 INTEGER p1b_1
74 &,h7b_1,h11b_1,p1b_1,p5b_1,p6b_1,p9b_1)
87 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
99 & - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p6b_1 - noab - 1
110 & - noab - 1 + nvab * (p6b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
121 &+ nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h3b_1 - 1
130 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
142 & - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p6b_1 - noab - 1
153 & - noab - 1 + nvab * (p6b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
165 &+ nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h11b_1 -
[all …]
|
| H A D | ccsdtq_lambda2_30_2_1_1.F | 33 INTEGER p1b_1
74 &,h7b_1,h11b_1,p1b_1,p5b_1,p6b_1,p9b_1)
87 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
99 & - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p6b_1 - noab - 1
110 & - noab - 1 + nvab * (p6b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
121 &+ nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h3b_1 - 1
130 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
142 & - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p6b_1 - noab - 1
153 & - noab - 1 + nvab * (p6b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
165 &+ nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h11b_1 -
[all …]
|
| H A D | ccsdtq_lambda2_24.F | 39 INTEGER p1b_1
104 &b_1,h13b_1,h16b_1,p1b_1,p5b_1,p15b_1,p17b_1)
121 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
133 &1 - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p15b_1 - noab -
144 &1 - noab - 1 + nvab * (p15b_1 - noab - 1 + nvab * (p1b_1 - noab -
155 &1 + nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h3b_1 -
164 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
176 &1 - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p15b_1 - noab -
187 &1 - noab - 1 + nvab * (p15b_1 - noab - 1 + nvab * (p1b_1 - noab -
199 &1 + nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h16b_1
[all …]
|
| H A D | ccsdtq_lambda2_26_4_2_1.F | 33 INTEGER p1b_1
74 &1,h8b_1,h11b_1,p1b_1,p5b_1,p9b_1,p10b_1)
87 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
99 &1 - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p9b_1 - noab - 1
110 &1 - noab - 1 + nvab * (p9b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
121 & + nvab * (p1b_1 - noab - 1 + nvab * (h3b_1 - 1 + noab * (h11b_1 -
130 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
142 &1 - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p9b_1 - noab - 1
153 &1 - noab - 1 + nvab * (p9b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
165 & + nvab * (p1b_1 - noab - 1 + nvab * (h11b_1 - 1 + noab * (h3b_1 -
[all …]
|
| H A D | ccsdtq_lambda2_26_4_2_2.F | 33 INTEGER p1b_1
74 &1,h8b_1,h11b_1,p1b_1,p5b_1,p9b_1,p10b_1)
87 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
99 &1 - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p9b_1 - noab - 1
110 &1 - noab - 1 + nvab * (p9b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
121 & + nvab * (p1b_1 - noab - 1 + nvab * (h3b_1 - 1 + noab * (h11b_1 -
130 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
142 &1 - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p9b_1 - noab - 1
153 &1 - noab - 1 + nvab * (p9b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
165 & + nvab * (p1b_1 - noab - 1 + nvab * (h11b_1 - 1 + noab * (h3b_1 -
[all …]
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/tce/eomccsdtq/ |
| H A D | eomccsdtq_y2_12.F | 38 INTEGER p1b_1
100 &b_1,h14b_1,h15b_1,p1b_1,p2b_1,p16b_1,p17b_1)
117 & - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p17b_1 - noab - 1
128 & - noab - 1 + nvab * (p17b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
139 &1 - noab - 1 + nvab * (p2b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
151 &1 + nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h3b_1 -
162 &1 + nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h3b_1 -
172 &1 + nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h3b_1 -
182 & - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p17b_1 - noab - 1
194 & - noab - 1 + nvab * (p17b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
[all …]
|
| H A D | eomccsdtq_y2_29_2_1_1.F | 33 INTEGER p1b_1
74 &,h7b_1,h11b_1,p1b_1,p5b_1,p6b_1,p9b_1)
87 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
99 & - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p6b_1 - noab - 1
110 & - noab - 1 + nvab * (p6b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
121 &+ nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h3b_1 - 1
130 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
142 & - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p6b_1 - noab - 1
153 & - noab - 1 + nvab * (p6b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
165 &+ nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h11b_1 -
[all …]
|
| H A D | eomccsdtq_y2_29_2_1_2.F | 33 INTEGER p1b_1
74 &,h7b_1,h11b_1,p1b_1,p5b_1,p6b_1,p9b_1)
87 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
99 & - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p6b_1 - noab - 1
110 & - noab - 1 + nvab * (p6b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
121 &+ nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h3b_1 - 1
130 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
142 & - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p6b_1 - noab - 1
153 & - noab - 1 + nvab * (p6b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
165 &+ nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h11b_1 -
[all …]
|
| H A D | eomccsdtq_y2_23.F | 39 INTEGER p1b_1
104 &b_1,h13b_1,h16b_1,p1b_1,p5b_1,p15b_1,p17b_1)
121 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
133 &1 - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p15b_1 - noab -
144 &1 - noab - 1 + nvab * (p15b_1 - noab - 1 + nvab * (p1b_1 - noab -
155 &1 + nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h3b_1 -
164 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
176 &1 - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p15b_1 - noab -
187 &1 - noab - 1 + nvab * (p15b_1 - noab - 1 + nvab * (p1b_1 - noab -
199 &1 + nvab * (p1b_1 - noab - 1 + nvab * (h4b_1 - 1 + noab * (h16b_1
[all …]
|
| H A D | eomccsdtq_y2_25_4_2_1.F | 33 INTEGER p1b_1
74 &1,h8b_1,h11b_1,p1b_1,p5b_1,p9b_1,p10b_1)
87 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
99 &1 - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p9b_1 - noab - 1
110 &1 - noab - 1 + nvab * (p9b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
121 & + nvab * (p1b_1 - noab - 1 + nvab * (h3b_1 - 1 + noab * (h11b_1 -
130 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
142 &1 - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p9b_1 - noab - 1
153 &1 - noab - 1 + nvab * (p9b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
165 & + nvab * (p1b_1 - noab - 1 + nvab * (h11b_1 - 1 + noab * (h3b_1 -
[all …]
|
| H A D | eomccsdtq_y2_25_4_2_2.F | 33 INTEGER p1b_1
74 &1,h8b_1,h11b_1,p1b_1,p5b_1,p9b_1,p10b_1)
87 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
99 &1 - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p9b_1 - noab - 1
110 &1 - noab - 1 + nvab * (p9b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
121 & + nvab * (p1b_1 - noab - 1 + nvab * (h3b_1 - 1 + noab * (h11b_1 -
130 CALL GET_HASH_BLOCK(d_a,dbl_mb(k_a),dima,int_mb(k_a_offset),(p1b_1
142 &1 - noab - 1 + nvab * (p1b_1 - noab - 1 + nvab * (p9b_1 - noab - 1
153 &1 - noab - 1 + nvab * (p9b_1 - noab - 1 + nvab * (p1b_1 - noab - 1
165 & + nvab * (p1b_1 - noab - 1 + nvab * (h11b_1 - 1 + noab * (h3b_1 -
[all …]
|