Lines Matching refs:h7b
25 INTEGER h7b
63 DO h7b = 1,noab
64 DO h8b = h7b,noab
71 &)+int_mb(k_spin+h7b-1)+int_mb(k_spin+h8b-1)+int_mb(k_spin+p1b-1)+i
74 IF (int_mb(k_spin+h5b-1)+int_mb(k_spin+h6b-1)+int_mb(k_spin+h7b-1)
78 &k_sym+h7b-1),ieor(int_mb(k_sym+h8b-1),ieor(int_mb(k_sym+p1b-1),ieo
82 &nge+h7b-1) * int_mb(k_range+h8b-1) * int_mb(k_range+p1b-1) * int_m
92 CALL TCE_RESTRICTED_4(h7b,h8b,p3b,p4b,h7b_2,h8b_2,p3b_2,p4b_2)
97 dimb_sort = int_mb(k_range+h7b-1) * int_mb(k_range+h8b-1) * int_mb
120 CALL TCE_SORT_4(dbl_mb(k_b),dbl_mb(k_b_sort),int_mb(k_range+h7b-1)
137 IF ((h6b .le. h7b) .and. (p2b .le. p3b)) THEN
139 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
144 & * (p1b - noab - 1 + nvab * (h8b - 1 + noab * (h7b - 1 + noab * (h
147 IF ((h6b .le. h7b) .and. (p3b .le. p1b) .and. (p2b .le. p4b)) THEN
149 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
154 & * (p3b - noab - 1 + nvab * (h8b - 1 + noab * (h7b - 1 + noab * (h
157 IF ((h6b .le. h7b) .and. (p3b .le. p1b) .and. (p1b .le. p4b) .and.
160 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
165 & * (p3b - noab - 1 + nvab * (h8b - 1 + noab * (h7b - 1 + noab * (h
168 IF ((h6b .le. h7b) .and. (p1b .le. p3b) .and. (p3b .le. p2b) .and.
171 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
176 & * (p1b - noab - 1 + nvab * (h8b - 1 + noab * (h7b - 1 + noab * (h
179 IF ((h6b .le. h7b) .and. (p1b .le. p3b) .and. (p4b .le. p2b)) THEN
181 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
186 & * (p1b - noab - 1 + nvab * (h8b - 1 + noab * (h7b - 1 + noab * (h
189 IF ((h6b .le. h7b) .and. (p4b .le. p1b)) THEN
191 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
196 & * (p3b - noab - 1 + nvab * (h8b - 1 + noab * (h7b - 1 + noab * (h
199 IF ((h7b .le. h5b) .and. (h6b .le. h8b) .and. (p2b .le. p3b)) THEN
201 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
207 &5b - 1 + noab * (h7b - 1)))))))))
209 IF ((h7b .le. h5b) .and. (h6b .le. h8b) .and. (p3b .le. p1b) .and.
212 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
218 &5b - 1 + noab * (h7b - 1)))))))))
220 IF ((h7b .le. h5b) .and. (h6b .le. h8b) .and. (p3b .le. p1b) .and.
223 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
229 &5b - 1 + noab * (h7b - 1)))))))))
231 IF ((h7b .le. h5b) .and. (h6b .le. h8b) .and. (p1b .le. p3b) .and.
234 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
240 &5b - 1 + noab * (h7b - 1)))))))))
242 IF ((h7b .le. h5b) .and. (h6b .le. h8b) .and. (p1b .le. p3b) .and.
245 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
251 &5b - 1 + noab * (h7b - 1)))))))))
253 IF ((h7b .le. h5b) .and. (h6b .le. h8b) .and. (p4b .le. p1b)) THEN
255 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
261 &5b - 1 + noab * (h7b - 1)))))))))
263 IF ((h7b .le. h5b) .and. (h5b .le. h8b) .and. (h8b .le. h6b) .and.
266 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
272 &5b - 1 + noab * (h7b - 1)))))))))
274 IF ((h7b .le. h5b) .and. (h5b .le. h8b) .and. (h8b .le. h6b) .and.
277 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
283 &5b - 1 + noab * (h7b - 1)))))))))
285 IF ((h7b .le. h5b) .and. (h5b .le. h8b) .and. (h8b .le. h6b) .and.
288 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
294 &5b - 1 + noab * (h7b - 1)))))))))
296 IF ((h7b .le. h5b) .and. (h5b .le. h8b) .and. (h8b .le. h6b) .and.
299 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
305 &5b - 1 + noab * (h7b - 1)))))))))
307 IF ((h7b .le. h5b) .and. (h5b .le. h8b) .and. (h8b .le. h6b) .and.
310 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
316 &5b - 1 + noab * (h7b - 1)))))))))
318 IF ((h7b .le. h5b) .and. (h5b .le. h8b) .and. (h8b .le. h6b) .and.
321 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
327 &5b - 1 + noab * (h7b - 1)))))))))
329 IF ((h5b .le. h7b) .and. (h7b .le. h6b) .and. (h6b .le. h8b) .and.
332 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
340 IF ((h5b .le. h7b) .and. (h7b .le. h6b) .and. (h6b .le. h8b) .and.
343 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
351 IF ((h5b .le. h7b) .and. (h7b .le. h6b) .and. (h6b .le. h8b) .and.
354 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
362 IF ((h5b .le. h7b) .and. (h7b .le. h6b) .and. (h6b .le. h8b) .and.
365 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
373 IF ((h5b .le. h7b) .and. (h7b .le. h6b) .and. (h6b .le. h8b) .and.
376 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
384 IF ((h5b .le. h7b) .and. (h7b .le. h6b) .and. (h6b .le. h8b) .and.
387 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
395 IF ((h5b .le. h7b) .and. (h8b .le. h6b) .and. (p2b .le. p3b)) THEN
397 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
405 IF ((h5b .le. h7b) .and. (h8b .le. h6b) .and. (p3b .le. p1b) .and.
408 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
416 IF ((h5b .le. h7b) .and. (h8b .le. h6b) .and. (p3b .le. p1b) .and.
419 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
427 IF ((h5b .le. h7b) .and. (h8b .le. h6b) .and. (p1b .le. p3b) .and.
430 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
438 IF ((h5b .le. h7b) .and. (h8b .le. h6b) .and. (p1b .le. p3b) .and.
441 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
449 IF ((h5b .le. h7b) .and. (h8b .le. h6b) .and. (p4b .le. p1b)) THEN
451 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
461 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
467 &8b - 1 + noab * (h7b - 1)))))))))
471 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
477 &8b - 1 + noab * (h7b - 1)))))))))
482 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
488 &8b - 1 + noab * (h7b - 1)))))))))
493 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
499 &8b - 1 + noab * (h7b - 1)))))))))
503 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
509 &8b - 1 + noab * (h7b - 1)))))))))
513 &,int_mb(k_range+p3b-1),int_mb(k_range+h8b-1),int_mb(k_range+h7b-1)
519 &8b - 1 + noab * (h7b - 1)))))))))