      SUBROUTINE ccsdt_lr_alpha_offdiag(d_a1,d_a2,d_a3,d_b1,d_b2,d_b3,d_
     &c1,d_c2,d_c3,d_f1,d_i0,d_oa1,d_ob1,d_t1,d_t2,d_t3,d_v2,d_y1,d_y2,d
     &_y3,k_a1_offset,k_a2_offset,k_a3_offset,k_b1_offset,k_b2_offset,k_
     &b3_offset,k_c1_offset,k_c2_offset,k_c3_offset,k_f1_offset,k_i0_off
     &set,k_oa1_offset,k_ob1_offset,k_t1_offset,k_t2_offset,k_t3_offset,
     &k_v2_offset,k_y1_offset,k_y2_offset,k_y3_offset)
C     $Id: ccsdt_lr_alpha_offdiag.F 19701 2010-10-29 17:16:57Z d3y133 $
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 ( )_boa + = 1 * Sum ( p10 h11 ) * oa ( h11 p10 )_oa * i1 ( p10 h11 )_b
C         i1 ( p10 h11 )_b + = 1 * b ( p10 h11 )_b
C         i1 ( p10 h11 )_yb + = 1 * Sum ( h4 p3 ) * b ( p3 p10 h4 h11 )_b * y ( h4 p3 )_y
C         i1 ( p10 h11 )_yb + = 1/4 * Sum ( h5 h6 p3 p4 ) * b ( p3 p4 p10 h5 h6 h11 )_b * y ( h5 h6 p3 p4 )_y
C         i1 ( p10 h11 )_ytb + = -1 * Sum ( h2 ) * b ( p10 h2 )_b * i2 ( h2 h11 )_yt
C             i2 ( h2 h11 )_yt + = 1 * Sum ( p3 ) * t ( p3 h11 )_t * y ( h2 p3 )_y
C             i2 ( h2 h11 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h11 )_t * y ( h2 h5 p3 p4 )_y
C             i2 ( h2 h11 )_yt + = 1/12 * Sum ( h6 h7 p3 p4 p5 ) * t ( p3 p4 p5 h6 h7 h11 )_t * y ( h2 h6 h7 p3 p4 p5 )_y
C         i1 ( p10 h11 )_ybt + = 1/2 * Sum ( h8 ) * t ( p10 h8 )_t * i2 ( h8 h11 )_yb
C             i2 ( h8 h11 )_yb + = -1 * Sum ( h5 p3 p4 ) * b ( p3 p4 h5 h11 )_b * y ( h5 h8 p3 p4 )_y
C             i2 ( h8 h11 )_yb + = -1/6 * Sum ( h6 h7 p3 p4 p5 ) * b ( p3 p4 p5 h6 h7 h11 )_b * y ( h6 h7 h8 p3 p4 p5 )_y
C             i2 ( h8 h11 )_yb + = -2 * Sum ( p3 ) * b ( p3 h11 )_b * y ( h8 p3 )_y
C         i1 ( p10 h11 )_ytb + = 1/2 * Sum ( h1 h3 p2 ) * b ( p2 p10 h1 h3 )_b * i2 ( h1 h3 h11 p2 )_yt
C             i2 ( h1 h3 h11 p2 )_yt + = -1 * Sum ( p6 ) * t ( p6 h11 )_t * y ( h1 h3 p2 p6 )_y
C             i2 ( h1 h3 h11 p2 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h7 h11 )_t * y ( h1 h3 h7 p2 p5 p6 )_y
C         i1 ( p10 h11 )_ytb + = -1/12 * Sum ( h5 h6 h7 p3 p4 ) * b ( p3 p4 p10 h5 h6 h7 )_b * i2 ( h5 h6 h7 h11 p3 p4 )_yt
C             i2 ( h5 h6 h7 h11 p3 p4 )_yt + = 1 * Sum ( p8 ) * t ( p8 h11 )_t * y ( h5 h6 h7 p3 p4 p8 )_y
C         i1 ( p10 h11 )_ybt + = 1/2 * Sum ( h1 h3 p2 ) * t ( p2 p10 h1 h3 )_t * i2 ( h1 h3 h11 p2 )_yb
C             i2 ( h1 h3 h11 p2 )_yb + = -1 * Sum ( p6 ) * b ( p6 h11 )_b * y ( h1 h3 p2 p6 )_y
C             i2 ( h1 h3 h11 p2 )_yb + = 1/2 * Sum ( h7 p5 p6 ) * b ( p5 p6 h7 h11 )_b * y ( h1 h3 h7 p2 p5 p6 )_y
C         i1 ( p10 h11 )_ybt + = -1/12 * Sum ( h5 h6 h7 p3 p4 ) * t ( p3 p4 p10 h5 h6 h7 )_t * i2 ( h5 h6 h7 h11 p3 p4 )_yb
C             i2 ( h5 h6 h7 h11 p3 p4 )_yb + = 1 * Sum ( p8 ) * b ( p8 h11 )_b * y ( h5 h6 h7 p3 p4 p8 )_y
C     i0 ( )_yboa + = -1 * Sum ( h2 h1 ) * oa ( h1 h2 )_oa * i1 ( h2 h1 )_yb
C         i1 ( h2 h1 )_yb + = 1 * Sum ( p3 ) * b ( p3 h1 )_b * y ( h2 p3 )_y
C         i1 ( h2 h1 )_yb + = 1/2 * Sum ( h5 p3 p4 ) * b ( p3 p4 h1 h5 )_b * y ( h2 h5 p3 p4 )_y
C         i1 ( h2 h1 )_yb + = 1/12 * Sum ( h6 h7 p3 p4 p5 ) * b ( p3 p4 p5 h1 h6 h7 )_b * y ( h2 h6 h7 p3 p4 p5 )_y
C     i0 ( )_oaby + = 1 * Sum ( p8 h9 ) * y ( h9 p8 )_y * i1 ( p8 h9 )_oab
C         i1 ( p8 h9 )_oab + = 1 * Sum ( p5 ) * b ( p5 h9 )_b * i2 ( p8 p5 )_oa
C             i2 ( p8 p5 )_oa + = 1 * oa ( p8 p5 )_oa
C             i2 ( p8 p5 )_vc + = 1 * Sum ( h4 p3 ) * c ( p3 h4 )_c * v ( h4 p8 p3 p5 )_v
C         i1 ( p8 h9 )_oba + = 1 * Sum ( p5 ) * a ( p5 h9 )_a * i2 ( p8 p5 )_ob
C             i2 ( p8 p5 )_ob + = 1 * ob ( p8 p5 )_ob
C             i2 ( p8 p5 )_vb + = 1 * Sum ( h4 p3 ) * b ( p3 h4 )_b * v ( h4 p8 p3 p5 )_v
C         i1 ( p8 h9 )_vba + = 1 * Sum ( h7 ) * a ( p8 h7 )_a * i2 ( h7 h9 )_vb
C             i2 ( h7 h9 )_vb + = 1 * Sum ( h4 p3 ) * b ( p3 h4 )_b * v ( h4 h7 h9 p3 )_v
C             i2 ( h7 h9 )_vbt + = -1 * Sum ( p1 ) * t ( p1 h9 )_t * i3 ( h7 p1 )_vb
C                 i3 ( h7 p1 )_vb + = -1 * Sum ( h6 p5 ) * b ( p5 h6 )_b * v ( h6 h7 p1 p5 )_v
C         i1 ( p8 h9 )_vba + = 1/2 * Sum ( h3 h4 p2 ) * a ( p2 p8 h3 h4 )_a * i2 ( h3 h4 h9 p2 )_vb
C             i2 ( h3 h4 h9 p2 )_vb + = -1 * Sum ( p5 ) * b ( p5 h9 )_b * v ( h3 h4 p2 p5 )_v
C         i1 ( p8 h9 )_vab + = -1/2 * Sum ( h10 ) * b ( p8 h10 )_b * i2 ( h10 h9 )_va
C             i2 ( h10 h9 )_va + = 1 * Sum ( h4 p1 p2 ) * a ( p1 p2 h4 h9 )_a * v ( h4 h10 p1 p2 )_v
C             i2 ( h10 h9 )_vc + = -2 * Sum ( h4 p3 ) * c ( p3 h4 )_c * v ( h4 h10 h9 p3 )_v
C             i2 ( h10 h9 )_vta + = 2 * Sum ( p1 ) * a ( p1 h9 )_a * i3 ( h10 p1 )_vt
C                 i3 ( h10 p1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h10 p1 p5 )_v
C             i2 ( h10 h9 )_vct + = 2 * Sum ( p1 ) * t ( p1 h9 )_t * i3 ( h10 p1 )_vc
C                 i3 ( h10 p1 )_vc + = -1 * Sum ( h6 p5 ) * c ( p5 h6 )_c * v ( h6 h10 p1 p5 )_v
C         i1 ( p8 h9 )_vba + = 1 * Sum ( h4 p2 ) * a ( p2 p8 h4 h9 )_a * i2 ( h4 p2 )_vb
C             i2 ( h4 p2 )_vb + = 1 * Sum ( h6 p5 ) * b ( p5 h6 )_b * v ( h4 h6 p2 p5 )_v
C         i1 ( p8 h9 )_vcb + = 1/2 * Sum ( h3 h4 p2 ) * b ( p2 p8 h3 h4 )_b * i2 ( h3 h4 h9 p2 )_vc
C             i2 ( h3 h4 h9 p2 )_vc + = -1 * Sum ( p5 ) * c ( p5 h9 )_c * v ( h3 h4 p2 p5 )_v
C         i1 ( p8 h9 )_vbc + = -1/2 * Sum ( h3 ) * c ( p8 h3 )_c * i2 ( h3 h9 )_vb
C             i2 ( h3 h9 )_vb + = -1 * Sum ( h4 p1 p2 ) * b ( p1 p2 h4 h9 )_b * v ( h3 h4 p1 p2 )_v
C             i2 ( h3 h9 )_vtb + = 2 * Sum ( p1 ) * b ( p1 h9 )_b * i3 ( h3 p1 )_vt
C                 i3 ( h3 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 p1 p5 )_v
C         i1 ( p8 h9 )_vcb + = 1 * Sum ( h4 p2 ) * b ( p2 p8 h4 h9 )_b * i2 ( h4 p2 )_vc
C             i2 ( h4 p2 )_vc + = 1 * Sum ( h6 p5 ) * c ( p5 h6 )_c * v ( h4 h6 p2 p5 )_v
C         i1 ( p8 h9 )_vbat + = -1 * Sum ( h4 ) * t ( p8 h4 )_t * i2 ( h4 h9 )_vba
C             i2 ( h4 h9 )_vba + = 1 * Sum ( p1 ) * a ( p1 h9 )_a * i3 ( h4 p1 )_vb
C                 i3 ( h4 p1 )_vb + = 1 * Sum ( h6 p5 ) * b ( p5 h6 )_b * v ( h4 h6 p1 p5 )_v
C             i2 ( h4 h9 )_vcb + = 1 * Sum ( p1 ) * b ( p1 h9 )_b * i3 ( h4 p1 )_vc
C                 i3 ( h4 p1 )_vc + = 1 * Sum ( h6 p5 ) * c ( p5 h6 )_c * v ( h4 h6 p1 p5 )_v
C     i0 ( )_yboa + = 1/2 * Sum ( p2 p1 ) * oa ( p1 p2 )_oa * i1 ( p2 p1 )_yb
C         i1 ( p2 p1 )_yb + = 1 * Sum ( h4 h5 p3 ) * b ( p2 p3 h4 h5 )_b * y ( h4 h5 p1 p3 )_y
C         i1 ( p2 p1 )_yb + = 1/6 * Sum ( h5 h6 h7 p3 p4 ) * b ( p2 p3 p4 h5 h6 h7 )_b * y ( h5 h6 h7 p1 p3 p4 )_y
C     i0 ( )_aob + = 1 * Sum ( p10 h11 ) * ob ( h11 p10 )_ob * i1 ( p10 h11 )_a
C         i1 ( p10 h11 )_a + = 1 * a ( p10 h11 )_a
C         i1 ( p10 h11 )_ya + = 1 * Sum ( h4 p3 ) * a ( p3 p10 h4 h11 )_a * y ( h4 p3 )_y
C         i1 ( p10 h11 )_ya + = 1/4 * Sum ( h5 h6 p3 p4 ) * a ( p3 p4 p10 h5 h6 h11 )_a * y ( h5 h6 p3 p4 )_y
C         i1 ( p10 h11 )_yta + = -1 * Sum ( h2 ) * a ( p10 h2 )_a * i2 ( h2 h11 )_yt
C         i1 ( p10 h11 )_yat + = 1/2 * Sum ( h8 ) * t ( p10 h8 )_t * i2 ( h8 h11 )_ya
C             i2 ( h8 h11 )_ya + = -1 * Sum ( h5 p3 p4 ) * a ( p3 p4 h5 h11 )_a * y ( h5 h8 p3 p4 )_y
C             i2 ( h8 h11 )_ya + = -1/6 * Sum ( h6 h7 p3 p4 p5 ) * a ( p3 p4 p5 h6 h7 h11 )_a * y ( h6 h7 h8 p3 p4 p5 )_y
C             i2 ( h8 h11 )_ya + = -2 * Sum ( p3 ) * a ( p3 h11 )_a * y ( h8 p3 )_y
C         i1 ( p10 h11 )_yta + = 1/2 * Sum ( h1 h3 p2 ) * a ( p2 p10 h1 h3 )_a * i2 ( h1 h3 h11 p2 )_yt
C         i1 ( p10 h11 )_yta + = -1/12 * Sum ( h5 h6 h7 p3 p4 ) * a ( p3 p4 p10 h5 h6 h7 )_a * i2 ( h5 h6 h7 h11 p3 p4 )_yt
C         i1 ( p10 h11 )_yat + = 1/2 * Sum ( h1 h3 p2 ) * t ( p2 p10 h1 h3 )_t * i2 ( h1 h3 h11 p2 )_ya
C             i2 ( h1 h3 h11 p2 )_ya + = -1 * Sum ( p6 ) * a ( p6 h11 )_a * y ( h1 h3 p2 p6 )_y
C             i2 ( h1 h3 h11 p2 )_ya + = 1/2 * Sum ( h7 p5 p6 ) * a ( p5 p6 h7 h11 )_a * y ( h1 h3 h7 p2 p5 p6 )_y
C         i1 ( p10 h11 )_yat + = -1/12 * Sum ( h5 h6 h7 p3 p4 ) * t ( p3 p4 p10 h5 h6 h7 )_t * i2 ( h5 h6 h7 h11 p3 p4 )_ya
C             i2 ( h5 h6 h7 h11 p3 p4 )_ya + = 1 * Sum ( p8 ) * a ( p8 h11 )_a * y ( h5 h6 h7 p3 p4 p8 )_y
C     i0 ( )_yaob + = -1 * Sum ( h2 h1 ) * ob ( h1 h2 )_ob * i1 ( h2 h1 )_ya
C         i1 ( h2 h1 )_ya + = 1 * Sum ( p3 ) * a ( p3 h1 )_a * y ( h2 p3 )_y
C         i1 ( h2 h1 )_ya + = 1/2 * Sum ( h5 p3 p4 ) * a ( p3 p4 h1 h5 )_a * y ( h2 h5 p3 p4 )_y
C         i1 ( h2 h1 )_ya + = 1/12 * Sum ( h6 h7 p3 p4 p5 ) * a ( p3 p4 p5 h1 h6 h7 )_a * y ( h2 h6 h7 p3 p4 p5 )_y
C     i0 ( )_yaob + = 1/2 * Sum ( p2 p1 ) * ob ( p1 p2 )_ob * i1 ( p2 p1 )_ya
C         i1 ( p2 p1 )_ya + = 1 * Sum ( h4 h5 p3 ) * a ( p2 p3 h4 h5 )_a * y ( h4 h5 p1 p3 )_y
C         i1 ( p2 p1 )_ya + = 1/6 * Sum ( h5 h6 h7 p3 p4 ) * a ( p2 p3 p4 h5 h6 h7 )_a * y ( h5 h6 h7 p1 p3 p4 )_y
C     i0 ( )_vba + = 1/2 * Sum ( h2 p1 ) * a ( p1 h2 )_a * i1 ( h2 p1 )_vb
C         i1 ( h2 p1 )_vb + = 1 * Sum ( h4 p3 ) * b ( p3 h4 )_b * v ( h2 h4 p1 p3 )_v
C     i0 ( )_ybaf + = -1 * Sum ( p10 h9 ) * i1 ( p10 h9 )_yba * f ( h9 p10 )_f
C         i1 ( p10 h9 )_yba + = 1 * Sum ( h2 ) * a ( p10 h2 )_a * i2 ( h2 h9 )_yb
C             i2 ( h2 h9 )_yb + = 1 * Sum ( p3 ) * b ( p3 h9 )_b * y ( h2 p3 )_y
C         i1 ( p10 h9 )_yab + = -1/2 * Sum ( h8 ) * b ( p10 h8 )_b * i2 ( h8 h9 )_ya
C             i2 ( h8 h9 )_ya + = -1 * Sum ( h5 p3 p4 ) * a ( p3 p4 h5 h9 )_a * y ( h5 h8 p3 p4 )_y
C             i2 ( h8 h9 )_ya + = -1/6 * Sum ( h6 h7 p3 p4 p5 ) * a ( p3 p4 p5 h6 h7 h9 )_a * y ( h6 h7 h8 p3 p4 p5 )_y
C             i2 ( h8 h9 )_yc + = -2 * Sum ( p3 ) * c ( p3 h9 )_c * y ( h8 p3 )_y
C         i1 ( p10 h9 )_yba + = -1/2 * Sum ( h1 h3 p2 ) * a ( p2 p10 h1 h3 )_a * i2 ( h1 h3 h9 p2 )_yb
C             i2 ( h1 h3 h9 p2 )_yb + = -1 * Sum ( p6 ) * b ( p6 h9 )_b * y ( h1 h3 p2 p6 )_y
C             i2 ( h1 h3 h9 p2 )_yb + = 1/2 * Sum ( h7 p5 p6 ) * b ( p5 p6 h7 h9 )_b * y ( h1 h3 h7 p2 p5 p6 )_y
C         i1 ( p10 h9 )_yba + = 1/12 * Sum ( h5 h6 h7 p3 p4 ) * a ( p3 p4 p10 h5 h6 h7 )_a * i2 ( h5 h6 h7 h9 p3 p4 )_yb
C             i2 ( h5 h6 h7 h9 p3 p4 )_yb + = 1 * Sum ( p8 ) * b ( p8 h9 )_b * y ( h5 h6 h7 p3 p4 p8 )_y
C         i1 ( p10 h9 )_ybc + = -1/2 * Sum ( h1 ) * c ( p10 h1 )_c * i2 ( h1 h9 )_yb
C             i2 ( h1 h9 )_yb + = 1 * Sum ( h5 p3 p4 ) * b ( p3 p4 h5 h9 )_b * y ( h1 h5 p3 p4 )_y
C             i2 ( h1 h9 )_yb + = -1/6 * Sum ( h6 h7 p3 p4 p5 ) * b ( p3 p4 p5 h6 h7 h9 )_b * y ( h1 h6 h7 p3 p4 p5 )_y
C         i1 ( p10 h9 )_ycb + = -1/2 * Sum ( h1 h3 p2 ) * b ( p2 p10 h1 h3 )_b * i2 ( h1 h3 h9 p2 )_yc
C             i2 ( h1 h3 h9 p2 )_yc + = -1 * Sum ( p6 ) * c ( p6 h9 )_c * y ( h1 h3 p2 p6 )_y
C             i2 ( h1 h3 h9 p2 )_yc + = 1/2 * Sum ( h7 p5 p6 ) * c ( p5 p6 h7 h9 )_c * y ( h1 h3 h7 p2 p5 p6 )_y
C         i1 ( p10 h9 )_ycb + = 1/12 * Sum ( h5 h6 h7 p3 p4 ) * b ( p3 p4 p10 h5 h6 h7 )_b * i2 ( h5 h6 h7 h9 p3 p4 )_yc
C             i2 ( h5 h6 h7 h9 p3 p4 )_yc + = 1 * Sum ( p8 ) * c ( p8 h9 )_c * y ( h5 h6 h7 p3 p4 p8 )_y
C     i0 ( )_ybav + = -1/4 * Sum ( h6 h7 h11 h12 ) * i1 ( h6 h7 h11 h12 )_yba * v ( h11 h12 h6 h7 )_v
C         i1 ( h6 h7 h11 h12 )_yba + = 1 * Sum ( p1 ) * a ( p1 h11 )_a * i2 ( h6 h7 h12 p1 )_yb
C             i2 ( h6 h7 h12 p1 )_yb + = -1 * Sum ( p3 ) * b ( p3 h12 )_b * y ( h6 h7 p1 p3 )_y
C         i1 ( h6 h7 h11 h12 )_yab + = -1 * Sum ( p5 ) * b ( p5 h12 )_b * i2 ( h6 h7 h11 p5 )_ya
C             i2 ( h6 h7 h11 p5 )_ya + = 1 * Sum ( h3 p1 p2 ) * a ( p1 p2 h3 h11 )_a * y ( h3 h6 h7 p1 p2 p5 )_y
C         i1 ( h6 h7 h11 h12 )_ycb + = 1 * Sum ( p1 ) * b ( p1 h11 )_b * i2 ( h6 h7 h12 p1 )_yc
C             i2 ( h6 h7 h12 p1 )_yc + = -1 * Sum ( p3 ) * c ( p3 h12 )_c * y ( h6 h7 p1 p3 )_y
C         i1 ( h6 h7 h11 h12 )_ybc + = -1 * Sum ( p5 ) * c ( p5 h12 )_c * i2 ( h6 h7 h11 p5 )_yb
C             i2 ( h6 h7 h11 p5 )_yb + = 1 * Sum ( h3 p1 p2 ) * b ( p1 p2 h3 h11 )_b * y ( h3 h6 h7 p1 p2 p5 )_y
C     i0 ( )_ybav + = 1 * Sum ( h11 p7 h9 p10 ) * i1 ( h11 p7 h9 p10 )_yba * v ( h9 p10 h11 p7 )_v
C         i1 ( h11 p7 h9 p10 )_yba + = 1 * Sum ( h2 ) * a ( p7 h2 )_a * i2 ( h2 h11 h9 p10 )_yb
C             i2 ( h2 h11 h9 p10 )_yb + = 1 * Sum ( p3 ) * b ( p3 h9 )_b * y ( h2 h11 p3 p10 )_y
C         i1 ( h11 p7 h9 p10 )_yab + = -1/2 * Sum ( h4 ) * b ( p7 h4 )_b * i2 ( h4 h11 h9 p10 )_ya
C             i2 ( h4 h11 h9 p10 )_ya + = -1 * Sum ( h3 p1 p2 ) * a ( p1 p2 h3 h9 )_a * y ( h3 h4 h11 p1 p2 p10 )_y
C             i2 ( h4 h11 h9 p10 )_yc + = -2 * Sum ( p3 ) * c ( p3 h9 )_c * y ( h4 h11 p3 p10 )_y
C         i1 ( h11 p7 h9 p10 )_yba + = -1/2 * Sum ( h3 h4 p1 ) * a ( p1 p7 h3 h4 )_a * i2 ( h3 h4 h11 h9 p1 p10 )_yb
C             i2 ( h3 h4 h11 h9 p1 p10 )_yb + = -1 * Sum ( p5 ) * b ( p5 h9 )_b * y ( h3 h4 h11 p1 p5 p10 )_y
C         i1 ( h11 p7 h9 p10 )_ybc + = -1/2 * Sum ( h6 ) * c ( p7 h6 )_c * i2 ( h6 h11 h9 p10 )_yb
C             i2 ( h6 h11 h9 p10 )_yb + = -1 * Sum ( h3 p1 p2 ) * b ( p1 p2 h3 h9 )_b * y ( h3 h6 h11 p1 p2 p10 )_y
C         i1 ( h11 p7 h9 p10 )_ycb + = -1/2 * Sum ( h3 h4 p1 ) * b ( p1 p7 h3 h4 )_b * i2 ( h3 h4 h11 h9 p1 p10 )_yc
C             i2 ( h3 h4 h11 h9 p1 p10 )_yc + = -1 * Sum ( p5 ) * c ( p5 h9 )_c * y ( h3 h4 h11 p1 p5 p10 )_y
C     i0 ( )_vbay + = 1/4 * Sum ( p10 p11 h13 h9 ) * y ( h9 h13 p10 p11 )_y * i1 ( p10 p11 h9 h13 )_vba
C         i1 ( p10 p11 h9 h13 )_vba + = 1 * Sum ( p1 ) * a ( p1 h13 )_a * i2 ( p10 p11 h9 p1 )_vb
C             i2 ( p10 p11 h9 p1 )_vb + = -1 * Sum ( p3 ) * b ( p3 h9 )_b * v ( p10 p11 p1 p3 )_v
C         i1 ( p10 p11 h9 h13 )_vba + = 4 * Sum ( h4 p2 ) * a ( p2 p10 h4 h13 )_a * i2 ( h4 p11 h9 p2 )_vb
C             i2 ( h4 p11 h9 p2 )_vb + = -1 * Sum ( p5 ) * b ( p5 h9 )_b * v ( h4 p11 p2 p5 )_v
C             i2 ( h4 p11 h9 p2 )_vb + = -1/2 * Sum ( h8 p6 ) * b ( p6 p11 h8 h9 )_b * v ( h4 h8 p2 p6 )_v
C         i1 ( p10 p11 h9 h13 )_vab + = 1 * Sum ( h7 ) * b ( p10 h7 )_b * i2 ( h7 p11 h9 h13 )_va
C             i2 ( h7 p11 h9 h13 )_va + = -1 * Sum ( p1 p2 ) * a ( p1 p2 h9 h13 )_a * v ( h7 p11 p1 p2 )_v
C             i2 ( h7 p11 h9 h13 )_vtc + = 1/2 * Sum ( h4 ) * c ( p11 h4 )_c * 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 )_vct + = 2 * Sum ( p6 ) * t ( p6 p11 h9 h13 )_t * i3 ( h7 p6 )_vc
C                 i3 ( h7 p6 )_vc + = -1 * Sum ( h4 p3 ) * c ( p3 h4 )_c * v ( h4 h7 p3 p6 )_v
C             i2 ( h7 p11 h9 h13 )_vat + = -2 * Sum ( p1 ) * t ( p1 h13 )_t * i3 ( h7 p11 h9 p1 )_va
C                 i3 ( h7 p11 h9 p1 )_va + = -1 * Sum ( p3 ) * a ( p3 h9 )_a * v ( h7 p11 p1 p3 )_v
C             i2 ( h7 p11 h9 h13 )_vta + = -2 * Sum ( p1 ) * a ( p1 h13 )_a * 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 )_vct + = 1/2 * Sum ( h4 ) * t ( p11 h4 )_t * i3 ( h4 h7 h9 h13 )_vc
C                 i3 ( h4 h7 h9 h13 )_vc + = -1 * Sum ( p5 p6 ) * c ( p5 p6 h9 h13 )_c * v ( h4 h7 p5 p6 )_v
C             i2 ( h7 p11 h9 h13 )_vtc + = 2 * Sum ( p6 ) * c ( p6 p11 h9 h13 )_c * i3 ( h7 p6 )_vt
C                 i3 ( h7 p6 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h7 p3 p6 )_v
C         i1 ( p10 p11 h9 h13 )_vba + = -2 * Sum ( p2 ) * a ( p2 p10 h9 h13 )_a * i2 ( p11 p2 )_vb
C             i2 ( p11 p2 )_vb + = -1 * Sum ( h6 p5 ) * b ( p5 h6 )_b * v ( h6 p11 p2 p5 )_v
C             i2 ( p11 p2 )_vb + = 1/2 * Sum ( h7 h8 p6 ) * b ( p6 p11 h7 h8 )_b * v ( h7 h8 p2 p6 )_v
C         i1 ( p10 p11 h9 h13 )_vba + = 1 * Sum ( h5 h6 p3 ) * a ( p3 p10 p11 h5 h6 h13 )_a * i2 ( h5 h6 h9 p3 )_vb
C             i2 ( h5 h6 h9 p3 )_vb + = -1 * Sum ( p7 ) * b ( p7 h9 )_b * v ( h5 h6 p3 p7 )_v
C         i1 ( p10 p11 h9 h13 )_vba + = 1 * Sum ( h6 p3 ) * a ( p3 p10 p11 h6 h9 h13 )_a * i2 ( h6 p3 )_vb
C             i2 ( h6 p3 )_vb + = 1 * Sum ( h8 p7 ) * b ( p7 h8 )_b * v ( h6 h8 p3 p7 )_v
C         i1 ( p10 p11 h9 h13 )_vba + = 1 * Sum ( h4 ) * a ( p10 p11 h4 h13 )_a * i2 ( h4 h9 )_vb
C             i2 ( h4 h9 )_vb + = 1 * Sum ( h8 p5 p6 ) * b ( p5 p6 h8 h9 )_b * v ( h4 h8 p5 p6 )_v
C         i1 ( p10 p11 h9 h13 )_vcb + = 1 * Sum ( p1 ) * b ( p1 h13 )_b * i2 ( p10 p11 h9 p1 )_vc
C             i2 ( p10 p11 h9 p1 )_vc + = -1 * Sum ( p3 ) * c ( p3 h9 )_c * v ( p10 p11 p1 p3 )_v
C         i1 ( p10 p11 h9 h13 )_vcb + = 4 * Sum ( h4 p2 ) * b ( p2 p10 h4 h13 )_b * i2 ( h4 p11 h9 p2 )_vc
C             i2 ( h4 p11 h9 p2 )_vc + = -1 * Sum ( p5 ) * c ( p5 h9 )_c * v ( h4 p11 p2 p5 )_v
C             i2 ( h4 p11 h9 p2 )_vc + = -1/2 * Sum ( h8 p6 ) * c ( p6 p11 h8 h9 )_c * v ( h4 h8 p2 p6 )_v
C         i1 ( p10 p11 h9 h13 )_vbc + = 1 * Sum ( h6 ) * c ( p10 h6 )_c * i2 ( h6 p11 h9 h13 )_vb
C             i2 ( h6 p11 h9 h13 )_vb + = -1 * Sum ( p1 p2 ) * b ( p1 p2 h9 h13 )_b * v ( h6 p11 p1 p2 )_v
C             i2 ( h6 p11 h9 h13 )_vbt + = -2 * Sum ( p1 ) * t ( p1 h13 )_t * i3 ( h6 p11 h9 p1 )_vb
C                 i3 ( h6 p11 h9 p1 )_vb + = -1 * Sum ( p3 ) * b ( p3 h9 )_b * v ( h6 p11 p1 p3 )_v
C             i2 ( h6 p11 h9 h13 )_vtb + = -2 * Sum ( p1 ) * b ( p1 h13 )_b * i3 ( h6 p11 h9 p1 )_vt
C                 i3 ( h6 p11 h9 p1 )_vt + = -1 * Sum ( p3 ) * t ( p3 h9 )_t * v ( h6 p11 p1 p3 )_v
C         i1 ( p10 p11 h9 h13 )_vcb + = -2 * Sum ( p2 ) * b ( p2 p10 h9 h13 )_b * i2 ( p11 p2 )_vc
C             i2 ( p11 p2 )_vc + = -1 * Sum ( h6 p5 ) * c ( p5 h6 )_c * v ( h6 p11 p2 p5 )_v
C             i2 ( p11 p2 )_vc + = 1/2 * Sum ( h7 h8 p6 ) * c ( p6 p11 h7 h8 )_c * v ( h7 h8 p2 p6 )_v
C         i1 ( p10 p11 h9 h13 )_vcb + = 1 * Sum ( h5 h6 p3 ) * b ( p3 p10 p11 h5 h6 h13 )_b * i2 ( h5 h6 h9 p3 )_vc
C             i2 ( h5 h6 h9 p3 )_vc + = -1 * Sum ( p7 ) * c ( p7 h9 )_c * v ( h5 h6 p3 p7 )_v
C         i1 ( p10 p11 h9 h13 )_vcb + = 1 * Sum ( h6 p3 ) * b ( p3 p10 p11 h6 h9 h13 )_b * i2 ( h6 p3 )_vc
C             i2 ( h6 p3 )_vc + = 1 * Sum ( h8 p7 ) * c ( p7 h8 )_c * v ( h6 h8 p3 p7 )_v
C         i1 ( p10 p11 h9 h13 )_vcb + = 1 * Sum ( h4 ) * b ( p10 p11 h4 h13 )_b * i2 ( h4 h9 )_vc
C             i2 ( h4 h9 )_vc + = 1 * Sum ( h8 p5 p6 ) * c ( p5 p6 h8 h9 )_c * v ( h4 h8 p5 p6 )_v
C         i1 ( p10 p11 h9 h13 )_vbat + = -2 * Sum ( h2 ) * t ( p10 h2 )_t * i2 ( h2 p11 h9 h13 )_vba
C             i2 ( h2 p11 h9 h13 )_vba + = 1 * Sum ( p1 ) * a ( p1 h13 )_a * i3 ( h2 p11 h9 p1 )_vb
C                 i3 ( h2 p11 h9 p1 )_vb + = -1 * Sum ( p3 ) * b ( p3 h9 )_b * v ( h2 p11 p1 p3 )_v
C             i2 ( h2 p11 h9 h13 )_vcb + = -1/4 * Sum ( h4 ) * b ( p11 h4 )_b * i3 ( h2 h4 h9 h13 )_vc
C                 i3 ( h2 h4 h9 h13 )_vc + = 1 * Sum ( p5 p6 ) * c ( p5 p6 h9 h13 )_c * v ( h2 h4 p5 p6 )_v
C             i2 ( h2 p11 h9 h13 )_vbc + = -1 * Sum ( p6 ) * c ( p6 p11 h9 h13 )_c * i3 ( h2 p6 )_vb
C                 i3 ( h2 p6 )_vb + = 1 * Sum ( h4 p3 ) * b ( p3 h4 )_b * v ( h2 h4 p3 p6 )_v
C             i2 ( h2 p11 h9 h13 )_vcb + = 1 * Sum ( p1 ) * b ( p1 h13 )_b * i3 ( h2 p11 h9 p1 )_vc
C                 i3 ( h2 p11 h9 p1 )_vc + = -1 * Sum ( p3 ) * c ( p3 h9 )_c * v ( h2 p11 p1 p3 )_v
C             i2 ( h2 p11 h9 h13 )_vba + = -1/4 * Sum ( h4 ) * a ( p11 h4 )_a * i3 ( h2 h4 h9 h13 )_vb
C                 i3 ( h2 h4 h9 h13 )_vb + = 1 * Sum ( p5 p6 ) * b ( p5 p6 h9 h13 )_b * v ( h2 h4 p5 p6 )_v
C             i2 ( h2 p11 h9 h13 )_vab + = -1 * Sum ( p6 ) * b ( p6 p11 h9 h13 )_b * i3 ( h2 p6 )_va
C                 i3 ( h2 p6 )_va + = 1 * Sum ( h4 p3 ) * a ( p3 h4 )_a * v ( h2 h4 p3 p6 )_v
C         i1 ( p10 p11 h9 h13 )_vbat + = -2 * Sum ( h8 ) * t ( p10 p11 h8 h9 )_t * i2 ( h8 h13 )_vba
C             i2 ( h8 h13 )_vba + = 1 * Sum ( p1 ) * a ( p1 h13 )_a * i3 ( h8 p1 )_vb
C                 i3 ( h8 p1 )_vb + = 1 * Sum ( h4 p3 ) * b ( p3 h4 )_b * v ( h4 h8 p1 p3 )_v
C             i2 ( h8 h13 )_vcb + = 1 * Sum ( p1 ) * b ( p1 h13 )_b * i3 ( h8 p1 )_vc
C                 i3 ( h8 p1 )_vc + = 1 * Sum ( h4 p3 ) * c ( p3 h4 )_c * v ( h4 h8 p1 p3 )_v
C         i1 ( p10 p11 h9 h13 )_vtba + = 1/2 * Sum ( h2 ) * a ( p10 h2 )_a * i2 ( h2 p11 h9 h13 )_vtb
C             i2 ( h2 p11 h9 h13 )_vtb + = 1 * Sum ( h4 ) * b ( p11 h4 )_b * i3 ( h2 h4 h9 h13 )_vt
C                 i3 ( h2 h4 h9 h13 )_vt + = 1 * Sum ( p5 p6 ) * t ( p5 p6 h9 h13 )_t * v ( h2 h4 p5 p6 )_v
C             i2 ( h2 p11 h9 h13 )_vbt + = 4 * Sum ( p6 ) * t ( p6 p11 h9 h13 )_t * i3 ( h2 p6 )_vb
C             i2 ( h2 p11 h9 h13 )_vbt + = 1 * Sum ( h4 ) * t ( p11 h4 )_t * i3 ( h2 h4 h9 h13 )_vb
C             i2 ( h2 p11 h9 h13 )_vtb + = 4 * Sum ( p6 ) * b ( p6 p11 h9 h13 )_b * i3 ( h2 p6 )_vt
C                 i3 ( h2 p6 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h2 h4 p3 p6 )_v
C         i1 ( p10 p11 h9 h13 )_vbtc + = -2 * Sum ( h8 ) * c ( p10 p11 h8 h9 )_c * i2 ( h8 h13 )_vbt
C             i2 ( h8 h13 )_vbt + = 1 * Sum ( p1 ) * t ( p1 h13 )_t * i3 ( h8 p1 )_vb
C             i2 ( h8 h13 )_vtb + = 1 * Sum ( p1 ) * b ( p1 h13 )_b * 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 )_vatb + = -2 * Sum ( h8 ) * b ( p10 p11 h8 h9 )_b * i2 ( h8 h13 )_vat
C             i2 ( h8 h13 )_vat + = 1 * Sum ( p1 ) * t ( p1 h13 )_t * i3 ( h8 p1 )_va
C                 i3 ( h8 p1 )_va + = 1 * Sum ( h4 p3 ) * a ( p3 h4 )_a * v ( h4 h8 p1 p3 )_v
C             i2 ( h8 h13 )_vta + = 1 * Sum ( p1 ) * a ( p1 h13 )_a * i3 ( h8 p1 )_vt
C     i0 ( )_yabv + = 1/4 * Sum ( h13 p10 h11 h12 ) * i1 ( h13 p10 h11 h12 )_yab * v ( h11 h12 h13 p10 )_v
C         i1 ( h13 p10 h11 h12 )_yab + = 1 * Sum ( h8 ) * b ( p10 h8 )_b * i2 ( h8 h13 h11 h12 )_ya
C             i2 ( h8 h13 h11 h12 )_ya + = -1 * Sum ( p1 p2 ) * a ( p1 p2 h11 h12 )_a * y ( h8 h13 p1 p2 )_y
C             i2 ( h8 h13 h11 h12 )_ya + = -1/3 * Sum ( h4 p1 p2 p3 ) * a ( p1 p2 p3 h4 h11 h12 )_a * y ( h4 h8 h13 p1 p2 p3 )_y
C             i2 ( h8 h13 h11 h12 )_ytc + = -2 * Sum ( p3 ) * c ( p3 h11 )_c * 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             i2 ( h8 h13 h11 h12 )_yct + = -2 * Sum ( p3 ) * t ( p3 h11 )_t * i3 ( h8 h13 h12 p3 )_yc
C                 i3 ( h8 h13 h12 p3 )_yc + = 1 * Sum ( p5 ) * c ( p5 h12 )_c * y ( h8 h13 p3 p5 )_y
C                 i3 ( h8 h13 h12 p3 )_yc + = -1 * Sum ( h7 p5 p6 ) * c ( p5 p6 h7 h12 )_c * y ( h7 h8 h13 p3 p5 p6 )_y
C         i1 ( h13 p10 h11 h12 )_yba + = 4 * Sum ( h3 p1 ) * a ( p1 p10 h3 h11 )_a * i2 ( h3 h13 h12 p1 )_yb
C             i2 ( h3 h13 h12 p1 )_yb + = 1 * Sum ( p5 ) * b ( p5 h12 )_b * y ( h3 h13 p1 p5 )_y
C         i1 ( h13 p10 h11 h12 )_yab + = 2 * b ( p10 h12 )_b * i2 ( h13 h11 )_ya
C             i2 ( h13 h11 )_ya + = -1 * Sum ( h3 p1 p2 ) * a ( p1 p2 h3 h11 )_a * y ( h3 h13 p1 p2 )_y
C             i2 ( h13 h11 )_ya + = -1/6 * Sum ( h4 h5 p1 p2 p3 ) * a ( p1 p2 p3 h4 h5 h11 )_a * y ( h4 h5 h13 p1 p2 p3 )_y
C         i1 ( h13 p10 h11 h12 )_yba + = 1 * Sum ( h4 h5 p1 p2 ) * a ( p1 p2 p10 h4 h5 h11 )_a * i2 ( h4 h5 h13 h12 p1 p2 )_yb
C             i2 ( h4 h5 h13 h12 p1 p2 )_yb + = 1 * Sum ( p7 ) * b ( p7 h12 )_b * y ( h4 h5 h13 p1 p2 p7 )_y
C         i1 ( h13 p10 h11 h12 )_yab + = -1/2 * Sum ( p5 p6 ) * b ( p5 p6 h11 h12 )_b * i2 ( h13 p10 p5 p6 )_ya
C             i2 ( h13 p10 p5 p6 )_ya + = 1 * Sum ( h3 h4 p1 ) * a ( p1 p10 h3 h4 )_a * y ( h3 h4 h13 p1 p5 p6 )_y
C         i1 ( h13 p10 h11 h12 )_yab + = -2 * Sum ( h7 p5 ) * b ( p5 p10 h7 h12 )_b * i2 ( h7 h13 h11 p5 )_ya
C             i2 ( h7 h13 h11 p5 )_ya + = -1 * Sum ( h3 p1 p2 ) * a ( p1 p2 h3 h11 )_a * y ( h3 h7 h13 p1 p2 p5 )_y
C         i1 ( h13 p10 h11 h12 )_ybc + = 1 * Sum ( h5 ) * c ( p10 h5 )_c * i2 ( h5 h13 h11 h12 )_yb
C             i2 ( h5 h13 h11 h12 )_yb + = -1 * Sum ( p1 p2 ) * b ( p1 p2 h11 h12 )_b * y ( h5 h13 p1 p2 )_y
C             i2 ( h5 h13 h11 h12 )_yb + = -1/3 * Sum ( h4 p1 p2 p3 ) * b ( p1 p2 p3 h4 h11 h12 )_b * y ( h4 h5 h13 p1 p2 p3 )_y
C         i1 ( h13 p10 h11 h12 )_ycb + = 4 * Sum ( h3 p1 ) * b ( p1 p10 h3 h11 )_b * i2 ( h3 h13 h12 p1 )_yc
C             i2 ( h3 h13 h12 p1 )_yc + = 1 * Sum ( p5 ) * c ( p5 h12 )_c * y ( h3 h13 p1 p5 )_y
C         i1 ( h13 p10 h11 h12 )_ybc + = 2 * c ( p10 h12 )_c * i2 ( h13 h11 )_yb
C             i2 ( h13 h11 )_yb + = -1 * Sum ( h3 p1 p2 ) * b ( p1 p2 h3 h11 )_b * y ( h3 h13 p1 p2 )_y
C             i2 ( h13 h11 )_yb + = -1/6 * Sum ( h4 h5 p1 p2 p3 ) * b ( p1 p2 p3 h4 h5 h11 )_b * y ( h4 h5 h13 p1 p2 p3 )_y
C         i1 ( h13 p10 h11 h12 )_ycb + = 1 * Sum ( h4 h5 p1 p2 ) * b ( p1 p2 p10 h4 h5 h11 )_b * i2 ( h4 h5 h13 h12 p1 p2 )_yc
C             i2 ( h4 h5 h13 h12 p1 p2 )_yc + = 1 * Sum ( p7 ) * c ( p7 h12 )_c * y ( h4 h5 h13 p1 p2 p7 )_y
C         i1 ( h13 p10 h11 h12 )_ybc + = -1/2 * Sum ( p5 p6 ) * c ( p5 p6 h11 h12 )_c * i2 ( h13 p10 p5 p6 )_yb
C             i2 ( h13 p10 p5 p6 )_yb + = 1 * Sum ( h3 h4 p1 ) * b ( p1 p10 h3 h4 )_b * y ( h3 h4 h13 p1 p5 p6 )_y
C         i1 ( h13 p10 h11 h12 )_ybc + = -2 * Sum ( h7 p5 ) * c ( p5 p10 h7 h12 )_c * i2 ( h7 h13 h11 p5 )_yb
C             i2 ( h7 h13 h11 p5 )_yb + = -1 * Sum ( h3 p1 p2 ) * b ( p1 p2 h3 h11 )_b * y ( h3 h7 h13 p1 p2 p5 )_y
C         i1 ( h13 p10 h11 h12 )_ytba + = -2 * Sum ( h2 ) * a ( p10 h2 )_a * i2 ( h2 h13 h11 h12 )_ytb
C             i2 ( h2 h13 h11 h12 )_ytb + = 1 * Sum ( p3 ) * b ( p3 h11 )_b * i3 ( h2 h13 h12 p3 )_yt
C                 i3 ( h2 h13 h12 p3 )_yt + = 1 * Sum ( p5 ) * t ( p5 h12 )_t * y ( h2 h13 p3 p5 )_y
C                 i3 ( h2 h13 h12 p3 )_yt + = 1 * Sum ( h7 p5 p6 ) * t ( p5 p6 h7 h12 )_t * y ( h2 h7 h13 p3 p5 p6 )_y
C             i2 ( h2 h13 h11 h12 )_ybt + = 1 * Sum ( p3 ) * t ( p3 h11 )_t * i3 ( h2 h13 h12 p3 )_yb
C                 i3 ( h2 h13 h12 p3 )_yb + = 1 * Sum ( p5 ) * b ( p5 h12 )_b * y ( h2 h13 p3 p5 )_y
C                 i3 ( h2 h13 h12 p3 )_yb + = 1 * Sum ( h7 p5 p6 ) * b ( p5 p6 h7 h12 )_b * y ( h2 h7 h13 p3 p5 p6 )_y
C         i1 ( h13 p10 h11 h12 )_ybta + = 1 * Sum ( p1 ) * a ( p1 h11 )_a * i2 ( h13 p10 h12 p1 )_ybt
C             i2 ( h13 p10 h12 p1 )_ybt + = 1 * Sum ( h7 h8 p5 ) * t ( p5 p10 h7 h8 )_t * i3 ( h7 h8 h13 h12 p1 p5 )_yb
C                 i3 ( h7 h8 h13 h12 p1 p5 )_yb + = -1 * Sum ( p3 ) * b ( p3 h12 )_b * y ( h7 h8 h13 p1 p3 p5 )_y
C             i2 ( h13 p10 h12 p1 )_ytb + = 1 * Sum ( h7 h8 p5 ) * b ( p5 p10 h7 h8 )_b * 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 )_ycbt + = -2 * Sum ( h2 ) * t ( p10 h2 )_t * i2 ( h2 h13 h11 h12 )_ycb
C             i2 ( h2 h13 h11 h12 )_ycb + = 1 * Sum ( p3 ) * b ( p3 h11 )_b * i3 ( h2 h13 h12 p3 )_yc
C                 i3 ( h2 h13 h12 p3 )_yc + = 1 * Sum ( p5 ) * c ( p5 h12 )_c * y ( h2 h13 p3 p5 )_y
C                 i3 ( h2 h13 h12 p3 )_yc + = 1 * Sum ( h7 p5 p6 ) * c ( p5 p6 h7 h12 )_c * y ( h2 h7 h13 p3 p5 p6 )_y
C             i2 ( h2 h13 h11 h12 )_yba + = 1 * Sum ( p3 ) * a ( p3 h11 )_a * i3 ( h2 h13 h12 p3 )_yb
C         i1 ( h13 p10 h11 h12 )_ybct + = 1 * Sum ( p1 ) * t ( p1 h11 )_t * i2 ( h13 p10 h12 p1 )_ybc
C             i2 ( h13 p10 h12 p1 )_ybc + = 1 * Sum ( h7 h8 p5 ) * c ( p5 p10 h7 h8 )_c * i3 ( h7 h8 h13 h12 p1 p5 )_yb
C             i2 ( h13 p10 h12 p1 )_yab + = 1 * Sum ( h7 h8 p5 ) * b ( p5 p10 h7 h8 )_b * i3 ( h7 h8 h13 h12 p1 p5 )_ya
C                 i3 ( h7 h8 h13 h12 p1 p5 )_ya + = -1 * Sum ( p3 ) * a ( p3 h12 )_a * y ( h7 h8 h13 p1 p3 p5 )_y
C         i1 ( h13 p10 h11 h12 )_yctb + = 1 * Sum ( p1 ) * b ( p1 h11 )_b * i2 ( h13 p10 h12 p1 )_yct
C             i2 ( h13 p10 h12 p1 )_yct + = 1 * Sum ( h7 h8 p5 ) * t ( p5 p10 h7 h8 )_t * i3 ( h7 h8 h13 h12 p1 p5 )_yc
C                 i3 ( h7 h8 h13 h12 p1 p5 )_yc + = -1 * Sum ( p3 ) * c ( p3 h12 )_c * y ( h7 h8 h13 p1 p3 p5 )_y
C             i2 ( h13 p10 h12 p1 )_ytc + = 1 * Sum ( h7 h8 p5 ) * c ( p5 p10 h7 h8 )_c * i3 ( h7 h8 h13 h12 p1 p5 )_yt
C     i0 ( )_yabv + = 1/4 * Sum ( p2 p5 p7 p8 ) * i1 ( p2 p5 p7 p8 )_yab * v ( p7 p8 p2 p5 )_v
C         i1 ( p2 p5 p7 p8 )_yab + = 1 * Sum ( h6 ) * b ( p5 h6 )_b * i2 ( h6 p2 p7 p8 )_ya
C             i2 ( h6 p2 p7 p8 )_ya + = 1 * Sum ( h3 h4 p1 ) * a ( p1 p2 h3 h4 )_a * y ( h3 h4 h6 p1 p7 p8 )_y
C         i1 ( p2 p5 p7 p8 )_ybc + = 1 * Sum ( h6 ) * c ( p5 h6 )_c * i2 ( h6 p2 p7 p8 )_yb
C             i2 ( h6 p2 p7 p8 )_yb + = 1 * Sum ( h3 h4 p1 ) * b ( p1 p2 h3 h4 )_b * y ( h3 h4 h6 p1 p7 p8 )_y
C     i0 ( )_ybav + = -1/4 * Sum ( p11 p12 h14 h15 ) * i1 ( p11 p12 h14 h15 )_yba * v ( h14 h15 p11 p12 )_v
C         i1 ( p11 p12 h14 h15 )_yba + = 1 * Sum ( h4 h5 p1 ) * a ( p1 p11 p12 h4 h5 h14 )_a * i2 ( h4 h5 h15 p1 )_yb
C             i2 ( h4 h5 h15 p1 )_yb + = -1 * Sum ( p7 ) * b ( p7 h15 )_b * y ( h4 h5 p1 p7 )_y
C             i2 ( h4 h5 h15 p1 )_yb + = 1/2 * Sum ( h9 p7 p8 ) * b ( p7 p8 h9 h15 )_b * y ( h4 h5 h9 p1 p7 p8 )_y
C         i1 ( p11 p12 h14 h15 )_yba + = 1/4 * Sum ( h10 h7 ) * a ( p11 p12 h7 h10 )_a * i2 ( h7 h10 h14 h15 )_yb
C             i2 ( h7 h10 h14 h15 )_yb + = -1 * Sum ( p5 p6 ) * b ( p5 p6 h14 h15 )_b * y ( h7 h10 p5 p6 )_y
C             i2 ( h7 h10 h14 h15 )_ytb + = 2 * Sum ( p9 ) * b ( p9 h15 )_b * i3 ( h7 h10 h14 p9 )_yt
C                 i3 ( h7 h10 h14 p9 )_yt + = -1 * Sum ( h3 p1 p2 ) * t ( p1 p2 h3 h14 )_t * y ( h3 h7 h10 p1 p2 p9 )_y
C         i1 ( p11 p12 h14 h15 )_yba + = 1/2 * Sum ( h4 p1 p2 ) * a ( p1 p2 p11 h4 h14 h15 )_a * i2 ( h4 p12 p1 p2 )_yb
C             i2 ( h4 p12 p1 p2 )_yb + = 1 * Sum ( h9 h10 p7 ) * b ( p7 p12 h9 h10 )_b * y ( h4 h9 h10 p1 p2 p7 )_y
C         i1 ( p11 p12 h14 h15 )_yab + = -1/12 * Sum ( h7 h8 ) * b ( p11 p12 h7 h8 )_b * i2 ( h7 h8 h14 h15 )_ya
C             i2 ( h7 h8 h14 h15 )_ya + = 1 * Sum ( h4 p1 p2 p3 ) * a ( p1 p2 p3 h4 h14 h15 )_a * y ( h4 h7 h8 p1 p2 p3 )_y
C             i2 ( h7 h8 h14 h15 )_yc + = 3 * Sum ( p5 p6 ) * c ( p5 p6 h14 h15 )_c * y ( h7 h8 p5 p6 )_y
C             i2 ( h7 h8 h14 h15 )_yat + = 6 * Sum ( p9 ) * t ( p9 h15 )_t * i3 ( h7 h8 h14 p9 )_ya
C                 i3 ( h7 h8 h14 p9 )_ya + = 1 * Sum ( h3 p1 p2 ) * a ( p1 p2 h3 h14 )_a * y ( h3 h7 h8 p1 p2 p9 )_y
C             i2 ( h7 h8 h14 h15 )_ytc + = 6 * Sum ( p9 ) * c ( p9 h15 )_c * 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         i1 ( p11 p12 h14 h15 )_yab + = -1 * Sum ( h9 p7 ) * b ( p7 p12 h9 h15 )_b * i2 ( h9 p11 h14 p7 )_ya
C             i2 ( h9 p11 h14 p7 )_ya + = 1 * Sum ( h4 h5 p1 p2 ) * a ( p1 p2 p11 h4 h5 h14 )_a * y ( h4 h5 h9 p1 p2 p7 )_y
C         i1 ( p11 p12 h14 h15 )_yab + = 1/6 * Sum ( h9 ) * b ( p11 p12 h9 h15 )_b * i2 ( h9 h14 )_ya
C             i2 ( h9 h14 )_ya + = 1 * Sum ( h4 h5 p1 p2 p3 ) * a ( p1 p2 p3 h4 h5 h14 )_a * y ( h4 h5 h9 p1 p2 p3 )_y
C         i1 ( p11 p12 h14 h15 )_yba + = -1/12 * Sum ( h4 h5 h6 p1 ) * a ( p1 p11 p12 h4 h5 h6 )_a * i2 ( h4 h5 h6 h14 h15 p1 )_yb
C             i2 ( h4 h5 h6 h14 h15 p1 )_yb + = 1 * Sum ( p7 p8 ) * b ( p7 p8 h14 h15 )_b * y ( h4 h5 h6 p1 p7 p8 )_y
C         i1 ( p11 p12 h14 h15 )_yab + = 1/6 * Sum ( p7 ) * b ( p7 p12 h14 h15 )_b * i2 ( p11 p7 )_ya
C             i2 ( p11 p7 )_ya + = 1 * Sum ( h4 h5 h6 p1 p2 ) * a ( p1 p2 p11 h4 h5 h6 )_a * y ( h4 h5 h6 p1 p2 p7 )_y
C         i1 ( p11 p12 h14 h15 )_ycb + = 1 * Sum ( h4 h5 p1 ) * b ( p1 p11 p12 h4 h5 h14 )_b * i2 ( h4 h5 h15 p1 )_yc
C             i2 ( h4 h5 h15 p1 )_yc + = -1 * Sum ( p7 ) * c ( p7 h15 )_c * y ( h4 h5 p1 p7 )_y
C             i2 ( h4 h5 h15 p1 )_yc + = 1/2 * Sum ( h9 p7 p8 ) * c ( p7 p8 h9 h15 )_c * y ( h4 h5 h9 p1 p7 p8 )_y
C         i1 ( p11 p12 h14 h15 )_ycb + = 1/2 * Sum ( h4 p1 p2 ) * b ( p1 p2 p11 h4 h14 h15 )_b * i2 ( h4 p12 p1 p2 )_yc
C             i2 ( h4 p12 p1 p2 )_yc + = 1 * Sum ( h9 h10 p7 ) * c ( p7 p12 h9 h10 )_c * y ( h4 h9 h10 p1 p2 p7 )_y
C         i1 ( p11 p12 h14 h15 )_ybc + = -1/12 * Sum ( h5 h6 ) * c ( p11 p12 h5 h6 )_c * i2 ( h5 h6 h14 h15 )_yb
C             i2 ( h5 h6 h14 h15 )_yb + = 1 * Sum ( h4 p1 p2 p3 ) * b ( p1 p2 p3 h4 h14 h15 )_b * y ( h4 h5 h6 p1 p2 p3 )_y
C             i2 ( h5 h6 h14 h15 )_ybt + = 6 * Sum ( p9 ) * t ( p9 h15 )_t * i3 ( h5 h6 h14 p9 )_yb
C                 i3 ( h5 h6 h14 p9 )_yb + = 1 * Sum ( h3 p1 p2 ) * b ( p1 p2 h3 h14 )_b * y ( h3 h5 h6 p1 p2 p9 )_y
C         i1 ( p11 p12 h14 h15 )_ybc + = -1 * Sum ( h9 p7 ) * c ( p7 p12 h9 h15 )_c * i2 ( h9 p11 h14 p7 )_yb
C             i2 ( h9 p11 h14 p7 )_yb + = 1 * Sum ( h4 h5 p1 p2 ) * b ( p1 p2 p11 h4 h5 h14 )_b * y ( h4 h5 h9 p1 p2 p7 )_y
C         i1 ( p11 p12 h14 h15 )_ybc + = 1/6 * Sum ( h9 ) * c ( p11 p12 h9 h15 )_c * i2 ( h9 h14 )_yb
C             i2 ( h9 h14 )_yb + = 1 * Sum ( h4 h5 p1 p2 p3 ) * b ( p1 p2 p3 h4 h5 h14 )_b * y ( h4 h5 h9 p1 p2 p3 )_y
C         i1 ( p11 p12 h14 h15 )_ycb + = 1/12 * Sum ( h2 h13 h4 p6 ) * b ( p6 p11 p12 h2 h4 h13 )_b * i2 ( h2 h4 h13 h14 h15 p6 )_yc
C             i2 ( h2 h4 h13 h14 h15 p6 )_yc + = -1 * Sum ( p7 p8 ) * c ( p7 p8 h14 h15 )_c * y ( h2 h4 h13 p6 p7 p8 )_y
C             i2 ( h2 h4 h13 h14 h15 p6 )_yat + = -2 * Sum ( p1 ) * t ( p1 h14 )_t * i3 ( h2 h4 h13 h15 p1 p6 )_ya
C                 i3 ( h2 h4 h13 h15 p1 p6 )_ya + = 1 * Sum ( p3 ) * a ( p3 h15 )_a * y ( h2 h4 h13 p1 p3 p6 )_y
C             i2 ( h2 h4 h13 h14 h15 p6 )_yta + = -2 * Sum ( p1 ) * a ( p1 h14 )_a * 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         i1 ( p11 p12 h14 h15 )_ybc + = 1/6 * Sum ( p7 ) * c ( p7 p12 h14 h15 )_c * i2 ( p11 p7 )_yb
C             i2 ( p11 p7 )_yb + = 1 * Sum ( h4 h5 h6 p1 p2 ) * b ( p1 p2 p11 h4 h5 h6 )_b * y ( h4 h5 h6 p1 p2 p7 )_y
C         i1 ( p11 p12 h14 h15 )_ytba + = 1/2 * Sum ( h2 ) * a ( p11 h2 )_a * i2 ( h2 p12 h14 h15 )_ytb
C             i2 ( h2 p12 h14 h15 )_ytb + = 1 * Sum ( h4 ) * b ( p12 h4 )_b * 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 * 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 )_ybt + = 8 * Sum ( h7 p5 ) * t ( p5 p12 h7 h15 )_t * i3 ( h2 h7 h14 p5 )_yb
C                 i3 ( h2 h7 h14 p5 )_yb + = 1 * Sum ( p3 ) * b ( p3 h14 )_b * y ( h2 h7 p3 p5 )_y
C             i2 ( h2 p12 h14 h15 )_ybt + = 2 * Sum ( h8 h9 p5 p6 ) * t ( p5 p6 p12 h8 h9 h15 )_t * i3 ( h2 h8 h9 h14 p5 p6 )_yb
C                 i3 ( h2 h8 h9 h14 p5 p6 )_yb + = 1 * Sum ( p3 ) * b ( p3 h14 )_b * y ( h2 h8 h9 p3 p5 p6 )_y
C             i2 ( h2 p12 h14 h15 )_ybt + = 1 * Sum ( h4 ) * t ( p12 h4 )_t * i3 ( h2 h4 h14 h15 )_yb
C                 i3 ( h2 h4 h14 h15 )_yb + = -1 * Sum ( p5 p6 ) * b ( p5 p6 h14 h15 )_b * y ( h2 h4 p5 p6 )_y
C                 i3 ( h2 h4 h14 h15 )_yb + = -1/3 * Sum ( h8 p5 p6 p7 ) * b ( p5 p6 p7 h8 h14 h15 )_b * y ( h2 h4 h8 p5 p6 p7 )_y
C                 i3 ( h2 h4 h14 h15 )_ybt + = -2 * Sum ( p5 ) * t ( p5 h14 )_t * i4 ( h2 h4 h15 p5 )_yb
C                     i4 ( h2 h4 h15 p5 )_yb + = 1 * Sum ( p7 ) * b ( p7 h15 )_b * y ( h2 h4 p5 p7 )_y
C                     i4 ( h2 h4 h15 p5 )_yb + = -1 * Sum ( h9 p7 p8 ) * b ( p7 p8 h9 h15 )_b * y ( h2 h4 h9 p5 p7 p8 )_y
C                 i3 ( h2 h4 h14 h15 )_ytb + = -2 * Sum ( p5 ) * b ( p5 h14 )_b * i4 ( h2 h4 h15 p5 )_yt
C             i2 ( h2 p12 h14 h15 )_ytb + = 8 * Sum ( h7 p5 ) * b ( p5 p12 h7 h15 )_b * 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 )_ytb + = 2 * Sum ( h8 h9 p5 p6 ) * b ( p5 p6 p12 h8 h9 h15 )_b * 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 )_yttb + = -2 * Sum ( p3 ) * b ( p3 h14 )_b * 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 )_ytbt + = -2 * Sum ( p3 ) * t ( p3 h14 )_t * i3 ( h2 p12 h15 p3 )_ytb
C                 i3 ( h2 p12 h15 p3 )_ytb + = 1 * Sum ( h9 h10 p7 ) * b ( p7 p12 h9 h10 )_b * i4 ( h2 h9 h10 h15 p3 p7 )_yt
C                 i3 ( h2 p12 h15 p3 )_ybt + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p12 h9 h10 )_t * i4 ( h2 h9 h10 h15 p3 p7 )_yb
C                     i4 ( h2 h9 h10 h15 p3 p7 )_yb + = -1 * Sum ( p5 ) * b ( p5 h15 )_b * y ( h2 h9 h10 p3 p5 p7 )_y
C         i1 ( p11 p12 h14 h15 )_ytab + = -1/3 * b ( p12 h14 )_b * i2 ( p11 h15 )_yta
C             i2 ( p11 h15 )_yta + = 1 * Sum ( h2 ) * a ( p11 h2 )_a * 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 )_yct + = 1 * Sum ( h2 ) * t ( p11 h2 )_t * i3 ( h2 h15 )_yc
C                 i3 ( h2 h15 )_yc + = 1 * Sum ( h8 h9 p5 p6 p7 ) * c ( p5 p6 p7 h8 h9 h15 )_c * y ( h2 h8 h9 p5 p6 p7 )_y
C         i1 ( p11 p12 h14 h15 )_ybat + = 1/6 * Sum ( h8 h9 h10 p5 ) * t ( p5 p11 p12 h8 h9 h10 )_t * i2 ( h8 h9 h10 h14 h15 p5 )_yba
C             i2 ( h8 h9 h10 h14 h15 p5 )_yba + = 1 * Sum ( p1 ) * a ( p1 h14 )_a * i3 ( h8 h9 h10 h15 p1 p5 )_yb
C                 i3 ( h8 h9 h10 h15 p1 p5 )_yb + = -1 * Sum ( p3 ) * b ( p3 h15 )_b * y ( h8 h9 h10 p1 p3 p5 )_y
C             i2 ( h8 h9 h10 h14 h15 p5 )_ycb + = 1 * Sum ( p1 ) * b ( p1 h14 )_b * i3 ( h8 h9 h10 h15 p1 p5 )_yc
C                 i3 ( h8 h9 h10 h15 p1 p5 )_yc + = -1 * Sum ( p3 ) * c ( p3 h15 )_c * y ( h8 h9 h10 p1 p3 p5 )_y
C         i1 ( p11 p12 h14 h15 )_yatb + = -1/3 * b ( p11 h15 )_b * i2 ( p12 h14 )_yat
C             i2 ( p12 h14 )_yat + = 1 * Sum ( h8 h9 h10 p5 p6 ) * t ( p5 p6 p12 h8 h9 h10 )_t * i3 ( h8 h9 h10 h14 p5 p6 )_ya
C                 i3 ( h8 h9 h10 h14 p5 p6 )_ya + = 1 * Sum ( p1 ) * a ( p1 h14 )_a * y ( h8 h9 h10 p1 p5 p6 )_y
C             i2 ( p12 h14 )_ytc + = 1 * Sum ( h8 h9 h10 p5 p6 ) * c ( p5 p6 p12 h8 h9 h10 )_c * 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 )_yabt + = -1/2 * Sum ( h10 ) * t ( p12 h10 )_t * i2 ( h10 p11 h14 h15 )_yab
C             i2 ( h10 p11 h14 h15 )_yab + = 1 * Sum ( p5 p6 ) * b ( p5 p6 h14 h15 )_b * i3 ( h10 p11 p5 p6 )_ya
C                 i3 ( h10 p11 p5 p6 )_ya + = 1 * Sum ( h3 h4 p1 ) * a ( p1 p11 h3 h4 )_a * y ( h3 h4 h10 p1 p5 p6 )_y
C             i2 ( h10 p11 h14 h15 )_yab + = 4 * Sum ( h7 p5 ) * b ( p5 p11 h7 h15 )_b * i3 ( h7 h10 h14 p5 )_ya
C                 i3 ( h7 h10 h14 p5 )_ya + = -1 * Sum ( h3 p1 p2 ) * a ( p1 p2 h3 h14 )_a * y ( h3 h7 h10 p1 p2 p5 )_y
C             i2 ( h10 p11 h14 h15 )_ybc + = 1 * Sum ( p5 p6 ) * c ( p5 p6 h14 h15 )_c * i3 ( h10 p11 p5 p6 )_yb
C                 i3 ( h10 p11 p5 p6 )_yb + = 1 * Sum ( h3 h4 p1 ) * b ( p1 p11 h3 h4 )_b * y ( h3 h4 h10 p1 p5 p6 )_y
C             i2 ( h10 p11 h14 h15 )_ybc + = 4 * Sum ( h7 p5 ) * c ( p5 p11 h7 h15 )_c * i3 ( h7 h10 h14 p5 )_yb
C                 i3 ( h7 h10 h14 p5 )_yb + = -1 * Sum ( h3 p1 p2 ) * b ( p1 p2 h3 h14 )_b * y ( h3 h7 h10 p1 p2 p5 )_y
C         i1 ( p11 p12 h14 h15 )_ytab + = -2 * Sum ( h7 p5 ) * b ( p5 p12 h7 h14 )_b * i2 ( h7 p11 h15 p5 )_yta
C             i2 ( h7 p11 h15 p5 )_yta + = 1 * Sum ( h3 h4 p1 ) * a ( p1 p11 h3 h4 )_a * 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 )_yct + = 1 * Sum ( h3 h4 p1 ) * t ( p1 p11 h3 h4 )_t * i3 ( h3 h4 h7 h15 p1 p5 )_yc
C                 i3 ( h3 h4 h7 h15 p1 p5 )_yc + = -1 * Sum ( p9 ) * c ( p9 h15 )_c * y ( h3 h4 h7 p1 p5 p9 )_y
C         i1 ( p11 p12 h14 h15 )_ybat + = -1 * t ( p12 h15 )_t * i2 ( p11 h14 )_yba
C             i2 ( p11 h14 )_yba + = 1 * Sum ( h3 h4 p1 ) * a ( p1 p11 h3 h4 )_a * i3 ( h3 h4 h14 p1 )_yb
C                 i3 ( h3 h4 h14 p1 )_yb + = 1 * Sum ( h7 p5 p6 ) * b ( p5 p6 h7 h14 )_b * y ( h3 h4 h7 p1 p5 p6 )_y
C             i2 ( p11 h14 )_ycb + = 1 * Sum ( h3 h4 p1 ) * b ( p1 p11 h3 h4 )_b * i3 ( h3 h4 h14 p1 )_yc
C                 i3 ( h3 h4 h14 p1 )_yc + = 1 * Sum ( h7 p5 p6 ) * c ( p5 p6 h7 h14 )_c * y ( h3 h4 h7 p1 p5 p6 )_y
C         i1 ( p11 p12 h14 h15 )_ycbt + = 1/2 * Sum ( h2 ) * t ( p11 h2 )_t * i2 ( h2 p12 h14 h15 )_ycb
C             i2 ( h2 p12 h14 h15 )_ycb + = 1 * Sum ( h4 ) * b ( p12 h4 )_b * i3 ( h2 h4 h14 h15 )_yc
C                 i3 ( h2 h4 h14 h15 )_yc + = -1 * Sum ( p5 p6 ) * c ( p5 p6 h14 h15 )_c * y ( h2 h4 p5 p6 )_y
C                 i3 ( h2 h4 h14 h15 )_yc + = -1/3 * Sum ( h8 p5 p6 p7 ) * c ( p5 p6 p7 h8 h14 h15 )_c * y ( h2 h4 h8 p5 p6 p7 )_y
C                 i3 ( h2 h4 h14 h15 )_ytc + = -2 * Sum ( p5 ) * c ( p5 h14 )_c * i4 ( h2 h4 h15 p5 )_yt
C                 i3 ( h2 h4 h14 h15 )_yct + = -2 * Sum ( p5 ) * t ( p5 h14 )_t * i4 ( h2 h4 h15 p5 )_yc
C                     i4 ( h2 h4 h15 p5 )_yc + = 1 * Sum ( p7 ) * c ( p7 h15 )_c * y ( h2 h4 p5 p7 )_y
C                     i4 ( h2 h4 h15 p5 )_yc + = -1 * Sum ( h9 p7 p8 ) * c ( p7 p8 h9 h15 )_c * y ( h2 h4 h9 p5 p7 p8 )_y
C             i2 ( h2 p12 h14 h15 )_ybc + = 8 * Sum ( h7 p5 ) * c ( p5 p12 h7 h15 )_c * i3 ( h2 h7 h14 p5 )_yb
C             i2 ( h2 p12 h14 h15 )_ybc + = 2 * Sum ( h8 h9 p5 p6 ) * c ( p5 p6 p12 h8 h9 h15 )_c * i3 ( h2 h8 h9 h14 p5 p6 )_yb
C             i2 ( h2 p12 h14 h15 )_yba + = 1 * Sum ( h4 ) * a ( p12 h4 )_a * i3 ( h2 h4 h14 h15 )_yb
C             i2 ( h2 p12 h14 h15 )_yab + = 8 * Sum ( h7 p5 ) * b ( p5 p12 h7 h15 )_b * i3 ( h2 h7 h14 p5 )_ya
C                 i3 ( h2 h7 h14 p5 )_ya + = 1 * Sum ( p3 ) * a ( p3 h14 )_a * y ( h2 h7 p3 p5 )_y
C             i2 ( h2 p12 h14 h15 )_yab + = 2 * Sum ( h8 h9 p5 p6 ) * b ( p5 p6 p12 h8 h9 h15 )_b * i3 ( h2 h8 h9 h14 p5 p6 )_ya
C                 i3 ( h2 h8 h9 h14 p5 p6 )_ya + = 1 * Sum ( p3 ) * a ( p3 h14 )_a * y ( h2 h8 h9 p3 p5 p6 )_y
C             i2 ( h2 p12 h14 h15 )_ybta + = -2 * Sum ( p3 ) * a ( p3 h14 )_a * i3 ( h2 p12 h15 p3 )_ybt
C             i2 ( h2 p12 h14 h15 )_yctb + = -2 * Sum ( p3 ) * b ( p3 h14 )_b * i3 ( h2 p12 h15 p3 )_yct
C                 i3 ( h2 p12 h15 p3 )_yct + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p12 h9 h10 )_t * i4 ( h2 h9 h10 h15 p3 p7 )_yc
C                     i4 ( h2 h9 h10 h15 p3 p7 )_yc + = -1 * Sum ( p5 ) * c ( p5 h15 )_c * y ( h2 h9 h10 p3 p5 p7 )_y
C                 i3 ( h2 p12 h15 p3 )_ytc + = 1 * Sum ( h9 h10 p7 ) * c ( p7 p12 h9 h10 )_c * i4 ( h2 h9 h10 h15 p3 p7 )_yt
C             i2 ( h2 p12 h14 h15 )_ybat + = -2 * Sum ( h4 ) * t ( p12 h4 )_t * i3 ( h2 h4 h14 h15 )_yba
C                 i3 ( h2 h4 h14 h15 )_yba + = 1 * Sum ( p5 ) * a ( p5 h14 )_a * i4 ( h2 h4 h15 p5 )_yb
C                 i3 ( h2 h4 h14 h15 )_ycb + = 1 * Sum ( p5 ) * b ( p5 h14 )_b * i4 ( h2 h4 h15 p5 )_yc
C             i2 ( h2 p12 h14 h15 )_yabt + = -2 * Sum ( p3 ) * t ( p3 h14 )_t * i3 ( h2 p12 h15 p3 )_yab
C                 i3 ( h2 p12 h15 p3 )_yab + = 1 * Sum ( h9 h10 p7 ) * b ( p7 p12 h9 h10 )_b * i4 ( h2 h9 h10 h15 p3 p7 )_ya
C                     i4 ( h2 h9 h10 h15 p3 p7 )_ya + = -1 * Sum ( p5 ) * a ( p5 h15 )_a * y ( h2 h9 h10 p3 p5 p7 )_y
C                 i3 ( h2 p12 h15 p3 )_ybc + = 1 * Sum ( h9 h10 p7 ) * c ( p7 p12 h9 h10 )_c * i4 ( h2 h9 h10 h15 p3 p7 )_yb
C         i1 ( p11 p12 h14 h15 )_ybtc + = 1/6 * Sum ( h8 h9 h10 p5 ) * c ( p5 p11 p12 h8 h9 h10 )_c * i2 ( h8 h9 h10 h14 h15 p5 )_ybt
C             i2 ( h8 h9 h10 h14 h15 p5 )_ybt + = 1 * Sum ( p1 ) * t ( p1 h14 )_t * i3 ( h8 h9 h10 h15 p1 p5 )_yb
C             i2 ( h8 h9 h10 h14 h15 p5 )_ytb + = 1 * Sum ( p1 ) * b ( p1 h14 )_b * i3 ( h8 h9 h10 h15 p1 p5 )_yt
C                 i3 ( h8 h9 h10 h15 p1 p5 )_yt + = -1 * Sum ( p3 ) * t ( p3 h15 )_t * y ( h8 h9 h10 p1 p3 p5 )_y
C         i1 ( p11 p12 h14 h15 )_ytbc + = -1/2 * Sum ( h10 ) * c ( p12 h10 )_c * i2 ( h10 p11 h14 h15 )_ytb
C             i2 ( h10 p11 h14 h15 )_ytb + = 1 * Sum ( p5 p6 ) * b ( p5 p6 h14 h15 )_b * 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 )_ytb + = 4 * Sum ( h7 p5 ) * b ( p5 p11 h7 h15 )_b * 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 )_ybt + = 1 * Sum ( p5 p6 ) * t ( p5 p6 h14 h15 )_t * i3 ( h10 p11 p5 p6 )_yb
C             i2 ( h10 p11 h14 h15 )_ybt + = 4 * Sum ( h7 p5 ) * t ( p5 p11 h7 h15 )_t * i3 ( h7 h10 h14 p5 )_yb
C         i1 ( p11 p12 h14 h15 )_ybtc + = -1 * c ( p12 h15 )_c * i2 ( p11 h14 )_ybt
C             i2 ( p11 h14 )_ybt + = 1 * Sum ( h3 h4 p1 ) * t ( p1 p11 h3 h4 )_t * i3 ( h3 h4 h14 p1 )_yb
C             i2 ( p11 h14 )_ytb + = 1 * Sum ( h3 h4 p1 ) * b ( p1 p11 h3 h4 )_b * 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 )_ytcb + = 1/2 * Sum ( h2 ) * b ( p11 h2 )_b * i2 ( h2 p12 h14 h15 )_ytc
C             i2 ( h2 p12 h14 h15 )_ytc + = 1 * Sum ( h4 ) * c ( p12 h4 )_c * i3 ( h2 h4 h14 h15 )_yt
C             i2 ( h2 p12 h14 h15 )_yct + = 8 * Sum ( h7 p5 ) * t ( p5 p12 h7 h15 )_t * i3 ( h2 h7 h14 p5 )_yc
C                 i3 ( h2 h7 h14 p5 )_yc + = 1 * Sum ( p3 ) * c ( p3 h14 )_c * y ( h2 h7 p3 p5 )_y
C             i2 ( h2 p12 h14 h15 )_yct + = 2 * Sum ( h8 h9 p5 p6 ) * t ( p5 p6 p12 h8 h9 h15 )_t * i3 ( h2 h8 h9 h14 p5 p6 )_yc
C                 i3 ( h2 h8 h9 h14 p5 p6 )_yc + = 1 * Sum ( p3 ) * c ( p3 h14 )_c * y ( h2 h8 h9 p3 p5 p6 )_y
C             i2 ( h2 p12 h14 h15 )_yct + = 1 * Sum ( h4 ) * t ( p12 h4 )_t * i3 ( h2 h4 h14 h15 )_yc
C             i2 ( h2 p12 h14 h15 )_ytc + = 8 * Sum ( h7 p5 ) * c ( p5 p12 h7 h15 )_c * i3 ( h2 h7 h14 p5 )_yt
C             i2 ( h2 p12 h14 h15 )_ytc + = 2 * Sum ( h8 h9 p5 p6 ) * c ( p5 p6 p12 h8 h9 h15 )_c * i3 ( h2 h8 h9 h14 p5 p6 )_yt
C             i2 ( h2 p12 h14 h15 )_yttc + = -2 * Sum ( p3 ) * c ( p3 h14 )_c * i3 ( h2 p12 h15 p3 )_ytt
C             i2 ( h2 p12 h14 h15 )_ytct + = -2 * Sum ( p3 ) * t ( p3 h14 )_t * i3 ( h2 p12 h15 p3 )_ytc
C         i1 ( p11 p12 h14 h15 )_ytbc + = -1/3 * c ( p12 h14 )_c * i2 ( p11 h15 )_ytb
C             i2 ( p11 h15 )_ytb + = 1 * Sum ( h2 ) * b ( p11 h2 )_b * i3 ( h2 h15 )_yt
C         i1 ( p11 p12 h14 h15 )_ybtc + = -1/3 * c ( p11 h15 )_c * i2 ( p12 h14 )_ybt
C             i2 ( p12 h14 )_ybt + = 1 * Sum ( h8 h9 h10 p5 p6 ) * t ( p5 p6 p12 h8 h9 h10 )_t * i3 ( h8 h9 h10 h14 p5 p6 )_yb
C                 i3 ( h8 h9 h10 h14 p5 p6 )_yb + = 1 * Sum ( p1 ) * b ( p1 h14 )_b * y ( h8 h9 h10 p1 p5 p6 )_y
C         i1 ( p11 p12 h14 h15 )_ytbc + = -2 * Sum ( h7 p5 ) * c ( p5 p12 h7 h14 )_c * i2 ( h7 p11 h15 p5 )_ytb
C             i2 ( h7 p11 h15 p5 )_ytb + = 1 * Sum ( h3 h4 p1 ) * b ( p1 p11 h3 h4 )_b * i3 ( h3 h4 h7 h15 p1 p5 )_yt
C         i1 ( p11 p12 h14 h15 )_ybta + = -1/3 * a ( p12 h14 )_a * i2 ( p11 h15 )_ybt
C             i2 ( p11 h15 )_ybt + = 1 * Sum ( h2 ) * t ( p11 h2 )_t * i3 ( h2 h15 )_yb
C                 i3 ( h2 h15 )_yb + = 1 * Sum ( h8 h9 p5 p6 p7 ) * b ( p5 p6 p7 h8 h9 h15 )_b * y ( h2 h8 h9 p5 p6 p7 )_y
C         i1 ( p11 p12 h14 h15 )_ytba + = -1/3 * a ( p11 h15 )_a * i2 ( p12 h14 )_ytb
C             i2 ( p12 h14 )_ytb + = 1 * Sum ( h8 h9 h10 p5 p6 ) * b ( p5 p6 p12 h8 h9 h10 )_b * i3 ( h8 h9 h10 h14 p5 p6 )_yt
C         i1 ( p11 p12 h14 h15 )_ytab + = -1/2 * Sum ( h10 ) * b ( p12 h10 )_b * i2 ( h10 p11 h14 h15 )_yta
C             i2 ( h10 p11 h14 h15 )_yta + = 1 * Sum ( p5 p6 ) * a ( p5 p6 h14 h15 )_a * i3 ( h10 p11 p5 p6 )_yt
C             i2 ( h10 p11 h14 h15 )_yta + = 4 * Sum ( h7 p5 ) * a ( p5 p11 h7 h15 )_a * i3 ( h7 h10 h14 p5 )_yt
C             i2 ( h10 p11 h14 h15 )_yat + = 1 * Sum ( p5 p6 ) * t ( p5 p6 h14 h15 )_t * i3 ( h10 p11 p5 p6 )_ya
C             i2 ( h10 p11 h14 h15 )_yat + = 4 * Sum ( h7 p5 ) * t ( p5 p11 h7 h15 )_t * i3 ( h7 h10 h14 p5 )_ya
C         i1 ( p11 p12 h14 h15 )_ybta + = -2 * Sum ( h7 p5 ) * a ( p5 p12 h7 h14 )_a * i2 ( h7 p11 h15 p5 )_ybt
C             i2 ( h7 p11 h15 p5 )_ybt + = 1 * Sum ( h3 h4 p1 ) * t ( p1 p11 h3 h4 )_t * i3 ( h3 h4 h7 h15 p1 p5 )_yb
C                 i3 ( h3 h4 h7 h15 p1 p5 )_yb + = -1 * Sum ( p9 ) * b ( p9 h15 )_b * y ( h3 h4 h7 p1 p5 p9 )_y
C         i1 ( p11 p12 h14 h15 )_yatb + = -1 * b ( p12 h15 )_b * i2 ( p11 h14 )_yat
C             i2 ( p11 h14 )_yat + = 1 * Sum ( h3 h4 p1 ) * t ( p1 p11 h3 h4 )_t * i3 ( h3 h4 h14 p1 )_ya
C                 i3 ( h3 h4 h14 p1 )_ya + = 1 * Sum ( h7 p5 p6 ) * a ( p5 p6 h7 h14 )_a * y ( h3 h4 h7 p1 p5 p6 )_y
C             i2 ( p11 h14 )_yta + = 1 * Sum ( h3 h4 p1 ) * a ( p1 p11 h3 h4 )_a * i3 ( h3 h4 h14 p1 )_yt
C         i1 ( p11 p12 h14 h15 )_ybat + = -1/3 * t ( p12 h14 )_t * i2 ( p11 h15 )_yba
C             i2 ( p11 h15 )_yba + = 1 * Sum ( h2 ) * a ( p11 h2 )_a * i3 ( h2 h15 )_yb
C             i2 ( p11 h15 )_ycb + = 1 * Sum ( h2 ) * b ( p11 h2 )_b * i3 ( h2 h15 )_yc
C         i1 ( p11 p12 h14 h15 )_yabt + = -1/3 * t ( p11 h15 )_t * i2 ( p12 h14 )_yab
C             i2 ( p12 h14 )_yab + = 1 * Sum ( h8 h9 h10 p5 p6 ) * b ( p5 p6 p12 h8 h9 h10 )_b * i3 ( h8 h9 h10 h14 p5 p6 )_ya
C             i2 ( p12 h14 )_ybc + = 1 * Sum ( h8 h9 h10 p5 p6 ) * c ( p5 p6 p12 h8 h9 h10 )_c * i3 ( h8 h9 h10 h14 p5 p6 )_yb
C         i1 ( p11 p12 h14 h15 )_ybat + = -2 * Sum ( h7 p5 ) * t ( p5 p12 h7 h14 )_t * i2 ( h7 p11 h15 p5 )_yba
C             i2 ( h7 p11 h15 p5 )_yba + = 1 * Sum ( h3 h4 p1 ) * a ( p1 p11 h3 h4 )_a * i3 ( h3 h4 h7 h15 p1 p5 )_yb
C             i2 ( h7 p11 h15 p5 )_ycb + = 1 * Sum ( h3 h4 p1 ) * b ( p1 p11 h3 h4 )_b * i3 ( h3 h4 h7 h15 p1 p5 )_yc
C         i1 ( p11 p12 h14 h15 )_yabt + = -1/2 * Sum ( h7 h8 ) * t ( p11 p12 h7 h8 )_t * i2 ( h7 h8 h14 h15 )_yab
C             i2 ( h7 h8 h14 h15 )_yab + = 1 * Sum ( p9 ) * b ( p9 h15 )_b * i3 ( h7 h8 h14 p9 )_ya
C             i2 ( h7 h8 h14 h15 )_ybc + = 1 * Sum ( p9 ) * c ( p9 h15 )_c * i3 ( h7 h8 h14 p9 )_yb
C                 i3 ( h7 h8 h14 p9 )_yb + = 1 * Sum ( h3 p1 p2 ) * b ( p1 p2 h3 h14 )_b * y ( h3 h7 h8 p1 p2 p9 )_y
C     i0 ( )_yabv + = -1/4 * Sum ( p13 p11 h10 p9 ) * i1 ( p11 p13 h10 p9 )_yab * v ( h10 p9 p11 p13 )_v
C         i1 ( p11 p13 h10 p9 )_yab + = 1 * Sum ( h8 ) * b ( p11 h8 )_b * i2 ( h8 p13 h10 p9 )_ya
C             i2 ( h8 p13 h10 p9 )_ya + = 1 * Sum ( h4 h5 p1 p2 ) * a ( p1 p2 p13 h4 h5 h10 )_a * y ( h4 h5 h8 p1 p2 p9 )_y
C         i1 ( p11 p13 h10 p9 )_yba + = -1/3 * Sum ( h4 h5 h6 p1 ) * a ( p1 p11 p13 h4 h5 h6 )_a * i2 ( h4 h5 h6 h10 p1 p9 )_yb
C             i2 ( h4 h5 h6 h10 p1 p9 )_yb + = -1 * Sum ( p7 ) * b ( p7 h10 )_b * y ( h4 h5 h6 p1 p7 p9 )_y
C         i1 ( p11 p13 h10 p9 )_yab + = -1/3 * b ( p11 h10 )_b * i2 ( p13 p9 )_ya
C             i2 ( p13 p9 )_ya + = 1 * Sum ( h4 h5 h6 p1 p2 ) * a ( p1 p2 p13 h4 h5 h6 )_a * y ( h4 h5 h6 p1 p2 p9 )_y
C         i1 ( p11 p13 h10 p9 )_yab + = -2 * Sum ( h7 p5 ) * b ( p5 p11 h7 h10 )_b * i2 ( h7 p13 p5 p9 )_ya
C             i2 ( h7 p13 p5 p9 )_ya + = -1 * Sum ( h3 h4 p1 ) * a ( p1 p13 h3 h4 )_a * y ( h3 h4 h7 p1 p5 p9 )_y
C         i1 ( p11 p13 h10 p9 )_yab + = 1/2 * Sum ( h7 h8 ) * b ( p11 p13 h7 h8 )_b * i2 ( h7 h8 h10 p9 )_ya
C             i2 ( h7 h8 h10 p9 )_ya + = 1 * Sum ( h3 p1 p2 ) * a ( p1 p2 h3 h10 )_a * y ( h3 h7 h8 p1 p2 p9 )_y
C         i1 ( p11 p13 h10 p9 )_ybc + = 1 * Sum ( h8 ) * c ( p11 h8 )_c * i2 ( h8 p13 h10 p9 )_yb
C             i2 ( h8 p13 h10 p9 )_yb + = 1 * Sum ( h4 h5 p1 p2 ) * b ( p1 p2 p13 h4 h5 h10 )_b * y ( h4 h5 h8 p1 p2 p9 )_y
C         i1 ( p11 p13 h10 p9 )_ycb + = -1/3 * Sum ( h4 h5 h6 p1 ) * b ( p1 p11 p13 h4 h5 h6 )_b * i2 ( h4 h5 h6 h10 p1 p9 )_yc
C             i2 ( h4 h5 h6 h10 p1 p9 )_yc + = -1 * Sum ( p7 ) * c ( p7 h10 )_c * y ( h4 h5 h6 p1 p7 p9 )_y
C         i1 ( p11 p13 h10 p9 )_ybc + = -1/3 * c ( p11 h10 )_c * i2 ( p13 p9 )_yb
C             i2 ( p13 p9 )_yb + = 1 * Sum ( h4 h5 h6 p1 p2 ) * b ( p1 p2 p13 h4 h5 h6 )_b * y ( h4 h5 h6 p1 p2 p9 )_y
C         i1 ( p11 p13 h10 p9 )_ybc + = -2 * Sum ( h7 p5 ) * c ( p5 p11 h7 h10 )_c * i2 ( h7 p13 p5 p9 )_yb
C             i2 ( h7 p13 p5 p9 )_yb + = -1 * Sum ( h3 h4 p1 ) * b ( p1 p13 h3 h4 )_b * y ( h3 h4 h7 p1 p5 p9 )_y
C         i1 ( p11 p13 h10 p9 )_ybc + = 1/2 * Sum ( h7 h8 ) * c ( p11 p13 h7 h8 )_c * i2 ( h7 h8 h10 p9 )_yb
C             i2 ( h7 h8 h10 p9 )_yb + = 1 * Sum ( h3 p1 p2 ) * b ( p1 p2 h3 h10 )_b * y ( h3 h7 h8 p1 p2 p9 )_y
C         i1 ( p11 p13 h10 p9 )_ytba + = 1 * Sum ( h2 ) * a ( p13 h2 )_a * i2 ( h2 p11 h10 p9 )_ytb
C             i2 ( h2 p11 h10 p9 )_ytb + = 1 * Sum ( h4 ) * b ( p11 h4 )_b * 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 )_ybt + = 2 * Sum ( h7 h8 p5 ) * t ( p5 p11 h7 h8 )_t * i3 ( h2 h7 h8 h10 p5 p9 )_yb
C                 i3 ( h2 h7 h8 h10 p5 p9 )_yb + = -1 * Sum ( p3 ) * b ( p3 h10 )_b * y ( h2 h7 h8 p3 p5 p9 )_y
C             i2 ( h2 p11 h10 p9 )_ybt + = 1 * Sum ( h4 ) * t ( p11 h4 )_t * i3 ( h2 h4 h10 p9 )_yb
C                 i3 ( h2 h4 h10 p9 )_yb + = -1 * Sum ( h7 p5 p6 ) * b ( p5 p6 h7 h10 )_b * y ( h2 h4 h7 p5 p6 p9 )_y
C             i2 ( h2 p11 h10 p9 )_ytb + = 2 * Sum ( h7 h8 p5 ) * b ( p5 p11 h7 h8 )_b * 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 )_ycbt + = 1 * Sum ( h2 ) * t ( p13 h2 )_t * i2 ( h2 p11 h10 p9 )_ycb
C             i2 ( h2 p11 h10 p9 )_ycb + = 1 * Sum ( h4 ) * b ( p11 h4 )_b * i3 ( h2 h4 h10 p9 )_yc
C                 i3 ( h2 h4 h10 p9 )_yc + = -1 * Sum ( h7 p5 p6 ) * c ( p5 p6 h7 h10 )_c * y ( h2 h4 h7 p5 p6 p9 )_y
C             i2 ( h2 p11 h10 p9 )_ybc + = 2 * Sum ( h7 h8 p5 ) * c ( p5 p11 h7 h8 )_c * i3 ( h2 h7 h8 h10 p5 p9 )_yb
C             i2 ( h2 p11 h10 p9 )_yba + = 1 * Sum ( h4 ) * a ( p11 h4 )_a * i3 ( h2 h4 h10 p9 )_yb
C             i2 ( h2 p11 h10 p9 )_yab + = 2 * Sum ( h7 h8 p5 ) * b ( p5 p11 h7 h8 )_b * i3 ( h2 h7 h8 h10 p5 p9 )_ya
C                 i3 ( h2 h7 h8 h10 p5 p9 )_ya + = -1 * Sum ( p3 ) * a ( p3 h10 )_a * y ( h2 h7 h8 p3 p5 p9 )_y
C         i1 ( p11 p13 h10 p9 )_ytcb + = 1 * Sum ( h2 ) * b ( p13 h2 )_b * i2 ( h2 p11 h10 p9 )_ytc
C             i2 ( h2 p11 h10 p9 )_ytc + = 1 * Sum ( h4 ) * c ( p11 h4 )_c * i3 ( h2 h4 h10 p9 )_yt
C             i2 ( h2 p11 h10 p9 )_yct + = 2 * Sum ( h7 h8 p5 ) * t ( p5 p11 h7 h8 )_t * i3 ( h2 h7 h8 h10 p5 p9 )_yc
C                 i3 ( h2 h7 h8 h10 p5 p9 )_yc + = -1 * Sum ( p3 ) * c ( p3 h10 )_c * y ( h2 h7 h8 p3 p5 p9 )_y
C             i2 ( h2 p11 h10 p9 )_yct + = 1 * Sum ( h4 ) * t ( p11 h4 )_t * i3 ( h2 h4 h10 p9 )_yc
C             i2 ( h2 p11 h10 p9 )_ytc + = 2 * Sum ( h7 h8 p5 ) * c ( p5 p11 h7 h8 )_c * i3 ( h2 h7 h8 h10 p5 p9 )_yt
C     i0 ( )_vcb + = 1/2 * Sum ( h2 p1 ) * b ( p1 h2 )_b * i1 ( h2 p1 )_vc
C         i1 ( h2 p1 )_vc + = 1 * Sum ( h4 p3 ) * c ( p3 h4 )_c * v ( h2 h4 p1 p3 )_v
      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_oa1
      INTEGER k_oa1_offset
      INTEGER d_i1
      INTEGER k_i1_offset
      INTEGER d_y1
      INTEGER k_y1_offset
      INTEGER d_ob1
      INTEGER k_ob1_offset
      INTEGER d_a1
      INTEGER k_a1_offset
      INTEGER d_f1
      INTEGER k_f1_offset
      INTEGER d_v2
      INTEGER k_v2_offset
      INTEGER d_y2
      INTEGER k_y2_offset
      INTEGER d_b1
      INTEGER k_b1_offset
      INTEGER l_i1_offset
      INTEGER size_i1
      INTEGER d_b2
      INTEGER k_b2_offset
      INTEGER d_b3
      INTEGER k_b3_offset
      INTEGER d_i2
      INTEGER k_i2_offset
      INTEGER d_t1
      INTEGER k_t1_offset
      INTEGER d_t2
      INTEGER k_t2_offset
      INTEGER d_t3
      INTEGER k_t3_offset
      INTEGER l_i2_offset
      INTEGER size_i2
      INTEGER d_y3
      INTEGER k_y3_offset
      INTEGER d_a2
      INTEGER k_a2_offset
      INTEGER d_c1
      INTEGER k_c1_offset
      INTEGER d_i3
      INTEGER k_i3_offset
      INTEGER l_i3_offset
      INTEGER size_i3
      INTEGER d_a3
      INTEGER k_a3_offset
      INTEGER d_c2
      INTEGER k_c2_offset
      INTEGER d_c3
      INTEGER k_c3_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_alpha_offdiag.F)',
     &              0,CAPMIS_ERR)
      RETURN
      END
#else
      CALL OFFSET_ccsdt_lr_alpha_offdiag_1_1(l_i1_offset,k_i1_offset,siz
     &e_i1)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_1_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdt_lr_alpha_offdiag_1_1(d_b1,k_b1_offset,d_i1,k_i1_offset)
      CALL ccsdt_lr_alpha_offdiag_1_2(d_b2,k_b2_offset,d_y1,k_y1_offset,
     &d_i1,k_i1_offset)
      CALL ccsdt_lr_alpha_offdiag_1_3(d_b3,k_b3_offset,d_y2,k_y2_offset,
     &d_i1,k_i1_offset)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_1_4_1(l_i2_offset,k_i2_offset,s
     &ize_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_1_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_1_4_1(d_t1,k_t1_offset,d_y1,k_y1_offse
     &t,d_i2,k_i2_offset)
      CALL ccsdt_lr_alpha_offdiag_1_4_2(d_t2,k_t2_offset,d_y2,k_y2_offse
     &t,d_i2,k_i2_offset)
      CALL ccsdt_lr_alpha_offdiag_1_4_3(d_t3,k_t3_offset,d_y3,k_y3_offse
     &t,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_1_4(d_b1,k_b1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_1_5_1(l_i2_offset,k_i2_offset,s
     &ize_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_1_5_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_1_5_1(d_b2,k_b2_offset,d_y2,k_y2_offse
     &t,d_i2,k_i2_offset)
      CALL ccsdt_lr_alpha_offdiag_1_5_2(d_b3,k_b3_offset,d_y3,k_y3_offse
     &t,d_i2,k_i2_offset)
      CALL ccsdt_lr_alpha_offdiag_1_5_3(d_b1,k_b1_offset,d_y1,k_y1_offse
     &t,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_1_5(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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_1_6_1(l_i2_offset,k_i2_offset,s
     &ize_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_1_6_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_1_6_1(d_t1,k_t1_offset,d_y2,k_y2_offse
     &t,d_i2,k_i2_offset)
      CALL ccsdt_lr_alpha_offdiag_1_6_2(d_t2,k_t2_offset,d_y3,k_y3_offse
     &t,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_1_6(d_b2,k_b2_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_1_7_1(l_i2_offset,k_i2_offset,s
     &ize_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_1_7_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_1_7_1(d_t1,k_t1_offset,d_y3,k_y3_offse
     &t,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_1_7(d_b3,k_b3_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_1_8_1(l_i2_offset,k_i2_offset,s
     &ize_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_1_8_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_1_8_1(d_b1,k_b1_offset,d_y2,k_y2_offse
     &t,d_i2,k_i2_offset)
      CALL ccsdt_lr_alpha_offdiag_1_8_2(d_b2,k_b2_offset,d_y3,k_y3_offse
     &t,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_1_8(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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_1_9_1(l_i2_offset,k_i2_offset,s
     &ize_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_1_9_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_1_9_1(d_b1,k_b1_offset,d_y3,k_y3_offse
     &t,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_1_9(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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_lr_alpha_offdiag_1(d_oa1,k_oa1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_2_1(l_i1_offset,k_i1_offset,siz
     &e_i1)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_2_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdt_lr_alpha_offdiag_2_1(d_b1,k_b1_offset,d_y1,k_y1_offset,
     &d_i1,k_i1_offset)
      CALL ccsdt_lr_alpha_offdiag_2_2(d_b2,k_b2_offset,d_y2,k_y2_offset,
     &d_i1,k_i1_offset)
      CALL ccsdt_lr_alpha_offdiag_2_3(d_b3,k_b3_offset,d_y3,k_y3_offset,
     &d_i1,k_i1_offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_lr_alpha_offdiag_2(d_oa1,k_oa1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_3_1(l_i1_offset,k_i1_offset,siz
     &e_i1)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_3_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_3_1_1(l_i2_offset,k_i2_offset,s
     &ize_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_3_1_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_3_1_1(d_oa1,k_oa1_offset,d_i2,k_i2_off
     &set)
      CALL ccsdt_lr_alpha_offdiag_3_1_2(d_c1,k_c1_offset,d_v2,k_v2_offse
     &t,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_3_1(d_b1,k_b1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_3_2_1(l_i2_offset,k_i2_offset,s
     &ize_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_3_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_3_2_1(d_ob1,k_ob1_offset,d_i2,k_i2_off
     &set)
      CALL ccsdt_lr_alpha_offdiag_3_2_2(d_b1,k_b1_offset,d_v2,k_v2_offse
     &t,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_3_2(d_a1,k_a1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_3_3_1(l_i2_offset,k_i2_offset,s
     &ize_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_3_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_3_3_1(d_b1,k_b1_offset,d_v2,k_v2_offse
     &t,d_i2,k_i2_offset)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_3_3_2_1(l_i3_offset,k_i3_offset
     &,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_3_3_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_3_3_2_1(d_b1,k_b1_offset,d_v2,k_v2_off
     &set,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_3_3_2(d_t1,k_t1_offset,d_i3,k_i3_offse
     &t,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_3_3(d_a1,k_a1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_3_4_1(l_i2_offset,k_i2_offset,s
     &ize_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_3_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_3_4_1(d_b1,k_b1_offset,d_v2,k_v2_offse
     &t,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_3_4(d_a2,k_a2_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_3_5_1(l_i2_offset,k_i2_offset,s
     &ize_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_3_5_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_3_5_1(d_a2,k_a2_offset,d_v2,k_v2_offse
     &t,d_i2,k_i2_offset)
      CALL ccsdt_lr_alpha_offdiag_3_5_2(d_c1,k_c1_offset,d_v2,k_v2_offse
     &t,d_i2,k_i2_offset)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_3_5_3_1(l_i3_offset,k_i3_offset
     &,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_3_5_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_3_5_3_1(d_t1,k_t1_offset,d_v2,k_v2_off
     &set,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_3_5_3(d_a1,k_a1_offset,d_i3,k_i3_offse
     &t,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_3_5_4_1(l_i3_offset,k_i3_offset
     &,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_3_5_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_3_5_4_1(d_c1,k_c1_offset,d_v2,k_v2_off
     &set,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_3_5_4(d_t1,k_t1_offset,d_i3,k_i3_offse
     &t,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_3_5(d_b1,k_b1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_3_6_1(l_i2_offset,k_i2_offset,s
     &ize_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_3_6_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_3_6_1(d_b1,k_b1_offset,d_v2,k_v2_offse
     &t,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_3_6(d_a2,k_a2_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_3_7_1(l_i2_offset,k_i2_offset,s
     &ize_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_3_7_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_3_7_1(d_c1,k_c1_offset,d_v2,k_v2_offse
     &t,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_3_7(d_b2,k_b2_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_3_8_1(l_i2_offset,k_i2_offset,s
     &ize_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_3_8_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_3_8_1(d_b2,k_b2_offset,d_v2,k_v2_offse
     &t,d_i2,k_i2_offset)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_3_8_2_1(l_i3_offset,k_i3_offset
     &,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_3_8_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_3_8_2_1(d_t1,k_t1_offset,d_v2,k_v2_off
     &set,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_3_8_2(d_b1,k_b1_offset,d_i3,k_i3_offse
     &t,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_3_8(d_c1,k_c1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_3_9_1(l_i2_offset,k_i2_offset,s
     &ize_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_3_9_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_3_9_1(d_c1,k_c1_offset,d_v2,k_v2_offse
     &t,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_3_9(d_b2,k_b2_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_3_10_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_3_10_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_3_10_1_1(l_i3_offset,k_i3_offse
     &t,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_3_10_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_3_10_1_1(d_b1,k_b1_offset,d_v2,k_v2_of
     &fset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_3_10_1(d_a1,k_a1_offset,d_i3,k_i3_offs
     &et,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_3_10_2_1(l_i3_offset,k_i3_offse
     &t,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_3_10_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_3_10_2_1(d_c1,k_c1_offset,d_v2,k_v2_of
     &fset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_3_10_2(d_b1,k_b1_offset,d_i3,k_i3_offs
     &et,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_3_10(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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_lr_alpha_offdiag_3(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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_4_1(l_i1_offset,k_i1_offset,siz
     &e_i1)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_4_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdt_lr_alpha_offdiag_4_1(d_b2,k_b2_offset,d_y2,k_y2_offset,
     &d_i1,k_i1_offset)
      CALL ccsdt_lr_alpha_offdiag_4_2(d_b3,k_b3_offset,d_y3,k_y3_offset,
     &d_i1,k_i1_offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_lr_alpha_offdiag_4(d_oa1,k_oa1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_5_1(l_i1_offset,k_i1_offset,siz
     &e_i1)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_5_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdt_lr_alpha_offdiag_5_1(d_a1,k_a1_offset,d_i1,k_i1_offset)
      CALL ccsdt_lr_alpha_offdiag_5_2(d_a2,k_a2_offset,d_y1,k_y1_offset,
     &d_i1,k_i1_offset)
      CALL ccsdt_lr_alpha_offdiag_5_3(d_a3,k_a3_offset,d_y2,k_y2_offset,
     &d_i1,k_i1_offset)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_5_4_1(l_i2_offset,k_i2_offset,s
     &ize_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_5_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_5_4_1(d_t1,k_t1_offset,d_y1,k_y1_offse
     &t,d_i2,k_i2_offset)
      CALL ccsdt_lr_alpha_offdiag_5_4_2(d_t2,k_t2_offset,d_y2,k_y2_offse
     &t,d_i2,k_i2_offset)
      CALL ccsdt_lr_alpha_offdiag_5_4_3(d_t3,k_t3_offset,d_y3,k_y3_offse
     &t,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_5_4(d_a1,k_a1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_5_5_1(l_i2_offset,k_i2_offset,s
     &ize_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_5_5_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_5_5_1(d_a2,k_a2_offset,d_y2,k_y2_offse
     &t,d_i2,k_i2_offset)
      CALL ccsdt_lr_alpha_offdiag_5_5_2(d_a3,k_a3_offset,d_y3,k_y3_offse
     &t,d_i2,k_i2_offset)
      CALL ccsdt_lr_alpha_offdiag_5_5_3(d_a1,k_a1_offset,d_y1,k_y1_offse
     &t,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_5_5(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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_5_6_1(l_i2_offset,k_i2_offset,s
     &ize_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_5_6_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_5_6_1(d_t1,k_t1_offset,d_y2,k_y2_offse
     &t,d_i2,k_i2_offset)
      CALL ccsdt_lr_alpha_offdiag_5_6_2(d_t2,k_t2_offset,d_y3,k_y3_offse
     &t,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_5_6(d_a2,k_a2_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_5_7_1(l_i2_offset,k_i2_offset,s
     &ize_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_5_7_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_5_7_1(d_t1,k_t1_offset,d_y3,k_y3_offse
     &t,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_5_7(d_a3,k_a3_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_5_8_1(l_i2_offset,k_i2_offset,s
     &ize_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_5_8_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_5_8_1(d_a1,k_a1_offset,d_y2,k_y2_offse
     &t,d_i2,k_i2_offset)
      CALL ccsdt_lr_alpha_offdiag_5_8_2(d_a2,k_a2_offset,d_y3,k_y3_offse
     &t,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_5_8(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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_5_9_1(l_i2_offset,k_i2_offset,s
     &ize_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_5_9_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_5_9_1(d_a1,k_a1_offset,d_y3,k_y3_offse
     &t,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_5_9(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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_lr_alpha_offdiag_5(d_ob1,k_ob1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_6_1(l_i1_offset,k_i1_offset,siz
     &e_i1)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_6_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdt_lr_alpha_offdiag_6_1(d_a1,k_a1_offset,d_y1,k_y1_offset,
     &d_i1,k_i1_offset)
      CALL ccsdt_lr_alpha_offdiag_6_2(d_a2,k_a2_offset,d_y2,k_y2_offset,
     &d_i1,k_i1_offset)
      CALL ccsdt_lr_alpha_offdiag_6_3(d_a3,k_a3_offset,d_y3,k_y3_offset,
     &d_i1,k_i1_offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_lr_alpha_offdiag_6(d_ob1,k_ob1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_7_1(l_i1_offset,k_i1_offset,siz
     &e_i1)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_7_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdt_lr_alpha_offdiag_7_1(d_a2,k_a2_offset,d_y2,k_y2_offset,
     &d_i1,k_i1_offset)
      CALL ccsdt_lr_alpha_offdiag_7_2(d_a3,k_a3_offset,d_y3,k_y3_offset,
     &d_i1,k_i1_offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_lr_alpha_offdiag_7(d_ob1,k_ob1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_8_1(l_i1_offset,k_i1_offset,siz
     &e_i1)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_8_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdt_lr_alpha_offdiag_8_1(d_b1,k_b1_offset,d_v2,k_v2_offset,
     &d_i1,k_i1_offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_lr_alpha_offdiag_8(d_a1,k_a1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_9_1(l_i1_offset,k_i1_offset,siz
     &e_i1)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_9_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_9_1_1(l_i2_offset,k_i2_offset,s
     &ize_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_9_1_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_9_1_1(d_b1,k_b1_offset,d_y1,k_y1_offse
     &t,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_9_1(d_a1,k_a1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_9_2_1(l_i2_offset,k_i2_offset,s
     &ize_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_9_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_9_2_1(d_a2,k_a2_offset,d_y2,k_y2_offse
     &t,d_i2,k_i2_offset)
      CALL ccsdt_lr_alpha_offdiag_9_2_2(d_a3,k_a3_offset,d_y3,k_y3_offse
     &t,d_i2,k_i2_offset)
      CALL ccsdt_lr_alpha_offdiag_9_2_3(d_c1,k_c1_offset,d_y1,k_y1_offse
     &t,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_9_2(d_b1,k_b1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_9_3_1(l_i2_offset,k_i2_offset,s
     &ize_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_9_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_9_3_1(d_b1,k_b1_offset,d_y2,k_y2_offse
     &t,d_i2,k_i2_offset)
      CALL ccsdt_lr_alpha_offdiag_9_3_2(d_b2,k_b2_offset,d_y3,k_y3_offse
     &t,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_9_3(d_a2,k_a2_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_9_4_1(l_i2_offset,k_i2_offset,s
     &ize_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_9_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_9_4_1(d_b1,k_b1_offset,d_y3,k_y3_offse
     &t,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_9_4(d_a3,k_a3_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_9_5_1(l_i2_offset,k_i2_offset,s
     &ize_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_9_5_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_9_5_1(d_b2,k_b2_offset,d_y2,k_y2_offse
     &t,d_i2,k_i2_offset)
      CALL ccsdt_lr_alpha_offdiag_9_5_2(d_b3,k_b3_offset,d_y3,k_y3_offse
     &t,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_9_5(d_c1,k_c1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_9_6_1(l_i2_offset,k_i2_offset,s
     &ize_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_9_6_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_9_6_1(d_c1,k_c1_offset,d_y2,k_y2_offse
     &t,d_i2,k_i2_offset)
      CALL ccsdt_lr_alpha_offdiag_9_6_2(d_c2,k_c2_offset,d_y3,k_y3_offse
     &t,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_9_6(d_b2,k_b2_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_9_7_1(l_i2_offset,k_i2_offset,s
     &ize_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_9_7_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_9_7_1(d_c1,k_c1_offset,d_y3,k_y3_offse
     &t,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_9_7(d_b3,k_b3_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_lr_alpha_offdiag_9(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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_10_1(l_i1_offset,k_i1_offset,si
     &ze_i1)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_10_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_10_1_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_10_1_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_10_1_1(d_b1,k_b1_offset,d_y2,k_y2_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_10_1(d_a1,k_a1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_10_2_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_10_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_10_2_1(d_a2,k_a2_offset,d_y3,k_y3_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_10_2(d_b1,k_b1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_10_3_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_10_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_10_3_1(d_c1,k_c1_offset,d_y2,k_y2_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_10_3(d_b1,k_b1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_10_4_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_10_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_10_4_1(d_b2,k_b2_offset,d_y3,k_y3_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_10_4(d_c1,k_c1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_lr_alpha_offdiag_10(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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_11_1(l_i1_offset,k_i1_offset,si
     &ze_i1)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_11_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_11_1_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_11_1_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_11_1_1(d_b1,k_b1_offset,d_y2,k_y2_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_11_1(d_a1,k_a1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_11_2_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_11_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_11_2_1(d_a2,k_a2_offset,d_y3,k_y3_offs
     &et,d_i2,k_i2_offset)
      CALL ccsdt_lr_alpha_offdiag_11_2_2(d_c1,k_c1_offset,d_y2,k_y2_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_11_2(d_b1,k_b1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_11_3_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_11_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_11_3_1(d_b1,k_b1_offset,d_y3,k_y3_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_11_3(d_a2,k_a2_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_11_4_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_11_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_11_4_1(d_b2,k_b2_offset,d_y3,k_y3_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_11_4(d_c1,k_c1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_11_5_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_11_5_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_11_5_1(d_c1,k_c1_offset,d_y3,k_y3_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_11_5(d_b2,k_b2_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_lr_alpha_offdiag_11(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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_1(l_i1_offset,k_i1_offset,si
     &ze_i1)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_1_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_1_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_12_1_1(d_b1,k_b1_offset,d_v2,k_v2_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_12_1(d_a1,k_a1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_2_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_12_2_1(d_b1,k_b1_offset,d_v2,k_v2_offs
     &et,d_i2,k_i2_offset)
      CALL ccsdt_lr_alpha_offdiag_12_2_2(d_b2,k_b2_offset,d_v2,k_v2_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_12_2(d_a2,k_a2_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_3_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_12_3_1(d_a2,k_a2_offset,d_v2,k_v2_offs
     &et,d_i2,k_i2_offset)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_3_2_1(l_i3_offset,k_i3_offse
     &t,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_3_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_3_2_1(d_t2,k_t2_offset,d_v2,k_v2_of
     &fset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_3_2(d_c1,k_c1_offset,d_i3,k_i3_offs
     &et,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_3_3_1(l_i3_offset,k_i3_offse
     &t,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_3_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_3_3_1(d_c1,k_c1_offset,d_v2,k_v2_of
     &fset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_3_3(d_t2,k_t2_offset,d_i3,k_i3_offs
     &et,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_3_4_1(l_i3_offset,k_i3_offse
     &t,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_3_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_3_4_1(d_a1,k_a1_offset,d_v2,k_v2_of
     &fset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_3_4(d_t1,k_t1_offset,d_i3,k_i3_offs
     &et,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_3_5_1(l_i3_offset,k_i3_offse
     &t,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_3_5_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_3_5_1(d_t1,k_t1_offset,d_v2,k_v2_of
     &fset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_3_5(d_a1,k_a1_offset,d_i3,k_i3_offs
     &et,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_3_6_1(l_i3_offset,k_i3_offse
     &t,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_3_6_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_3_6_1(d_c2,k_c2_offset,d_v2,k_v2_of
     &fset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_3_6(d_t1,k_t1_offset,d_i3,k_i3_offs
     &et,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_3_7_1(l_i3_offset,k_i3_offse
     &t,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_3_7_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_3_7_1(d_t1,k_t1_offset,d_v2,k_v2_of
     &fset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_3_7(d_c2,k_c2_offset,d_i3,k_i3_offs
     &et,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_12_3(d_b1,k_b1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_4_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_12_4_1(d_b1,k_b1_offset,d_v2,k_v2_offs
     &et,d_i2,k_i2_offset)
      CALL ccsdt_lr_alpha_offdiag_12_4_2(d_b2,k_b2_offset,d_v2,k_v2_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_12_4(d_a2,k_a2_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_5_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_5_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_12_5_1(d_b1,k_b1_offset,d_v2,k_v2_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_12_5(d_a3,k_a3_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_6_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_6_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_12_6_1(d_b1,k_b1_offset,d_v2,k_v2_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_12_6(d_a3,k_a3_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_7_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_7_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_12_7_1(d_b2,k_b2_offset,d_v2,k_v2_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_12_7(d_a2,k_a2_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_8_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_8_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_12_8_1(d_c1,k_c1_offset,d_v2,k_v2_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_12_8(d_b1,k_b1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_9_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_9_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_12_9_1(d_c1,k_c1_offset,d_v2,k_v2_offs
     &et,d_i2,k_i2_offset)
      CALL ccsdt_lr_alpha_offdiag_12_9_2(d_c2,k_c2_offset,d_v2,k_v2_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_12_9(d_b2,k_b2_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_10_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_10_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_12_10_1(d_b2,k_b2_offset,d_v2,k_v2_off
     &set,d_i2,k_i2_offset)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_10_2_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_10_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_10_2_1(d_b1,k_b1_offset,d_v2,k_v2_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_10_2(d_t1,k_t1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_10_3_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_10_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_10_3_1(d_t1,k_t1_offset,d_v2,k_v2_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_10_3(d_b1,k_b1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_12_10(d_c1,k_c1_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_11_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_11_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_12_11_1(d_c1,k_c1_offset,d_v2,k_v2_off
     &set,d_i2,k_i2_offset)
      CALL ccsdt_lr_alpha_offdiag_12_11_2(d_c2,k_c2_offset,d_v2,k_v2_off
     &set,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_12_11(d_b2,k_b2_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_12_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_12_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_12_12_1(d_c1,k_c1_offset,d_v2,k_v2_off
     &set,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_12_12(d_b3,k_b3_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_13_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_13_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_12_13_1(d_c1,k_c1_offset,d_v2,k_v2_off
     &set,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_12_13(d_b3,k_b3_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_14_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_14_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_12_14_1(d_c2,k_c2_offset,d_v2,k_v2_off
     &set,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_12_14(d_b2,k_b2_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_15_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_15_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_15_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_15_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_15_1_1(d_b1,k_b1_offset,d_v2,k_v2_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_15_1(d_a1,k_a1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_15_2_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_15_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_15_2_1(d_c2,k_c2_offset,d_v2,k_v2_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_15_2(d_b1,k_b1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_15_3_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_15_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_15_3_1(d_b1,k_b1_offset,d_v2,k_v2_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_15_3(d_c2,k_c2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_15_4_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_15_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_15_4_1(d_c1,k_c1_offset,d_v2,k_v2_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_15_4(d_b1,k_b1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_15_5_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_15_5_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_15_5_1(d_b2,k_b2_offset,d_v2,k_v2_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_15_5(d_a1,k_a1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_15_6_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_15_6_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_15_6_1(d_a1,k_a1_offset,d_v2,k_v2_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_15_6(d_b2,k_b2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_12_15(d_t1,k_t1_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_16_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_16_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_16_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_16_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_16_1_1(d_b1,k_b1_offset,d_v2,k_v2_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_16_1(d_a1,k_a1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_16_2_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_16_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_16_2_1(d_c1,k_c1_offset,d_v2,k_v2_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_16_2(d_b1,k_b1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_12_16(d_t2,k_t2_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_17_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_17_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_17_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_17_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_17_1_1(d_t2,k_t2_offset,d_v2,k_v2_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_17_1(d_b1,k_b1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_17_2_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_17_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_17_2_1(d_b1,k_b1_offset,d_v2,k_v2_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_17_2(d_t2,k_t2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_17_3_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_17_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_17_3_1(d_b2,k_b2_offset,d_v2,k_v2_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_17_3(d_t1,k_t1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_17_4_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_17_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_17_4_1(d_t1,k_t1_offset,d_v2,k_v2_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_17_4(d_b2,k_b2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_12_17(d_a1,k_a1_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_18_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_18_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_18_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_18_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_18_1_1(d_b1,k_b1_offset,d_v2,k_v2_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_18_1(d_t1,k_t1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_18_2_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_18_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_18_2_1(d_t1,k_t1_offset,d_v2,k_v2_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_18_2(d_b1,k_b1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_12_18(d_c2,k_c2_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_19_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_19_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_19_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_19_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_19_1_1(d_a1,k_a1_offset,d_v2,k_v2_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_19_1(d_t1,k_t1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_12_19_2_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_12_19_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_19_2_1(d_t1,k_t1_offset,d_v2,k_v2_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_12_19_2(d_a1,k_a1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_12_19(d_b2,k_b2_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_lr_alpha_offdiag_12(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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_13_1(l_i1_offset,k_i1_offset,si
     &ze_i1)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_13_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_13_1_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_13_1_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_13_1_1(d_a2,k_a2_offset,d_y2,k_y2_offs
     &et,d_i2,k_i2_offset)
      CALL ccsdt_lr_alpha_offdiag_13_1_2(d_a3,k_a3_offset,d_y3,k_y3_offs
     &et,d_i2,k_i2_offset)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_13_1_3_1(l_i3_offset,k_i3_offse
     &t,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_13_1_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_13_1_3_1(d_t1,k_t1_offset,d_y2,k_y2_of
     &fset,d_i3,k_i3_offset)
      CALL ccsdt_lr_alpha_offdiag_13_1_3_2(d_t2,k_t2_offset,d_y3,k_y3_of
     &fset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_13_1_3(d_c1,k_c1_offset,d_i3,k_i3_offs
     &et,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_13_1_4_1(l_i3_offset,k_i3_offse
     &t,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_13_1_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_13_1_4_1(d_c1,k_c1_offset,d_y2,k_y2_of
     &fset,d_i3,k_i3_offset)
      CALL ccsdt_lr_alpha_offdiag_13_1_4_2(d_c2,k_c2_offset,d_y3,k_y3_of
     &fset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_13_1_4(d_t1,k_t1_offset,d_i3,k_i3_offs
     &et,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_13_1(d_b1,k_b1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_13_2_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_13_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_13_2_1(d_b1,k_b1_offset,d_y2,k_y2_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_13_2(d_a2,k_a2_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_13_3_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_13_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_13_3_1(d_a2,k_a2_offset,d_y2,k_y2_offs
     &et,d_i2,k_i2_offset)
      CALL ccsdt_lr_alpha_offdiag_13_3_2(d_a3,k_a3_offset,d_y3,k_y3_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_13_3(d_b1,k_b1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_13_4_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_13_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_13_4_1(d_b1,k_b1_offset,d_y3,k_y3_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_13_4(d_a3,k_a3_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_13_5_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_13_5_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_13_5_1(d_a2,k_a2_offset,d_y3,k_y3_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_13_5(d_b2,k_b2_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_13_6_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_13_6_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_13_6_1(d_a2,k_a2_offset,d_y3,k_y3_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_13_6(d_b2,k_b2_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_13_7_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_13_7_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_13_7_1(d_b2,k_b2_offset,d_y2,k_y2_offs
     &et,d_i2,k_i2_offset)
      CALL ccsdt_lr_alpha_offdiag_13_7_2(d_b3,k_b3_offset,d_y3,k_y3_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_13_7(d_c1,k_c1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_13_8_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_13_8_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_13_8_1(d_c1,k_c1_offset,d_y2,k_y2_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_13_8(d_b2,k_b2_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_13_9_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_13_9_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_13_9_1(d_b2,k_b2_offset,d_y2,k_y2_offs
     &et,d_i2,k_i2_offset)
      CALL ccsdt_lr_alpha_offdiag_13_9_2(d_b3,k_b3_offset,d_y3,k_y3_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_13_9(d_c1,k_c1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_13_10_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_13_10_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_13_10_1(d_c1,k_c1_offset,d_y3,k_y3_off
     &set,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_13_10(d_b3,k_b3_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_13_11_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_13_11_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_13_11_1(d_b2,k_b2_offset,d_y3,k_y3_off
     &set,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_13_11(d_c2,k_c2_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_13_12_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_13_12_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_13_12_1(d_b2,k_b2_offset,d_y3,k_y3_off
     &set,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_13_12(d_c2,k_c2_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_13_13_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_13_13_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_13_13_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_13_13_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_13_13_1_1(d_t1,k_t1_offset,d_y2,k_y2_o
     &ffset,d_i3,k_i3_offset)
      CALL ccsdt_lr_alpha_offdiag_13_13_1_2(d_t2,k_t2_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_13_13_1(d_b1,k_b1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_13_13_2_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_13_13_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_13_13_2_1(d_b1,k_b1_offset,d_y2,k_y2_o
     &ffset,d_i3,k_i3_offset)
      CALL ccsdt_lr_alpha_offdiag_13_13_2_2(d_b2,k_b2_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_13_13_2(d_t1,k_t1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_13_13(d_a1,k_a1_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_13_14_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_13_14_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_13_14_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_13_14_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_13_14_1_1(d_b1,k_b1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_13_14_1(d_t2,k_t2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_13_14_2_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_13_14_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_13_14_2_1(d_t1,k_t1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_13_14_2(d_b2,k_b2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_13_14(d_a1,k_a1_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_13_15_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_13_15_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_13_15_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_13_15_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_13_15_1_1(d_c1,k_c1_offset,d_y2,k_y2_o
     &ffset,d_i3,k_i3_offset)
      CALL ccsdt_lr_alpha_offdiag_13_15_1_2(d_c2,k_c2_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_13_15_1(d_b1,k_b1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_13_15_2_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_13_15_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_13_15_2_1(d_b1,k_b1_offset,d_y2,k_y2_o
     &ffset,d_i3,k_i3_offset)
      CALL ccsdt_lr_alpha_offdiag_13_15_2_2(d_b2,k_b2_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_13_15_2(d_a1,k_a1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_13_15(d_t1,k_t1_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_13_16_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_13_16_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_13_16_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_13_16_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_13_16_1_1(d_b1,k_b1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_13_16_1(d_c2,k_c2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_13_16_2_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_13_16_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_13_16_2_1(d_a1,k_a1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_13_16_2(d_b2,k_b2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_13_16(d_t1,k_t1_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_13_17_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_13_17_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_13_17_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_13_17_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_13_17_1_1(d_c1,k_c1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_13_17_1(d_t2,k_t2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_13_17_2_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_13_17_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_13_17_2_1(d_t1,k_t1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_13_17_2(d_c2,k_c2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_13_17(d_b1,k_b1_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_lr_alpha_offdiag_13(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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_14_1(l_i1_offset,k_i1_offset,si
     &ze_i1)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_14_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_14_1_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_14_1_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_14_1_1(d_a2,k_a2_offset,d_y3,k_y3_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_14_1(d_b1,k_b1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_14_2_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_14_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_14_2_1(d_b2,k_b2_offset,d_y3,k_y3_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_14_2(d_c1,k_c1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_lr_alpha_offdiag_14(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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_1(l_i1_offset,k_i1_offset,si
     &ze_i1)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_1_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_1_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_1_1(d_b1,k_b1_offset,d_y2,k_y2_offs
     &et,d_i2,k_i2_offset)
      CALL ccsdt_lr_alpha_offdiag_15_1_2(d_b2,k_b2_offset,d_y3,k_y3_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_1(d_a3,k_a3_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_2_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_2_1(d_b2,k_b2_offset,d_y2,k_y2_offs
     &et,d_i2,k_i2_offset)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_2_2_1(l_i3_offset,k_i3_offse
     &t,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_2_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_2_2_1(d_t2,k_t2_offset,d_y3,k_y3_of
     &fset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_2_2(d_b1,k_b1_offset,d_i3,k_i3_offs
     &et,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_2(d_a2,k_a2_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_3_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_3_1(d_b2,k_b2_offset,d_y3,k_y3_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_3(d_a3,k_a3_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_4_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_4_1(d_a3,k_a3_offset,d_y3,k_y3_offs
     &et,d_i2,k_i2_offset)
      CALL ccsdt_lr_alpha_offdiag_15_4_2(d_c2,k_c2_offset,d_y2,k_y2_offs
     &et,d_i2,k_i2_offset)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_4_3_1(l_i3_offset,k_i3_offse
     &t,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_4_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_4_3_1(d_a2,k_a2_offset,d_y3,k_y3_of
     &fset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_4_3(d_t1,k_t1_offset,d_i3,k_i3_offs
     &et,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_4_4_1(l_i3_offset,k_i3_offse
     &t,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_4_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_4_4_1(d_t2,k_t2_offset,d_y3,k_y3_of
     &fset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_4_4(d_c1,k_c1_offset,d_i3,k_i3_offs
     &et,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_4(d_b2,k_b2_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_5_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_5_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_5_1(d_a3,k_a3_offset,d_y3,k_y3_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_5(d_b2,k_b2_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_6_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_6_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_6_1(d_a3,k_a3_offset,d_y3,k_y3_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_6(d_b2,k_b2_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_7_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_7_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_7_1(d_b2,k_b2_offset,d_y3,k_y3_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_7(d_a3,k_a3_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_8_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_8_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_8_1(d_a3,k_a3_offset,d_y3,k_y3_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_8(d_b2,k_b2_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_9_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_9_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_9_1(d_c1,k_c1_offset,d_y2,k_y2_offs
     &et,d_i2,k_i2_offset)
      CALL ccsdt_lr_alpha_offdiag_15_9_2(d_c2,k_c2_offset,d_y3,k_y3_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_9(d_b3,k_b3_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_10_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_10_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_10_1(d_c2,k_c2_offset,d_y3,k_y3_off
     &set,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_10(d_b3,k_b3_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_11_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_11_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_11_1(d_b3,k_b3_offset,d_y3,k_y3_off
     &set,d_i2,k_i2_offset)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_11_2_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_11_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_11_2_1(d_b2,k_b2_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_11_2(d_t1,k_t1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_11(d_c2,k_c2_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_12_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_12_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_12_1(d_b3,k_b3_offset,d_y3,k_y3_off
     &set,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_12(d_c2,k_c2_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_13_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_13_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_13_1(d_b3,k_b3_offset,d_y3,k_y3_off
     &set,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_13(d_c2,k_c2_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_14_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_14_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_14_1(d_c2,k_c2_offset,d_y3,k_y3_off
     &set,d_i2,k_i2_offset)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_14_2_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_14_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_14_2_1(d_a1,k_a1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_14_2(d_t1,k_t1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_14_3_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_14_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_14_3_1(d_t1,k_t1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_14_3(d_a1,k_a1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_14(d_b3,k_b3_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_15_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_15_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_15_1(d_b3,k_b3_offset,d_y3,k_y3_off
     &set,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_15(d_c2,k_c2_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_16_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_16_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_16_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_16_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_16_1_1(d_t2,k_t2_offset,d_y2,k_y2_o
     &ffset,d_i3,k_i3_offset)
      CALL ccsdt_lr_alpha_offdiag_15_16_1_2(d_t3,k_t3_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_16_1_3_1(l_i4_offset,k_i4_of
     &fset,size_i4)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_16_1_3_1_i4',filename
     &)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_16_1_3_1(d_t1,k_t1_offset,d_y2,k_y2
     &_offset,d_i4,k_i4_offset)
      CALL ccsdt_lr_alpha_offdiag_15_16_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_alpha_offdiag_15_16_1_3(d_t1,k_t1_offset,d_i4,k_i4_o
     &ffset,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_16_1(d_b1,k_b1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_16_2_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_16_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_16_2_1(d_b1,k_b1_offset,d_y2,k_y2_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_16_2(d_t2,k_t2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_16_3_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_16_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_16_3_1(d_b1,k_b1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_16_3(d_t3,k_t3_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_16_4_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_16_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_16_4_1(d_b2,k_b2_offset,d_y2,k_y2_o
     &ffset,d_i3,k_i3_offset)
      CALL ccsdt_lr_alpha_offdiag_15_16_4_2(d_b3,k_b3_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_16_4_3_1(l_i4_offset,k_i4_of
     &fset,size_i4)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_16_4_3_1_i4',filename
     &)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_16_4_3_1(d_b1,k_b1_offset,d_y2,k_y2
     &_offset,d_i4,k_i4_offset)
      CALL ccsdt_lr_alpha_offdiag_15_16_4_3_2(d_b2,k_b2_offset,d_y3,k_y3
     &_offset,d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_16_4_3(d_t1,k_t1_offset,d_i4,k_i4_o
     &ffset,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_16_4_4_1(l_i4_offset,k_i4_of
     &fset,size_i4)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_16_4_4_1_i4',filename
     &)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_16_4_4_1(d_t1,k_t1_offset,d_y2,k_y2
     &_offset,d_i4,k_i4_offset)
      CALL ccsdt_lr_alpha_offdiag_15_16_4_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_alpha_offdiag_15_16_4_4(d_b1,k_b1_offset,d_i4,k_i4_o
     &ffset,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_16_4(d_t1,k_t1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_16_5_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_16_5_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_16_5_1(d_t1,k_t1_offset,d_y2,k_y2_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_16_5(d_b2,k_b2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_16_6_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_16_6_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_16_6_1(d_t1,k_t1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_16_6(d_b3,k_b3_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_16_7_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_16_7_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_16_7_1_1(l_i4_offset,k_i4_of
     &fset,size_i4)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_16_7_1_1_i4',filename
     &)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_16_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_alpha_offdiag_15_16_7_1(d_t2,k_t2_offset,d_i4,k_i4_o
     &ffset,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_16_7(d_b1,k_b1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_16_8_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_16_8_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_16_8_1_1(l_i4_offset,k_i4_of
     &fset,size_i4)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_16_8_1_1_i4',filename
     &)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_16_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_alpha_offdiag_15_16_8_1(d_b2,k_b2_offset,d_i4,k_i4_o
     &ffset,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_16_8_2_1(l_i4_offset,k_i4_of
     &fset,size_i4)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_16_8_2_1_i4',filename
     &)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_16_8_2_1(d_b1,k_b1_offset,d_y3,k_y3
     &_offset,d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_16_8_2(d_t2,k_t2_offset,d_i4,k_i4_o
     &ffset,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_16_8(d_t1,k_t1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_16(d_a1,k_a1_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_17_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_17_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_17_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_17_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_17_1_1(d_t3,k_t3_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_17_1(d_a1,k_a1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_17_2_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_17_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_17_2_1(d_c3,k_c3_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_17_2(d_t1,k_t1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_17(d_b1,k_b1_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_18_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_18_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_18_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_18_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_18_1_1(d_b1,k_b1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_18_1(d_a1,k_a1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_18_2_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_18_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_18_2_1(d_c1,k_c1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_18_2(d_b1,k_b1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_18(d_t3,k_t3_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_19_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_19_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_19_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_19_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_19_1_1(d_a1,k_a1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_19_1(d_t3,k_t3_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_19_2_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_19_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_19_2_1(d_t1,k_t1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_19_2(d_c3,k_c3_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_19(d_b1,k_b1_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_20_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_20_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_20_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_20_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_20_1_1(d_a2,k_a2_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_20_1(d_b2,k_b2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_20_2_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_20_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_20_2_1(d_a2,k_a2_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_20_2(d_b2,k_b2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_20_3_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_20_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_20_3_1(d_b2,k_b2_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_20_3(d_c2,k_c2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_20_4_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_20_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_20_4_1(d_b2,k_b2_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_20_4(d_c2,k_c2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_20(d_t1,k_t1_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_21_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_21_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_21_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_21_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_21_1_1(d_t1,k_t1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_21_1(d_a2,k_a2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_21_2_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_21_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_21_2_1(d_c1,k_c1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_21_2(d_t2,k_t2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_21(d_b2,k_b2_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_22_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_22_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_22_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_22_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_22_1_1(d_b2,k_b2_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_22_1(d_a2,k_a2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_22_2_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_22_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_22_2_1(d_c2,k_c2_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_22_2(d_b2,k_b2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_22(d_t1,k_t1_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_23_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_23_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_23_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_23_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_23_1_1(d_c2,k_c2_offset,d_y2,k_y2_o
     &ffset,d_i3,k_i3_offset)
      CALL ccsdt_lr_alpha_offdiag_15_23_1_2(d_c3,k_c3_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_23_1_3_1(l_i4_offset,k_i4_of
     &fset,size_i4)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_23_1_3_1_i4',filename
     &)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_23_1_3_1(d_t1,k_t1_offset,d_y2,k_y2
     &_offset,d_i4,k_i4_offset)
      CALL ccsdt_lr_alpha_offdiag_15_23_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_alpha_offdiag_15_23_1_3(d_c1,k_c1_offset,d_i4,k_i4_o
     &ffset,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_23_1_4_1(l_i4_offset,k_i4_of
     &fset,size_i4)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_23_1_4_1_i4',filename
     &)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_23_1_4_1(d_c1,k_c1_offset,d_y2,k_y2
     &_offset,d_i4,k_i4_offset)
      CALL ccsdt_lr_alpha_offdiag_15_23_1_4_2(d_c2,k_c2_offset,d_y3,k_y3
     &_offset,d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_23_1_4(d_t1,k_t1_offset,d_i4,k_i4_o
     &ffset,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_23_1(d_b1,k_b1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_23_2_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_23_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_23_2_1(d_b1,k_b1_offset,d_y2,k_y2_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_23_2(d_c2,k_c2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_23_3_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_23_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_23_3_1(d_b1,k_b1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_23_3(d_c3,k_c3_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_23_4_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_23_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_23_4_1(d_b2,k_b2_offset,d_y2,k_y2_o
     &ffset,d_i3,k_i3_offset)
      CALL ccsdt_lr_alpha_offdiag_15_23_4_2(d_b3,k_b3_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_23_4_3_1(l_i4_offset,k_i4_of
     &fset,size_i4)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_23_4_3_1_i4',filename
     &)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_23_4_3_1(d_t1,k_t1_offset,d_y2,k_y2
     &_offset,d_i4,k_i4_offset)
      CALL ccsdt_lr_alpha_offdiag_15_23_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_alpha_offdiag_15_23_4_3(d_b1,k_b1_offset,d_i4,k_i4_o
     &ffset,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_23_4_4_1(l_i4_offset,k_i4_of
     &fset,size_i4)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_23_4_4_1_i4',filename
     &)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_23_4_4_1(d_b1,k_b1_offset,d_y2,k_y2
     &_offset,d_i4,k_i4_offset)
      CALL ccsdt_lr_alpha_offdiag_15_23_4_4_2(d_b2,k_b2_offset,d_y3,k_y3
     &_offset,d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_23_4_4(d_t1,k_t1_offset,d_i4,k_i4_o
     &ffset,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_23_4(d_a1,k_a1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_23_5_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_23_5_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_23_5_1(d_a1,k_a1_offset,d_y2,k_y2_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_23_5(d_b2,k_b2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_23_6_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_23_6_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_23_6_1(d_a1,k_a1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_23_6(d_b3,k_b3_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_23_7_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_23_7_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_23_7_1_1(l_i4_offset,k_i4_of
     &fset,size_i4)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_23_7_1_1_i4',filename
     &)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_23_7_1_1(d_b1,k_b1_offset,d_y3,k_y3
     &_offset,d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_23_7_1(d_t2,k_t2_offset,d_i4,k_i4_o
     &ffset,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_23_7_2_1(l_i4_offset,k_i4_of
     &fset,size_i4)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_23_7_2_1_i4',filename
     &)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_23_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_alpha_offdiag_15_23_7_2(d_b2,k_b2_offset,d_i4,k_i4_o
     &ffset,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_23_7(d_a1,k_a1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_23_8_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_23_8_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_23_8_1_1(l_i4_offset,k_i4_of
     &fset,size_i4)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_23_8_1_1_i4',filename
     &)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_23_8_1_1(d_c1,k_c1_offset,d_y3,k_y3
     &_offset,d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_23_8_1(d_t2,k_t2_offset,d_i4,k_i4_o
     &ffset,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_23_8_2_1(l_i4_offset,k_i4_of
     &fset,size_i4)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_23_8_2_1_i4',filename
     &)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_23_8_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_alpha_offdiag_15_23_8_2(d_c2,k_c2_offset,d_i4,k_i4_o
     &ffset,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_23_8(d_b1,k_b1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_23_9_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_23_9_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_23_9_1_1(l_i4_offset,k_i4_of
     &fset,size_i4)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_23_9_1_1_i4',filename
     &)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_23_9_1_1(d_b1,k_b1_offset,d_y2,k_y2
     &_offset,d_i4,k_i4_offset)
      CALL ccsdt_lr_alpha_offdiag_15_23_9_1_2(d_b2,k_b2_offset,d_y3,k_y3
     &_offset,d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_23_9_1(d_a1,k_a1_offset,d_i4,k_i4_o
     &ffset,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_23_9_2_1(l_i4_offset,k_i4_of
     &fset,size_i4)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_23_9_2_1_i4',filename
     &)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_23_9_2_1(d_c1,k_c1_offset,d_y2,k_y2
     &_offset,d_i4,k_i4_offset)
      CALL ccsdt_lr_alpha_offdiag_15_23_9_2_2(d_c2,k_c2_offset,d_y3,k_y3
     &_offset,d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_23_9_2(d_b1,k_b1_offset,d_i4,k_i4_o
     &ffset,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_23_9(d_t1,k_t1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_23_10_1(l_i3_offset,k_i3_off
     &set,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_23_10_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_23_10_1_1(l_i4_offset,k_i4_o
     &ffset,size_i4)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_23_10_1_1_i4',filenam
     &e)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_23_10_1_1(d_a1,k_a1_offset,d_y3,k_y
     &3_offset,d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_23_10_1(d_b2,k_b2_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_23_10_2_1(l_i4_offset,k_i4_o
     &ffset,size_i4)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_23_10_2_1_i4',filenam
     &e)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_23_10_2_1(d_b1,k_b1_offset,d_y3,k_y
     &3_offset,d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_23_10_2(d_c2,k_c2_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_23_10(d_t1,k_t1_offset,d_i3,k_i3_of
     &fset,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_23(d_t1,k_t1_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_24_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_24_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_24_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_24_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_24_1_1(d_b1,k_b1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_24_1(d_t1,k_t1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_24_2_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_24_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_24_2_1(d_t1,k_t1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_24_2(d_b1,k_b1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_24(d_c3,k_c3_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_25_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_25_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_25_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_25_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_25_1_1(d_t2,k_t2_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_25_1(d_b2,k_b2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_25_2_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_25_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_25_2_1(d_t2,k_t2_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_25_2(d_b2,k_b2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_25_3_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_25_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_25_3_1(d_b2,k_b2_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_25_3(d_t2,k_t2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_25_4_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_25_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_25_4_1(d_b2,k_b2_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_25_4(d_t2,k_t2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_25(d_c1,k_c1_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_26_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_26_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_26_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_26_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_26_1_1(d_b2,k_b2_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_26_1(d_t2,k_t2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_26_2_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_26_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_26_2_1(d_t2,k_t2_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_26_2(d_b2,k_b2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_26(d_c1,k_c1_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_27_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_27_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_27_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_27_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_27_1_1(d_t2,k_t2_offset,d_y2,k_y2_o
     &ffset,d_i3,k_i3_offset)
      CALL ccsdt_lr_alpha_offdiag_15_27_1_2(d_t3,k_t3_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_27_1_3_1(l_i4_offset,k_i4_of
     &fset,size_i4)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_27_1_3_1_i4',filename
     &)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_27_1_3_1(d_t1,k_t1_offset,d_y2,k_y2
     &_offset,d_i4,k_i4_offset)
      CALL ccsdt_lr_alpha_offdiag_15_27_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_alpha_offdiag_15_27_1_3(d_t1,k_t1_offset,d_i4,k_i4_o
     &ffset,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_27_1(d_c1,k_c1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_27_2_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_27_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_27_2_1(d_c1,k_c1_offset,d_y2,k_y2_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_27_2(d_t2,k_t2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_27_3_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_27_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_27_3_1(d_c1,k_c1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_27_3(d_t3,k_t3_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_27_4_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_27_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_27_4_1(d_c2,k_c2_offset,d_y2,k_y2_o
     &ffset,d_i3,k_i3_offset)
      CALL ccsdt_lr_alpha_offdiag_15_27_4_2(d_c3,k_c3_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_27_4_3_1(l_i4_offset,k_i4_of
     &fset,size_i4)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_27_4_3_1_i4',filename
     &)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_27_4_3_1(d_c1,k_c1_offset,d_y2,k_y2
     &_offset,d_i4,k_i4_offset)
      CALL ccsdt_lr_alpha_offdiag_15_27_4_3_2(d_c2,k_c2_offset,d_y3,k_y3
     &_offset,d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_27_4_3(d_t1,k_t1_offset,d_i4,k_i4_o
     &ffset,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_27_4_4_1(l_i4_offset,k_i4_of
     &fset,size_i4)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_27_4_4_1_i4',filename
     &)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_27_4_4_1(d_t1,k_t1_offset,d_y2,k_y2
     &_offset,d_i4,k_i4_offset)
      CALL ccsdt_lr_alpha_offdiag_15_27_4_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_alpha_offdiag_15_27_4_4(d_c1,k_c1_offset,d_i4,k_i4_o
     &ffset,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_27_4(d_t1,k_t1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_27_5_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_27_5_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_27_5_1(d_t1,k_t1_offset,d_y2,k_y2_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_27_5(d_c2,k_c2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_27_6_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_27_6_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_27_6_1(d_t1,k_t1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_27_6(d_c3,k_c3_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_27_7_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_27_7_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_27_7_1_1(l_i4_offset,k_i4_of
     &fset,size_i4)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_27_7_1_1_i4',filename
     &)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_27_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_alpha_offdiag_15_27_7_1(d_t2,k_t2_offset,d_i4,k_i4_o
     &ffset,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_27_7(d_c1,k_c1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_27_8_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_27_8_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_27_8_1_1(l_i4_offset,k_i4_of
     &fset,size_i4)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_27_8_1_1_i4',filename
     &)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_27_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_alpha_offdiag_15_27_8_1(d_c2,k_c2_offset,d_i4,k_i4_o
     &ffset,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_27_8_2_1(l_i4_offset,k_i4_of
     &fset,size_i4)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_27_8_2_1_i4',filename
     &)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_27_8_2_1(d_c1,k_c1_offset,d_y3,k_y3
     &_offset,d_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdt_lr_alpha_offdiag_15_27_8_2(d_t2,k_t2_offset,d_i4,k_i4_o
     &ffset,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_27_8(d_t1,k_t1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_27(d_b1,k_b1_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_28_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_28_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_28_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_28_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_28_1_1(d_t3,k_t3_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_28_1(d_b1,k_b1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_28(d_c1,k_c1_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_29_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_29_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_29_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_29_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_29_1_1(d_b1,k_b1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_29_1(d_t3,k_t3_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_29(d_c1,k_c1_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_30_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_30_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_30_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_30_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_30_1_1(d_t1,k_t1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_30_1(d_b2,k_b2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_30(d_c2,k_c2_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_31_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_31_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_31_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_31_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_31_1_1(d_b3,k_b3_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_31_1(d_t1,k_t1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_31(d_a1,k_a1_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_32_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_32_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_32_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_32_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_32_1_1(d_t1,k_t1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_32_1(d_b3,k_b3_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_32(d_a1,k_a1_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_33_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_33_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_33_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_33_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_33_1_1(d_t2,k_t2_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_33_1(d_a2,k_a2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_33_2_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_33_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_33_2_1(d_t2,k_t2_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_33_2(d_a2,k_a2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_33_3_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_33_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_33_3_1(d_a2,k_a2_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_33_3(d_t2,k_t2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_33_4_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_33_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_33_4_1(d_a2,k_a2_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_33_4(d_t2,k_t2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_33(d_b1,k_b1_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_34_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_34_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_34_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_34_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_34_1_1(d_b1,k_b1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_34_1(d_t2,k_t2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_34(d_a2,k_a2_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_35_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_35_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_35_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_35_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_35_1_1(d_a2,k_a2_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_35_1(d_t2,k_t2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_35_2_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_35_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_35_2_1(d_t2,k_t2_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_35_2(d_a2,k_a2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_35(d_b1,k_b1_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_36_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_36_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_36_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_36_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_36_1_1(d_b3,k_b3_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_36_1(d_a1,k_a1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_36_2_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_36_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_36_2_1(d_c3,k_c3_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_36_2(d_b1,k_b1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_36(d_t1,k_t1_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_37_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_37_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_37_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_37_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_37_1_1(d_a1,k_a1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_37_1(d_b3,k_b3_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_37_2_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_37_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_37_2_1(d_b1,k_b1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_37_2(d_c3,k_c3_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_37(d_t1,k_t1_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_38_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_38_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_38_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_38_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_38_1_1(d_b1,k_b1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_38_1(d_a2,k_a2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_38_2_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_38_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_38_2_1(d_c1,k_c1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_38_2(d_b2,k_b2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_38(d_t2,k_t2_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_39_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_39_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_39_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_39_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_39_1_1(d_a2,k_a2_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_39_1(d_b1,k_b1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_15_39_2_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_15_39_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_39_2_1(d_b2,k_b2_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_15_39_2(d_c1,k_c1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_15_39(d_t2,k_t2_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_lr_alpha_offdiag_15(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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_16_1(l_i1_offset,k_i1_offset,si
     &ze_i1)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_16_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_16_1_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_16_1_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_16_1_1(d_a3,k_a3_offset,d_y3,k_y3_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_16_1(d_b1,k_b1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_16_2_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_16_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_16_2_1(d_b1,k_b1_offset,d_y3,k_y3_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_16_2(d_a3,k_a3_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_16_3_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_16_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_16_3_1(d_a3,k_a3_offset,d_y3,k_y3_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_16_3(d_b1,k_b1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_16_4_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_16_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_16_4_1(d_a2,k_a2_offset,d_y3,k_y3_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_16_4(d_b2,k_b2_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_16_5_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_16_5_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_16_5_1(d_a2,k_a2_offset,d_y3,k_y3_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_16_5(d_b2,k_b2_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_16_6_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_16_6_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_16_6_1(d_b3,k_b3_offset,d_y3,k_y3_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_16_6(d_c1,k_c1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_16_7_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_16_7_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_16_7_1(d_c1,k_c1_offset,d_y3,k_y3_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_16_7(d_b3,k_b3_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_16_8_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_16_8_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_16_8_1(d_b3,k_b3_offset,d_y3,k_y3_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_16_8(d_c1,k_c1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_16_9_1(l_i2_offset,k_i2_offset,
     &size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_16_9_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_16_9_1(d_b2,k_b2_offset,d_y3,k_y3_offs
     &et,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_16_9(d_c2,k_c2_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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_16_10_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_16_10_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_16_10_1(d_b2,k_b2_offset,d_y3,k_y3_off
     &set,d_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_16_10(d_c2,k_c2_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_16_11_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_16_11_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_16_11_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_16_11_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_16_11_1_1(d_t2,k_t2_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_16_11_1(d_b1,k_b1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_16_11_2_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_16_11_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_16_11_2_1(d_b1,k_b1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_16_11_2(d_t2,k_t2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_16_11_3_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_16_11_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_16_11_3_1(d_b2,k_b2_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_16_11_3(d_t1,k_t1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_16_11_4_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_16_11_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_16_11_4_1(d_t1,k_t1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_16_11_4(d_b2,k_b2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_16_11(d_a1,k_a1_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_16_12_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_16_12_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_16_12_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_16_12_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_16_12_1_1(d_c2,k_c2_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_16_12_1(d_b1,k_b1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_16_12_2_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_16_12_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_16_12_2_1(d_b1,k_b1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_16_12_2(d_c2,k_c2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_16_12_3_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_16_12_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_16_12_3_1(d_b2,k_b2_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_16_12_3(d_a1,k_a1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_16_12_4_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_16_12_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_16_12_4_1(d_a1,k_a1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_16_12_4(d_b2,k_b2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_16_12(d_t1,k_t1_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_16_13_1(l_i2_offset,k_i2_offset
     &,size_i2)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_16_13_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_16_13_1_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_16_13_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_16_13_1_1(d_t2,k_t2_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_16_13_1(d_c1,k_c1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_16_13_2_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_16_13_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_16_13_2_1(d_c1,k_c1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_16_13_2(d_t2,k_t2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_16_13_3_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_16_13_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_16_13_3_1(d_c2,k_c2_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_16_13_3(d_t1,k_t1_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_16_13_4_1(l_i3_offset,k_i3_offs
     &et,size_i3)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_16_13_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_16_13_4_1(d_t1,k_t1_offset,d_y3,k_y3_o
     &ffset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_lr_alpha_offdiag_16_13_4(d_c2,k_c2_offset,d_i3,k_i3_off
     &set,d_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_lr_alpha_offdiag_16_13(d_b1,k_b1_offset,d_i2,k_i2_offse
     &t,d_i1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_lr_alpha_offdiag_16(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_alpha_o
     &ffdiag',-1,MA_ERR)
      CALL OFFSET_ccsdt_lr_alpha_offdiag_17_1(l_i1_offset,k_i1_offset,si
     &ze_i1)
      CALL TCE_FILENAME('ccsdt_lr_alpha_offdiag_17_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdt_lr_alpha_offdiag_17_1(d_c1,k_c1_offset,d_v2,k_v2_offset
     &,d_i1,k_i1_offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_lr_alpha_offdiag_17(d_b1,k_b1_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_alpha_o
     &ffdiag',-1,MA_ERR)
      RETURN
      END
#endif
