H A D | ccsd2_q_left.F | 55 INTEGER h7b local 89 DO h7b = 1,noab 90 DO h8b = h7b,noab 314 &mb(k_range+h7b-1),4,3,8,7,6,5,2,1,1.0d0) 322 &mb(k_range+h7b-1),4,3,8,7,2,6,5,1,1.0d0) 346 &mb(k_range+h7b-1),4,3,8,7,6,2,1,5,1.0d0) 354 &mb(k_range+h7b-1),4,3,8,7,2,1,6,5,1.0d0) 362 &mb(k_range+h7b-1),8,4,3,7,6,5,2,1,1.0d0) 370 &mb(k_range+h7b-1),8,4,3,7,2,6,5,1,1.0d0) 394 &mb(k_range+h7b-1),8,4,3,7,6,2,1,5,1.0d0) [all …]
|