/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/tce/eomccsdtq/ |
H A D | eomccsdtq_y4_10.F | 26 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 D | eomccsdtq_y4_1.F | 26 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 D | eomccsdtq_y2_27_2_1.F | 25 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 D | eomccsdtq_y4_12.F | 26 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 D | eomccsdtq_y4_4.F | 26 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 D | eomccsdtq_y4_2.F | 26 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 D | eomccsdtq_y3_27_2_1_1.F | 26 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 D | eomccsdtq_y2_27_1_1.F | 25 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 D | eomccsdtq_y4_10.F | 26 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 D | eomccsdtq_y4_1.F | 26 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 D | eomccsdtq_y2_27_2_1.F | 25 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 D | eomccsdtq_y4_12.F | 26 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 D | eomccsdtq_y4_4.F | 26 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 D | eomccsdtq_y4_2.F | 26 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 D | eomccsdtq_y3_27_2_1_1.F | 26 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 D | ccsdtq_lambda2_28_2_1.F | 25 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 D | ccsdtq_lambda3_27_2_1_1.F | 26 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 D | ccsdtq_lambda2_28_2_1.F | 25 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 D | ccsdtq_lambda3_27_2_1_1.F | 26 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 D | ccsd2_q_left.F | 56 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 D | ccsd2_q_left.F | 56 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 D | ccsdt_y_tr2_12_1.F | 25 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 D | ccsdt_lambda2_17_1.F | 25 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 D | ccsdt_y_tr2_12_1.F | 25 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 D | ccsdt_lambda2_17_1.F | 25 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 …]
|