      SUBROUTINE ccsdt_lr_beta_2(d_f1,d_i0,d_t1,d_t2,d_t3,d_tra1,d_tra2,
     &d_tra3,d_trb1,d_trb2,d_trb3,d_v2,d_y1,d_y2,d_y3,k_f1_offset,k_i0_o
     &ffset,k_t1_offset,k_t2_offset,k_t3_offset,k_tra1_offset,k_tra2_off
     &set,k_tra3_offset,k_trb1_offset,k_trb2_offset,k_trb3_offset,k_v2_o
     &ffset,k_y1_offset,k_y2_offset,k_y3_offset)
C     $Id$
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
C     i0 ( )_ytrbtraf + = -1 * Sum ( p10 h9 ) * i1 ( p10 h9 )_ytrbtra * f ( h9 p10 )_f
C         i1 ( p10 h9 )_ytrbtra + = 1 * Sum ( h2 ) * tra ( p10 h2 )_tra * i2 ( h2 h9 )_ytrb
C             i2 ( h2 h9 )_ytrb + = 1 * Sum ( p3 ) * trb ( p3 h9 )_trb * y ( h2 p3 )_y
C             i2 ( h2 h9 )_ytrb + = -1/2 * Sum ( h5 p3 p4 ) * trb ( p3 p4 h5 h9 )_trb * y ( h2 h5 p3 p4 )_y
C             i2 ( h2 h9 )_ytrb + = 1/12 * Sum ( h6 h7 p3 p4 p5 ) * trb ( p3 p4 p5 h6 h7 h9 )_trb * y ( h2 h6 h7 p3 p4 p5 )_y
C         i1 ( p10 h9 )_ytratrb + = -1/2 * Sum ( h8 ) * trb ( p10 h8 )_trb * i2 ( h8 h9 )_ytra
C             i2 ( h8 h9 )_ytra + = -1 * Sum ( h5 p3 p4 ) * tra ( p3 p4 h5 h9 )_tra * y ( h5 h8 p3 p4 )_y
C             i2 ( h8 h9 )_ytra + = -1/6 * Sum ( h6 h7 p3 p4 p5 ) * tra ( p3 p4 p5 h6 h7 h9 )_tra * y ( h6 h7 h8 p3 p4 p5 )_y
C             i2 ( h8 h9 )_ytra + = -2 * Sum ( p3 ) * tra ( p3 h9 )_tra * y ( h8 p3 )_y
C         i1 ( p10 h9 )_ytrbtra + = -1/2 * Sum ( h1 h3 p2 ) * tra ( p2 p10 h1 h3 )_tra * i2 ( h1 h3 h9 p2 )_ytrb
C             i2 ( h1 h3 h9 p2 )_ytrb + = -1 * Sum ( p6 ) * trb ( p6 h9 )_trb * y ( h1 h3 p2 p6 )_y
C             i2 ( h1 h3 h9 p2 )_ytrb + = 1/2 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h9 )_trb * y ( h1 h3 h7 p2 p5 p6 )_y
C         i1 ( p10 h9 )_ytrbtra + = 1/12 * Sum ( h5 h6 h7 p3 p4 ) * tra ( p3 p4 p10 h5 h6 h7 )_tra * i2 ( h5 h6 h7 h9 p3 p4 )_ytrb
C             i2 ( h5 h6 h7 h9 p3 p4 )_ytrb + = 1 * Sum ( p8 ) * trb ( p8 h9 )_trb * y ( h5 h6 h7 p3 p4 p8 )_y
C         i1 ( p10 h9 )_ytratrb + = -1/2 * Sum ( h1 h3 p2 ) * trb ( p2 p10 h1 h3 )_trb * i2 ( h1 h3 h9 p2 )_ytra
C             i2 ( h1 h3 h9 p2 )_ytra + = -1 * Sum ( p6 ) * tra ( p6 h9 )_tra * y ( h1 h3 p2 p6 )_y
C             i2 ( h1 h3 h9 p2 )_ytra + = 1/2 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h9 )_tra * y ( h1 h3 h7 p2 p5 p6 )_y
C         i1 ( p10 h9 )_ytratrb + = 1/12 * Sum ( h5 h6 h7 p3 p4 ) * trb ( p3 p4 p10 h5 h6 h7 )_trb * i2 ( h5 h6 h7 h9 p3 p4 )_ytra
C             i2 ( h5 h6 h7 h9 p3 p4 )_ytra + = 1 * Sum ( p8 ) * tra ( p8 h9 )_tra * y ( h5 h6 h7 p3 p4 p8 )_y
C     i0 ( )_vtrbtray + = 1 * Sum ( p9 h7 ) * y ( h7 p9 )_y * i1 ( p9 h7 )_vtrbtra
C         i1 ( p9 h7 )_vtrbtra + = 1 * Sum ( h10 ) * tra ( p9 h10 )_tra * i2 ( h10 h7 )_vtrb
C             i2 ( h10 h7 )_vtrb + = 1 * Sum ( h4 p3 ) * trb ( p3 h4 )_trb * v ( h4 h10 h7 p3 )_v
C             i2 ( h10 h7 )_vtrb + = -1/2 * Sum ( h4 p1 p2 ) * trb ( p1 p2 h4 h7 )_trb * v ( h4 h10 p1 p2 )_v
C             i2 ( h10 h7 )_vtrbt + = -1 * Sum ( p1 ) * t ( p1 h7 )_t * i3 ( h10 p1 )_vtrb
C                 i3 ( h10 p1 )_vtrb + = -1 * Sum ( h6 p5 ) * trb ( p5 h6 )_trb * v ( h6 h10 p1 p5 )_v
C             i2 ( h10 h7 )_vttrb + = -1 * Sum ( p1 ) * trb ( p1 h7 )_trb * i3 ( h10 p1 )_vt
C                 i3 ( h10 p1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h10 p1 p5 )_v
C         i1 ( p9 h7 )_vtrbtra + = 1 * Sum ( p1 ) * tra ( p1 h7 )_tra * i2 ( p9 p1 )_vtrb
C             i2 ( p9 p1 )_vtrb + = -1 * Sum ( h4 p3 ) * trb ( p3 h4 )_trb * v ( h4 p9 p1 p3 )_v
C         i1 ( p9 h7 )_vtrbtra + = 1/2 * Sum ( h3 h4 p2 ) * tra ( p2 p9 h3 h4 )_tra * i2 ( h3 h4 h7 p2 )_vtrb
C             i2 ( h3 h4 h7 p2 )_vtrb + = -1 * Sum ( p5 ) * trb ( p5 h7 )_trb * v ( h3 h4 p2 p5 )_v
C         i1 ( p9 h7 )_vtratrb + = -1/2 * Sum ( h10 ) * trb ( p9 h10 )_trb * i2 ( h10 h7 )_vtra
C             i2 ( h10 h7 )_vtra + = 1 * Sum ( h4 p1 p2 ) * tra ( p1 p2 h4 h7 )_tra * v ( h4 h10 p1 p2 )_v
C             i2 ( h10 h7 )_vtra + = -2 * Sum ( h4 p3 ) * tra ( p3 h4 )_tra * v ( h4 h10 h7 p3 )_v
C             i2 ( h10 h7 )_vttra + = 2 * Sum ( p1 ) * tra ( p1 h7 )_tra * i3 ( h10 p1 )_vt
C             i2 ( h10 h7 )_vtrat + = 2 * Sum ( p1 ) * t ( p1 h7 )_t * i3 ( h10 p1 )_vtra
C                 i3 ( h10 p1 )_vtra + = -1 * Sum ( h6 p5 ) * tra ( p5 h6 )_tra * v ( h6 h10 p1 p5 )_v
C         i1 ( p9 h7 )_vtrbtra + = 1 * Sum ( h4 p2 ) * tra ( p2 p9 h4 h7 )_tra * i2 ( h4 p2 )_vtrb
C             i2 ( h4 p2 )_vtrb + = 1 * Sum ( h6 p5 ) * trb ( p5 h6 )_trb * v ( h4 h6 p2 p5 )_v
C         i1 ( p9 h7 )_vtratrb + = 1 * Sum ( p1 ) * trb ( p1 h7 )_trb * i2 ( p9 p1 )_vtra
C             i2 ( p9 p1 )_vtra + = -1 * Sum ( h4 p3 ) * tra ( p3 h4 )_tra * v ( h4 p9 p1 p3 )_v
C         i1 ( p9 h7 )_vtratrb + = 1/2 * Sum ( h3 h4 p2 ) * trb ( p2 p9 h3 h4 )_trb * i2 ( h3 h4 h7 p2 )_vtra
C             i2 ( h3 h4 h7 p2 )_vtra + = -1 * Sum ( p5 ) * tra ( p5 h7 )_tra * v ( h3 h4 p2 p5 )_v
C         i1 ( p9 h7 )_vtratrb + = 1 * Sum ( h4 p2 ) * trb ( p2 p9 h4 h7 )_trb * i2 ( h4 p2 )_vtra
C             i2 ( h4 p2 )_vtra + = 1 * Sum ( h6 p5 ) * tra ( p5 h6 )_tra * v ( h4 h6 p2 p5 )_v
C         i1 ( p9 h7 )_vtratrbt + = -1 * Sum ( h4 ) * t ( p9 h4 )_t * i2 ( h4 h7 )_vtratrb
C             i2 ( h4 h7 )_vtratrb + = 1 * Sum ( p1 ) * trb ( p1 h7 )_trb * i3 ( h4 p1 )_vtra
C                 i3 ( h4 p1 )_vtra + = 1 * Sum ( h6 p5 ) * tra ( p5 h6 )_tra * v ( h4 h6 p1 p5 )_v
C             i2 ( h4 h7 )_vtrbtra + = 1 * Sum ( p1 ) * tra ( p1 h7 )_tra * i3 ( h4 p1 )_vtrb
C                 i3 ( h4 p1 )_vtrb + = 1 * Sum ( h6 p5 ) * trb ( p5 h6 )_trb * v ( h4 h6 p1 p5 )_v
C     i0 ( )_ytrbtrav + = -1/4 * Sum ( h6 h7 h11 h12 ) * i1 ( h6 h7 h11 h12 )_ytrbtra * v ( h11 h12 h6 h7 )_v
C         i1 ( h6 h7 h11 h12 )_ytrbtra + = 1 * Sum ( p1 ) * tra ( p1 h11 )_tra * i2 ( h6 h7 h12 p1 )_ytrb
C             i2 ( h6 h7 h12 p1 )_ytrb + = -1 * Sum ( p3 ) * trb ( p3 h12 )_trb * y ( h6 h7 p1 p3 )_y
C         i1 ( h6 h7 h11 h12 )_ytratrb + = -1 * Sum ( p5 ) * trb ( p5 h12 )_trb * i2 ( h6 h7 h11 p5 )_ytra
C             i2 ( h6 h7 h11 p5 )_ytra + = 1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h11 )_tra * y ( h3 h6 h7 p1 p2 p5 )_y
C         i1 ( h6 h7 h11 h12 )_ytratrb + = 1 * Sum ( p1 ) * trb ( p1 h11 )_trb * i2 ( h6 h7 h12 p1 )_ytra
C             i2 ( h6 h7 h12 p1 )_ytra + = -1 * Sum ( p3 ) * tra ( p3 h12 )_tra * y ( h6 h7 p1 p3 )_y
C         i1 ( h6 h7 h11 h12 )_ytrbtra + = -1 * Sum ( p5 ) * tra ( p5 h12 )_tra * i2 ( h6 h7 h11 p5 )_ytrb
C             i2 ( h6 h7 h11 p5 )_ytrb + = 1 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h11 )_trb * y ( h3 h6 h7 p1 p2 p5 )_y
C     i0 ( )_ytrbtrav + = 1 * Sum ( h11 p7 h9 p10 ) * i1 ( h11 p7 h9 p10 )_ytrbtra * v ( h9 p10 h11 p7 )_v
C         i1 ( h11 p7 h9 p10 )_ytrbtra + = 1 * Sum ( h4 ) * tra ( p7 h4 )_tra * i2 ( h4 h11 h9 p10 )_ytrb
C             i2 ( h4 h11 h9 p10 )_ytrb + = 1 * Sum ( p3 ) * trb ( p3 h9 )_trb * y ( h4 h11 p3 p10 )_y
C             i2 ( h4 h11 h9 p10 )_ytrb + = 1/2 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h9 )_trb * y ( h3 h4 h11 p1 p2 p10 )_y
C         i1 ( h11 p7 h9 p10 )_ytratrb + = -1/2 * Sum ( h4 ) * trb ( p7 h4 )_trb * i2 ( h4 h11 h9 p10 )_ytra
C             i2 ( h4 h11 h9 p10 )_ytra + = -1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h9 )_tra * y ( h3 h4 h11 p1 p2 p10 )_y
C             i2 ( h4 h11 h9 p10 )_ytra + = -2 * Sum ( p3 ) * tra ( p3 h9 )_tra * y ( h4 h11 p3 p10 )_y
C         i1 ( h11 p7 h9 p10 )_ytrbtra + = -1/2 * Sum ( h3 h4 p1 ) * tra ( p1 p7 h3 h4 )_tra * i2 ( h3 h4 h11 h9 p1 p10 )_ytrb
C             i2 ( h3 h4 h11 h9 p1 p10 )_ytrb + = -1 * Sum ( p5 ) * trb ( p5 h9 )_trb * y ( h3 h4 h11 p1 p5 p10 )_y
C         i1 ( h11 p7 h9 p10 )_ytratrb + = -1/2 * Sum ( h3 h4 p1 ) * trb ( p1 p7 h3 h4 )_trb * i2 ( h3 h4 h11 h9 p1 p10 )_ytra
C             i2 ( h3 h4 h11 h9 p1 p10 )_ytra + = -1 * Sum ( p5 ) * tra ( p5 h9 )_tra * y ( h3 h4 h11 p1 p5 p10 )_y
C     i0 ( )_vtrbtray + = 1/4 * Sum ( p10 p11 h13 h9 ) * y ( h9 h13 p10 p11 )_y * i1 ( p10 p11 h9 h13 )_vtrbtra
C         i1 ( p10 p11 h9 h13 )_vtrbtra + = 1 * Sum ( p1 ) * tra ( p1 h13 )_tra * i2 ( p10 p11 h9 p1 )_vtrb
C             i2 ( p10 p11 h9 p1 )_vtrb + = -1 * Sum ( p3 ) * trb ( p3 h9 )_trb * v ( p10 p11 p1 p3 )_v
C         i1 ( p10 p11 h9 h13 )_vtrbtra + = 4 * Sum ( h4 p2 ) * tra ( p2 p10 h4 h13 )_tra * i2 ( h4 p11 h9 p2 )_vtrb
C             i2 ( h4 p11 h9 p2 )_vtrb + = -1 * Sum ( p5 ) * trb ( p5 h9 )_trb * v ( h4 p11 p2 p5 )_v
C             i2 ( h4 p11 h9 p2 )_vtrb + = -1/2 * Sum ( h8 p6 ) * trb ( p6 p11 h8 h9 )_trb * v ( h4 h8 p2 p6 )_v
C         i1 ( p10 p11 h9 h13 )_vtratrb + = 1 * Sum ( h7 ) * trb ( p10 h7 )_trb * i2 ( h7 p11 h9 h13 )_vtra
C             i2 ( h7 p11 h9 h13 )_vtra + = -1 * Sum ( p1 p2 ) * tra ( p1 p2 h9 h13 )_tra * v ( h7 p11 p1 p2 )_v
C             i2 ( h7 p11 h9 h13 )_vtrat + = -2 * Sum ( p1 ) * t ( p1 h13 )_t * i3 ( h7 p11 h9 p1 )_vtra
C                 i3 ( h7 p11 h9 p1 )_vtra + = -1 * Sum ( p3 ) * tra ( p3 h9 )_tra * v ( h7 p11 p1 p3 )_v
C             i2 ( h7 p11 h9 h13 )_vtrat + = 1/2 * Sum ( h4 ) * t ( p11 h4 )_t * i3 ( h4 h7 h9 h13 )_vtra
C                 i3 ( h4 h7 h9 h13 )_vtra + = -1 * Sum ( p5 p6 ) * tra ( p5 p6 h9 h13 )_tra * v ( h4 h7 p5 p6 )_v
C             i2 ( h7 p11 h9 h13 )_vttra + = 2 * Sum ( p6 ) * tra ( p6 p11 h9 h13 )_tra * i3 ( h7 p6 )_vt
C                 i3 ( h7 p6 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h7 p3 p6 )_v
C             i2 ( h7 p11 h9 h13 )_vttra + = -2 * Sum ( p1 ) * tra ( p1 h13 )_tra * i3 ( h7 p11 h9 p1 )_vt
C                 i3 ( h7 p11 h9 p1 )_vt + = -1 * Sum ( p3 ) * t ( p3 h9 )_t * v ( h7 p11 p1 p3 )_v
C             i2 ( h7 p11 h9 h13 )_vttra + = 1/2 * Sum ( h4 ) * tra ( p11 h4 )_tra * i3 ( h4 h7 h9 h13 )_vt
C                 i3 ( h4 h7 h9 h13 )_vt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h9 h13 )_t * v ( h4 h7 p5 p6 )_v
C             i2 ( h7 p11 h9 h13 )_vtrat + = 2 * Sum ( p6 ) * t ( p6 p11 h9 h13 )_t * i3 ( h7 p6 )_vtra
C                 i3 ( h7 p6 )_vtra + = -1 * Sum ( h4 p3 ) * tra ( p3 h4 )_tra * v ( h4 h7 p3 p6 )_v
C         i1 ( p10 p11 h9 h13 )_vtrbtra + = -2 * Sum ( p2 ) * tra ( p2 p10 h9 h13 )_tra * i2 ( p11 p2 )_vtrb
C             i2 ( p11 p2 )_vtrb + = -1 * Sum ( h6 p5 ) * trb ( p5 h6 )_trb * v ( h6 p11 p2 p5 )_v
C             i2 ( p11 p2 )_vtrb + = 1/2 * Sum ( h7 h8 p6 ) * trb ( p6 p11 h7 h8 )_trb * v ( h7 h8 p2 p6 )_v
C         i1 ( p10 p11 h9 h13 )_vtrbtra + = 1 * Sum ( h5 h6 p3 ) * tra ( p3 p10 p11 h5 h6 h13 )_tra * i2 ( h5 h6 h9 p3 )_vtrb
C             i2 ( h5 h6 h9 p3 )_vtrb + = -1 * Sum ( p7 ) * trb ( p7 h9 )_trb * v ( h5 h6 p3 p7 )_v
C         i1 ( p10 p11 h9 h13 )_vtrbtra + = 1 * Sum ( h6 p3 ) * tra ( p3 p10 p11 h6 h9 h13 )_tra * i2 ( h6 p3 )_vtrb
C             i2 ( h6 p3 )_vtrb + = 1 * Sum ( h8 p7 ) * trb ( p7 h8 )_trb * v ( h6 h8 p3 p7 )_v
C         i1 ( p10 p11 h9 h13 )_vtrbtra + = 1 * Sum ( h4 ) * tra ( p10 p11 h4 h13 )_tra * i2 ( h4 h9 )_vtrb
C             i2 ( h4 h9 )_vtrb + = 1 * Sum ( h8 p5 p6 ) * trb ( p5 p6 h8 h9 )_trb * v ( h4 h8 p5 p6 )_v
C         i1 ( p10 p11 h9 h13 )_vtratrb + = 1 * Sum ( p1 ) * trb ( p1 h13 )_trb * i2 ( p10 p11 h9 p1 )_vtra
C             i2 ( p10 p11 h9 p1 )_vtra + = -1 * Sum ( p3 ) * tra ( p3 h9 )_tra * v ( p10 p11 p1 p3 )_v
C         i1 ( p10 p11 h9 h13 )_vtratrb + = 4 * Sum ( h4 p2 ) * trb ( p2 p10 h4 h13 )_trb * i2 ( h4 p11 h9 p2 )_vtra
C             i2 ( h4 p11 h9 p2 )_vtra + = -1 * Sum ( p5 ) * tra ( p5 h9 )_tra * v ( h4 p11 p2 p5 )_v
C             i2 ( h4 p11 h9 p2 )_vtra + = -1/2 * Sum ( h8 p6 ) * tra ( p6 p11 h8 h9 )_tra * v ( h4 h8 p2 p6 )_v
C         i1 ( p10 p11 h9 h13 )_vtrbtra + = 1 * Sum ( h7 ) * tra ( p10 h7 )_tra * i2 ( h7 p11 h9 h13 )_vtrb
C             i2 ( h7 p11 h9 h13 )_vtrb + = -1 * Sum ( p1 p2 ) * trb ( p1 p2 h9 h13 )_trb * v ( h7 p11 p1 p2 )_v
C             i2 ( h7 p11 h9 h13 )_vttrb + = 1/2 * Sum ( h4 ) * trb ( p11 h4 )_trb * i3 ( h4 h7 h9 h13 )_vt
C             i2 ( h7 p11 h9 h13 )_vtrbt + = 2 * Sum ( p6 ) * t ( p6 p11 h9 h13 )_t * i3 ( h7 p6 )_vtrb
C                 i3 ( h7 p6 )_vtrb + = -1 * Sum ( h4 p3 ) * trb ( p3 h4 )_trb * v ( h4 h7 p3 p6 )_v
C             i2 ( h7 p11 h9 h13 )_vttrb + = -2 * Sum ( p1 ) * trb ( p1 h13 )_trb * i3 ( h7 p11 h9 p1 )_vt
C             i2 ( h7 p11 h9 h13 )_vtrbt + = 1/2 * Sum ( h4 ) * t ( p11 h4 )_t * i3 ( h4 h7 h9 h13 )_vtrb
C                 i3 ( h4 h7 h9 h13 )_vtrb + = -1 * Sum ( p5 p6 ) * trb ( p5 p6 h9 h13 )_trb * v ( h4 h7 p5 p6 )_v
C             i2 ( h7 p11 h9 h13 )_vttrb + = 2 * Sum ( p6 ) * trb ( p6 p11 h9 h13 )_trb * i3 ( h7 p6 )_vt
C             i2 ( h7 p11 h9 h13 )_vtrbt + = -2 * Sum ( p1 ) * t ( p1 h13 )_t * i3 ( h7 p11 h9 p1 )_vtrb
C                 i3 ( h7 p11 h9 p1 )_vtrb + = -1 * Sum ( p3 ) * trb ( p3 h9 )_trb * v ( h7 p11 p1 p3 )_v
C         i1 ( p10 p11 h9 h13 )_vtratrb + = -2 * Sum ( p2 ) * trb ( p2 p10 h9 h13 )_trb * i2 ( p11 p2 )_vtra
C             i2 ( p11 p2 )_vtra + = -1 * Sum ( h6 p5 ) * tra ( p5 h6 )_tra * v ( h6 p11 p2 p5 )_v
C             i2 ( p11 p2 )_vtra + = 1/2 * Sum ( h7 h8 p6 ) * tra ( p6 p11 h7 h8 )_tra * v ( h7 h8 p2 p6 )_v
C         i1 ( p10 p11 h9 h13 )_vtratrb + = 1 * Sum ( h5 h6 p3 ) * trb ( p3 p10 p11 h5 h6 h13 )_trb * i2 ( h5 h6 h9 p3 )_vtra
C             i2 ( h5 h6 h9 p3 )_vtra + = -1 * Sum ( p7 ) * tra ( p7 h9 )_tra * v ( h5 h6 p3 p7 )_v
C         i1 ( p10 p11 h9 h13 )_vtratrb + = 1 * Sum ( h6 p3 ) * trb ( p3 p10 p11 h6 h9 h13 )_trb * i2 ( h6 p3 )_vtra
C             i2 ( h6 p3 )_vtra + = 1 * Sum ( h8 p7 ) * tra ( p7 h8 )_tra * v ( h6 h8 p3 p7 )_v
C         i1 ( p10 p11 h9 h13 )_vtratrb + = 1 * Sum ( h4 ) * trb ( p10 p11 h4 h13 )_trb * i2 ( h4 h9 )_vtra
C             i2 ( h4 h9 )_vtra + = 1 * Sum ( h8 p5 p6 ) * tra ( p5 p6 h8 h9 )_tra * v ( h4 h8 p5 p6 )_v
C         i1 ( p10 p11 h9 h13 )_vtrbtrat + = -2 * Sum ( h2 ) * t ( p10 h2 )_t * i2 ( h2 p11 h9 h13 )_vtrbtra
C             i2 ( h2 p11 h9 h13 )_vtrbtra + = 1 * Sum ( p1 ) * tra ( p1 h13 )_tra * i3 ( h2 p11 h9 p1 )_vtrb
C                 i3 ( h2 p11 h9 p1 )_vtrb + = -1 * Sum ( p3 ) * trb ( p3 h9 )_trb * v ( h2 p11 p1 p3 )_v
C             i2 ( h2 p11 h9 h13 )_vtrbtra + = -1/4 * Sum ( h4 ) * tra ( p11 h4 )_tra * i3 ( h2 h4 h9 h13 )_vtrb
C                 i3 ( h2 h4 h9 h13 )_vtrb + = 1 * Sum ( p5 p6 ) * trb ( p5 p6 h9 h13 )_trb * v ( h2 h4 p5 p6 )_v
C             i2 ( h2 p11 h9 h13 )_vtratrb + = -1 * Sum ( p6 ) * trb ( p6 p11 h9 h13 )_trb * i3 ( h2 p6 )_vtra
C                 i3 ( h2 p6 )_vtra + = 1 * Sum ( h4 p3 ) * tra ( p3 h4 )_tra * v ( h2 h4 p3 p6 )_v
C             i2 ( h2 p11 h9 h13 )_vtratrb + = 1 * Sum ( p1 ) * trb ( p1 h13 )_trb * i3 ( h2 p11 h9 p1 )_vtra
C                 i3 ( h2 p11 h9 p1 )_vtra + = -1 * Sum ( p3 ) * tra ( p3 h9 )_tra * v ( h2 p11 p1 p3 )_v
C             i2 ( h2 p11 h9 h13 )_vtratrb + = -1/4 * Sum ( h4 ) * trb ( p11 h4 )_trb * i3 ( h2 h4 h9 h13 )_vtra
C                 i3 ( h2 h4 h9 h13 )_vtra + = 1 * Sum ( p5 p6 ) * tra ( p5 p6 h9 h13 )_tra * v ( h2 h4 p5 p6 )_v
C             i2 ( h2 p11 h9 h13 )_vtrbtra + = -1 * Sum ( p6 ) * tra ( p6 p11 h9 h13 )_tra * i3 ( h2 p6 )_vtrb
C                 i3 ( h2 p6 )_vtrb + = 1 * Sum ( h4 p3 ) * trb ( p3 h4 )_trb * v ( h2 h4 p3 p6 )_v
C         i1 ( p10 p11 h9 h13 )_vtrbtrat + = -2 * Sum ( h8 ) * t ( p10 p11 h8 h9 )_t * i2 ( h8 h13 )_vtrbtra
C             i2 ( h8 h13 )_vtrbtra + = 1 * Sum ( p1 ) * tra ( p1 h13 )_tra * i3 ( h8 p1 )_vtrb
C                 i3 ( h8 p1 )_vtrb + = 1 * Sum ( h4 p3 ) * trb ( p3 h4 )_trb * v ( h4 h8 p1 p3 )_v
C             i2 ( h8 h13 )_vtratrb + = 1 * Sum ( p1 ) * trb ( p1 h13 )_trb * i3 ( h8 p1 )_vtra
C                 i3 ( h8 p1 )_vtra + = 1 * Sum ( h4 p3 ) * tra ( p3 h4 )_tra * v ( h4 h8 p1 p3 )_v
C         i1 ( p10 p11 h9 h13 )_vtrattrb + = -2 * Sum ( h8 ) * trb ( p10 p11 h8 h9 )_trb * i2 ( h8 h13 )_vtrat
C             i2 ( h8 h13 )_vtrat + = 1 * Sum ( p1 ) * t ( p1 h13 )_t * i3 ( h8 p1 )_vtra
C             i2 ( h8 h13 )_vttra + = 1 * Sum ( p1 ) * tra ( p1 h13 )_tra * i3 ( h8 p1 )_vt
C                 i3 ( h8 p1 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h8 p1 p3 )_v
C         i1 ( p10 p11 h9 h13 )_vttrbtra + = -2 * Sum ( h8 ) * tra ( p10 p11 h8 h9 )_tra * i2 ( h8 h13 )_vttrb
C             i2 ( h8 h13 )_vttrb + = 1 * Sum ( p1 ) * trb ( p1 h13 )_trb * i3 ( h8 p1 )_vt
C             i2 ( h8 h13 )_vtrbt + = 1 * Sum ( p1 ) * t ( p1 h13 )_t * i3 ( h8 p1 )_vtrb
C     i0 ( )_ytratrbv + = 1/4 * Sum ( h13 p10 h11 h12 ) * i1 ( h13 p10 h11 h12 )_ytratrb * v ( h11 h12 h13 p10 )_v
C         i1 ( h13 p10 h11 h12 )_ytratrb + = 1 * Sum ( h8 ) * trb ( p10 h8 )_trb * i2 ( h8 h13 h11 h12 )_ytra
C             i2 ( h8 h13 h11 h12 )_ytra + = -1 * Sum ( p1 p2 ) * tra ( p1 p2 h11 h12 )_tra * y ( h8 h13 p1 p2 )_y
C             i2 ( h8 h13 h11 h12 )_ytra + = -1/3 * Sum ( h4 p1 p2 p3 ) * tra ( p1 p2 p3 h4 h11 h12 )_tra * y ( h4 h8 h13 p1 p2 p3 )_y
C             i2 ( h8 h13 h11 h12 )_ytrat + = -2 * Sum ( p3 ) * t ( p3 h11 )_t * i3 ( h8 h13 h12 p3 )_ytra
C                 i3 ( h8 h13 h12 p3 )_ytra + = 1 * Sum ( p5 ) * tra ( p5 h12 )_tra * y ( h8 h13 p3 p5 )_y
C                 i3 ( h8 h13 h12 p3 )_ytra + = -1 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h12 )_tra * y ( h7 h8 h13 p3 p5 p6 )_y
C             i2 ( h8 h13 h11 h12 )_yttra + = -2 * Sum ( p3 ) * tra ( p3 h11 )_tra * i3 ( h8 h13 h12 p3 )_yt
C                 i3 ( h8 h13 h12 p3 )_yt + = 1 * Sum ( p5 ) * t ( p5 h12 )_t * y ( h8 h13 p3 p5 )_y
C                 i3 ( h8 h13 h12 p3 )_yt + = -1 * Sum ( h7 p5 p6 ) * t ( p5 p6 h7 h12 )_t * y ( h7 h8 h13 p3 p5 p6 )_y
C         i1 ( h13 p10 h11 h12 )_ytrbtra + = 4 * Sum ( h3 p1 ) * tra ( p1 p10 h3 h11 )_tra * i2 ( h3 h13 h12 p1 )_ytrb
C             i2 ( h3 h13 h12 p1 )_ytrb + = 1 * Sum ( p5 ) * trb ( p5 h12 )_trb * y ( h3 h13 p1 p5 )_y
C         i1 ( h13 p10 h11 h12 )_ytratrb + = 2 * trb ( p10 h12 )_trb * i2 ( h13 h11 )_ytra
C             i2 ( h13 h11 )_ytra + = -1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h11 )_tra * y ( h3 h13 p1 p2 )_y
C             i2 ( h13 h11 )_ytra + = -1/6 * Sum ( h4 h5 p1 p2 p3 ) * tra ( p1 p2 p3 h4 h5 h11 )_tra * y ( h4 h5 h13 p1 p2 p3 )_y
C         i1 ( h13 p10 h11 h12 )_ytratrb + = 1 * Sum ( h4 h5 p1 p2 ) * trb ( p1 p2 p10 h4 h5 h11 )_trb * i2 ( h4 h5 h13 h12 p1 p2 )_ytra
C             i2 ( h4 h5 h13 h12 p1 p2 )_ytra + = 1 * Sum ( p7 ) * tra ( p7 h12 )_tra * i3 ( h4 h5 h13 p1 p2 p7 )_y
C                 i3 ( h4 h5 h13 p1 p2 p7 )_y + = 1 * y ( h4 h5 h13 p1 p2 p7 )_y
C         i1 ( h13 p10 h11 h12 )_ytrbtrb + = -1/2 * Sum ( p5 p6 ) * trb ( p5 p6 h11 h12 )_trb * i2 ( h13 p10 p5 p6 )_ytrb
C             i2 ( h13 p10 p5 p6 )_ytrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p10 h3 h4 )_trb * y ( h3 h4 h13 p1 p5 p6 )_y
C         i1 ( h13 p10 h11 h12 )_ytratrb + = -2 * Sum ( h7 p5 ) * trb ( p5 p10 h7 h12 )_trb * i2 ( h7 h13 h11 p5 )_ytra
C             i2 ( h7 h13 h11 p5 )_ytra + = -1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h11 )_tra * y ( h3 h7 h13 p1 p2 p5 )_y
C         i1 ( h13 p10 h11 h12 )_ytrbtra + = 1 * Sum ( h8 ) * tra ( p10 h8 )_tra * i2 ( h8 h13 h11 h12 )_ytrb
C             i2 ( h8 h13 h11 h12 )_ytrb + = -1 * Sum ( p1 p2 ) * trb ( p1 p2 h11 h12 )_trb * y ( h8 h13 p1 p2 )_y
C             i2 ( h8 h13 h11 h12 )_ytrb + = -1/3 * Sum ( h4 p1 p2 p3 ) * trb ( p1 p2 p3 h4 h11 h12 )_trb * y ( h4 h8 h13 p1 p2 p3 )_y
C             i2 ( h8 h13 h11 h12 )_yttrb + = -2 * Sum ( p3 ) * trb ( p3 h11 )_trb * i3 ( h8 h13 h12 p3 )_yt
C             i2 ( h8 h13 h11 h12 )_ytrbt + = -2 * Sum ( p3 ) * t ( p3 h11 )_t * i3 ( h8 h13 h12 p3 )_ytrb
C                 i3 ( h8 h13 h12 p3 )_ytrb + = 1 * Sum ( p5 ) * trb ( p5 h12 )_trb * y ( h8 h13 p3 p5 )_y
C                 i3 ( h8 h13 h12 p3 )_ytrb + = -1 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h12 )_trb * y ( h7 h8 h13 p3 p5 p6 )_y
C         i1 ( h13 p10 h11 h12 )_ytratrb + = 4 * Sum ( h3 p1 ) * trb ( p1 p10 h3 h11 )_trb * i2 ( h3 h13 h12 p1 )_ytra
C             i2 ( h3 h13 h12 p1 )_ytra + = 1 * Sum ( p5 ) * tra ( p5 h12 )_tra * y ( h3 h13 p1 p5 )_y
C         i1 ( h13 p10 h11 h12 )_ytrbtra + = 2 * tra ( p10 h12 )_tra * i2 ( h13 h11 )_ytrb
C             i2 ( h13 h11 )_ytrb + = -1 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h11 )_trb * y ( h3 h13 p1 p2 )_y
C             i2 ( h13 h11 )_ytrb + = -1/6 * Sum ( h4 h5 p1 p2 p3 ) * trb ( p1 p2 p3 h4 h5 h11 )_trb * y ( h4 h5 h13 p1 p2 p3 )_y
C         i1 ( h13 p10 h11 h12 )_ytrbtra + = -1/2 * Sum ( p5 p6 ) * tra ( p5 p6 h11 h12 )_tra * i2 ( h13 p10 p5 p6 )_ytrb
C         i1 ( h13 p10 h11 h12 )_ytrbtra + = -2 * Sum ( h7 p5 ) * tra ( p5 p10 h7 h12 )_tra * i2 ( h7 h13 h11 p5 )_ytrb
C             i2 ( h7 h13 h11 p5 )_ytrb + = -1 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h11 )_trb * y ( h3 h7 h13 p1 p2 p5 )_y
C         i1 ( h13 p10 h11 h12 )_ytrbttra + = 1 * Sum ( p1 ) * tra ( p1 h11 )_tra * i2 ( h13 p10 h12 p1 )_ytrbt
C             i2 ( h13 p10 h12 p1 )_ytrbt + = 1 * Sum ( h7 h8 p5 ) * t ( p5 p10 h7 h8 )_t * i3 ( h7 h8 h13 h12 p1 p5 )_ytrb
C                 i3 ( h7 h8 h13 h12 p1 p5 )_ytrb + = -1 * Sum ( p3 ) * trb ( p3 h12 )_trb * y ( h7 h8 h13 p1 p3 p5 )_y
C             i2 ( h13 p10 h12 p1 )_yttrb + = 1 * Sum ( h7 h8 p5 ) * trb ( p5 p10 h7 h8 )_trb * i3 ( h7 h8 h13 h12 p1 p5 )_yt
C                 i3 ( h7 h8 h13 h12 p1 p5 )_yt + = -1 * Sum ( p3 ) * t ( p3 h12 )_t * y ( h7 h8 h13 p1 p3 p5 )_y
C         i1 ( h13 p10 h11 h12 )_ytrbtrat + = -2 * Sum ( h2 ) * t ( p10 h2 )_t * i2 ( h2 h13 h11 h12 )_ytrbtra
C             i2 ( h2 h13 h11 h12 )_ytrbtra + = 1 * Sum ( p3 ) * tra ( p3 h11 )_tra * i3 ( h2 h13 h12 p3 )_ytrb
C                 i3 ( h2 h13 h12 p3 )_ytrb + = 1 * Sum ( p5 ) * trb ( p5 h12 )_trb * y ( h2 h13 p3 p5 )_y
C                 i3 ( h2 h13 h12 p3 )_ytrb + = 1 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h12 )_trb * y ( h2 h7 h13 p3 p5 p6 )_y
C             i2 ( h2 h13 h11 h12 )_ytratrb + = 1 * Sum ( p3 ) * trb ( p3 h11 )_trb * i3 ( h2 h13 h12 p3 )_ytra
C                 i3 ( h2 h13 h12 p3 )_ytra + = 1 * Sum ( p5 ) * tra ( p5 h12 )_tra * y ( h2 h13 p3 p5 )_y
C                 i3 ( h2 h13 h12 p3 )_ytra + = 1 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h12 )_tra * y ( h2 h7 h13 p3 p5 p6 )_y
C         i1 ( h13 p10 h11 h12 )_ytratrbt + = 1 * Sum ( p1 ) * t ( p1 h11 )_t * i2 ( h13 p10 h12 p1 )_ytratrb
C             i2 ( h13 p10 h12 p1 )_ytratrb + = 1 * Sum ( h7 h8 p5 ) * trb ( p5 p10 h7 h8 )_trb * i3 ( h7 h8 h13 h12 p1 p5 )_ytra
C                 i3 ( h7 h8 h13 h12 p1 p5 )_ytra + = -1 * Sum ( p3 ) * tra ( p3 h12 )_tra * y ( h7 h8 h13 p1 p3 p5 )_y
C             i2 ( h13 p10 h12 p1 )_ytrbtra + = 1 * Sum ( h7 h8 p5 ) * tra ( p5 p10 h7 h8 )_tra * i3 ( h7 h8 h13 h12 p1 p5 )_ytrb
C         i1 ( h13 p10 h11 h12 )_yttratrb + = 1 * Sum ( p1 ) * trb ( p1 h11 )_trb * i2 ( h13 p10 h12 p1 )_yttra
C             i2 ( h13 p10 h12 p1 )_yttra + = 1 * Sum ( h7 h8 p5 ) * tra ( p5 p10 h7 h8 )_tra * i3 ( h7 h8 h13 h12 p1 p5 )_yt
C             i2 ( h13 p10 h12 p1 )_ytrat + = 1 * Sum ( h7 h8 p5 ) * t ( p5 p10 h7 h8 )_t * i3 ( h7 h8 h13 h12 p1 p5 )_ytra
C     i0 ( )_ytratrbv + = 1/4 * Sum ( p2 p5 p7 p8 ) * i1 ( p2 p5 p7 p8 )_ytratrb * v ( p7 p8 p2 p5 )_v
C         i1 ( p2 p5 p7 p8 )_ytratrb + = 1 * Sum ( h6 ) * trb ( p5 h6 )_trb * i2 ( h6 p2 p7 p8 )_ytra
C             i2 ( h6 p2 p7 p8 )_ytra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p2 h3 h4 )_tra * y ( h3 h4 h6 p1 p7 p8 )_y
C         i1 ( p2 p5 p7 p8 )_ytrbtra + = 1 * Sum ( h6 ) * tra ( p5 h6 )_tra * i2 ( h6 p2 p7 p8 )_ytrb
C             i2 ( h6 p2 p7 p8 )_ytrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p2 h3 h4 )_trb * y ( h3 h4 h6 p1 p7 p8 )_y
C     i0 ( )_ytrbtrav + = -1/4 * Sum ( p11 p12 h14 h15 ) * i1 ( p11 p12 h14 h15 )_ytrbtra * v ( h14 h15 p11 p12 )_v
C         i1 ( p11 p12 h14 h15 )_ytrbtra + = 1 * Sum ( h4 h5 p1 ) * tra ( p1 p11 p12 h4 h5 h14 )_tra * i2 ( h4 h5 h15 p1 )_ytrb
C             i2 ( h4 h5 h15 p1 )_ytrb + = -1 * Sum ( p7 ) * trb ( p7 h15 )_trb * y ( h4 h5 p1 p7 )_y
C             i2 ( h4 h5 h15 p1 )_ytrb + = 1/2 * Sum ( h9 p7 p8 ) * trb ( p7 p8 h9 h15 )_trb * y ( h4 h5 h9 p1 p7 p8 )_y
C         i1 ( p11 p12 h14 h15 )_ytrbtra + = -1/4 * Sum ( h7 h8 ) * tra ( p11 p12 h7 h8 )_tra * i2 ( h7 h8 h14 h15 )_ytrb
C             i2 ( h7 h8 h14 h15 )_ytrb + = 1 * Sum ( p5 p6 ) * trb ( p5 p6 h14 h15 )_trb * y ( h7 h8 p5 p6 )_y
C             i2 ( h7 h8 h14 h15 )_ytrb + = 1/3 * Sum ( h4 p1 p2 p3 ) * trb ( p1 p2 p3 h4 h14 h15 )_trb * y ( h4 h7 h8 p1 p2 p3 )_y
C             i2 ( h7 h8 h14 h15 )_yttrb + = 2 * Sum ( p9 ) * trb ( p9 h15 )_trb * i3 ( h7 h8 h14 p9 )_yt
C                 i3 ( h7 h8 h14 p9 )_yt + = 1 * Sum ( h3 p1 p2 ) * t ( p1 p2 h3 h14 )_t * y ( h3 h7 h8 p1 p2 p9 )_y
C             i2 ( h7 h8 h14 h15 )_ytrbt + = 2 * Sum ( p9 ) * t ( p9 h15 )_t * i3 ( h7 h8 h14 p9 )_ytrb
C                 i3 ( h7 h8 h14 p9 )_ytrb + = 1 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h14 )_trb * y ( h3 h7 h8 p1 p2 p9 )_y
C         i1 ( p11 p12 h14 h15 )_ytrbtra + = 1/2 * Sum ( h4 p1 p2 ) * tra ( p1 p2 p11 h4 h14 h15 )_tra * i2 ( h4 p12 p1 p2 )_ytrb
C             i2 ( h4 p12 p1 p2 )_ytrb + = 1 * Sum ( h9 h10 p7 ) * trb ( p7 p12 h9 h10 )_trb * y ( h4 h9 h10 p1 p2 p7 )_y
C         i1 ( p11 p12 h14 h15 )_ytratrb + = -1/12 * Sum ( h7 h8 ) * trb ( p11 p12 h7 h8 )_trb * i2 ( h7 h8 h14 h15 )_ytra
C             i2 ( h7 h8 h14 h15 )_ytra + = 1 * Sum ( h4 p1 p2 p3 ) * tra ( p1 p2 p3 h4 h14 h15 )_tra * y ( h4 h7 h8 p1 p2 p3 )_y
C             i2 ( h7 h8 h14 h15 )_ytra + = 3 * Sum ( p5 p6 ) * tra ( p5 p6 h14 h15 )_tra * y ( h7 h8 p5 p6 )_y
C             i2 ( h7 h8 h14 h15 )_ytrat + = 6 * Sum ( p9 ) * t ( p9 h15 )_t * i3 ( h7 h8 h14 p9 )_ytra
C                 i3 ( h7 h8 h14 p9 )_ytra + = 1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h14 )_tra * y ( h3 h7 h8 p1 p2 p9 )_y
C             i2 ( h7 h8 h14 h15 )_yttra + = 6 * Sum ( p9 ) * tra ( p9 h15 )_tra * i3 ( h7 h8 h14 p9 )_yt
C         i1 ( p11 p12 h14 h15 )_ytratrb + = -1 * Sum ( h9 p7 ) * trb ( p7 p12 h9 h15 )_trb * i2 ( h9 p11 h14 p7 )_ytra
C             i2 ( h9 p11 h14 p7 )_ytra + = 1 * Sum ( h4 h5 p1 p2 ) * tra ( p1 p2 p11 h4 h5 h14 )_tra * y ( h4 h5 h9 p1 p2 p7 )_y
C         i1 ( p11 p12 h14 h15 )_ytratrb + = 1/6 * Sum ( h9 ) * trb ( p11 p12 h9 h15 )_trb * i2 ( h9 h14 )_ytra
C             i2 ( h9 h14 )_ytra + = 1 * Sum ( h4 h5 p1 p2 p3 ) * tra ( p1 p2 p3 h4 h5 h14 )_tra * y ( h4 h5 h9 p1 p2 p3 )_y
C         i1 ( p11 p12 h14 h15 )_ytrbtra + = 1/12 * Sum ( h2 h13 h4 p6 ) * tra ( p6 p11 p12 h2 h4 h13 )_tra * i2 ( h2 h4 h13 h14 h15 p6 )_ytrb
C             i2 ( h2 h4 h13 h14 h15 p6 )_ytrb + = -1 * Sum ( p7 p8 ) * trb ( p7 p8 h14 h15 )_trb * y ( h2 h4 h13 p6 p7 p8 )_y
C             i2 ( h2 h4 h13 h14 h15 p6 )_yttrb + = -2 * Sum ( p1 ) * trb ( p1 h14 )_trb * i3 ( h2 h4 h13 h15 p1 p6 )_yt
C                 i3 ( h2 h4 h13 h15 p1 p6 )_yt + = 1 * Sum ( p3 ) * t ( p3 h15 )_t * y ( h2 h4 h13 p1 p3 p6 )_y
C             i2 ( h2 h4 h13 h14 h15 p6 )_ytrbt + = -2 * Sum ( p1 ) * t ( p1 h14 )_t * i3 ( h2 h4 h13 h15 p1 p6 )_ytrb
C                 i3 ( h2 h4 h13 h15 p1 p6 )_ytrb + = 1 * Sum ( p3 ) * trb ( p3 h15 )_trb * y ( h2 h4 h13 p1 p3 p6 )_y
C         i1 ( p11 p12 h14 h15 )_ytratrb + = 1/6 * Sum ( p7 ) * trb ( p7 p12 h14 h15 )_trb * i2 ( p11 p7 )_ytra
C             i2 ( p11 p7 )_ytra + = 1 * Sum ( h4 h5 h6 p1 p2 ) * tra ( p1 p2 p11 h4 h5 h6 )_tra * y ( h4 h5 h6 p1 p2 p7 )_y
C         i1 ( p11 p12 h14 h15 )_ytratrb + = 1 * Sum ( h4 h5 p1 ) * trb ( p1 p11 p12 h4 h5 h14 )_trb * i2 ( h4 h5 h15 p1 )_ytra
C             i2 ( h4 h5 h15 p1 )_ytra + = -1 * Sum ( p7 ) * tra ( p7 h15 )_tra * y ( h4 h5 p1 p7 )_y
C             i2 ( h4 h5 h15 p1 )_ytra + = 1/2 * Sum ( h9 p7 p8 ) * tra ( p7 p8 h9 h15 )_tra * y ( h4 h5 h9 p1 p7 p8 )_y
C         i1 ( p11 p12 h14 h15 )_ytratrb + = 1/2 * Sum ( h4 p1 p2 ) * trb ( p1 p2 p11 h4 h14 h15 )_trb * i2 ( h4 p12 p1 p2 )_ytra
C             i2 ( h4 p12 p1 p2 )_ytra + = 1 * Sum ( h9 h10 p7 ) * tra ( p7 p12 h9 h10 )_tra * y ( h4 h9 h10 p1 p2 p7 )_y
C         i1 ( p11 p12 h14 h15 )_ytrbtra + = -1 * Sum ( h9 p7 ) * tra ( p7 p12 h9 h15 )_tra * i2 ( h9 p11 h14 p7 )_ytrb
C             i2 ( h9 p11 h14 p7 )_ytrb + = 1 * Sum ( h4 h5 p1 p2 ) * trb ( p1 p2 p11 h4 h5 h14 )_trb * y ( h4 h5 h9 p1 p2 p7 )_y
C         i1 ( p11 p12 h14 h15 )_ytrbtra + = 1/6 * Sum ( h9 ) * tra ( p11 p12 h9 h15 )_tra * i2 ( h9 h14 )_ytrb
C             i2 ( h9 h14 )_ytrb + = 1 * Sum ( h4 h5 p1 p2 p3 ) * trb ( p1 p2 p3 h4 h5 h14 )_trb * y ( h4 h5 h9 p1 p2 p3 )_y
C         i1 ( p11 p12 h14 h15 )_ytratrb + = 1/12 * Sum ( h2 h13 h4 p6 ) * trb ( p6 p11 p12 h2 h4 h13 )_trb * i2 ( h2 h4 h13 h14 h15 p6 )_ytra
C             i2 ( h2 h4 h13 h14 h15 p6 )_ytra + = -1 * Sum ( p7 p8 ) * tra ( p7 p8 h14 h15 )_tra * y ( h2 h4 h13 p6 p7 p8 )_y
C             i2 ( h2 h4 h13 h14 h15 p6 )_ytrat + = -2 * Sum ( p1 ) * t ( p1 h14 )_t * i3 ( h2 h4 h13 h15 p1 p6 )_ytra
C                 i3 ( h2 h4 h13 h15 p1 p6 )_ytra + = 1 * Sum ( p3 ) * tra ( p3 h15 )_tra * y ( h2 h4 h13 p1 p3 p6 )_y
C             i2 ( h2 h4 h13 h14 h15 p6 )_yttra + = -2 * Sum ( p1 ) * tra ( p1 h14 )_tra * i3 ( h2 h4 h13 h15 p1 p6 )_yt
C         i1 ( p11 p12 h14 h15 )_ytrbtra + = 1/6 * Sum ( p7 ) * tra ( p7 p12 h14 h15 )_tra * i2 ( p11 p7 )_ytrb
C             i2 ( p11 p7 )_ytrb + = 1 * Sum ( h4 h5 h6 p1 p2 ) * trb ( p1 p2 p11 h4 h5 h6 )_trb * y ( h4 h5 h6 p1 p2 p7 )_y
C         i1 ( p11 p12 h14 h15 )_yttrbtra + = 1/2 * Sum ( h2 ) * tra ( p11 h2 )_tra * i2 ( h2 p12 h14 h15 )_yttrb
C             i2 ( h2 p12 h14 h15 )_yttrb + = 1 * Sum ( h4 ) * trb ( p12 h4 )_trb * i3 ( h2 h4 h14 h15 )_yt
C                 i3 ( h2 h4 h14 h15 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h14 h15 )_t * y ( h2 h4 p5 p6 )_y
C                 i3 ( h2 h4 h14 h15 )_yt + = -1/3 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h8 h14 h15 )_t * i4 ( h2 h4 h8 p5 p6 p7 )_y
C                     i4 ( h2 h4 h8 p5 p6 p7 )_y + = 1 * y ( h2 h4 h8 p5 p6 p7 )_y
C                 i3 ( h2 h4 h14 h15 )_ytt + = -2 * Sum ( p5 ) * t ( p5 h14 )_t * i4 ( h2 h4 h15 p5 )_yt
C                     i4 ( h2 h4 h15 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h15 )_t * y ( h2 h4 p5 p7 )_y
C                     i4 ( h2 h4 h15 p5 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h9 h15 )_t * y ( h2 h4 h9 p5 p7 p8 )_y
C             i2 ( h2 p12 h14 h15 )_ytrbt + = 8 * Sum ( h7 p5 ) * t ( p5 p12 h7 h15 )_t * i3 ( h2 h7 h14 p5 )_ytrb
C                 i3 ( h2 h7 h14 p5 )_ytrb + = 1 * Sum ( p3 ) * trb ( p3 h14 )_trb * y ( h2 h7 p3 p5 )_y
C             i2 ( h2 p12 h14 h15 )_ytrbt + = 2 * Sum ( h8 h9 p5 p6 ) * t ( p5 p6 p12 h8 h9 h15 )_t * i3 ( h2 h8 h9 h14 p5 p6 )_ytrb
C                 i3 ( h2 h8 h9 h14 p5 p6 )_ytrb + = 1 * Sum ( p3 ) * trb ( p3 h14 )_trb * y ( h2 h8 h9 p3 p5 p6 )_y
C             i2 ( h2 p12 h14 h15 )_ytrbt + = 1 * Sum ( h4 ) * t ( p12 h4 )_t * i3 ( h2 h4 h14 h15 )_ytrb
C                 i3 ( h2 h4 h14 h15 )_ytrb + = -1 * Sum ( p5 p6 ) * trb ( p5 p6 h14 h15 )_trb * y ( h2 h4 p5 p6 )_y
C                 i3 ( h2 h4 h14 h15 )_ytrbt + = -2 * Sum ( p5 ) * t ( p5 h14 )_t * i4 ( h2 h4 h15 p5 )_ytrb
C                     i4 ( h2 h4 h15 p5 )_ytrb + = 1 * Sum ( p7 ) * trb ( p7 h15 )_trb * y ( h2 h4 p5 p7 )_y
C                     i4 ( h2 h4 h15 p5 )_ytrb + = -1 * Sum ( h9 p7 p8 ) * trb ( p7 p8 h9 h15 )_trb * y ( h2 h4 h9 p5 p7 p8 )_y
C                 i3 ( h2 h4 h14 h15 )_yttrb + = -2 * Sum ( p5 ) * trb ( p5 h14 )_trb * i4 ( h2 h4 h15 p5 )_yt
C             i2 ( h2 p12 h14 h15 )_yttrb + = 8 * Sum ( h7 p5 ) * trb ( p5 p12 h7 h15 )_trb * i3 ( h2 h7 h14 p5 )_yt
C                 i3 ( h2 h7 h14 p5 )_yt + = 1 * Sum ( p3 ) * t ( p3 h14 )_t * y ( h2 h7 p3 p5 )_y
C             i2 ( h2 p12 h14 h15 )_yttrb + = 2 * Sum ( h8 h9 p5 p6 ) * trb ( p5 p6 p12 h8 h9 h15 )_trb * i3 ( h2 h8 h9 h14 p5 p6 )_yt
C                 i3 ( h2 h8 h9 h14 p5 p6 )_yt + = 1 * Sum ( p3 ) * t ( p3 h14 )_t * y ( h2 h8 h9 p3 p5 p6 )_y
C             i2 ( h2 p12 h14 h15 )_ytttrb + = -2 * Sum ( p3 ) * trb ( p3 h14 )_trb * i3 ( h2 p12 h15 p3 )_ytt
C                 i3 ( h2 p12 h15 p3 )_ytt + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p12 h9 h10 )_t * i4 ( h2 h9 h10 h15 p3 p7 )_yt
C                     i4 ( h2 h9 h10 h15 p3 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h15 )_t * y ( h2 h9 h10 p3 p5 p7 )_y
C             i2 ( h2 p12 h14 h15 )_yttrbt + = -2 * Sum ( p3 ) * t ( p3 h14 )_t * i3 ( h2 p12 h15 p3 )_yttrb
C                 i3 ( h2 p12 h15 p3 )_yttrb + = 1 * Sum ( h9 h10 p7 ) * trb ( p7 p12 h9 h10 )_trb * i4 ( h2 h9 h10 h15 p3 p7 )_yt
C                 i3 ( h2 p12 h15 p3 )_ytrbt + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p12 h9 h10 )_t * i4 ( h2 h9 h10 h15 p3 p7 )_ytrb
C                     i4 ( h2 h9 h10 h15 p3 p7 )_ytrb + = -1 * Sum ( p5 ) * trb ( p5 h15 )_trb * y ( h2 h9 h10 p3 p5 p7 )_y
C         i1 ( p11 p12 h14 h15 )_yttratrb + = -1/3 * trb ( p12 h14 )_trb * i2 ( p11 h15 )_yttra
C             i2 ( p11 h15 )_yttra + = 1 * Sum ( h2 ) * tra ( p11 h2 )_tra * i3 ( h2 h15 )_yt
C                 i3 ( h2 h15 )_yt + = 1 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h8 h9 h15 )_t * y ( h2 h8 h9 p5 p6 p7 )_y
C             i2 ( p11 h15 )_ytrat + = 1 * Sum ( h2 ) * t ( p11 h2 )_t * i3 ( h2 h15 )_ytra
C                 i3 ( h2 h15 )_ytra + = 1 * Sum ( h8 h9 p5 p6 p7 ) * tra ( p5 p6 p7 h8 h9 h15 )_tra * y ( h2 h8 h9 p5 p6 p7 )_y
C         i1 ( p11 p12 h14 h15 )_ytrbtrat + = 1/6 * Sum ( h8 h9 h10 p5 ) * t ( p5 p11 p12 h8 h9 h10 )_t * i2 ( h8 h9 h10 h14 h15 p5 )_ytrbtra
C             i2 ( h8 h9 h10 h14 h15 p5 )_ytrbtra + = 1 * Sum ( p1 ) * tra ( p1 h14 )_tra * i3 ( h8 h9 h10 h15 p1 p5 )_ytrb
C                 i3 ( h8 h9 h10 h15 p1 p5 )_ytrb + = -1 * Sum ( p3 ) * trb ( p3 h15 )_trb * y ( h8 h9 h10 p1 p3 p5 )_y
C             i2 ( h8 h9 h10 h14 h15 p5 )_ytratrb + = 1 * Sum ( p1 ) * trb ( p1 h14 )_trb * i3 ( h8 h9 h10 h15 p1 p5 )_ytra
C                 i3 ( h8 h9 h10 h15 p1 p5 )_ytra + = -1 * Sum ( p3 ) * tra ( p3 h15 )_tra * y ( h8 h9 h10 p1 p3 p5 )_y
C         i1 ( p11 p12 h14 h15 )_ytrattrb + = -1/3 * trb ( p11 h15 )_trb * i2 ( p12 h14 )_ytrat
C             i2 ( p12 h14 )_ytrat + = 1 * Sum ( h8 h9 h10 p5 p6 ) * t ( p5 p6 p12 h8 h9 h10 )_t * i3 ( h8 h9 h10 h14 p5 p6 )_ytra
C                 i3 ( h8 h9 h10 h14 p5 p6 )_ytra + = 1 * Sum ( p1 ) * tra ( p1 h14 )_tra * y ( h8 h9 h10 p1 p5 p6 )_y
C             i2 ( p12 h14 )_yttra + = 1 * Sum ( h8 h9 h10 p5 p6 ) * tra ( p5 p6 p12 h8 h9 h10 )_tra * i3 ( h8 h9 h10 h14 p5 p6 )_yt
C                 i3 ( h8 h9 h10 h14 p5 p6 )_yt + = 1 * Sum ( p1 ) * t ( p1 h14 )_t * y ( h8 h9 h10 p1 p5 p6 )_y
C         i1 ( p11 p12 h14 h15 )_ytratrbt + = -1/2 * Sum ( h10 ) * t ( p12 h10 )_t * i2 ( h10 p11 h14 h15 )_ytratrb
C             i2 ( h10 p11 h14 h15 )_ytratrb + = 1 * Sum ( p5 p6 ) * trb ( p5 p6 h14 h15 )_trb * i3 ( h10 p11 p5 p6 )_ytra
C                 i3 ( h10 p11 p5 p6 )_ytra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p11 h3 h4 )_tra * y ( h3 h4 h10 p1 p5 p6 )_y
C             i2 ( h10 p11 h14 h15 )_ytratrb + = 4 * Sum ( h7 p5 ) * trb ( p5 p11 h7 h15 )_trb * i3 ( h7 h10 h14 p5 )_ytra
C                 i3 ( h7 h10 h14 p5 )_ytra + = -1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h14 )_tra * y ( h3 h7 h10 p1 p2 p5 )_y
C             i2 ( h10 p11 h14 h15 )_ytrbtra + = 1 * Sum ( p5 p6 ) * tra ( p5 p6 h14 h15 )_tra * i3 ( h10 p11 p5 p6 )_ytrb
C                 i3 ( h10 p11 p5 p6 )_ytrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p11 h3 h4 )_trb * y ( h3 h4 h10 p1 p5 p6 )_y
C             i2 ( h10 p11 h14 h15 )_ytrbtra + = 4 * Sum ( h7 p5 ) * tra ( p5 p11 h7 h15 )_tra * i3 ( h7 h10 h14 p5 )_ytrb
C                 i3 ( h7 h10 h14 p5 )_ytrb + = -1 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h14 )_trb * y ( h3 h7 h10 p1 p2 p5 )_y
C         i1 ( p11 p12 h14 h15 )_yttratrb + = -2 * Sum ( h7 p5 ) * trb ( p5 p12 h7 h14 )_trb * i2 ( h7 p11 h15 p5 )_yttra
C             i2 ( h7 p11 h15 p5 )_yttra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p11 h3 h4 )_tra * i3 ( h3 h4 h7 h15 p1 p5 )_yt
C                 i3 ( h3 h4 h7 h15 p1 p5 )_yt + = -1 * Sum ( p9 ) * t ( p9 h15 )_t * y ( h3 h4 h7 p1 p5 p9 )_y
C             i2 ( h7 p11 h15 p5 )_ytrat + = 1 * Sum ( h3 h4 p1 ) * t ( p1 p11 h3 h4 )_t * i3 ( h3 h4 h7 h15 p1 p5 )_ytra
C                 i3 ( h3 h4 h7 h15 p1 p5 )_ytra + = -1 * Sum ( p9 ) * tra ( p9 h15 )_tra * y ( h3 h4 h7 p1 p5 p9 )_y
C         i1 ( p11 p12 h14 h15 )_ytrbtrat + = -1 * t ( p12 h15 )_t * i2 ( p11 h14 )_ytrbtra
C             i2 ( p11 h14 )_ytrbtra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p11 h3 h4 )_tra * i3 ( h3 h4 h14 p1 )_ytrb
C                 i3 ( h3 h4 h14 p1 )_ytrb + = 1 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h14 )_trb * y ( h3 h4 h7 p1 p5 p6 )_y
C             i2 ( p11 h14 )_ytratrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p11 h3 h4 )_trb * i3 ( h3 h4 h14 p1 )_ytra
C                 i3 ( h3 h4 h14 p1 )_ytra + = 1 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h14 )_tra * y ( h3 h4 h7 p1 p5 p6 )_y
C         i1 ( p11 p12 h14 h15 )_ytrbtrat + = 1/2 * Sum ( h2 ) * t ( p11 h2 )_t * i2 ( h2 p12 h14 h15 )_ytrbtra
C             i2 ( h2 p12 h14 h15 )_ytrbtra + = 1 * Sum ( h4 ) * tra ( p12 h4 )_tra * i3 ( h2 h4 h14 h15 )_ytrb
C                 i3 ( h2 h4 h14 h15 )_ytrb + = -1/3 * Sum ( h8 p5 p6 p7 ) * trb ( p5 p6 p7 h8 h14 h15 )_trb * y ( h2 h4 h8 p5 p6 p7 )_y
C             i2 ( h2 p12 h14 h15 )_ytratrb + = 8 * Sum ( h7 p5 ) * trb ( p5 p12 h7 h15 )_trb * i3 ( h2 h7 h14 p5 )_ytra
C                 i3 ( h2 h7 h14 p5 )_ytra + = 1 * Sum ( p3 ) * tra ( p3 h14 )_tra * y ( h2 h7 p3 p5 )_y
C             i2 ( h2 p12 h14 h15 )_ytratrb + = 2 * Sum ( h8 h9 p5 p6 ) * trb ( p5 p6 p12 h8 h9 h15 )_trb * i3 ( h2 h8 h9 h14 p5 p6 )_ytra
C                 i3 ( h2 h8 h9 h14 p5 p6 )_ytra + = 1 * Sum ( p3 ) * tra ( p3 h14 )_tra * y ( h2 h8 h9 p3 p5 p6 )_y
C             i2 ( h2 p12 h14 h15 )_ytratrb + = 1 * Sum ( h4 ) * trb ( p12 h4 )_trb * i3 ( h2 h4 h14 h15 )_ytra
C                 i3 ( h2 h4 h14 h15 )_ytra + = -1 * Sum ( p5 p6 ) * tra ( p5 p6 h14 h15 )_tra * y ( h2 h4 p5 p6 )_y
C                 i3 ( h2 h4 h14 h15 )_ytra + = -1/3 * Sum ( h8 p5 p6 p7 ) * tra ( p5 p6 p7 h8 h14 h15 )_tra * y ( h2 h4 h8 p5 p6 p7 )_y
C                 i3 ( h2 h4 h14 h15 )_yttra + = -2 * Sum ( p5 ) * tra ( p5 h14 )_tra * i4 ( h2 h4 h15 p5 )_yt
C                 i3 ( h2 h4 h14 h15 )_ytrat + = -2 * Sum ( p5 ) * t ( p5 h14 )_t * i4 ( h2 h4 h15 p5 )_ytra
C                     i4 ( h2 h4 h15 p5 )_ytra + = 1 * Sum ( p7 ) * tra ( p7 h15 )_tra * y ( h2 h4 p5 p7 )_y
C                     i4 ( h2 h4 h15 p5 )_ytra + = -1 * Sum ( h9 p7 p8 ) * tra ( p7 p8 h9 h15 )_tra * y ( h2 h4 h9 p5 p7 p8 )_y
C             i2 ( h2 p12 h14 h15 )_ytrbtra + = 8 * Sum ( h7 p5 ) * tra ( p5 p12 h7 h15 )_tra * i3 ( h2 h7 h14 p5 )_ytrb
C             i2 ( h2 p12 h14 h15 )_ytrbtra + = 2 * Sum ( h8 h9 p5 p6 ) * tra ( p5 p6 p12 h8 h9 h15 )_tra * i3 ( h2 h8 h9 h14 p5 p6 )_ytrb
C             i2 ( h2 p12 h14 h15 )_ytrbttra + = -2 * Sum ( p3 ) * tra ( p3 h14 )_tra * i3 ( h2 p12 h15 p3 )_ytrbt
C             i2 ( h2 p12 h14 h15 )_ytrbtrat + = -2 * Sum ( h4 ) * t ( p12 h4 )_t * i3 ( h2 h4 h14 h15 )_ytrbtra
C                 i3 ( h2 h4 h14 h15 )_ytrbtra + = 1 * Sum ( p5 ) * tra ( p5 h14 )_tra * i4 ( h2 h4 h15 p5 )_ytrb
C                 i3 ( h2 h4 h14 h15 )_ytratrb + = 1 * Sum ( p5 ) * trb ( p5 h14 )_trb * i4 ( h2 h4 h15 p5 )_ytra
C             i2 ( h2 p12 h14 h15 )_ytratrbt + = -2 * Sum ( p3 ) * t ( p3 h14 )_t * i3 ( h2 p12 h15 p3 )_ytratrb
C                 i3 ( h2 p12 h15 p3 )_ytratrb + = 1 * Sum ( h9 h10 p7 ) * trb ( p7 p12 h9 h10 )_trb * i4 ( h2 h9 h10 h15 p3 p7 )_ytra
C                     i4 ( h2 h9 h10 h15 p3 p7 )_ytra + = -1 * Sum ( p5 ) * tra ( p5 h15 )_tra * y ( h2 h9 h10 p3 p5 p7 )_y
C                 i3 ( h2 p12 h15 p3 )_ytrbtra + = 1 * Sum ( h9 h10 p7 ) * tra ( p7 p12 h9 h10 )_tra * i4 ( h2 h9 h10 h15 p3 p7 )_ytrb
C             i2 ( h2 p12 h14 h15 )_ytrattrb + = -2 * Sum ( p3 ) * trb ( p3 h14 )_trb * i3 ( h2 p12 h15 p3 )_ytrat
C                 i3 ( h2 p12 h15 p3 )_ytrat + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p12 h9 h10 )_t * i4 ( h2 h9 h10 h15 p3 p7 )_ytra
C                 i3 ( h2 p12 h15 p3 )_yttra + = 1 * Sum ( h9 h10 p7 ) * tra ( p7 p12 h9 h10 )_tra * i4 ( h2 h9 h10 h15 p3 p7 )_yt
C         i1 ( p11 p12 h14 h15 )_ytrbttra + = -1/3 * tra ( p12 h14 )_tra * i2 ( p11 h15 )_ytrbt
C             i2 ( p11 h15 )_ytrbt + = 1 * Sum ( h2 ) * t ( p11 h2 )_t * i3 ( h2 h15 )_ytrb
C                 i3 ( h2 h15 )_ytrb + = 1 * Sum ( h8 h9 p5 p6 p7 ) * trb ( p5 p6 p7 h8 h9 h15 )_trb * y ( h2 h8 h9 p5 p6 p7 )_y
C             i2 ( p11 h15 )_yttrb + = 1 * Sum ( h2 ) * trb ( p11 h2 )_trb * i3 ( h2 h15 )_yt
C         i1 ( p11 p12 h14 h15 )_yttrbtra + = -1/3 * tra ( p11 h15 )_tra * i2 ( p12 h14 )_yttrb
C             i2 ( p12 h14 )_yttrb + = 1 * Sum ( h8 h9 h10 p5 p6 ) * trb ( p5 p6 p12 h8 h9 h10 )_trb * i3 ( h8 h9 h10 h14 p5 p6 )_yt
C             i2 ( p12 h14 )_ytrbt + = 1 * Sum ( h8 h9 h10 p5 p6 ) * t ( p5 p6 p12 h8 h9 h10 )_t * i3 ( h8 h9 h10 h14 p5 p6 )_ytrb
C                 i3 ( h8 h9 h10 h14 p5 p6 )_ytrb + = 1 * Sum ( p1 ) * trb ( p1 h14 )_trb * y ( h8 h9 h10 p1 p5 p6 )_y
C         i1 ( p11 p12 h14 h15 )_yttratrb + = -1/2 * Sum ( h10 ) * trb ( p12 h10 )_trb * i2 ( h10 p11 h14 h15 )_yttra
C             i2 ( h10 p11 h14 h15 )_yttra + = 1 * Sum ( p5 p6 ) * tra ( p5 p6 h14 h15 )_tra * i3 ( h10 p11 p5 p6 )_yt
C                 i3 ( h10 p11 p5 p6 )_yt + = 1 * Sum ( h3 h4 p1 ) * t ( p1 p11 h3 h4 )_t * y ( h3 h4 h10 p1 p5 p6 )_y
C             i2 ( h10 p11 h14 h15 )_yttra + = 4 * Sum ( h7 p5 ) * tra ( p5 p11 h7 h15 )_tra * i3 ( h7 h10 h14 p5 )_yt
C                 i3 ( h7 h10 h14 p5 )_yt + = -1 * Sum ( h3 p1 p2 ) * t ( p1 p2 h3 h14 )_t * y ( h3 h7 h10 p1 p2 p5 )_y
C             i2 ( h10 p11 h14 h15 )_ytrat + = 1 * Sum ( p5 p6 ) * t ( p5 p6 h14 h15 )_t * i3 ( h10 p11 p5 p6 )_ytra
C             i2 ( h10 p11 h14 h15 )_ytrat + = 4 * Sum ( h7 p5 ) * t ( p5 p11 h7 h15 )_t * i3 ( h7 h10 h14 p5 )_ytra
C         i1 ( p11 p12 h14 h15 )_ytrbttra + = -2 * Sum ( h7 p5 ) * tra ( p5 p12 h7 h14 )_tra * i2 ( h7 p11 h15 p5 )_ytrbt
C             i2 ( h7 p11 h15 p5 )_ytrbt + = 1 * Sum ( h3 h4 p1 ) * t ( p1 p11 h3 h4 )_t * i3 ( h3 h4 h7 h15 p1 p5 )_ytrb
C                 i3 ( h3 h4 h7 h15 p1 p5 )_ytrb + = -1 * Sum ( p9 ) * trb ( p9 h15 )_trb * y ( h3 h4 h7 p1 p5 p9 )_y
C             i2 ( h7 p11 h15 p5 )_yttrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p11 h3 h4 )_trb * i3 ( h3 h4 h7 h15 p1 p5 )_yt
C         i1 ( p11 p12 h14 h15 )_ytrattrb + = -1 * trb ( p12 h15 )_trb * i2 ( p11 h14 )_ytrat
C             i2 ( p11 h14 )_ytrat + = 1 * Sum ( h3 h4 p1 ) * t ( p1 p11 h3 h4 )_t * i3 ( h3 h4 h14 p1 )_ytra
C             i2 ( p11 h14 )_yttra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p11 h3 h4 )_tra * i3 ( h3 h4 h14 p1 )_yt
C                 i3 ( h3 h4 h14 p1 )_yt + = 1 * Sum ( h7 p5 p6 ) * t ( p5 p6 h7 h14 )_t * y ( h3 h4 h7 p1 p5 p6 )_y
C         i1 ( p11 p12 h14 h15 )_ytrattrb + = 1/2 * Sum ( h2 ) * trb ( p11 h2 )_trb * i2 ( h2 p12 h14 h15 )_ytrat
C             i2 ( h2 p12 h14 h15 )_ytrat + = 1 * Sum ( h4 ) * t ( p12 h4 )_t * i3 ( h2 h4 h14 h15 )_ytra
C             i2 ( h2 p12 h14 h15 )_yttra + = 8 * Sum ( h7 p5 ) * tra ( p5 p12 h7 h15 )_tra * i3 ( h2 h7 h14 p5 )_yt
C             i2 ( h2 p12 h14 h15 )_yttra + = 2 * Sum ( h8 h9 p5 p6 ) * tra ( p5 p6 p12 h8 h9 h15 )_tra * i3 ( h2 h8 h9 h14 p5 p6 )_yt
C             i2 ( h2 p12 h14 h15 )_yttra + = 1 * Sum ( h4 ) * tra ( p12 h4 )_tra * i3 ( h2 h4 h14 h15 )_yt
C                 i3 ( h2 h4 h14 h15 )_yt + = -1/3 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h8 h14 h15 )_t * y ( h2 h4 h8 p5 p6 p7 )_y
C             i2 ( h2 p12 h14 h15 )_ytrat + = 8 * Sum ( h7 p5 ) * t ( p5 p12 h7 h15 )_t * i3 ( h2 h7 h14 p5 )_ytra
C             i2 ( h2 p12 h14 h15 )_ytrat + = 2 * Sum ( h8 h9 p5 p6 ) * t ( p5 p6 p12 h8 h9 h15 )_t * i3 ( h2 h8 h9 h14 p5 p6 )_ytra
C             i2 ( h2 p12 h14 h15 )_yttrat + = -2 * Sum ( p3 ) * t ( p3 h14 )_t * i3 ( h2 p12 h15 p3 )_yttra
C             i2 ( h2 p12 h14 h15 )_ytttra + = -2 * Sum ( p3 ) * tra ( p3 h14 )_tra * i3 ( h2 p12 h15 p3 )_ytt
C         i1 ( p11 p12 h14 h15 )_ytratrbt + = -1/3 * t ( p12 h14 )_t * i2 ( p11 h15 )_ytratrb
C             i2 ( p11 h15 )_ytratrb + = 1 * Sum ( h2 ) * trb ( p11 h2 )_trb * i3 ( h2 h15 )_ytra
C             i2 ( p11 h15 )_ytrbtra + = 1 * Sum ( h2 ) * tra ( p11 h2 )_tra * i3 ( h2 h15 )_ytrb
C         i1 ( p11 p12 h14 h15 )_ytrbtrat + = -1/3 * t ( p11 h15 )_t * i2 ( p12 h14 )_ytrbtra
C             i2 ( p12 h14 )_ytrbtra + = 1 * Sum ( h8 h9 h10 p5 p6 ) * tra ( p5 p6 p12 h8 h9 h10 )_tra * i3 ( h8 h9 h10 h14 p5 p6 )_ytrb
C             i2 ( p12 h14 )_ytratrb + = 1 * Sum ( h8 h9 h10 p5 p6 ) * trb ( p5 p6 p12 h8 h9 h10 )_trb * i3 ( h8 h9 h10 h14 p5 p6 )_ytra
C         i1 ( p11 p12 h14 h15 )_ytrbttra + = -1/2 * Sum ( h10 ) * tra ( p12 h10 )_tra * i2 ( h10 p11 h14 h15 )_ytrbt
C             i2 ( h10 p11 h14 h15 )_ytrbt + = 1 * Sum ( p5 p6 ) * t ( p5 p6 h14 h15 )_t * i3 ( h10 p11 p5 p6 )_ytrb
C             i2 ( h10 p11 h14 h15 )_ytrbt + = 4 * Sum ( h7 p5 ) * t ( p5 p11 h7 h15 )_t * i3 ( h7 h10 h14 p5 )_ytrb
C             i2 ( h10 p11 h14 h15 )_yttrb + = 1 * Sum ( p5 p6 ) * trb ( p5 p6 h14 h15 )_trb * i3 ( h10 p11 p5 p6 )_yt
C             i2 ( h10 p11 h14 h15 )_yttrb + = 4 * Sum ( h7 p5 ) * trb ( p5 p11 h7 h15 )_trb * i3 ( h7 h10 h14 p5 )_yt
C         i1 ( p11 p12 h14 h15 )_ytratrbt + = -2 * Sum ( h7 p5 ) * t ( p5 p12 h7 h14 )_t * i2 ( h7 p11 h15 p5 )_ytratrb
C             i2 ( h7 p11 h15 p5 )_ytratrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p11 h3 h4 )_trb * i3 ( h3 h4 h7 h15 p1 p5 )_ytra
C             i2 ( h7 p11 h15 p5 )_ytrbtra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p11 h3 h4 )_tra * i3 ( h3 h4 h7 h15 p1 p5 )_ytrb
C         i1 ( p11 p12 h14 h15 )_ytrbtrat + = -1/2 * Sum ( h7 h8 ) * t ( p11 p12 h7 h8 )_t * i2 ( h7 h8 h14 h15 )_ytrbtra
C             i2 ( h7 h8 h14 h15 )_ytrbtra + = 1 * Sum ( p9 ) * tra ( p9 h15 )_tra * i3 ( h7 h8 h14 p9 )_ytrb
C             i2 ( h7 h8 h14 h15 )_ytratrb + = 1 * Sum ( p9 ) * trb ( p9 h15 )_trb * i3 ( h7 h8 h14 p9 )_ytra
C         i1 ( p11 p12 h14 h15 )_yttrbtra + = -1 * tra ( p12 h15 )_tra * i2 ( p11 h14 )_yttrb
C             i2 ( p11 h14 )_yttrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p11 h3 h4 )_trb * i3 ( h3 h4 h14 p1 )_yt
C             i2 ( p11 h14 )_ytrbt + = 1 * Sum ( h3 h4 p1 ) * t ( p1 p11 h3 h4 )_t * i3 ( h3 h4 h14 p1 )_ytrb
C     i0 ( )_ytratrbv + = -1/4 * Sum ( p13 p11 h10 p9 ) * i1 ( p11 p13 h10 p9 )_ytratrb * v ( h10 p9 p11 p13 )_v
C         i1 ( p11 p13 h10 p9 )_ytratrb + = 1 * Sum ( h8 ) * trb ( p11 h8 )_trb * i2 ( h8 p13 h10 p9 )_ytra
C             i2 ( h8 p13 h10 p9 )_ytra + = 1 * Sum ( h4 h5 p1 p2 ) * tra ( p1 p2 p13 h4 h5 h10 )_tra * y ( h4 h5 h8 p1 p2 p9 )_y
C         i1 ( p11 p13 h10 p9 )_ytrbtra + = -1/3 * Sum ( h4 h5 h6 p1 ) * tra ( p1 p11 p13 h4 h5 h6 )_tra * i2 ( h4 h5 h6 h10 p1 p9 )_ytrb
C             i2 ( h4 h5 h6 h10 p1 p9 )_ytrb + = -1 * Sum ( p7 ) * trb ( p7 h10 )_trb * y ( h4 h5 h6 p1 p7 p9 )_y
C         i1 ( p11 p13 h10 p9 )_ytratrb + = -1/3 * trb ( p11 h10 )_trb * i2 ( p13 p9 )_ytra
C             i2 ( p13 p9 )_ytra + = 1 * Sum ( h4 h5 h6 p1 p2 ) * tra ( p1 p2 p13 h4 h5 h6 )_tra * y ( h4 h5 h6 p1 p2 p9 )_y
C         i1 ( p11 p13 h10 p9 )_ytratrb + = -2 * Sum ( h7 p5 ) * trb ( p5 p11 h7 h10 )_trb * i2 ( h7 p13 p5 p9 )_ytra
C             i2 ( h7 p13 p5 p9 )_ytra + = -1 * Sum ( h3 h4 p1 ) * tra ( p1 p13 h3 h4 )_tra * y ( h3 h4 h7 p1 p5 p9 )_y
C         i1 ( p11 p13 h10 p9 )_ytratrb + = 1/2 * Sum ( h7 h8 ) * trb ( p11 p13 h7 h8 )_trb * i2 ( h7 h8 h10 p9 )_ytra
C             i2 ( h7 h8 h10 p9 )_ytra + = 1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h10 )_tra * y ( h3 h7 h8 p1 p2 p9 )_y
C         i1 ( p11 p13 h10 p9 )_ytrbtra + = 1 * Sum ( h8 ) * tra ( p11 h8 )_tra * i2 ( h8 p13 h10 p9 )_ytrb
C             i2 ( h8 p13 h10 p9 )_ytrb + = 1 * Sum ( h4 h5 p1 p2 ) * trb ( p1 p2 p13 h4 h5 h10 )_trb * y ( h4 h5 h8 p1 p2 p9 )_y
C         i1 ( p11 p13 h10 p9 )_ytratrb + = -1/3 * Sum ( h4 h5 h6 p1 ) * trb ( p1 p11 p13 h4 h5 h6 )_trb * i2 ( h4 h5 h6 h10 p1 p9 )_ytra
C             i2 ( h4 h5 h6 h10 p1 p9 )_ytra + = -1 * Sum ( p7 ) * tra ( p7 h10 )_tra * y ( h4 h5 h6 p1 p7 p9 )_y
C         i1 ( p11 p13 h10 p9 )_ytrbtra + = -1/3 * tra ( p11 h10 )_tra * i2 ( p13 p9 )_ytrb
C             i2 ( p13 p9 )_ytrb + = 1 * Sum ( h4 h5 h6 p1 p2 ) * trb ( p1 p2 p13 h4 h5 h6 )_trb * y ( h4 h5 h6 p1 p2 p9 )_y
C         i1 ( p11 p13 h10 p9 )_ytrbtra + = -2 * Sum ( h7 p5 ) * tra ( p5 p11 h7 h10 )_tra * i2 ( h7 p13 p5 p9 )_ytrb
C             i2 ( h7 p13 p5 p9 )_ytrb + = -1 * Sum ( h3 h4 p1 ) * trb ( p1 p13 h3 h4 )_trb * y ( h3 h4 h7 p1 p5 p9 )_y
C         i1 ( p11 p13 h10 p9 )_ytrbtra + = 1/2 * Sum ( h7 h8 ) * tra ( p11 p13 h7 h8 )_tra * i2 ( h7 h8 h10 p9 )_ytrb
C             i2 ( h7 h8 h10 p9 )_ytrb + = 1 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h10 )_trb * y ( h3 h7 h8 p1 p2 p9 )_y
C         i1 ( p11 p13 h10 p9 )_yttrbtra + = 1 * Sum ( h2 ) * tra ( p13 h2 )_tra * i2 ( h2 p11 h10 p9 )_yttrb
C             i2 ( h2 p11 h10 p9 )_yttrb + = 1 * Sum ( h4 ) * trb ( p11 h4 )_trb * i3 ( h2 h4 h10 p9 )_yt
C                 i3 ( h2 h4 h10 p9 )_yt + = -1 * Sum ( h7 p5 p6 ) * t ( p5 p6 h7 h10 )_t * y ( h2 h4 h7 p5 p6 p9 )_y
C             i2 ( h2 p11 h10 p9 )_ytrbt + = 2 * Sum ( h7 h8 p5 ) * t ( p5 p11 h7 h8 )_t * i3 ( h2 h7 h8 h10 p5 p9 )_ytrb
C                 i3 ( h2 h7 h8 h10 p5 p9 )_ytrb + = -1 * Sum ( p3 ) * trb ( p3 h10 )_trb * y ( h2 h7 h8 p3 p5 p9 )_y
C             i2 ( h2 p11 h10 p9 )_ytrbt + = 1 * Sum ( h4 ) * t ( p11 h4 )_t * i3 ( h2 h4 h10 p9 )_ytrb
C                 i3 ( h2 h4 h10 p9 )_ytrb + = -1 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h10 )_trb * y ( h2 h4 h7 p5 p6 p9 )_y
C             i2 ( h2 p11 h10 p9 )_yttrb + = 2 * Sum ( h7 h8 p5 ) * trb ( p5 p11 h7 h8 )_trb * i3 ( h2 h7 h8 h10 p5 p9 )_yt
C                 i3 ( h2 h7 h8 h10 p5 p9 )_yt + = -1 * Sum ( p3 ) * t ( p3 h10 )_t * y ( h2 h7 h8 p3 p5 p9 )_y
C         i1 ( p11 p13 h10 p9 )_ytrbtrat + = 1 * Sum ( h2 ) * t ( p13 h2 )_t * i2 ( h2 p11 h10 p9 )_ytrbtra
C             i2 ( h2 p11 h10 p9 )_ytrbtra + = 1 * Sum ( h4 ) * tra ( p11 h4 )_tra * i3 ( h2 h4 h10 p9 )_ytrb
C             i2 ( h2 p11 h10 p9 )_ytratrb + = 2 * Sum ( h7 h8 p5 ) * trb ( p5 p11 h7 h8 )_trb * i3 ( h2 h7 h8 h10 p5 p9 )_ytra
C                 i3 ( h2 h7 h8 h10 p5 p9 )_ytra + = -1 * Sum ( p3 ) * tra ( p3 h10 )_tra * y ( h2 h7 h8 p3 p5 p9 )_y
C             i2 ( h2 p11 h10 p9 )_ytratrb + = 1 * Sum ( h4 ) * trb ( p11 h4 )_trb * i3 ( h2 h4 h10 p9 )_ytra
C                 i3 ( h2 h4 h10 p9 )_ytra + = -1 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h10 )_tra * y ( h2 h4 h7 p5 p6 p9 )_y
C             i2 ( h2 p11 h10 p9 )_ytrbtra + = 2 * Sum ( h7 h8 p5 ) * tra ( p5 p11 h7 h8 )_tra * i3 ( h2 h7 h8 h10 p5 p9 )_ytrb
C         i1 ( p11 p13 h10 p9 )_ytrattrb + = 1 * Sum ( h2 ) * trb ( p13 h2 )_trb * i2 ( h2 p11 h10 p9 )_ytrat
C             i2 ( h2 p11 h10 p9 )_ytrat + = 1 * Sum ( h4 ) * t ( p11 h4 )_t * i3 ( h2 h4 h10 p9 )_ytra
C             i2 ( h2 p11 h10 p9 )_yttra + = 2 * Sum ( h7 h8 p5 ) * tra ( p5 p11 h7 h8 )_tra * i3 ( h2 h7 h8 h10 p5 p9 )_yt
C             i2 ( h2 p11 h10 p9 )_yttra + = 1 * Sum ( h4 ) * tra ( p11 h4 )_tra * i3 ( h2 h4 h10 p9 )_yt
C             i2 ( h2 p11 h10 p9 )_ytrat + = 2 * Sum ( h7 h8 p5 ) * t ( p5 p11 h7 h8 )_t * i3 ( h2 h7 h8 h10 p5 p9 )_ytra
      IMPLICIT NONE
#include "global.fh"
#include "mafdecls.fh"
#include "util.fh"
#include "errquit.fh"
#include "tce.fh"
      INTEGER d_i0
      INTEGER k_i0_offset
      INTEGER d_i1
      INTEGER k_i1_offset
      INTEGER d_f1
      INTEGER k_f1_offset
      INTEGER d_y1
      INTEGER k_y1_offset
      INTEGER d_v2
      INTEGER k_v2_offset
      INTEGER d_y2
      INTEGER k_y2_offset
      INTEGER l_i1_offset
      INTEGER d_tra1
      INTEGER k_tra1_offset
      INTEGER d_i2
      INTEGER k_i2_offset
      INTEGER size_i1
      INTEGER d_trb1
      INTEGER k_trb1_offset
      INTEGER d_tra2
      INTEGER k_tra2_offset
      INTEGER d_tra3
      INTEGER k_tra3_offset
      INTEGER d_trb2
      INTEGER k_trb2_offset
      INTEGER d_trb3
      INTEGER k_trb3_offset
      INTEGER l_i2_offset
      INTEGER size_i2
      INTEGER d_y3
      INTEGER k_y3_offset
      INTEGER d_t1
      INTEGER k_t1_offset
      INTEGER d_i3
      INTEGER k_i3_offset
      INTEGER l_i3_offset
      INTEGER size_i3
      INTEGER d_t2
      INTEGER k_t2_offset
      INTEGER d_t3
      INTEGER k_t3_offset
      INTEGER d_i4
      INTEGER k_i4_offset
      INTEGER l_i4_offset
      INTEGER size_i4
      CHARACTER*255 filename
#if !defined(CCSDTLR)
      CALL ERRQUIT('CCSDTLR not compiled (ccsdt_lr_beta_2.F)',
     &              0,CAPMIS_ERR)
      RETURN
      END
#else
      CALL OFFSET_ccsdt_lr_beta_2_1_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_1_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL OFFSET_ccsdt_lr_beta_2_1_1_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_1_1_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_1_1_1(d_trb1,k_trb1_offset,d_y1,k_y1_offset,d
     &_i2,k_i2_offset)
      CALL ccsdt_lr_beta_2_1_1_2(d_trb2,k_trb2_offset,d_y2,k_y2_offset,d
     &_i2,k_i2_offset)
      CALL ccsdt_lr_beta_2_1_1_3(d_trb3,k_trb3_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_1_1(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_1_2_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_1_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_1_2_1(d_tra2,k_tra2_offset,d_y2,k_y2_offset,d
     &_i2,k_i2_offset)
      CALL ccsdt_lr_beta_2_1_2_2(d_tra3,k_tra3_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL ccsdt_lr_beta_2_1_2_3(d_tra1,k_tra1_offset,d_y1,k_y1_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_1_2(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_1_3_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_1_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_1_3_1(d_trb1,k_trb1_offset,d_y2,k_y2_offset,d
     &_i2,k_i2_offset)
      CALL ccsdt_lr_beta_2_1_3_2(d_trb2,k_trb2_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_1_3(d_tra2,k_tra2_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_1_4_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_1_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_1_4_1(d_trb1,k_trb1_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_1_4(d_tra3,k_tra3_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_1_5_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_1_5_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_1_5_1(d_tra1,k_tra1_offset,d_y2,k_y2_offset,d
     &_i2,k_i2_offset)
      CALL ccsdt_lr_beta_2_1_5_2(d_tra2,k_tra2_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_1_5(d_trb2,k_trb2_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_1_6_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_1_6_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_1_6_1(d_tra1,k_tra1_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_1_6(d_trb3,k_trb3_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_lr_beta_2_1(d_i1,k_i1_offset,d_f1,k_f1_offset,d_i0,k_i0
     &_offset)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_2_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_2_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL OFFSET_ccsdt_lr_beta_2_2_1_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_2_1_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_2_1_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset,d
     &_i2,k_i2_offset)
      CALL ccsdt_lr_beta_2_2_1_2(d_trb2,k_trb2_offset,d_v2,k_v2_offset,d
     &_i2,k_i2_offset)
      CALL OFFSET_ccsdt_lr_beta_2_2_1_3_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_2_1_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_2_1_3_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset
     &,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_2_1_3(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,
     &k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_2_1_4_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_2_1_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_2_1_4_1(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i
     &3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_2_1_4(d_trb1,k_trb1_offset,d_i3,k_i3_offset,d
     &_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_2_1(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_2_2_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_2_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_2_2_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_2_2(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_2_3_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_2_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_2_3_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_2_3(d_tra2,k_tra2_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_2_4_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_2_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_2_4_1(d_tra2,k_tra2_offset,d_v2,k_v2_offset,d
     &_i2,k_i2_offset)
      CALL ccsdt_lr_beta_2_2_4_2(d_tra1,k_tra1_offset,d_v2,k_v2_offset,d
     &_i2,k_i2_offset)
      CALL OFFSET_ccsdt_lr_beta_2_2_4_3_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_2_4_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_2_4_3_1(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i
     &3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_2_4_3(d_tra1,k_tra1_offset,d_i3,k_i3_offset,d
     &_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_2_4_4_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_2_4_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_2_4_4_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset
     &,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_2_4_4(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,
     &k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_2_4(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_2_5_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_2_5_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_2_5_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_2_5(d_tra2,k_tra2_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_2_6_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_2_6_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_2_6_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_2_6(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_2_7_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_2_7_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_2_7_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_2_7(d_trb2,k_trb2_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_2_8_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_2_8_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_2_8_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_2_8(d_trb2,k_trb2_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_2_9_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_2_9_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_beta_2_2_9_1_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_2_9_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_2_9_1_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset
     &,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_2_9_1(d_trb1,k_trb1_offset,d_i3,k_i3_offset,d
     &_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_2_9_2_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_2_9_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_2_9_2_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset
     &,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_2_9_2(d_tra1,k_tra1_offset,d_i3,k_i3_offset,d
     &_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_2_9(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k_
     &i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_lr_beta_2_2(d_y1,k_y1_offset,d_i1,k_i1_offset,d_i0,k_i0
     &_offset)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_3_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_3_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL OFFSET_ccsdt_lr_beta_2_3_1_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_3_1_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_3_1_1(d_trb1,k_trb1_offset,d_y2,k_y2_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_3_1(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_3_2_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_3_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_3_2_1(d_tra2,k_tra2_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_3_2(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_3_3_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_3_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_3_3_1(d_tra1,k_tra1_offset,d_y2,k_y2_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_3_3(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_3_4_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_3_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_3_4_1(d_trb2,k_trb2_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_3_4(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_lr_beta_2_3(d_i1,k_i1_offset,d_v2,k_v2_offset,d_i0,k_i0
     &_offset)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_4_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_4_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL OFFSET_ccsdt_lr_beta_2_4_1_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_4_1_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_4_1_1(d_trb1,k_trb1_offset,d_y2,k_y2_offset,d
     &_i2,k_i2_offset)
      CALL ccsdt_lr_beta_2_4_1_2(d_trb2,k_trb2_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_4_1(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_4_2_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_4_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_4_2_1(d_tra2,k_tra2_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL ccsdt_lr_beta_2_4_2_2(d_tra1,k_tra1_offset,d_y2,k_y2_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_4_2(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_4_3_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_4_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_4_3_1(d_trb1,k_trb1_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_4_3(d_tra2,k_tra2_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_4_4_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_4_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_4_4_1(d_tra1,k_tra1_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_4_4(d_trb2,k_trb2_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_lr_beta_2_4(d_i1,k_i1_offset,d_v2,k_v2_offset,d_i0,k_i0
     &_offset)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL OFFSET_ccsdt_lr_beta_2_5_1_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_1_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_5_1_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_5_1(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_2_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_5_2_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset,d
     &_i2,k_i2_offset)
      CALL ccsdt_lr_beta_2_5_2_2(d_trb2,k_trb2_offset,d_v2,k_v2_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_5_2(d_tra2,k_tra2_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_3_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_5_3_1(d_tra2,k_tra2_offset,d_v2,k_v2_offset,d
     &_i2,k_i2_offset)
      CALL OFFSET_ccsdt_lr_beta_2_5_3_2_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_3_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_3_2_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset
     &,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_3_2(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,
     &k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_3_3_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_3_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_3_3_1(d_tra2,k_tra2_offset,d_v2,k_v2_offset
     &,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_3_3(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,
     &k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_3_4_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_3_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_3_4_1(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i
     &3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_3_4(d_tra2,k_tra2_offset,d_i3,k_i3_offset,d
     &_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_3_5_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_3_5_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_3_5_1(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i
     &3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_3_5(d_tra1,k_tra1_offset,d_i3,k_i3_offset,d
     &_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_3_6_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_3_6_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_3_6_1(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i
     &3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_3_6(d_tra1,k_tra1_offset,d_i3,k_i3_offset,d
     &_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_3_7_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_3_7_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_3_7_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset
     &,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_3_7(d_t2,k_t2_offset,d_i3,k_i3_offset,d_i2,
     &k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_5_3(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_4_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_5_4_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset,d
     &_i2,k_i2_offset)
      CALL ccsdt_lr_beta_2_5_4_2(d_trb2,k_trb2_offset,d_v2,k_v2_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_5_4(d_tra2,k_tra2_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_5_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_5_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_5_5_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_5_5(d_tra3,k_tra3_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_6_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_6_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_5_6_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_5_6(d_tra3,k_tra3_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_7_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_7_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_5_7_1(d_trb2,k_trb2_offset,d_v2,k_v2_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_5_7(d_tra2,k_tra2_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_8_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_8_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_5_8_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_5_8(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_9_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_9_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_5_9_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset,d
     &_i2,k_i2_offset)
      CALL ccsdt_lr_beta_2_5_9_2(d_tra2,k_tra2_offset,d_v2,k_v2_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_5_9(d_trb2,k_trb2_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_10_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_10_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_5_10_1(d_trb2,k_trb2_offset,d_v2,k_v2_offset,
     &d_i2,k_i2_offset)
      CALL OFFSET_ccsdt_lr_beta_2_5_10_2_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_10_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_10_2_1(d_t2,k_t2_offset,d_v2,k_v2_offset,d_
     &i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_10_2(d_trb1,k_trb1_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_10_3_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_10_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_10_3_1(d_trb1,k_trb1_offset,d_v2,k_v2_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_10_3(d_t2,k_t2_offset,d_i3,k_i3_offset,d_i2
     &,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_10_4_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_10_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_10_4_1(d_t1,k_t1_offset,d_v2,k_v2_offset,d_
     &i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_10_4(d_trb1,k_trb1_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_10_5_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_10_5_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_10_5_1(d_trb2,k_trb2_offset,d_v2,k_v2_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_10_5(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2
     &,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_10_6_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_10_6_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_10_6_1(d_t1,k_t1_offset,d_v2,k_v2_offset,d_
     &i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_10_6(d_trb2,k_trb2_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_10_7_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_10_7_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_10_7_1(d_trb1,k_trb1_offset,d_v2,k_v2_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_10_7(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2
     &,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_5_10(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_
     &i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_11_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_11_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_5_11_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset,
     &d_i2,k_i2_offset)
      CALL ccsdt_lr_beta_2_5_11_2(d_tra2,k_tra2_offset,d_v2,k_v2_offset,
     &d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_5_11(d_trb2,k_trb2_offset,d_i2,k_i2_offset,d_
     &i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_12_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_12_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_5_12_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset,
     &d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_5_12(d_trb3,k_trb3_offset,d_i2,k_i2_offset,d_
     &i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_13_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_13_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_5_13_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset,
     &d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_5_13(d_trb3,k_trb3_offset,d_i2,k_i2_offset,d_
     &i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_14_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_14_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_5_14_1(d_tra2,k_tra2_offset,d_v2,k_v2_offset,
     &d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_5_14(d_trb2,k_trb2_offset,d_i2,k_i2_offset,d_
     &i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_15_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_15_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_beta_2_5_15_1_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_15_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_15_1_1(d_trb1,k_trb1_offset,d_v2,k_v2_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_15_1(d_tra1,k_tra1_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_15_2_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_15_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_15_2_1(d_trb2,k_trb2_offset,d_v2,k_v2_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_15_2(d_tra1,k_tra1_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_15_3_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_15_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_15_3_1(d_tra1,k_tra1_offset,d_v2,k_v2_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_15_3(d_trb2,k_trb2_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_15_4_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_15_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_15_4_1(d_tra1,k_tra1_offset,d_v2,k_v2_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_15_4(d_trb1,k_trb1_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_15_5_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_15_5_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_15_5_1(d_tra2,k_tra2_offset,d_v2,k_v2_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_15_5(d_trb1,k_trb1_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_15_6_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_15_6_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_15_6_1(d_trb1,k_trb1_offset,d_v2,k_v2_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_15_6(d_tra2,k_tra2_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_5_15(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k
     &_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_16_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_16_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_beta_2_5_16_1_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_16_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_16_1_1(d_trb1,k_trb1_offset,d_v2,k_v2_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_16_1(d_tra1,k_tra1_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_16_2_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_16_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_16_2_1(d_tra1,k_tra1_offset,d_v2,k_v2_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_16_2(d_trb1,k_trb1_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_5_16(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1,k
     &_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_17_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_17_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_beta_2_5_17_1_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_17_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_17_1_1(d_tra1,k_tra1_offset,d_v2,k_v2_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_17_1(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2
     &,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_17_2_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_17_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_17_2_1(d_t1,k_t1_offset,d_v2,k_v2_offset,d_
     &i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_17_2(d_tra1,k_tra1_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_5_17(d_trb2,k_trb2_offset,d_i2,k_i2_offset,d_
     &i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_18_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_18_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_beta_2_5_18_1_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_18_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_18_1_1(d_t1,k_t1_offset,d_v2,k_v2_offset,d_
     &i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_18_1(d_trb1,k_trb1_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_5_18_2_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_5_18_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_18_2_1(d_trb1,k_trb1_offset,d_v2,k_v2_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_5_18_2(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2
     &,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_5_18(d_tra2,k_tra2_offset,d_i2,k_i2_offset,d_
     &i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_lr_beta_2_5(d_y2,k_y2_offset,d_i1,k_i1_offset,d_i0,k_i0
     &_offset)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_6_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_6_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL OFFSET_ccsdt_lr_beta_2_6_1_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_6_1_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_6_1_1(d_tra2,k_tra2_offset,d_y2,k_y2_offset,d
     &_i2,k_i2_offset)
      CALL ccsdt_lr_beta_2_6_1_2(d_tra3,k_tra3_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL OFFSET_ccsdt_lr_beta_2_6_1_3_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_6_1_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_6_1_3_1(d_tra1,k_tra1_offset,d_y2,k_y2_offset
     &,d_i3,k_i3_offset)
      CALL ccsdt_lr_beta_2_6_1_3_2(d_tra2,k_tra2_offset,d_y3,k_y3_offset
     &,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_6_1_3(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,
     &k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_6_1_4_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_6_1_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_6_1_4_1(d_t1,k_t1_offset,d_y2,k_y2_offset,d_i
     &3,k_i3_offset)
      CALL ccsdt_lr_beta_2_6_1_4_2(d_t2,k_t2_offset,d_y3,k_y3_offset,d_i
     &3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_6_1_4(d_tra1,k_tra1_offset,d_i3,k_i3_offset,d
     &_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_6_1(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_6_2_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_6_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_6_2_1(d_trb1,k_trb1_offset,d_y2,k_y2_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_6_2(d_tra2,k_tra2_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_6_3_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_6_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_6_3_1(d_tra2,k_tra2_offset,d_y2,k_y2_offset,d
     &_i2,k_i2_offset)
      CALL ccsdt_lr_beta_2_6_3_2(d_tra3,k_tra3_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_6_3(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_6_4_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_6_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_beta_2_6_4_1_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_6_4_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_6_4_1_1(d_y3,k_y3_offset,d_i3,k_i3_offset)
      CALL ccsdt_lr_beta_2_6_4_1_2(d_y3,k_y3_offset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_6_4_1(d_tra1,k_tra1_offset,d_i3,k_i3_offset,d
     &_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_6_4(d_trb3,k_trb3_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_6_5_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_6_5_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_6_5_1(d_trb2,k_trb2_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_6_5(d_trb2,k_trb2_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_6_6_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_6_6_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_6_6_1(d_tra2,k_tra2_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_6_6(d_trb2,k_trb2_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_6_7_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_6_7_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_6_7_1(d_trb2,k_trb2_offset,d_y2,k_y2_offset,d
     &_i2,k_i2_offset)
      CALL ccsdt_lr_beta_2_6_7_2(d_trb3,k_trb3_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL OFFSET_ccsdt_lr_beta_2_6_7_3_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_6_7_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_6_7_3_1(d_t1,k_t1_offset,d_y2,k_y2_offset,d_i
     &3,k_i3_offset)
      CALL ccsdt_lr_beta_2_6_7_3_2(d_t2,k_t2_offset,d_y3,k_y3_offset,d_i
     &3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_6_7_3(d_trb1,k_trb1_offset,d_i3,k_i3_offset,d
     &_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_6_7_4_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_6_7_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_6_7_4_1(d_trb1,k_trb1_offset,d_y2,k_y2_offset
     &,d_i3,k_i3_offset)
      CALL ccsdt_lr_beta_2_6_7_4_2(d_trb2,k_trb2_offset,d_y3,k_y3_offset
     &,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_6_7_4(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,
     &k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_6_7(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_6_8_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_6_8_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_6_8_1(d_tra1,k_tra1_offset,d_y2,k_y2_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_6_8(d_trb2,k_trb2_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_6_9_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_6_9_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_6_9_1(d_trb2,k_trb2_offset,d_y2,k_y2_offset,d
     &_i2,k_i2_offset)
      CALL ccsdt_lr_beta_2_6_9_2(d_trb3,k_trb3_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_6_9(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_6_10_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_6_10_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_6_10_1(d_trb2,k_trb2_offset,d_y3,k_y3_offset,
     &d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_6_10(d_tra2,k_tra2_offset,d_i2,k_i2_offset,d_
     &i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_6_11_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_6_11_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_6_11_1(d_trb2,k_trb2_offset,d_y3,k_y3_offset,
     &d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_6_11(d_tra2,k_tra2_offset,d_i2,k_i2_offset,d_
     &i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_6_12_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_6_12_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_beta_2_6_12_1_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_6_12_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_6_12_1_1(d_trb1,k_trb1_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_6_12_1(d_t2,k_t2_offset,d_i3,k_i3_offset,d_i2
     &,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_6_12_2_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_6_12_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_6_12_2_1(d_t1,k_t1_offset,d_y3,k_y3_offset,d_
     &i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_6_12_2(d_trb2,k_trb2_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_6_12(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_
     &i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_6_13_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_6_13_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_beta_2_6_13_1_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_6_13_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_6_13_1_1(d_trb1,k_trb1_offset,d_y2,k_y2_offse
     &t,d_i3,k_i3_offset)
      CALL ccsdt_lr_beta_2_6_13_1_2(d_trb2,k_trb2_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_6_13_1(d_tra1,k_tra1_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_6_13_2_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_6_13_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_6_13_2_1(d_tra1,k_tra1_offset,d_y2,k_y2_offse
     &t,d_i3,k_i3_offset)
      CALL ccsdt_lr_beta_2_6_13_2_2(d_tra2,k_tra2_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_6_13_2(d_trb1,k_trb1_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_6_13(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k
     &_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_6_14_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_6_14_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_beta_2_6_14_1_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_6_14_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_6_14_1_1(d_tra1,k_tra1_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_6_14_1(d_trb2,k_trb2_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_6_14_2_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_6_14_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_6_14_2_1(d_trb1,k_trb1_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_6_14_2(d_tra2,k_tra2_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_6_14(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k
     &_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_6_15_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_6_15_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_beta_2_6_15_1_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_6_15_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_6_15_1_1(d_t1,k_t1_offset,d_y3,k_y3_offset,d_
     &i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_6_15_1(d_tra2,k_tra2_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_6_15_2_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_6_15_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_6_15_2_1(d_tra1,k_tra1_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_6_15_2(d_t2,k_t2_offset,d_i3,k_i3_offset,d_i2
     &,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_6_15(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_
     &i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_lr_beta_2_6(d_i1,k_i1_offset,d_v2,k_v2_offset,d_i0,k_i0
     &_offset)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_7_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_7_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL OFFSET_ccsdt_lr_beta_2_7_1_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_7_1_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_7_1_1(d_tra2,k_tra2_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_7_1(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_7_2_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_7_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_7_2_1(d_trb2,k_trb2_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_7_2(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_lr_beta_2_7(d_i1,k_i1_offset,d_v2,k_v2_offset,d_i0,k_i0
     &_offset)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL OFFSET_ccsdt_lr_beta_2_8_1_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_1_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_1_1(d_trb1,k_trb1_offset,d_y2,k_y2_offset,d
     &_i2,k_i2_offset)
      CALL ccsdt_lr_beta_2_8_1_2(d_trb2,k_trb2_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_1(d_tra3,k_tra3_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_2_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_2_1(d_trb2,k_trb2_offset,d_y2,k_y2_offset,d
     &_i2,k_i2_offset)
      CALL ccsdt_lr_beta_2_8_2_2(d_trb3,k_trb3_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL OFFSET_ccsdt_lr_beta_2_8_2_3_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_2_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_2_3_1(d_t2,k_t2_offset,d_y3,k_y3_offset,d_i
     &3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_2_3(d_trb1,k_trb1_offset,d_i3,k_i3_offset,d
     &_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_2_4_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_2_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_2_4_1(d_trb2,k_trb2_offset,d_y3,k_y3_offset
     &,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_2_4(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,
     &k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_2(d_tra2,k_tra2_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_3_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_3_1(d_trb2,k_trb2_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_3(d_tra3,k_tra3_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_4_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_4_1(d_tra3,k_tra3_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL ccsdt_lr_beta_2_8_4_2(d_tra2,k_tra2_offset,d_y2,k_y2_offset,d
     &_i2,k_i2_offset)
      CALL OFFSET_ccsdt_lr_beta_2_8_4_3_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_4_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_4_3_1(d_tra2,k_tra2_offset,d_y3,k_y3_offset
     &,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_4_3(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,
     &k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_4_4_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_4_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_4_4_1(d_t2,k_t2_offset,d_y3,k_y3_offset,d_i
     &3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_4_4(d_tra1,k_tra1_offset,d_i3,k_i3_offset,d
     &_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_4(d_trb2,k_trb2_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_5_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_5_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_5_1(d_tra3,k_tra3_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_5(d_trb2,k_trb2_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_6_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_6_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_6_1(d_tra3,k_tra3_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_6(d_trb2,k_trb2_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_7_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_7_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_7_1(d_trb2,k_trb2_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL OFFSET_ccsdt_lr_beta_2_8_7_2_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_7_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_7_2_1(d_t1,k_t1_offset,d_y3,k_y3_offset,d_i
     &3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_7_2(d_trb1,k_trb1_offset,d_i3,k_i3_offset,d
     &_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_7_3_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_7_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_7_3_1(d_trb1,k_trb1_offset,d_y3,k_y3_offset
     &,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_7_3(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,
     &k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_7(d_tra3,k_tra3_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_8_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_8_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_8_1(d_tra3,k_tra3_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_8(d_trb2,k_trb2_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_9_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_9_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_9_1(d_tra1,k_tra1_offset,d_y2,k_y2_offset,d
     &_i2,k_i2_offset)
      CALL ccsdt_lr_beta_2_8_9_2(d_tra2,k_tra2_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_9(d_trb3,k_trb3_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_10_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_10_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_10_1(d_tra2,k_tra2_offset,d_y3,k_y3_offset,
     &d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_10(d_trb3,k_trb3_offset,d_i2,k_i2_offset,d_
     &i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_11_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_11_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_11_1(d_trb3,k_trb3_offset,d_y3,k_y3_offset,
     &d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_11(d_tra2,k_tra2_offset,d_i2,k_i2_offset,d_
     &i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_12_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_12_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_12_1(d_trb3,k_trb3_offset,d_y3,k_y3_offset,
     &d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_12(d_tra2,k_tra2_offset,d_i2,k_i2_offset,d_
     &i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_13_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_13_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_13_1(d_tra2,k_tra2_offset,d_y3,k_y3_offset,
     &d_i2,k_i2_offset)
      CALL OFFSET_ccsdt_lr_beta_2_8_13_2_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_13_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_13_2_1(d_tra1,k_tra1_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_13_2(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2
     &,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_13_3_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_13_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_13_3_1(d_t1,k_t1_offset,d_y3,k_y3_offset,d_
     &i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_13_3(d_tra1,k_tra1_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_13(d_trb3,k_trb3_offset,d_i2,k_i2_offset,d_
     &i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_14_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_14_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_14_1(d_trb3,k_trb3_offset,d_y3,k_y3_offset,
     &d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_14(d_tra2,k_tra2_offset,d_i2,k_i2_offset,d_
     &i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_15_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_15_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_beta_2_8_15_1_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_15_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_15_1_1(d_t2,k_t2_offset,d_y2,k_y2_offset,d_
     &i3,k_i3_offset)
      CALL OFFSET_ccsdt_lr_beta_2_8_15_1_2_1(l_i4_offset,k_i4_offset,siz
     &e_i4)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_15_1_2_1_i4',filename)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_15_1_2_1(d_y3,k_y3_offset,d_i4,k_i4_offset)
      CALL ccsdt_lr_beta_2_8_15_1_2_2(d_y3,k_y3_offset,d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_15_1_2(d_t3,k_t3_offset,d_i4,k_i4_offset,d_
     &i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_15_1_3_1(l_i4_offset,k_i4_offset,siz
     &e_i4)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_15_1_3_1_i4',filename)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_15_1_3_1(d_t1,k_t1_offset,d_y2,k_y2_offset,
     &d_i4,k_i4_offset)
      CALL ccsdt_lr_beta_2_8_15_1_3_2(d_t2,k_t2_offset,d_y3,k_y3_offset,
     &d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_15_1_3(d_t1,k_t1_offset,d_i4,k_i4_offset,d_
     &i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_15_1(d_trb1,k_trb1_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_15_2_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_15_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_15_2_1(d_trb1,k_trb1_offset,d_y2,k_y2_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_15_2(d_t2,k_t2_offset,d_i3,k_i3_offset,d_i2
     &,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_15_3_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_15_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_15_3_1(d_trb1,k_trb1_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_15_3(d_t3,k_t3_offset,d_i3,k_i3_offset,d_i2
     &,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_15_4_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_15_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_15_4_1(d_trb2,k_trb2_offset,d_y2,k_y2_offse
     &t,d_i3,k_i3_offset)
      CALL OFFSET_ccsdt_lr_beta_2_8_15_4_2_1(l_i4_offset,k_i4_offset,siz
     &e_i4)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_15_4_2_1_i4',filename)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_15_4_2_1(d_trb1,k_trb1_offset,d_y2,k_y2_off
     &set,d_i4,k_i4_offset)
      CALL ccsdt_lr_beta_2_8_15_4_2_2(d_trb2,k_trb2_offset,d_y3,k_y3_off
     &set,d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_15_4_2(d_t1,k_t1_offset,d_i4,k_i4_offset,d_
     &i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_15_4_3_1(l_i4_offset,k_i4_offset,siz
     &e_i4)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_15_4_3_1_i4',filename)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_15_4_3_1(d_t1,k_t1_offset,d_y2,k_y2_offset,
     &d_i4,k_i4_offset)
      CALL ccsdt_lr_beta_2_8_15_4_3_2(d_t2,k_t2_offset,d_y3,k_y3_offset,
     &d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_15_4_3(d_trb1,k_trb1_offset,d_i4,k_i4_offse
     &t,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_15_4(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2
     &,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_15_5_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_15_5_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_15_5_1(d_t1,k_t1_offset,d_y2,k_y2_offset,d_
     &i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_15_5(d_trb2,k_trb2_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_15_6_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_15_6_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_15_6_1(d_t1,k_t1_offset,d_y3,k_y3_offset,d_
     &i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_15_6(d_trb3,k_trb3_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_15_7_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_15_7_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL OFFSET_ccsdt_lr_beta_2_8_15_7_1_1(l_i4_offset,k_i4_offset,siz
     &e_i4)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_15_7_1_1_i4',filename)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_15_7_1_1(d_t1,k_t1_offset,d_y3,k_y3_offset,
     &d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_15_7_1(d_t2,k_t2_offset,d_i4,k_i4_offset,d_
     &i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_15_7(d_trb1,k_trb1_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_15_8_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_15_8_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL OFFSET_ccsdt_lr_beta_2_8_15_8_1_1(l_i4_offset,k_i4_offset,siz
     &e_i4)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_15_8_1_1_i4',filename)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_15_8_1_1(d_t1,k_t1_offset,d_y3,k_y3_offset,
     &d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_15_8_1(d_trb2,k_trb2_offset,d_i4,k_i4_offse
     &t,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_15_8_2_1(l_i4_offset,k_i4_offset,siz
     &e_i4)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_15_8_2_1_i4',filename)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_15_8_2_1(d_trb1,k_trb1_offset,d_y3,k_y3_off
     &set,d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_15_8_2(d_t2,k_t2_offset,d_i4,k_i4_offset,d_
     &i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_15_8(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2
     &,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_15(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_
     &i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_16_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_16_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_beta_2_8_16_1_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_16_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_16_1_1(d_t3,k_t3_offset,d_y3,k_y3_offset,d_
     &i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_16_1(d_tra1,k_tra1_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_16_2_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_16_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_16_2_1(d_tra3,k_tra3_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_16_2(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2
     &,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_16(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_
     &i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_17_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_17_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_beta_2_8_17_1_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_17_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_17_1_1(d_trb1,k_trb1_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_17_1(d_tra1,k_tra1_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_17_2_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_17_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_17_2_1(d_tra1,k_tra1_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_17_2(d_trb1,k_trb1_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_17(d_t3,k_t3_offset,d_i2,k_i2_offset,d_i1,k
     &_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_18_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_18_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_beta_2_8_18_1_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_18_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_18_1_1(d_tra1,k_tra1_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_18_1(d_t3,k_t3_offset,d_i3,k_i3_offset,d_i2
     &,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_18_2_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_18_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_18_2_1(d_t1,k_t1_offset,d_y3,k_y3_offset,d_
     &i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_18_2(d_tra3,k_tra3_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_18(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_
     &i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_19_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_19_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_beta_2_8_19_1_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_19_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_19_1_1(d_tra2,k_tra2_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_19_1(d_trb2,k_trb2_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_19_2_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_19_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_19_2_1(d_tra2,k_tra2_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_19_2(d_trb2,k_trb2_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_19_3_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_19_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_19_3_1(d_trb2,k_trb2_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_19_3(d_tra2,k_tra2_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_19_4_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_19_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_19_4_1(d_trb2,k_trb2_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_19_4(d_tra2,k_tra2_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_19(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k
     &_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_20_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_20_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_beta_2_8_20_1_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_20_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_20_1_1(d_t1,k_t1_offset,d_y3,k_y3_offset,d_
     &i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_20_1(d_tra2,k_tra2_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_20_2_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_20_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_20_2_1(d_tra1,k_tra1_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_20_2(d_t2,k_t2_offset,d_i3,k_i3_offset,d_i2
     &,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_20(d_trb2,k_trb2_offset,d_i2,k_i2_offset,d_
     &i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_21_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_21_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_beta_2_8_21_1_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_21_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_21_1_1(d_trb2,k_trb2_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_21_1(d_tra2,k_tra2_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_21_2_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_21_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_21_2_1(d_tra2,k_tra2_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_21_2(d_trb2,k_trb2_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_21(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k
     &_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_22_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_22_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_beta_2_8_22_1_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_22_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_22_1_1(d_trb2,k_trb2_offset,d_y2,k_y2_offse
     &t,d_i3,k_i3_offset)
      CALL ccsdt_lr_beta_2_8_22_1_2(d_trb3,k_trb3_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL OFFSET_ccsdt_lr_beta_2_8_22_1_3_1(l_i4_offset,k_i4_offset,siz
     &e_i4)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_22_1_3_1_i4',filename)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_22_1_3_1(d_t1,k_t1_offset,d_y2,k_y2_offset,
     &d_i4,k_i4_offset)
      CALL ccsdt_lr_beta_2_8_22_1_3_2(d_t2,k_t2_offset,d_y3,k_y3_offset,
     &d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_22_1_3(d_trb1,k_trb1_offset,d_i4,k_i4_offse
     &t,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_22_1_4_1(l_i4_offset,k_i4_offset,siz
     &e_i4)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_22_1_4_1_i4',filename)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_22_1_4_1(d_trb1,k_trb1_offset,d_y2,k_y2_off
     &set,d_i4,k_i4_offset)
      CALL ccsdt_lr_beta_2_8_22_1_4_2(d_trb2,k_trb2_offset,d_y3,k_y3_off
     &set,d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_22_1_4(d_t1,k_t1_offset,d_i4,k_i4_offset,d_
     &i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_22_1(d_tra1,k_tra1_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_22_2_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_22_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_22_2_1(d_tra1,k_tra1_offset,d_y2,k_y2_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_22_2(d_trb2,k_trb2_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_22_3_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_22_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_22_3_1(d_tra1,k_tra1_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_22_3(d_trb3,k_trb3_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_22_4_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_22_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_22_4_1(d_tra2,k_tra2_offset,d_y2,k_y2_offse
     &t,d_i3,k_i3_offset)
      CALL ccsdt_lr_beta_2_8_22_4_2(d_tra3,k_tra3_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL OFFSET_ccsdt_lr_beta_2_8_22_4_3_1(l_i4_offset,k_i4_offset,siz
     &e_i4)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_22_4_3_1_i4',filename)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_22_4_3_1(d_t1,k_t1_offset,d_y2,k_y2_offset,
     &d_i4,k_i4_offset)
      CALL ccsdt_lr_beta_2_8_22_4_3_2(d_t2,k_t2_offset,d_y3,k_y3_offset,
     &d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_22_4_3(d_tra1,k_tra1_offset,d_i4,k_i4_offse
     &t,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_22_4_4_1(l_i4_offset,k_i4_offset,siz
     &e_i4)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_22_4_4_1_i4',filename)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_22_4_4_1(d_tra1,k_tra1_offset,d_y2,k_y2_off
     &set,d_i4,k_i4_offset)
      CALL ccsdt_lr_beta_2_8_22_4_4_2(d_tra2,k_tra2_offset,d_y3,k_y3_off
     &set,d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_22_4_4(d_t1,k_t1_offset,d_i4,k_i4_offset,d_
     &i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_22_4(d_trb1,k_trb1_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_22_5_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_22_5_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_22_5_1(d_trb1,k_trb1_offset,d_y2,k_y2_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_22_5(d_tra2,k_tra2_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_22_6_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_22_6_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_22_6_1(d_trb1,k_trb1_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_22_6(d_tra3,k_tra3_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_22_7_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_22_7_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL OFFSET_ccsdt_lr_beta_2_8_22_7_1_1(l_i4_offset,k_i4_offset,siz
     &e_i4)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_22_7_1_1_i4',filename)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_22_7_1_1(d_trb1,k_trb1_offset,d_y3,k_y3_off
     &set,d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_22_7_1(d_t2,k_t2_offset,d_i4,k_i4_offset,d_
     &i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_22_7_2_1(l_i4_offset,k_i4_offset,siz
     &e_i4)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_22_7_2_1_i4',filename)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_22_7_2_1(d_t1,k_t1_offset,d_y3,k_y3_offset,
     &d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_22_7_2(d_trb2,k_trb2_offset,d_i4,k_i4_offse
     &t,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_22_7(d_tra1,k_tra1_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_22_8_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_22_8_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL OFFSET_ccsdt_lr_beta_2_8_22_8_1_1(l_i4_offset,k_i4_offset,siz
     &e_i4)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_22_8_1_1_i4',filename)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_22_8_1_1(d_trb1,k_trb1_offset,d_y2,k_y2_off
     &set,d_i4,k_i4_offset)
      CALL ccsdt_lr_beta_2_8_22_8_1_2(d_trb2,k_trb2_offset,d_y3,k_y3_off
     &set,d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_22_8_1(d_tra1,k_tra1_offset,d_i4,k_i4_offse
     &t,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_22_8_2_1(l_i4_offset,k_i4_offset,siz
     &e_i4)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_22_8_2_1_i4',filename)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_22_8_2_1(d_tra1,k_tra1_offset,d_y2,k_y2_off
     &set,d_i4,k_i4_offset)
      CALL ccsdt_lr_beta_2_8_22_8_2_2(d_tra2,k_tra2_offset,d_y3,k_y3_off
     &set,d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_22_8_2(d_trb1,k_trb1_offset,d_i4,k_i4_offse
     &t,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_22_8(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2
     &,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_22_9_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_22_9_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL OFFSET_ccsdt_lr_beta_2_8_22_9_1_1(l_i4_offset,k_i4_offset,siz
     &e_i4)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_22_9_1_1_i4',filename)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_22_9_1_1(d_tra1,k_tra1_offset,d_y3,k_y3_off
     &set,d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_22_9_1(d_trb2,k_trb2_offset,d_i4,k_i4_offse
     &t,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_22_9_2_1(l_i4_offset,k_i4_offset,siz
     &e_i4)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_22_9_2_1_i4',filename)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_22_9_2_1(d_trb1,k_trb1_offset,d_y3,k_y3_off
     &set,d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_22_9_2(d_tra2,k_tra2_offset,d_i4,k_i4_offse
     &t,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_22_9(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2
     &,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_22_10_1(l_i3_offset,k_i3_offset,size
     &_i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_22_10_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL OFFSET_ccsdt_lr_beta_2_8_22_10_1_1(l_i4_offset,k_i4_offset,si
     &ze_i4)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_22_10_1_1_i4',filename)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_22_10_1_1(d_tra1,k_tra1_offset,d_y3,k_y3_of
     &fset,d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_22_10_1(d_t2,k_t2_offset,d_i4,k_i4_offset,d
     &_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_22_10_2_1(l_i4_offset,k_i4_offset,si
     &ze_i4)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_22_10_2_1_i4',filename)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_22_10_2_1(d_t1,k_t1_offset,d_y3,k_y3_offset
     &,d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_22_10_2(d_tra2,k_tra2_offset,d_i4,k_i4_offs
     &et,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_22_10(d_trb1,k_trb1_offset,d_i3,k_i3_offset
     &,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_22(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k
     &_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_23_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_23_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_beta_2_8_23_1_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_23_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_23_1_1(d_trb3,k_trb3_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_23_1(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2
     &,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_23_2_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_23_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_23_2_1(d_t3,k_t3_offset,d_y3,k_y3_offset,d_
     &i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_23_2(d_trb1,k_trb1_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_23(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_
     &i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_24_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_24_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_beta_2_8_24_1_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_24_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_24_1_1(d_t1,k_t1_offset,d_y3,k_y3_offset,d_
     &i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_24_1(d_trb3,k_trb3_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_24_2_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_24_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_24_2_1(d_trb1,k_trb1_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_24_2(d_t3,k_t3_offset,d_i3,k_i3_offset,d_i2
     &,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_24(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_
     &i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_25_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_25_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_beta_2_8_25_1_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_25_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_25_1_1(d_t2,k_t2_offset,d_y3,k_y3_offset,d_
     &i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_25_1(d_tra2,k_tra2_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_25_2_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_25_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_25_2_1(d_t2,k_t2_offset,d_y3,k_y3_offset,d_
     &i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_25_2(d_tra2,k_tra2_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_25_3_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_25_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_25_3_1(d_tra2,k_tra2_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_25_3(d_t2,k_t2_offset,d_i3,k_i3_offset,d_i2
     &,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_25_4_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_25_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_25_4_1(d_tra2,k_tra2_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_25_4(d_t2,k_t2_offset,d_i3,k_i3_offset,d_i2
     &,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_25(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_
     &i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_26_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_26_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_beta_2_8_26_1_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_26_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_26_1_1(d_trb1,k_trb1_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_26_1(d_t2,k_t2_offset,d_i3,k_i3_offset,d_i2
     &,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_26_2_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_26_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_26_2_1(d_t1,k_t1_offset,d_y3,k_y3_offset,d_
     &i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_26_2(d_trb2,k_trb2_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_26(d_tra2,k_tra2_offset,d_i2,k_i2_offset,d_
     &i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_27_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_27_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_beta_2_8_27_1_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_27_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_27_1_1(d_tra2,k_tra2_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_27_1(d_t2,k_t2_offset,d_i3,k_i3_offset,d_i2
     &,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_27_2_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_27_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_27_2_1(d_t2,k_t2_offset,d_y3,k_y3_offset,d_
     &i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_27_2(d_tra2,k_tra2_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_27(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_
     &i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_28_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_28_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_beta_2_8_28_1_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_28_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_28_1_1(d_tra2,k_tra2_offset,d_y2,k_y2_offse
     &t,d_i3,k_i3_offset)
      CALL ccsdt_lr_beta_2_8_28_1_2(d_tra3,k_tra3_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL OFFSET_ccsdt_lr_beta_2_8_28_1_3_1(l_i4_offset,k_i4_offset,siz
     &e_i4)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_28_1_3_1_i4',filename)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_28_1_3_1(d_tra1,k_tra1_offset,d_y2,k_y2_off
     &set,d_i4,k_i4_offset)
      CALL ccsdt_lr_beta_2_8_28_1_3_2(d_tra2,k_tra2_offset,d_y3,k_y3_off
     &set,d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_28_1_3(d_t1,k_t1_offset,d_i4,k_i4_offset,d_
     &i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_28_1_4_1(l_i4_offset,k_i4_offset,siz
     &e_i4)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_28_1_4_1_i4',filename)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_28_1_4_1(d_t1,k_t1_offset,d_y2,k_y2_offset,
     &d_i4,k_i4_offset)
      CALL ccsdt_lr_beta_2_8_28_1_4_2(d_t2,k_t2_offset,d_y3,k_y3_offset,
     &d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_28_1_4(d_tra1,k_tra1_offset,d_i4,k_i4_offse
     &t,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_28_1(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2
     &,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_28_2_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_28_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_28_2_1(d_t1,k_t1_offset,d_y2,k_y2_offset,d_
     &i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_28_2(d_tra2,k_tra2_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_28_3_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_28_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_28_3_1(d_t1,k_t1_offset,d_y3,k_y3_offset,d_
     &i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_28_3(d_tra3,k_tra3_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_28_4_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_28_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_28_4_1(d_t2,k_t2_offset,d_y2,k_y2_offset,d_
     &i3,k_i3_offset)
      CALL ccsdt_lr_beta_2_8_28_4_2(d_t3,k_t3_offset,d_y3,k_y3_offset,d_
     &i3,k_i3_offset)
      CALL OFFSET_ccsdt_lr_beta_2_8_28_4_3_1(l_i4_offset,k_i4_offset,siz
     &e_i4)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_28_4_3_1_i4',filename)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_28_4_3_1(d_t1,k_t1_offset,d_y2,k_y2_offset,
     &d_i4,k_i4_offset)
      CALL ccsdt_lr_beta_2_8_28_4_3_2(d_t2,k_t2_offset,d_y3,k_y3_offset,
     &d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_28_4_3(d_t1,k_t1_offset,d_i4,k_i4_offset,d_
     &i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_28_4(d_tra1,k_tra1_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_28_5_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_28_5_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_28_5_1(d_tra1,k_tra1_offset,d_y2,k_y2_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_28_5(d_t2,k_t2_offset,d_i3,k_i3_offset,d_i2
     &,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_28_6_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_28_6_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_28_6_1(d_tra1,k_tra1_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_28_6(d_t3,k_t3_offset,d_i3,k_i3_offset,d_i2
     &,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_28_7_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_28_7_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL OFFSET_ccsdt_lr_beta_2_8_28_7_1_1(l_i4_offset,k_i4_offset,siz
     &e_i4)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_28_7_1_1_i4',filename)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_28_7_1_1(d_t1,k_t1_offset,d_y3,k_y3_offset,
     &d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_28_7_1(d_tra2,k_tra2_offset,d_i4,k_i4_offse
     &t,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_28_7_2_1(l_i4_offset,k_i4_offset,siz
     &e_i4)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_28_7_2_1_i4',filename)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_28_7_2_1(d_tra1,k_tra1_offset,d_y3,k_y3_off
     &set,d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_28_7_2(d_t2,k_t2_offset,d_i4,k_i4_offset,d_
     &i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_28_7(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2
     &,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_28_8_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_28_8_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL OFFSET_ccsdt_lr_beta_2_8_28_8_1_1(l_i4_offset,k_i4_offset,siz
     &e_i4)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_28_8_1_1_i4',filename)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_28_8_1_1(d_t1,k_t1_offset,d_y3,k_y3_offset,
     &d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_beta_2_8_28_8_1(d_t2,k_t2_offset,d_i4,k_i4_offset,d_
     &i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_28_8(d_tra1,k_tra1_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_28(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_
     &i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_29_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_29_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_beta_2_8_29_1_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_29_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_29_1_1(d_tra3,k_tra3_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_29_1(d_trb1,k_trb1_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_29_2_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_29_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_29_2_1(d_trb3,k_trb3_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_29_2(d_tra1,k_tra1_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_29(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k
     &_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_30_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_30_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_beta_2_8_30_1_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_30_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_30_1_1(d_trb1,k_trb1_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_30_1(d_tra3,k_tra3_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_30_2_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_30_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_30_2_1(d_tra1,k_tra1_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_30_2(d_trb3,k_trb3_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_30(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k
     &_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_31_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_31_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_beta_2_8_31_1_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_31_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_31_1_1(d_trb2,k_trb2_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_31_1(d_t2,k_t2_offset,d_i3,k_i3_offset,d_i2
     &,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_31_2_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_31_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_31_2_1(d_trb2,k_trb2_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_31_2(d_t2,k_t2_offset,d_i3,k_i3_offset,d_i2
     &,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_31_3_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_31_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_31_3_1(d_t2,k_t2_offset,d_y3,k_y3_offset,d_
     &i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_31_3(d_trb2,k_trb2_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_31_4_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_31_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_31_4_1(d_t2,k_t2_offset,d_y3,k_y3_offset,d_
     &i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_31_4(d_trb2,k_trb2_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_31(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_
     &i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_32_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_32_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_beta_2_8_32_1_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_32_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_32_1_1(d_tra1,k_tra1_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_32_1(d_trb2,k_trb2_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_32_2_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_32_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_32_2_1(d_trb1,k_trb1_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_32_2(d_tra2,k_tra2_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_32(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1,k
     &_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_33_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_33_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_beta_2_8_33_1_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_33_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_33_1_1(d_trb2,k_trb2_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_33_1(d_tra1,k_tra1_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_33_2_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_33_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_33_2_1(d_tra2,k_tra2_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_33_2(d_trb1,k_trb1_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_33(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1,k
     &_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_34_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_34_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_beta_2_8_34_1_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_34_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_34_1_1(d_t2,k_t2_offset,d_y3,k_y3_offset,d_
     &i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_34_1(d_trb2,k_trb2_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_8_34_2_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_8_34_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_34_2_1(d_trb2,k_trb2_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_8_34_2(d_t2,k_t2_offset,d_i3,k_i3_offset,d_i2
     &,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_8_34(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_
     &i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_lr_beta_2_8(d_i1,k_i1_offset,d_v2,k_v2_offset,d_i0,k_i0
     &_offset)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_9_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_9_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL OFFSET_ccsdt_lr_beta_2_9_1_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_9_1_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_9_1_1(d_tra3,k_tra3_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_9_1(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_9_2_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_9_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_9_2_1(d_trb1,k_trb1_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_9_2(d_tra3,k_tra3_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_9_3_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_9_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_9_3_1(d_tra3,k_tra3_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_9_3(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_9_4_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_9_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_9_4_1(d_tra2,k_tra2_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_9_4(d_trb2,k_trb2_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_9_5_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_9_5_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_9_5_1(d_tra2,k_tra2_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_9_5(d_trb2,k_trb2_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_9_6_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_9_6_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_9_6_1(d_trb3,k_trb3_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_9_6(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_9_7_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_9_7_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_9_7_1(d_tra1,k_tra1_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_9_7(d_trb3,k_trb3_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_9_8_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_9_8_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_9_8_1(d_trb3,k_trb3_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_9_8(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_9_9_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_9_9_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_9_9_1(d_trb2,k_trb2_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_9_9(d_tra2,k_tra2_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_9_10_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_9_10_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_beta_2_9_10_1(d_trb2,k_trb2_offset,d_y3,k_y3_offset,
     &d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_9_10(d_tra2,k_tra2_offset,d_i2,k_i2_offset,d_
     &i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_9_11_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_9_11_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_beta_2_9_11_1_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_9_11_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_9_11_1_1(d_t2,k_t2_offset,d_y3,k_y3_offset,d_
     &i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_9_11_1(d_trb1,k_trb1_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_9_11_2_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_9_11_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_9_11_2_1(d_trb1,k_trb1_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_9_11_2(d_t2,k_t2_offset,d_i3,k_i3_offset,d_i2
     &,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_9_11_3_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_9_11_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_9_11_3_1(d_trb2,k_trb2_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_9_11_3(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2
     &,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_9_11_4_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_9_11_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_9_11_4_1(d_t1,k_t1_offset,d_y3,k_y3_offset,d_
     &i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_9_11_4(d_trb2,k_trb2_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_9_11(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_
     &i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_9_12_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_9_12_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_beta_2_9_12_1_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_9_12_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_9_12_1_1(d_trb2,k_trb2_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_9_12_1(d_tra1,k_tra1_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_9_12_2_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_9_12_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_9_12_2_1(d_tra1,k_tra1_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_9_12_2(d_trb2,k_trb2_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_9_12_3_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_9_12_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_9_12_3_1(d_tra2,k_tra2_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_9_12_3(d_trb1,k_trb1_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_9_12_4_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_9_12_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_9_12_4_1(d_trb1,k_trb1_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_9_12_4(d_tra2,k_tra2_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_9_12(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k
     &_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_9_13_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_9_13_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_beta_2_9_13_1_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_9_13_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_9_13_1_1(d_tra2,k_tra2_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_9_13_1(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2
     &,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_9_13_2_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_9_13_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_9_13_2_1(d_t1,k_t1_offset,d_y3,k_y3_offset,d_
     &i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_9_13_2(d_tra2,k_tra2_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_9_13_3_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_9_13_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_9_13_3_1(d_t2,k_t2_offset,d_y3,k_y3_offset,d_
     &i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_9_13_3(d_tra1,k_tra1_offset,d_i3,k_i3_offset,
     &d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_beta_2_9_13_4_1(l_i3_offset,k_i3_offset,size_
     &i3)
      CALL TCE_FILENAME('ccsdt_lr_beta_2_9_13_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_beta_2_9_13_4_1(d_tra1,k_tra1_offset,d_y3,k_y3_offse
     &t,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_beta_2_9_13_4(d_t2,k_t2_offset,d_i3,k_i3_offset,d_i2
     &,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_beta_2_9_13(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_
     &i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_lr_beta_2_9(d_i1,k_i1_offset,d_v2,k_v2_offset,d_i0,k_i0
     &_offset)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('ccsdt_lr_beta_2'
     &,-1,MA_ERR)
      RETURN
      END
#endif
