Lines Matching refs:p8b
26 INTEGER p8b
67 DO p8b = p7b,noab+nvab
74 &)+int_mb(k_spin+p7b-1)+int_mb(k_spin+p8b-1)+int_mb(k_spin+h1b-1)+i
78 &+int_mb(k_spin+p8b-1) .eq. int_mb(k_spin+h1b-1)+int_mb(k_spin+h2b-
81 &k_sym+p7b-1),ieor(int_mb(k_sym+p8b-1),ieor(int_mb(k_sym+h1b-1),ieo
85 &nge+p7b-1) * int_mb(k_range+p8b-1) * int_mb(k_range+h1b-1) * int_m
99 CALL TCE_RESTRICTED_4(p7b,p8b,h4b,p9b,p7b_2,p8b_2,h4b_2,p9b_2)
104 dimb_sort = int_mb(k_range+p7b-1) * int_mb(k_range+p8b-1) * int_mb
146 &,int_mb(k_range+p8b-1),int_mb(k_range+h4b-1),int_mb(k_range+p9b-1)
165 &,int_mb(k_range+p8b-1),int_mb(k_range+p7b-1),int_mb(k_range+h3b-1)
170 &(p8b - noab - 1 + nvab * (p7b - noab - 1 + nvab * (p6b - noab - 1
175 &,int_mb(k_range+p8b-1),int_mb(k_range+p7b-1),int_mb(k_range+h3b-1)
180 &(p8b - noab - 1 + nvab * (p7b - noab - 1 + nvab * (p6b - noab - 1
185 &,int_mb(k_range+p8b-1),int_mb(k_range+p7b-1),int_mb(k_range+h3b-1)
190 &(p8b - noab - 1 + nvab * (p7b - noab - 1 + nvab * (p6b - noab - 1
195 &,int_mb(k_range+p8b-1),int_mb(k_range+p7b-1),int_mb(k_range+h3b-1)
200 &(p8b - noab - 1 + nvab * (p7b - noab - 1 + nvab * (p6b - noab - 1
203 IF ((p7b .le. p5b) .and. (p6b .le. p8b) .and. (h3b .le. h4b)) THEN
205 &,int_mb(k_range+p8b-1),int_mb(k_range+p7b-1),int_mb(k_range+h3b-1)
210 &(p8b - noab - 1 + nvab * (p6b - noab - 1 + nvab * (p5b - noab - 1
213 IF ((p7b .le. p5b) .and. (p6b .le. p8b) .and. (h4b .le. h1b)) THEN
215 &,int_mb(k_range+p8b-1),int_mb(k_range+p7b-1),int_mb(k_range+h3b-1)
220 &(p8b - noab - 1 + nvab * (p6b - noab - 1 + nvab * (p5b - noab - 1
223 IF ((p7b .le. p5b) .and. (p6b .le. p8b) .and. (h1b .le. h4b) .and.
226 &,int_mb(k_range+p8b-1),int_mb(k_range+p7b-1),int_mb(k_range+h3b-1)
231 &(p8b - noab - 1 + nvab * (p6b - noab - 1 + nvab * (p5b - noab - 1
234 IF ((p7b .le. p5b) .and. (p6b .le. p8b) .and. (h2b .le. h4b) .and.
237 &,int_mb(k_range+p8b-1),int_mb(k_range+p7b-1),int_mb(k_range+h3b-1)
242 &(p8b - noab - 1 + nvab * (p6b - noab - 1 + nvab * (p5b - noab - 1
245 IF ((p5b .le. p7b) .and. (p7b .le. p6b) .and. (p6b .le. p8b) .and.
248 &,int_mb(k_range+p8b-1),int_mb(k_range+p7b-1),int_mb(k_range+h3b-1)
253 &(p8b - noab - 1 + nvab * (p6b - noab - 1 + nvab * (p7b - noab - 1
256 IF ((p5b .le. p7b) .and. (p7b .le. p6b) .and. (p6b .le. p8b) .and.
259 &,int_mb(k_range+p8b-1),int_mb(k_range+p7b-1),int_mb(k_range+h3b-1)
264 &(p8b - noab - 1 + nvab * (p6b - noab - 1 + nvab * (p7b - noab - 1
267 IF ((p5b .le. p7b) .and. (p7b .le. p6b) .and. (p6b .le. p8b) .and.
270 &,int_mb(k_range+p8b-1),int_mb(k_range+p7b-1),int_mb(k_range+h3b-1)
275 &(p8b - noab - 1 + nvab * (p6b - noab - 1 + nvab * (p7b - noab - 1
278 IF ((p5b .le. p7b) .and. (p7b .le. p6b) .and. (p6b .le. p8b) .and.
281 &,int_mb(k_range+p8b-1),int_mb(k_range+p7b-1),int_mb(k_range+h3b-1)
286 &(p8b - noab - 1 + nvab * (p6b - noab - 1 + nvab * (p7b - noab - 1
289 IF ((p7b .le. p5b) .and. (p5b .le. p8b) .and. (p8b .le. p6b) .and.
292 &,int_mb(k_range+p8b-1),int_mb(k_range+p7b-1),int_mb(k_range+h3b-1)
297 &(p6b - noab - 1 + nvab * (p8b - noab - 1 + nvab * (p5b - noab - 1
300 IF ((p7b .le. p5b) .and. (p5b .le. p8b) .and. (p8b .le. p6b) .and.
303 &,int_mb(k_range+p8b-1),int_mb(k_range+p7b-1),int_mb(k_range+h3b-1)
308 &(p6b - noab - 1 + nvab * (p8b - noab - 1 + nvab * (p5b - noab - 1
311 IF ((p7b .le. p5b) .and. (p5b .le. p8b) .and. (p8b .le. p6b) .and.
314 &,int_mb(k_range+p8b-1),int_mb(k_range+p7b-1),int_mb(k_range+h3b-1)
319 &(p6b - noab - 1 + nvab * (p8b - noab - 1 + nvab * (p5b - noab - 1
322 IF ((p7b .le. p5b) .and. (p5b .le. p8b) .and. (p8b .le. p6b) .and.
325 &,int_mb(k_range+p8b-1),int_mb(k_range+p7b-1),int_mb(k_range+h3b-1)
330 &(p6b - noab - 1 + nvab * (p8b - noab - 1 + nvab * (p5b - noab - 1
333 IF ((p5b .le. p7b) .and. (p8b .le. p6b) .and. (h3b .le. h4b)) THEN
335 &,int_mb(k_range+p8b-1),int_mb(k_range+p7b-1),int_mb(k_range+h3b-1)
340 &(p6b - noab - 1 + nvab * (p8b - noab - 1 + nvab * (p7b - noab - 1
343 IF ((p5b .le. p7b) .and. (p8b .le. p6b) .and. (h4b .le. h1b)) THEN
345 &,int_mb(k_range+p8b-1),int_mb(k_range+p7b-1),int_mb(k_range+h3b-1)
350 &(p6b - noab - 1 + nvab * (p8b - noab - 1 + nvab * (p7b - noab - 1
353 IF ((p5b .le. p7b) .and. (p8b .le. p6b) .and. (h1b .le. h4b) .and.
356 &,int_mb(k_range+p8b-1),int_mb(k_range+p7b-1),int_mb(k_range+h3b-1)
361 &(p6b - noab - 1 + nvab * (p8b - noab - 1 + nvab * (p7b - noab - 1
364 IF ((p5b .le. p7b) .and. (p8b .le. p6b) .and. (h2b .le. h4b) .and.
367 &,int_mb(k_range+p8b-1),int_mb(k_range+p7b-1),int_mb(k_range+h3b-1)
372 &(p6b - noab - 1 + nvab * (p8b - noab - 1 + nvab * (p7b - noab - 1
375 IF ((p8b .le. p5b) .and. (h3b .le. h4b)) THEN
377 &,int_mb(k_range+p8b-1),int_mb(k_range+p7b-1),int_mb(k_range+h3b-1)
382 &(p6b - noab - 1 + nvab * (p5b - noab - 1 + nvab * (p8b - noab - 1
385 IF ((p8b .le. p5b) .and. (h4b .le. h1b)) THEN
387 &,int_mb(k_range+p8b-1),int_mb(k_range+p7b-1),int_mb(k_range+h3b-1)
392 &(p6b - noab - 1 + nvab * (p5b - noab - 1 + nvab * (p8b - noab - 1
395 IF ((p8b .le. p5b) .and. (h1b .le. h4b) .and. (h4b .le. h2b)) THEN
397 &,int_mb(k_range+p8b-1),int_mb(k_range+p7b-1),int_mb(k_range+h3b-1)
402 &(p6b - noab - 1 + nvab * (p5b - noab - 1 + nvab * (p8b - noab - 1
405 IF ((p8b .le. p5b) .and. (h2b .le. h4b) .and. (h4b .le. h3b)) THEN
407 &,int_mb(k_range+p8b-1),int_mb(k_range+p7b-1),int_mb(k_range+h3b-1)
412 &(p6b - noab - 1 + nvab * (p5b - noab - 1 + nvab * (p8b - noab - 1