Lines Matching refs:p8b
26 INTEGER p8b
67 DO p8b = noab+1,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(p8b,h14b,h3b,h4b,p8b_2,h14b_2,h3b_2,h4b_2)
104 dimb_sort = int_mb(k_range+p8b-1) * int_mb(k_range+h3b-1) * int_mb
147 CALL TCE_SORT_4(dbl_mb(k_b),dbl_mb(k_b_sort),int_mb(k_range+p8b-1)
164 IF ((p7b .le. p8b) .and. (h2b .le. h3b)) THEN
166 &,int_mb(k_range+h3b-1),int_mb(k_range+p8b-1),int_mb(k_range+h2b-1)
171 &(p8b - noab - 1 + nvab * (p7b - noab - 1 + nvab * (p6b - noab - 1
174 IF ((p7b .le. p8b) .and. (h3b .le. h1b) .and. (h2b .le. h4b)) THEN
176 &,int_mb(k_range+h3b-1),int_mb(k_range+p8b-1),int_mb(k_range+h2b-1)
181 &(p8b - noab - 1 + nvab * (p7b - noab - 1 + nvab * (p6b - noab - 1
184 IF ((p7b .le. p8b) .and. (h1b .le. h3b) .and. (h3b .le. h2b) .and.
187 &,int_mb(k_range+h3b-1),int_mb(k_range+p8b-1),int_mb(k_range+h2b-1)
192 &(p8b - noab - 1 + nvab * (p7b - noab - 1 + nvab * (p6b - noab - 1
195 IF ((p7b .le. p8b) .and. (h3b .le. h1b) .and. (h1b .le. h4b) .and.
198 &,int_mb(k_range+h3b-1),int_mb(k_range+p8b-1),int_mb(k_range+h2b-1)
203 &(p8b - noab - 1 + nvab * (p7b - noab - 1 + nvab * (p6b - noab - 1
206 IF ((p7b .le. p8b) .and. (h1b .le. h3b) .and. (h4b .le. h2b)) THEN
208 &,int_mb(k_range+h3b-1),int_mb(k_range+p8b-1),int_mb(k_range+h2b-1)
213 &(p8b - noab - 1 + nvab * (p7b - noab - 1 + nvab * (p6b - noab - 1
216 IF ((p7b .le. p8b) .and. (h4b .le. h1b)) THEN
218 &,int_mb(k_range+h3b-1),int_mb(k_range+p8b-1),int_mb(k_range+h2b-1)
223 &(p8b - noab - 1 + nvab * (p7b - noab - 1 + nvab * (p6b - noab - 1
226 IF ((p8b .le. p5b) .and. (h2b .le. h3b)) THEN
228 &,int_mb(k_range+h3b-1),int_mb(k_range+p8b-1),int_mb(k_range+h2b-1)
234 &+ nvab * (p8b - noab - 1)))))))))
236 IF ((p8b .le. p5b) .and. (h3b .le. h1b) .and. (h2b .le. h4b)) THEN
238 &,int_mb(k_range+h3b-1),int_mb(k_range+p8b-1),int_mb(k_range+h2b-1)
244 &+ nvab * (p8b - noab - 1)))))))))
246 IF ((p8b .le. p5b) .and. (h1b .le. h3b) .and. (h3b .le. h2b) .and.
249 &,int_mb(k_range+h3b-1),int_mb(k_range+p8b-1),int_mb(k_range+h2b-1)
255 &+ nvab * (p8b - noab - 1)))))))))
257 IF ((p8b .le. p5b) .and. (h3b .le. h1b) .and. (h1b .le. h4b) .and.
260 &,int_mb(k_range+h3b-1),int_mb(k_range+p8b-1),int_mb(k_range+h2b-1)
266 &+ nvab * (p8b - noab - 1)))))))))
268 IF ((p8b .le. p5b) .and. (h1b .le. h3b) .and. (h4b .le. h2b)) THEN
270 &,int_mb(k_range+h3b-1),int_mb(k_range+p8b-1),int_mb(k_range+h2b-1)
276 &+ nvab * (p8b - noab - 1)))))))))
278 IF ((p8b .le. p5b) .and. (h4b .le. h1b)) THEN
280 &,int_mb(k_range+h3b-1),int_mb(k_range+p8b-1),int_mb(k_range+h2b-1)
286 &+ nvab * (p8b - noab - 1)))))))))
288 IF ((p5b .le. p8b) .and. (p8b .le. p6b) .and. (h2b .le. h3b)) THEN
290 &,int_mb(k_range+h3b-1),int_mb(k_range+p8b-1),int_mb(k_range+h2b-1)
295 &(p7b - noab - 1 + nvab * (p6b - noab - 1 + nvab * (p8b - noab - 1
298 IF ((p5b .le. p8b) .and. (p8b .le. p6b) .and. (h3b .le. h1b) .and.
301 &,int_mb(k_range+h3b-1),int_mb(k_range+p8b-1),int_mb(k_range+h2b-1)
306 &(p7b - noab - 1 + nvab * (p6b - noab - 1 + nvab * (p8b - noab - 1
309 IF ((p5b .le. p8b) .and. (p8b .le. p6b) .and. (h1b .le. h3b) .and.
312 &,int_mb(k_range+h3b-1),int_mb(k_range+p8b-1),int_mb(k_range+h2b-1)
317 &(p7b - noab - 1 + nvab * (p6b - noab - 1 + nvab * (p8b - noab - 1
320 IF ((p5b .le. p8b) .and. (p8b .le. p6b) .and. (h3b .le. h1b) .and.
323 &,int_mb(k_range+h3b-1),int_mb(k_range+p8b-1),int_mb(k_range+h2b-1)
328 &(p7b - noab - 1 + nvab * (p6b - noab - 1 + nvab * (p8b - noab - 1
331 IF ((p5b .le. p8b) .and. (p8b .le. p6b) .and. (h1b .le. h3b) .and.
334 &,int_mb(k_range+h3b-1),int_mb(k_range+p8b-1),int_mb(k_range+h2b-1)
339 &(p7b - noab - 1 + nvab * (p6b - noab - 1 + nvab * (p8b - noab - 1
342 IF ((p5b .le. p8b) .and. (p8b .le. p6b) .and. (h4b .le. h1b)) THEN
344 &,int_mb(k_range+h3b-1),int_mb(k_range+p8b-1),int_mb(k_range+h2b-1)
349 &(p7b - noab - 1 + nvab * (p6b - noab - 1 + nvab * (p8b - noab - 1
352 IF ((p6b .le. p8b) .and. (p8b .le. p7b) .and. (h2b .le. h3b)) THEN
354 &,int_mb(k_range+h3b-1),int_mb(k_range+p8b-1),int_mb(k_range+h2b-1)
359 &(p7b - noab - 1 + nvab * (p8b - noab - 1 + nvab * (p6b - noab - 1
362 IF ((p6b .le. p8b) .and. (p8b .le. p7b) .and. (h3b .le. h1b) .and.
365 &,int_mb(k_range+h3b-1),int_mb(k_range+p8b-1),int_mb(k_range+h2b-1)
370 &(p7b - noab - 1 + nvab * (p8b - noab - 1 + nvab * (p6b - noab - 1
373 IF ((p6b .le. p8b) .and. (p8b .le. p7b) .and. (h1b .le. h3b) .and.
376 &,int_mb(k_range+h3b-1),int_mb(k_range+p8b-1),int_mb(k_range+h2b-1)
381 &(p7b - noab - 1 + nvab * (p8b - noab - 1 + nvab * (p6b - noab - 1
384 IF ((p6b .le. p8b) .and. (p8b .le. p7b) .and. (h3b .le. h1b) .and.
387 &,int_mb(k_range+h3b-1),int_mb(k_range+p8b-1),int_mb(k_range+h2b-1)
392 &(p7b - noab - 1 + nvab * (p8b - noab - 1 + nvab * (p6b - noab - 1
395 IF ((p6b .le. p8b) .and. (p8b .le. p7b) .and. (h1b .le. h3b) .and.
398 &,int_mb(k_range+h3b-1),int_mb(k_range+p8b-1),int_mb(k_range+h2b-1)
403 &(p7b - noab - 1 + nvab * (p8b - noab - 1 + nvab * (p6b - noab - 1
406 IF ((p6b .le. p8b) .and. (p8b .le. p7b) .and. (h4b .le. h1b)) THEN
408 &,int_mb(k_range+h3b-1),int_mb(k_range+p8b-1),int_mb(k_range+h2b-1)
413 &(p7b - noab - 1 + nvab * (p8b - noab - 1 + nvab * (p6b - noab - 1