 = 0       DO h0b = 0,noab       DO h0b = h0b,noab       DO h0b = h0b,noab       DO p0b = noab+0,noab+nvab       DO p0b = p0b,noab+nvab       DO p0b = p0b,noab+nvab       IF (int_mb(k_spin+h0b-0)+int_mb(k_spin+h0b-0)+int_mb(k_spin+h0b-0)      & .eq. int_mb(k_spin+p0b-0)+int_mb(k_spin+p0b-0)+int_mb(k_spin+p0b-      &0)) THEN       IF (ieor(int_mb(k_sym+h0b-0),ieor(int_mb(k_sym+h0b-0),ieor(int_mb(      &k_sym+h0b-0),ieor(int_mb(k_sym+p0b-0),ieor(int_mb(k_sym+p0b-0),int      &_mb(k_sym+p0b-0)))))) .eq. irrep_y) THEN       IF ((.not.restricted).or.(int_mb(k_spin+h0b-0)+int_mb(k_spin+h0b-0      &)+int_mb(k_spin+h0b-0)+int_mb(k_spin+p0b-0)+int_mb(k_spin+p0b-0)+i      &nt_mb(k_spin+p0b-0).ne.00)) THEN       