Home
last modified time | relevance | path

Searched refs:h8b (Results 1 – 25 of 3952) sorted by relevance

12345678910>>...159

/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/tce/eomccsdtq/
H A Deomccsdtq_y4_10.F26 INTEGER h8b
67 DO h8b = 1,noab
279 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p2b .le. p3b)) THEN
289 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p3b .le. p1b) .and.
300 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p3b .le. p1b) .and.
311 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p1b .le. p3b) .and.
322 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p1b .le. p3b) .and.
333 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p4b .le. p1b)) THEN
343 IF ((h6b .le. h8b) .and. (h8b .le. h7b) .and. (p2b .le. p3b)) THEN
353 IF ((h6b .le. h8b) .and. (h8b .le. h7b) .and. (p3b .le. p1b) .and.
[all …]
H A Deomccsdtq_y4_1.F26 INTEGER h8b
64 DO h8b = h7b,noab
92 CALL TCE_RESTRICTED_4(h7b,h8b,p3b,p4b,h7b_2,h8b_2,p3b_2,p4b_2)
263 IF ((h7b .le. h5b) .and. (h5b .le. h8b) .and. (h8b .le. h6b) .and.
274 IF ((h7b .le. h5b) .and. (h5b .le. h8b) .and. (h8b .le. h6b) .and.
285 IF ((h7b .le. h5b) .and. (h5b .le. h8b) .and. (h8b .le. h6b) .and.
296 IF ((h7b .le. h5b) .and. (h5b .le. h8b) .and. (h8b .le. h6b) .and.
307 IF ((h7b .le. h5b) .and. (h5b .le. h8b) .and. (h8b .le. h6b) .and.
318 IF ((h7b .le. h5b) .and. (h5b .le. h8b) .and. (h8b .le. h6b) .and.
459 IF ((h8b .le. h5b) .and. (p2b .le. p3b)) THEN
[all …]
H A Deomccsdtq_y2_27_2_1.F25 INTEGER h8b
72 DO h8b = 1,noab
136 IF ((h7b .le. h8b) .and. (h8b .lt. h3b) .and. (p6b .le. p9b) .and.
147 IF ((h7b .le. h8b) .and. (h8b .lt. h3b) .and. (p5b .le. p9b) .and.
158 IF ((h7b .le. h8b) .and. (h8b .lt. h3b) .and. (p5b .le. p9b) .and.
169 IF ((h7b .le. h8b) .and. (h8b .lt. h3b) .and. (p9b .lt. p5b) .and.
180 IF ((h7b .le. h8b) .and. (h8b .lt. h3b) .and. (p9b .lt. p5b) .and.
191 IF ((h7b .le. h8b) .and. (h8b .lt. h3b) .and. (p9b .lt. p1b) .and.
202 IF ((h7b .le. h8b) .and. (h8b .lt. h3b) .and. (p6b .lt. p1b) .and.
213 IF ((h7b .le. h8b) .and. (h8b .lt. h3b) .and. (p5b .lt. p1b) .and.
[all …]
H A Deomccsdtq_y4_12.F26 INTEGER h8b
70 DO h8b = 1,noab
211 &5b - 1 + noab * (h8b - 1)))))))))
243 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p3b .le. p4b)) THEN
253 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p4b .le. p1b)) THEN
263 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p1b .le. p4b) .and.
274 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p2b .le. p4b) .and.
285 IF ((h6b .le. h8b) .and. (h8b .le. h7b) .and. (p3b .le. p4b)) THEN
295 IF ((h6b .le. h8b) .and. (h8b .le. h7b) .and. (p4b .le. p1b)) THEN
305 IF ((h6b .le. h8b) .and. (h8b .le. h7b) .and. (p1b .le. p4b) .and.
[all …]
H A Deomccsdtq_y4_4.F26 INTEGER h8b
67 DO h8b = 1,noab
289 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p2b .le. p3b)) THEN
299 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p3b .le. p1b) .and.
310 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p3b .le. p1b) .and.
321 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p1b .le. p3b) .and.
332 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p1b .le. p3b) .and.
343 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p4b .le. p1b)) THEN
353 IF ((h6b .le. h8b) .and. (h8b .le. h7b) .and. (p2b .le. p3b)) THEN
363 IF ((h6b .le. h8b) .and. (h8b .le. h7b) .and. (p3b .le. p1b) .and.
[all …]
H A Deomccsdtq_y4_2.F26 INTEGER h8b
64 DO h8b = 1,noab
186 &5b - 1 + noab * (h8b - 1)))))))))
218 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p3b .le. p4b)) THEN
228 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p4b .le. p1b)) THEN
238 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p1b .le. p4b) .and.
249 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p2b .le. p4b) .and.
260 IF ((h6b .le. h8b) .and. (h8b .le. h7b) .and. (p3b .le. p4b)) THEN
270 IF ((h6b .le. h8b) .and. (h8b .le. h7b) .and. (p4b .le. p1b)) THEN
280 IF ((h6b .le. h8b) .and. (h8b .le. h7b) .and. (p1b .le. p4b) .and.
[all …]
H A Deomccsdtq_y3_27_2_1_1.F26 INTEGER h8b
67 DO h8b = 1,noab
251 IF ((h4b .le. h8b) .and. (h8b .lt. h5b) .and. (p11b .lt. p9b) .and
262 IF ((h4b .le. h8b) .and. (h8b .lt. h5b) .and. (p9b .le. p11b) .and
273 IF ((h4b .le. h8b) .and. (h8b .lt. h5b) .and. (p9b .lt. p1b) .and.
284 IF ((h4b .le. h8b) .and. (h8b .lt. h5b) .and. (p9b .lt. p1b) .and.
295 IF ((h4b .le. h8b) .and. (h8b .lt. h5b) .and. (p11b .lt. p1b) .and
306 IF ((h4b .le. h8b) .and. (h8b .lt. h5b) .and. (p1b .le. p11b) .and
317 IF ((h4b .le. h8b) .and. (h8b .lt. h5b) .and. (p1b .le. p9b) .and.
328 IF ((h4b .le. h8b) .and. (h8b .lt. h5b) .and. (p1b .le. p9b) .and.
[all …]
H A Deomccsdtq_y2_27_1_1.F25 INTEGER h8b
62 DO h8b = 1,noab
68 &)+int_mb(k_spin+h8b-1)+int_mb(k_spin+p1b-1)+int_mb(k_spin+h13b-1)+
70 IF (int_mb(k_spin+h3b-1)+int_mb(k_spin+h4b-1)+int_mb(k_spin+h8b-1)
93 &(k_range+h8b-1) * int_mb(k_range+p1b-1) * int_mb(k_range+p5b-1)
158 IF ((h3b .le. h8b) .and. (h8b .lt. h4b) .and. (p7b .lt. p5b) .and.
167 IF ((h3b .le. h8b) .and. (h8b .lt. h4b) .and. (p5b .le. p7b) .and.
176 IF ((h3b .le. h8b) .and. (h8b .lt. h4b) .and. (p5b .lt. p1b) .and.
185 IF ((h3b .le. h8b) .and. (h8b .lt. h4b) .and. (p7b .lt. p1b) .and.
194 IF ((h3b .le. h8b) .and. (h8b .lt. h4b) .and. (p1b .le. p7b) .and.
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/tce/eomccsdtq/
H A Deomccsdtq_y4_10.F26 INTEGER h8b
67 DO h8b = 1,noab
279 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p2b .le. p3b)) THEN
289 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p3b .le. p1b) .and.
300 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p3b .le. p1b) .and.
311 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p1b .le. p3b) .and.
322 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p1b .le. p3b) .and.
333 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p4b .le. p1b)) THEN
343 IF ((h6b .le. h8b) .and. (h8b .le. h7b) .and. (p2b .le. p3b)) THEN
353 IF ((h6b .le. h8b) .and. (h8b .le. h7b) .and. (p3b .le. p1b) .and.
[all …]
H A Deomccsdtq_y4_1.F26 INTEGER h8b
64 DO h8b = h7b,noab
92 CALL TCE_RESTRICTED_4(h7b,h8b,p3b,p4b,h7b_2,h8b_2,p3b_2,p4b_2)
263 IF ((h7b .le. h5b) .and. (h5b .le. h8b) .and. (h8b .le. h6b) .and.
274 IF ((h7b .le. h5b) .and. (h5b .le. h8b) .and. (h8b .le. h6b) .and.
285 IF ((h7b .le. h5b) .and. (h5b .le. h8b) .and. (h8b .le. h6b) .and.
296 IF ((h7b .le. h5b) .and. (h5b .le. h8b) .and. (h8b .le. h6b) .and.
307 IF ((h7b .le. h5b) .and. (h5b .le. h8b) .and. (h8b .le. h6b) .and.
318 IF ((h7b .le. h5b) .and. (h5b .le. h8b) .and. (h8b .le. h6b) .and.
459 IF ((h8b .le. h5b) .and. (p2b .le. p3b)) THEN
[all …]
H A Deomccsdtq_y2_27_2_1.F25 INTEGER h8b
72 DO h8b = 1,noab
136 IF ((h7b .le. h8b) .and. (h8b .lt. h3b) .and. (p6b .le. p9b) .and.
147 IF ((h7b .le. h8b) .and. (h8b .lt. h3b) .and. (p5b .le. p9b) .and.
158 IF ((h7b .le. h8b) .and. (h8b .lt. h3b) .and. (p5b .le. p9b) .and.
169 IF ((h7b .le. h8b) .and. (h8b .lt. h3b) .and. (p9b .lt. p5b) .and.
180 IF ((h7b .le. h8b) .and. (h8b .lt. h3b) .and. (p9b .lt. p5b) .and.
191 IF ((h7b .le. h8b) .and. (h8b .lt. h3b) .and. (p9b .lt. p1b) .and.
202 IF ((h7b .le. h8b) .and. (h8b .lt. h3b) .and. (p6b .lt. p1b) .and.
213 IF ((h7b .le. h8b) .and. (h8b .lt. h3b) .and. (p5b .lt. p1b) .and.
[all …]
H A Deomccsdtq_y4_12.F26 INTEGER h8b
70 DO h8b = 1,noab
211 &5b - 1 + noab * (h8b - 1)))))))))
243 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p3b .le. p4b)) THEN
253 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p4b .le. p1b)) THEN
263 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p1b .le. p4b) .and.
274 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p2b .le. p4b) .and.
285 IF ((h6b .le. h8b) .and. (h8b .le. h7b) .and. (p3b .le. p4b)) THEN
295 IF ((h6b .le. h8b) .and. (h8b .le. h7b) .and. (p4b .le. p1b)) THEN
305 IF ((h6b .le. h8b) .and. (h8b .le. h7b) .and. (p1b .le. p4b) .and.
[all …]
H A Deomccsdtq_y4_4.F26 INTEGER h8b
67 DO h8b = 1,noab
289 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p2b .le. p3b)) THEN
299 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p3b .le. p1b) .and.
310 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p3b .le. p1b) .and.
321 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p1b .le. p3b) .and.
332 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p1b .le. p3b) .and.
343 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p4b .le. p1b)) THEN
353 IF ((h6b .le. h8b) .and. (h8b .le. h7b) .and. (p2b .le. p3b)) THEN
363 IF ((h6b .le. h8b) .and. (h8b .le. h7b) .and. (p3b .le. p1b) .and.
[all …]
H A Deomccsdtq_y4_2.F26 INTEGER h8b
64 DO h8b = 1,noab
186 &5b - 1 + noab * (h8b - 1)))))))))
218 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p3b .le. p4b)) THEN
228 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p4b .le. p1b)) THEN
238 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p1b .le. p4b) .and.
249 IF ((h5b .le. h8b) .and. (h8b .le. h6b) .and. (p2b .le. p4b) .and.
260 IF ((h6b .le. h8b) .and. (h8b .le. h7b) .and. (p3b .le. p4b)) THEN
270 IF ((h6b .le. h8b) .and. (h8b .le. h7b) .and. (p4b .le. p1b)) THEN
280 IF ((h6b .le. h8b) .and. (h8b .le. h7b) .and. (p1b .le. p4b) .and.
[all …]
H A Deomccsdtq_y3_27_2_1_1.F26 INTEGER h8b
67 DO h8b = 1,noab
251 IF ((h4b .le. h8b) .and. (h8b .lt. h5b) .and. (p11b .lt. p9b) .and
262 IF ((h4b .le. h8b) .and. (h8b .lt. h5b) .and. (p9b .le. p11b) .and
273 IF ((h4b .le. h8b) .and. (h8b .lt. h5b) .and. (p9b .lt. p1b) .and.
284 IF ((h4b .le. h8b) .and. (h8b .lt. h5b) .and. (p9b .lt. p1b) .and.
295 IF ((h4b .le. h8b) .and. (h8b .lt. h5b) .and. (p11b .lt. p1b) .and
306 IF ((h4b .le. h8b) .and. (h8b .lt. h5b) .and. (p1b .le. p11b) .and
317 IF ((h4b .le. h8b) .and. (h8b .lt. h5b) .and. (p1b .le. p9b) .and.
328 IF ((h4b .le. h8b) .and. (h8b .lt. h5b) .and. (p1b .le. p9b) .and.
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/tce/ccsdtq_lambda/
H A Dccsdtq_lambda2_28_2_1.F25 INTEGER h8b
72 DO h8b = 1,noab
136 IF ((h7b .le. h8b) .and. (h8b .lt. h3b) .and. (p6b .le. p9b) .and.
147 IF ((h7b .le. h8b) .and. (h8b .lt. h3b) .and. (p5b .le. p9b) .and.
158 IF ((h7b .le. h8b) .and. (h8b .lt. h3b) .and. (p5b .le. p9b) .and.
169 IF ((h7b .le. h8b) .and. (h8b .lt. h3b) .and. (p9b .lt. p5b) .and.
180 IF ((h7b .le. h8b) .and. (h8b .lt. h3b) .and. (p9b .lt. p5b) .and.
191 IF ((h7b .le. h8b) .and. (h8b .lt. h3b) .and. (p9b .lt. p1b) .and.
202 IF ((h7b .le. h8b) .and. (h8b .lt. h3b) .and. (p6b .lt. p1b) .and.
213 IF ((h7b .le. h8b) .and. (h8b .lt. h3b) .and. (p5b .lt. p1b) .and.
[all …]
H A Dccsdtq_lambda3_27_2_1_1.F26 INTEGER h8b
67 DO h8b = 1,noab
251 IF ((h4b .le. h8b) .and. (h8b .lt. h5b) .and. (p11b .lt. p9b) .and
262 IF ((h4b .le. h8b) .and. (h8b .lt. h5b) .and. (p9b .le. p11b) .and
273 IF ((h4b .le. h8b) .and. (h8b .lt. h5b) .and. (p9b .lt. p1b) .and.
284 IF ((h4b .le. h8b) .and. (h8b .lt. h5b) .and. (p9b .lt. p1b) .and.
295 IF ((h4b .le. h8b) .and. (h8b .lt. h5b) .and. (p11b .lt. p1b) .and
306 IF ((h4b .le. h8b) .and. (h8b .lt. h5b) .and. (p1b .le. p11b) .and
317 IF ((h4b .le. h8b) .and. (h8b .lt. h5b) .and. (p1b .le. p9b) .and.
328 IF ((h4b .le. h8b) .and. (h8b .lt. h5b) .and. (p1b .le. p9b) .and.
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/tce/ccsdtq_lambda/
H A Dccsdtq_lambda2_28_2_1.F25 INTEGER h8b
72 DO h8b = 1,noab
136 IF ((h7b .le. h8b) .and. (h8b .lt. h3b) .and. (p6b .le. p9b) .and.
147 IF ((h7b .le. h8b) .and. (h8b .lt. h3b) .and. (p5b .le. p9b) .and.
158 IF ((h7b .le. h8b) .and. (h8b .lt. h3b) .and. (p5b .le. p9b) .and.
169 IF ((h7b .le. h8b) .and. (h8b .lt. h3b) .and. (p9b .lt. p5b) .and.
180 IF ((h7b .le. h8b) .and. (h8b .lt. h3b) .and. (p9b .lt. p5b) .and.
191 IF ((h7b .le. h8b) .and. (h8b .lt. h3b) .and. (p9b .lt. p1b) .and.
202 IF ((h7b .le. h8b) .and. (h8b .lt. h3b) .and. (p6b .lt. p1b) .and.
213 IF ((h7b .le. h8b) .and. (h8b .lt. h3b) .and. (p5b .lt. p1b) .and.
[all …]
H A Dccsdtq_lambda3_27_2_1_1.F26 INTEGER h8b
67 DO h8b = 1,noab
251 IF ((h4b .le. h8b) .and. (h8b .lt. h5b) .and. (p11b .lt. p9b) .and
262 IF ((h4b .le. h8b) .and. (h8b .lt. h5b) .and. (p9b .le. p11b) .and
273 IF ((h4b .le. h8b) .and. (h8b .lt. h5b) .and. (p9b .lt. p1b) .and.
284 IF ((h4b .le. h8b) .and. (h8b .lt. h5b) .and. (p9b .lt. p1b) .and.
295 IF ((h4b .le. h8b) .and. (h8b .lt. h5b) .and. (p11b .lt. p1b) .and
306 IF ((h4b .le. h8b) .and. (h8b .lt. h5b) .and. (p1b .le. p11b) .and
317 IF ((h4b .le. h8b) .and. (h8b .lt. h5b) .and. (p1b .le. p9b) .and.
328 IF ((h4b .le. h8b) .and. (h8b .lt. h5b) .and. (p1b .le. p9b) .and.
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/tce/ccsd_t/
H A Dccsd2_q_left.F56 INTEGER h8b local
90 DO h8b = h7b,noab
99 & .and. (t_h8b .eq. h8b) .and. (t_p1b .eq. p1b) .and. (t_p2b .eq. p
103 & .and. (t_h8b .eq. h8b) .and. (t_p1b .eq. p3b) .and. (t_p2b .eq. p
107 & .and. (t_h8b .eq. h8b) .and. (t_p1b .eq. p3b) .and. (t_p2b .eq. p
111 & .and. (t_h8b .eq. h8b) .and. (t_p1b .eq. p1b) .and. (t_p2b .eq. p
115 & .and. (t_h8b .eq. h8b) .and. (t_p1b .eq. p1b) .and. (t_p2b .eq. p
119 & .and. (t_h8b .eq. h8b) .and. (t_p1b .eq. p3b) .and. (t_p2b .eq. p
123 & .and. (t_h8b .eq. h8b) .and. (t_p1b .eq. p1b) .and. (t_p2b .eq. p
127 & .and. (t_h8b .eq. h8b) .and. (t_p1b .eq. p3b) .and. (t_p2b .eq. p
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/tce/ccsd_t/
H A Dccsd2_q_left.F56 INTEGER h8b
90 DO h8b = h7b,noab
99 & .and. (t_h8b .eq. h8b) .and. (t_p1b .eq. p1b) .and. (t_p2b .eq. p
103 & .and. (t_h8b .eq. h8b) .and. (t_p1b .eq. p3b) .and. (t_p2b .eq. p
107 & .and. (t_h8b .eq. h8b) .and. (t_p1b .eq. p3b) .and. (t_p2b .eq. p
111 & .and. (t_h8b .eq. h8b) .and. (t_p1b .eq. p1b) .and. (t_p2b .eq. p
115 & .and. (t_h8b .eq. h8b) .and. (t_p1b .eq. p1b) .and. (t_p2b .eq. p
119 & .and. (t_h8b .eq. h8b) .and. (t_p1b .eq. p3b) .and. (t_p2b .eq. p
123 & .and. (t_h8b .eq. h8b) .and. (t_p1b .eq. p1b) .and. (t_p2b .eq. p
127 & .and. (t_h8b .eq. h8b) .and. (t_p1b .eq. p3b) .and. (t_p2b .eq. p
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/tce/ccsdt_yr/
H A Dccsdt_y_tr2_12_1.F25 INTEGER h8b
62 DO h8b = 1,noab
68 &)+int_mb(k_spin+h8b-1)+int_mb(k_spin+p1b-1)+int_mb(k_spin+h6b-1)+i
70 IF (int_mb(k_spin+h3b-1)+int_mb(k_spin+h4b-1)+int_mb(k_spin+h8b-1)
93 &(k_range+h8b-1) * int_mb(k_range+p1b-1) * int_mb(k_range+p7b-1)
158 IF ((h3b .le. h8b) .and. (h8b .lt. h4b) .and. (p5b .le. p7b) .and.
167 IF ((h3b .le. h8b) .and. (h8b .lt. h4b) .and. (p7b .lt. p5b) .and.
176 IF ((h3b .le. h8b) .and. (h8b .lt. h4b) .and. (p7b .lt. p1b) .and.
185 IF ((h3b .le. h8b) .and. (h8b .lt. h4b) .and. (p5b .lt. p1b) .and.
194 IF ((h3b .le. h8b) .and. (h8b .lt. h4b) .and. (p1b .le. p5b) .and.
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/tce/ccsdt_lambda/
H A Dccsdt_lambda2_17_1.F25 INTEGER h8b
62 DO h8b = 1,noab
68 &)+int_mb(k_spin+h8b-1)+int_mb(k_spin+p1b-1)+int_mb(k_spin+h6b-1)+i
70 IF (int_mb(k_spin+h3b-1)+int_mb(k_spin+h4b-1)+int_mb(k_spin+h8b-1)
93 &(k_range+h8b-1) * int_mb(k_range+p1b-1) * int_mb(k_range+p7b-1)
158 IF ((h3b .le. h8b) .and. (h8b .lt. h4b) .and. (p5b .le. p7b) .and.
167 IF ((h3b .le. h8b) .and. (h8b .lt. h4b) .and. (p7b .lt. p5b) .and.
176 IF ((h3b .le. h8b) .and. (h8b .lt. h4b) .and. (p7b .lt. p1b) .and.
185 IF ((h3b .le. h8b) .and. (h8b .lt. h4b) .and. (p5b .lt. p1b) .and.
194 IF ((h3b .le. h8b) .and. (h8b .lt. h4b) .and. (p1b .le. p5b) .and.
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/tce/ccsdt_yr/
H A Dccsdt_y_tr2_12_1.F25 INTEGER h8b
62 DO h8b = 1,noab
68 &)+int_mb(k_spin+h8b-1)+int_mb(k_spin+p1b-1)+int_mb(k_spin+h6b-1)+i
70 IF (int_mb(k_spin+h3b-1)+int_mb(k_spin+h4b-1)+int_mb(k_spin+h8b-1)
93 &(k_range+h8b-1) * int_mb(k_range+p1b-1) * int_mb(k_range+p7b-1)
158 IF ((h3b .le. h8b) .and. (h8b .lt. h4b) .and. (p5b .le. p7b) .and.
167 IF ((h3b .le. h8b) .and. (h8b .lt. h4b) .and. (p7b .lt. p5b) .and.
176 IF ((h3b .le. h8b) .and. (h8b .lt. h4b) .and. (p7b .lt. p1b) .and.
185 IF ((h3b .le. h8b) .and. (h8b .lt. h4b) .and. (p5b .lt. p1b) .and.
194 IF ((h3b .le. h8b) .and. (h8b .lt. h4b) .and. (p1b .le. p5b) .and.
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/tce/ccsdt_lambda/
H A Dccsdt_lambda2_17_1.F25 INTEGER h8b local
62 DO h8b = 1,noab
68 &)+int_mb(k_spin+h8b-1)+int_mb(k_spin+p1b-1)+int_mb(k_spin+h6b-1)+i
70 IF (int_mb(k_spin+h3b-1)+int_mb(k_spin+h4b-1)+int_mb(k_spin+h8b-1)
93 &(k_range+h8b-1) * int_mb(k_range+p1b-1) * int_mb(k_range+p7b-1)
158 IF ((h3b .le. h8b) .and. (h8b .lt. h4b) .and. (p5b .le. p7b) .and.
167 IF ((h3b .le. h8b) .and. (h8b .lt. h4b) .and. (p7b .lt. p5b) .and.
176 IF ((h3b .le. h8b) .and. (h8b .lt. h4b) .and. (p7b .lt. p1b) .and.
185 IF ((h3b .le. h8b) .and. (h8b .lt. h4b) .and. (p5b .lt. p1b) .and.
194 IF ((h3b .le. h8b) .and. (h8b .lt. h4b) .and. (p1b .le. p5b) .and.
[all …]

12345678910>>...159