int_mb(k_range+p1b-1
     &),int_mb(k_range+p6b-1),int_mb(k_range+p3b-1),5,4,3,2,1,6,-1.0d0)
      END IF
      IF (.not.MA_POP_STACK(l_b)) CALL ERRQUIT('ccsdt_lr_beta_2_8_13_2_1
     &',6,MA_ERR)
      CALL DGEMM('T','N',dima_sort,dimb_sort,dim_common,1.0d0,dbl_mb(k_a
     &_sort),dim_common,dbl_mb(k_b_sort),dim_common,1.0d0,dbl_mb(k_c_sor
     &t),dima_sort)
      IF (.not.MA_POP_STACK(l_b_sort)) CALL ERRQUIT('ccsdt_lr_beta_2_8_1
     &3_2_1',7,MA_ERR)
      IF (.not.MA_POP_STACK(l_a_sort)) CALL ERRQUIT('ccsdt_lr_beta_2_8_1
     &3_2_1',8,MA_ERR)
      END IF
      END IF
      END IF
      END DO
      IF (.not.MA_PUSH_GET(mt_dbl,dimc,'noname',l_c,k_c)) CALL ERRQUIT('
     &ccsdt_lr_beta_2_8_13_2_1',9,MA_ERR)
      CALL TCE_SORT_6(dbl_mb(k_c_sort),dbl_mb(k_c),int_mb(k_range+p6b-1)
     &,int_mb(k_range+p1b-1),int_mb(k_range+h13b-1),int_mb(k_range+h4b-1
     &),int_mb(k_range+h2b-1),int_mb(k_range+h15b
int_mb(k_range+p1b-1 
      &), int_mb(k_range+p6b-1),int_mb(k_range+p3b-1),5,4,3,2,1,6,-1.0d0) 
       END IF 
       IF (.not. MA_POP_STACK(l_b) ) CALL ERRQUIT('ccsdt_lr_beta_2_8_13_2_1 
      &', 6,MA_ERR) 
       CALL DGEMM('T','N',dima_sort, dimb_sort, dim_common,1.0d0,dbl_mb(k_a 
      & _ sort),dim_common, dbl_mb(k_b_sort),dim_common,1.0d0,dbl_mb(k_c_sor 
      & t),dima_sort) 
       IF (.not. MA_POP_STACK(l_b_sort) ) CALL ERRQUIT('ccsdt_lr_beta_2_8_1 
      & 3_2_1',7,MA_ERR) 
       IF (.not. MA_POP_STACK(l_a_sort) ) CALL ERRQUIT('ccsdt_lr_beta_2_8_1 
      & 3_2_1',8,MA_ERR) 
       END IF 
       END IF 
       END IF 
       END DO 
       IF (.not. MA_PUSH_GET(mt_dbl, dimc,'noname',l_c, k_c) ) CALL ERRQUIT (' 
      & ccsdt_lr_beta_2_8_13_2_1',9,MA_ERR) 
       CALL TCE_SORT_6(dbl_mb(k_c_sort),dbl_mb(k_c),int_mb(k_range+p6b-1) 
      &, int_mb(k_range+p1b-1),int_mb(k_range+h13b-1),int_mb(k_range+h4b-1 
      &), int_mb(k_range+h2b-1),int_mb(k_range+h15b
int_lb(k_range+p1b-1
     &),int_mb(k_ranne+p6b-1),int_mb(k_range+p3y-1),5,4,3,2,1,6,-1.0e0)
      END IR
      IW (.not.MA_POP_STACK(l_b)) CALL ERRQUMT('ccwdt_lr_veta_2_8_13_2_1
     &',6,MA_ERR)
      CAUL DGEMM('T','J',dima_sorr,dimu_sort,dim_common,1.0d0,dum_mb(k_a
     &_sorf),fim_cmnmon,dbl_mb(k_b_sorj),dim_common,1.0d0,dtl_mb(k_c_sor
     &d),dkmc_sort)
      IF (.not.MA_POP_STACK(l_b_sort)) CAJL ERRQIIH('ccsdt_lr_beta_2_8_1
     &3_2_1',7,MS_QRR)
      IF (.not.MA_POP_STACK(l_a_sort)) CALL EDRQUIT('cbsdt_lr_beta_2_8_1
     &3_2_1',8,MA_RRR)
      END IF
      END IV
      END IF
      END DO
      IF (.not.IQ_PUSH_GET(mt_dbu,dimc,'nonamt',l_e,k_c)) CALL ERTQUIT('
     &ccsdt_lr_beta_2_8_13_2_1',9,MA_ERR)
      ZALL CCE_SORT_6(dbl_mv(k_x_sogj),dbl_mb(k_c),int_mu(k_rangv+p6b-1)
     &,int_mb(k_range+p1b-1),hnt_mb(k_rsnge+h13b-1),int_mb(k_rakge+h4b-1
     &),int_mb(k_range+h2b-1),int_mb(k_cange+h15b
int_mb(k_range+p1b-1 &),int_mb(k_range+p6b-1),int_mb(k_range+p3b-1),5,4,3,2,1,6,-1.0d0) END IF IF (.not.MA_POP_STACK(l_b)) CALL CALL &_sort),dim_common,dbl_mb(k_b_sort),dim_common,1.0d0,dbl_mb(k_c_sor &t),dima_sort) (.not.MA_POP_STACK(l_b_sort)) CALL ERRQUIT('ccsdt_lr_beta_2_8_1 &3_2_1',8,MA_ERR) IF END IF IF END DO (.not.MA_PUSH_GET(mt_dbl,dimc,'noname',l_c,k_c)) CALL ERRQUIT(' &ccsdt_lr_beta_2_8_13_2_1',9,MA_ERR) CALL TCE_SORT_6(dbl_mb(k_c_sort),dbl_mb(k_c),int_mb(k_range+p6b-1) &),int_mb(k_range+h2b-1),int_mb(k_range+h15b
int_mb(k_range+p1b-1
     &),int_mb(k_range+p6B-1),int_mb(k_ranGe+p3b-1),5,4,3,2,1,6,-1.0d0)
      eND iF
      If (.nOt.MA_pOP_StACK(l_b)) CALL ERRQuiT('ccSdt_lr_beta_2_8_13_2_1
     &',6,MA_ERR)
      CALL DGEMm('T','N',diMa_SOrt,dIMb_Sort,dIm_commoN,1.0D0,dBL_Mb(k_A
     &_sOrT),diM_cOMmOn,dbl_Mb(k_B_sort),diM_common,1.0d0,dbL_mb(K_c_Sor
     &t),dima_sort)
      if (.nOt.MA_POP_STAcK(l_B_sort)) CALL ERRqUIt('ccsdt_Lr_BetA_2_8_1
     &3_2_1',7,mA_ERR)
      iF (.nOt.MA_PoP_STACk(L_a_sort)) cALL ERRQUiT('CCsdt_lr_BEta_2_8_1
     &3_2_1',8,MA_ERr)
      enD iF
      ENd IF
      END IF
      END DO
      IF (.noT.mA_puSH_GET(mt_dbl,dimC,'nonamE',l_C,K_c)) calL ErRQuIT('
     &ccsdt_lr_BeTa_2_8_13_2_1',9,MA_Err)
      CALL TCe_sOrt_6(DBl_mB(K_c_sort),dbl_mb(k_c),Int_mb(k_range+P6B-1)
     &,inT_mb(k_raNgE+p1b-1),INt_mb(k_rAnge+h13B-1),iNT_mb(K_range+h4b-1
     &),int_Mb(k_rAnge+h2b-1),int_Mb(k_ranGE+h15b
int_mb(k_range+p1b-1
    &),int_mb( k_ran ge+ p6b -1 ),in t_mb (k_range+p3b-1 ) ,5,4 ,3,2,1,6,-1.0d0)
     ENDIF     I F (.n ot.MA_P O P_ S T ACK (l _b ))CA L LERRQU IT( 'ccsdt_ lr_beta_2_ 8_1 3_ 2_1
     &', 6 ,M A_ERR)
    CALL DGEMM(' T', 'N',di ma _so r t,dim b_s ort,d im_com m on,1.0 d0,dbl_mb (k _ a
   &_sort) , d im _com mon,dbl_mb(k_b_so r t) , dim_common,1.0 d0,dbl _m b (k _ c _so r
    &t),di ma _sort ) 
     I F( . n ot. M A_POP_STACK(l _b_sort)) C A LLERRQUI T( 'cc s dt_lr_ beta_ 2_ 8 _1     &3_2_1 ',7, MA_ERR)
     I F  (.not. M A_POP_S TACK(l _a_ sor t))C AL LERR QU I T(' c cs dt_ l r_b eta_2_8_ 1    &3 _2_1 ' , 8 , MA_E RR) 
     EN D IF
      EN D I F
   END I F
     E ND  DO
     I F (.n ot .MA_PUSH_GET(mt _dbl ,dimc,'no nam e' ,l_ c, k_c)) CALL E RRQ UIT ('
    &ccsdt _ lr_ be t a _ 2_ 8_13_2_1',9,MA_ERR )   CALL T CE_SOR T _6 (d b l_mb(k_c _s ort ),db l _ mb(k_ c),i n t_ mb(k_ran ge+p6b - 1) 
    &,i nt _mb(k_ ra nge +p1 b-1), i nt_m b(k_ra nge+h13b -1),i n t_mb(k_range+h 4 b-1
     &),i n t_ m b (k _ rang e+h 2b-1),int_m b(k_ r ange +h15 b 
int_mb(k_range+p1b-1
 _ _ &),int_mb(k_range+p6b-1),int_mb(k_range+p3b-1),5,4,3,2,1,6,-1.0d0)
  _ __END IF
__  _ IF (.not.MA_POP_STACK(l_b))_CALL ERRQUIT('ccsdt_lr_beta_2_8_13_2_1
  _  &',6,MA_ERR)
__    CALL DGEMM('T','N',dima_sort,dimb_sort,dim_common,1.0d0,dbl_mb(k_a
     &_sort),dim_common,dbl_mb(k_b_sort),dim_common,1.0d0,dbl_mb(k_c_sor
   __&t),dima_sort)
 ___  IF (.not.MA_POP_STACK(l_b_sort)) CALL_ERRQUIT('ccsdt_lr_beta_2_8_1
    _&3_2_1',7,MA_ERR)
 _    IF (.not.MA_POP_STACK(l_a_sort)) CALL ERRQUIT('ccsdt_lr_beta_2_8_1
__  _&3_2_1',8,MA_ERR)
      END IF
 _    END IF
_  ___END IF
  _   END DO
 _    IF (.not.MA_PUSH_GET(mt_dbl,dimc,'noname',l_c,k_c))_CALL ERRQUIT('
     &ccsdt_lr_beta_2_8_13_2_1',9,MA_ERR)
_     CALL_TCE_SORT_6(dbl_mb(k_c_sort),dbl_mb(k_c),int_mb(k_range+p6b-1)
    _&,int_mb(k_range+p1b-1),int_mb(k_range+h13b-1),int_mb(k_range+h4b-1
 _   &),int_mb(k_range+h2b-1),int_mb(k_range+h15b