Lines Matching refs:itss
714 do itss = 1, ntss_tp
715 idx = ibtss_tp(itss) - 1
718 nel_ca = ielsum(itss_tp(1,1,itss),ngas)
719 nel_cb = ielsum(itss_tp(1,2,itss),ngas)
720 nel_aa = ielsum(itss_tp(1,3,itss),ngas)
721 nel_ab = ielsum(itss_tp(1,4,itss),ngas)
726 call occ_to_grp(itss_tp(1,1,itss),igrp_ca,1)
727 call occ_to_grp(itss_tp(1,2,itss),igrp_cb,1)
728 call occ_to_grp(itss_tp(1,3,itss),igrp_aa,1)
729 call occ_to_grp(itss_tp(1,4,itss),igrp_ab,1)
732 call diag_exc_cc(itss_tp(1,1,itss),itss_tp(1,2,itss),
733 & itss_tp(1,3,itss),itss_tp(1,4,itss),