      SUBROUTINE ccsdtq_lambda2(d_f1,d_i0,d_t1,d_t2,d_t3,d_t4,d_v2,d_y1,
     &d_y2,d_y3,d_y4,k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_t
     &3_offset,k_t4_offset,k_v2_offset,k_y1_offset,k_y2_offset,k_y3_offs
     &et,k_y4_offset)
C     $Id$
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
C     i0 ( h3 h4 p1 p2 )_v + = 1 * v ( h3 h4 p1 p2 )_v
C     i0 ( h3 h4 p1 p2 )_yf + = 1 * P( 4 ) * y ( h3 p1 )_y * i1 ( h4 p2 )_f
C         i1 ( h3 p1 )_f + = 1 * f ( h3 p1 )_f
C         i1 ( h3 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 p1 p5 )_v
C     i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 2 ) * Sum ( h7 ) * y ( h7 p1 )_y * i1 ( h3 h4 h7 p2 )_v
C         i1 ( h3 h4 h7 p1 )_v + = 1 * v ( h3 h4 h7 p1 )_v
C         i1 ( h3 h4 h7 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h7 )_t * v ( h3 h4 p1 p5 )_v
C     i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 2 ) * Sum ( p5 ) * y ( h3 p5 )_y * v ( h4 p5 p1 p2 )_v
C     i0 ( h3 h4 p1 p2 )_yf + = -1 * P( 2 ) * Sum ( h9 ) * y ( h3 h9 p1 p2 )_y * i1 ( h4 h9 )_f
C         i1 ( h3 h9 )_f + = 1 * f ( h3 h9 )_f
C         i1 ( h3 h9 )_ft + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 p5 )_f
C             i2 ( h3 p5 )_f + = 1 * f ( h3 p5 )_f
C             i2 ( h3 p5 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h3 h8 p5 p7 )_v
C         i1 ( h3 h9 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 h9 p5 )_v
C         i1 ( h3 h9 )_vt + = -1/2 * Sum ( h8 p5 p6 ) * t ( p5 p6 h8 h9 )_t * v ( h3 h8 p5 p6 )_v
C     i0 ( h3 h4 p1 p2 )_yf + = 1 * P( 2 ) * Sum ( p10 ) * y ( h3 h4 p1 p10 )_y * i1 ( p10 p2 )_f
C         i1 ( p10 p1 )_f + = 1 * f ( p10 p1 )_f
C         i1 ( p10 p1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p10 p1 p5 )_v
C         i1 ( p10 p1 )_vt + = 1/2 * Sum ( h7 h8 p6 ) * t ( p6 p10 h7 h8 )_t * v ( h7 h8 p1 p6 )_v
C         i1 ( p10 p1 )_vtt + = -1 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h6 p1 )_vt
C             i2 ( h6 p1 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h6 h8 p1 p7 )_v
C     i0 ( h3 h4 p1 p2 )_yv + = 1/2 * Sum ( h10 h9 ) * y ( h9 h10 p1 p2 )_y * i1 ( h3 h4 h9 h10 )_v
C         i1 ( h3 h4 h9 h10 )_v + = 1 * v ( h3 h4 h9 h10 )_v
C         i1 ( h3 h4 h9 h10 )_vt + = -2 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 h4 h10 p5 )_v
C             i2 ( h3 h4 h10 p5 )_v + = 1 * v ( h3 h4 h10 p5 )_v
C             i2 ( h3 h4 h10 p5 )_vt + = -1/2 * Sum ( p7 ) * t ( p7 h10 )_t * v ( h3 h4 p5 p7 )_v
C         i1 ( h3 h4 h9 h10 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h9 h10 )_t * v ( h3 h4 p5 p6 )_v
C     i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 4 ) * Sum ( h9 p7 ) * y ( h3 h9 p1 p7 )_y * i1 ( h4 p7 h9 p2 )_v
C         i1 ( h3 p7 h9 p1 )_v + = 1 * v ( h3 p7 h9 p1 )_v
C         i1 ( h3 p7 h9 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h9 )_t * v ( h3 p7 p1 p5 )_v
C         i1 ( h3 p7 h9 p1 )_vt + = -1 * Sum ( h8 p6 ) * t ( p6 p7 h8 h9 )_t * v ( h3 h8 p1 p6 )_v
C     i0 ( h3 h4 p1 p2 )_yv + = 1/2 * Sum ( p6 p5 ) * y ( h3 h4 p5 p6 )_y * v ( p5 p6 p1 p2 )_v
C     i0 ( h3 h4 p1 p2 )_yf + = 1 * Sum ( h12 p13 ) * y ( h3 h4 h12 p1 p2 p13 )_y * i1 ( p13 h12 )_f
C         i1 ( p13 h12 )_f + = 1 * f ( p13 h12 )_f
C         i1 ( p13 h12 )_ft + = -1 * Sum ( h11 ) * t ( p13 h11 )_t * i2 ( h11 h12 )_f
C             i2 ( h11 h12 )_f + = 1 * f ( h11 h12 )_f
C             i2 ( h11 h12 )_ft + = 1 * Sum ( p5 ) * t ( p5 h12 )_t * i3 ( h11 p5 )_f
C                 i3 ( h11 p5 )_f + = 1 * f ( h11 p5 )_f
C                 i3 ( h11 p5 )_vt + = -1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h10 h11 p5 p9 )_v
C             i2 ( h11 h12 )_vt + = -1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 h11 h12 p7 )_v
C             i2 ( h11 h12 )_vt + = 1/2 * Sum ( h8 p5 p6 ) * t ( p5 p6 h8 h12 )_t * v ( h8 h11 p5 p6 )_v
C         i1 ( p13 h12 )_ft + = 1 * Sum ( p9 ) * t ( p9 h12 )_t * i2 ( p13 p9 )_f
C             i2 ( p13 p9 )_f + = 1 * f ( p13 p9 )_f
C             i2 ( p13 p9 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 p13 p7 p9 )_v
C             i2 ( p13 p9 )_vt + = -1/2 * Sum ( h7 h8 p6 ) * t ( p6 p13 h7 h8 )_t * v ( h7 h8 p6 p9 )_v
C         i1 ( p13 h12 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p13 h12 p5 )_v
C         i1 ( p13 h12 )_ft + = 1 * Sum ( h7 p6 ) * t ( p6 p13 h7 h12 )_t * i2 ( h7 p6 )_f
C             i2 ( h7 p6 )_f + = 1 * f ( h7 p6 )_f
C             i2 ( h7 p6 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h7 h10 p6 p9 )_v
C         i1 ( p13 h12 )_vt + = 1/2 * Sum ( h7 h8 p6 ) * t ( p6 p13 h7 h8 )_t * v ( h7 h8 h12 p6 )_v
C         i1 ( p13 h12 )_vt + = 1/2 * Sum ( h8 p5 p6 ) * t ( p5 p6 h8 h12 )_t * v ( h8 p13 p5 p6 )_v
C         i1 ( p13 h12 )_vt + = 1/4 * Sum ( h9 h10 p6 p7 ) * t ( p6 p7 p13 h9 h10 h12 )_t * v ( h9 h10 p6 p7 )_v
C     i0 ( h3 h4 p1 p2 )_yv + = 1/2 * P( 2 ) * Sum ( h11 h14 p13 ) * y ( h3 h11 h14 p1 p2 p13 )_y * i1 ( h4 p13 h11 h14 )_v
C         i1 ( h3 p13 h11 h14 )_v + = -1 * v ( h3 p13 h11 h14 )_v
C         i1 ( h3 p13 h11 h14 )_vt + = 1 * Sum ( h9 ) * t ( p13 h9 )_t * i2 ( h3 h9 h11 h14 )_v
C             i2 ( h3 h9 h11 h14 )_v + = 1 * v ( h3 h9 h11 h14 )_v
C             i2 ( h3 h9 h11 h14 )_vt + = 2 * Sum ( p5 ) * t ( p5 h14 )_t * i3 ( h3 h9 h11 p5 )_v
C                 i3 ( h3 h9 h11 p5 )_v + = 1 * v ( h3 h9 h11 p5 )_v
C                 i3 ( h3 h9 h11 p5 )_vt + = -1/2 * Sum ( p7 ) * t ( p7 h11 )_t * v ( h3 h9 p5 p7 )_v
C             i2 ( h3 h9 h11 h14 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h11 h14 )_t * v ( h3 h9 p5 p6 )_v
C         i1 ( h3 p13 h11 h14 )_vt + = -2 * Sum ( p5 ) * t ( p5 h14 )_t * i2 ( h3 p13 h11 p5 )_v
C             i2 ( h3 p13 h11 p5 )_v + = 1 * v ( h3 p13 h11 p5 )_v
C             i2 ( h3 p13 h11 p5 )_vt + = -1/2 * Sum ( p7 ) * t ( p7 h11 )_t * v ( h3 p13 p5 p7 )_v
C         i1 ( h3 p13 h11 h14 )_ft + = -1 * Sum ( p7 ) * t ( p7 p13 h11 h14 )_t * i2 ( h3 p7 )_f
C             i2 ( h3 p7 )_f + = 1 * f ( h3 p7 )_f
C             i2 ( h3 p7 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h3 h10 p7 p9 )_v
C         i1 ( h3 p13 h11 h14 )_vt + = -2 * Sum ( h8 p6 ) * t ( p6 p13 h8 h14 )_t * i2 ( h3 h8 h11 p6 )_v
C             i2 ( h3 h8 h11 p6 )_v + = 1 * v ( h3 h8 h11 p6 )_v
C             i2 ( h3 h8 h11 p6 )_vt + = -1 * Sum ( p9 ) * t ( p9 h11 )_t * v ( h3 h8 p6 p9 )_v
C         i1 ( h3 p13 h11 h14 )_vt + = -1/2 * Sum ( p5 p6 ) * t ( p5 p6 h11 h14 )_t * v ( h3 p13 p5 p6 )_v
C         i1 ( h3 p13 h11 h14 )_vt + = 1/2 * Sum ( h10 p6 p7 ) * t ( p6 p7 p13 h10 h11 h14 )_t * v ( h3 h10 p6 p7 )_v
C     i0 ( h3 h4 p1 p2 )_yv + = 1/2 * P( 2 ) * Sum ( h12 p11 p13 ) * y ( h3 h4 h12 p1 p11 p13 )_y * i1 ( p11 p13 h12 p2 )_v
C         i1 ( p11 p13 h12 p1 )_v + = -1 * v ( p11 p13 h12 p1 )_v
C         i1 ( p11 p13 h12 p1 )_vt + = 1 * Sum ( p5 ) * t ( p5 h12 )_t * v ( p11 p13 p1 p5 )_v
C         i1 ( p11 p13 h12 p1 )_vt + = -1/2 * Sum ( h7 h8 ) * t ( p11 p13 h7 h8 )_t * i2 ( h7 h8 h12 p1 )_v
C             i2 ( h7 h8 h12 p1 )_v + = 1 * v ( h7 h8 h12 p1 )_v
C             i2 ( h7 h8 h12 p1 )_vt + = -1 * Sum ( p9 ) * t ( p9 h12 )_t * v ( h7 h8 p1 p9 )_v
C         i1 ( p11 p13 h12 p1 )_vt + = -2 * Sum ( h8 p6 ) * t ( p6 p13 h8 h12 )_t * v ( h8 p11 p1 p6 )_v
C         i1 ( p11 p13 h12 p1 )_vt + = 1/2 * Sum ( h9 h10 p7 ) * t ( p7 p11 p13 h9 h10 h12 )_t * v ( h9 h10 p1 p7 )_v
C         i1 ( p11 p13 h12 p1 )_vtt + = -2 * Sum ( h8 ) * t ( p13 h8 )_t * i2 ( h8 p11 h12 p1 )_vt
C             i2 ( h8 p11 h12 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h12 )_t * v ( h8 p11 p1 p5 )_v
C         i1 ( p11 p13 h12 p1 )_vtt + = 2 * Sum ( h10 ) * t ( p11 h10 )_t * i2 ( h10 p13 h12 p1 )_vt
C             i2 ( h10 p13 h12 p1 )_vt + = 1 * Sum ( h8 p6 ) * t ( p6 p13 h8 h12 )_t * v ( h8 h10 p1 p6 )_v
C     i0 ( h3 h4 p1 p2 )_yv + = 1/4 * Sum ( h15 h14 p17 p16 ) * y ( h3 h4 h14 h15 p1 p2 p16 p17 )_y * i1 ( p16 p17 h14 h15 )_v
C         i1 ( p16 p17 h14 h15 )_v + = 1 * v ( p16 p17 h14 h15 )_v
C         i1 ( p16 p17 h14 h15 )_vt + = -2 * Sum ( h11 ) * t ( p16 h11 )_t * i2 ( h11 p17 h14 h15 )_v
C             i2 ( h11 p17 h14 h15 )_v + = 1 * v ( h11 p17 h14 h15 )_v
C             i2 ( h11 p17 h14 h15 )_vt + = 1/2 * Sum ( h6 ) * t ( p17 h6 )_t * i3 ( h6 h11 h14 h15 )_v
C                 i3 ( h6 h11 h14 h15 )_v + = 1 * v ( h6 h11 h14 h15 )_v
C                 i3 ( h6 h11 h14 h15 )_vt + = -2 * Sum ( p5 ) * t ( p5 h14 )_t * i4 ( h6 h11 h15 p5 )_v
C                     i4 ( h6 h11 h15 p5 )_v + = 1 * v ( h6 h11 h15 p5 )_v
C                     i4 ( h6 h11 h15 p5 )_vt + = -1/2 * Sum ( p7 ) * t ( p7 h15 )_t * v ( h6 h11 p5 p7 )_v
C                 i3 ( h6 h11 h14 h15 )_vt + = 1/2 * Sum ( p9 p10 ) * t ( p9 p10 h14 h15 )_t * v ( h6 h11 p9 p10 )_v
C             i2 ( h11 p17 h14 h15 )_vt + = -2 * Sum ( p5 ) * t ( p5 h14 )_t * i3 ( h11 p17 h15 p5 )_v
C                 i3 ( h11 p17 h15 p5 )_v + = 1 * v ( h11 p17 h15 p5 )_v
C                 i3 ( h11 p17 h15 p5 )_vt + = -1/2 * Sum ( p7 ) * t ( p7 h15 )_t * v ( h11 p17 p5 p7 )_v
C             i2 ( h11 p17 h14 h15 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h14 h15 )_t * v ( h11 p17 p5 p6 )_v
C             i2 ( h11 p17 h14 h15 )_vtt + = 2 * Sum ( h12 p10 ) * t ( p10 p17 h12 h15 )_t * i3 ( h11 h12 h14 p10 )_vt
C                 i3 ( h11 h12 h14 p10 )_vt + = 1 * Sum ( p5 ) * t ( p5 h14 )_t * v ( h11 h12 p5 p10 )_v
C         i1 ( p16 p17 h14 h15 )_vt + = -2 * Sum ( p5 ) * t ( p5 h14 )_t * i2 ( p16 p17 h15 p5 )_v
C             i2 ( p16 p17 h15 p5 )_v + = 1 * v ( p16 p17 h15 p5 )_v
C             i2 ( p16 p17 h15 p5 )_vt + = -1/2 * Sum ( p7 ) * t ( p7 h15 )_t * v ( p16 p17 p5 p7 )_v
C         i1 ( p16 p17 h14 h15 )_ft + = -2 * Sum ( h6 ) * t ( p16 p17 h6 h15 )_t * i2 ( h6 h14 )_f
C             i2 ( h6 h14 )_f + = 1 * f ( h6 h14 )_f
C             i2 ( h6 h14 )_vtt + = -1 * Sum ( p5 ) * t ( p5 h14 )_t * i3 ( h6 p5 )_vt
C                 i3 ( h6 p5 )_vt + = -1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h6 h8 p5 p7 )_v
C         i1 ( p16 p17 h14 h15 )_ft + = 2 * Sum ( p5 ) * t ( p5 p17 h14 h15 )_t * i2 ( p16 p5 )_f
C             i2 ( p16 p5 )_f + = 1 * f ( p16 p5 )_f
C             i2 ( p16 p5 )_vtt + = 1 * Sum ( h6 ) * t ( p16 h6 )_t * i3 ( h6 p5 )_vt
C         i1 ( p16 p17 h14 h15 )_vt + = 1/2 * Sum ( h8 h10 ) * t ( p16 p17 h8 h10 )_t * i2 ( h8 h10 h14 h15 )_v
C             i2 ( h8 h10 h14 h15 )_v + = 1 * v ( h8 h10 h14 h15 )_v
C             i2 ( h8 h10 h14 h15 )_vt + = -2 * Sum ( p6 ) * t ( p6 h14 )_t * i3 ( h8 h10 h15 p6 )_v
C                 i3 ( h8 h10 h15 p6 )_v + = 1 * v ( h8 h10 h15 p6 )_v
C                 i3 ( h8 h10 h15 p6 )_vt + = -1/2 * Sum ( p7 ) * t ( p7 h15 )_t * v ( h8 h10 p6 p7 )_v
C             i2 ( h8 h10 h14 h15 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h14 h15 )_t * v ( h8 h10 p5 p6 )_v
C         i1 ( p16 p17 h14 h15 )_vt + = -4 * Sum ( h8 p6 ) * t ( p6 p16 h8 h14 )_t * i2 ( h8 p17 h15 p6 )_v
C             i2 ( h8 p17 h15 p6 )_v + = 1 * v ( h8 p17 h15 p6 )_v
C             i2 ( h8 p17 h15 p6 )_vt + = -1 * Sum ( p9 ) * t ( p9 h15 )_t * v ( h8 p17 p6 p9 )_v
C             i2 ( h8 p17 h15 p6 )_vt + = -1/2 * Sum ( h12 p10 ) * t ( p10 p17 h12 h15 )_t * v ( h8 h12 p6 p10 )_v
C         i1 ( p16 p17 h14 h15 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h14 h15 )_t * v ( p16 p17 p5 p6 )_v
C         i1 ( p16 p17 h14 h15 )_ft + = 1 * Sum ( h6 p8 ) * t ( p8 p16 p17 h6 h14 h15 )_t * i2 ( h6 p8 )_f
C             i2 ( h6 p8 )_f + = 1 * f ( h6 p8 )_f
C             i2 ( h6 p8 )_vt + = 1 * Sum ( h12 p11 ) * t ( p11 h12 )_t * v ( h6 h12 p8 p11 )_v
C         i1 ( p16 p17 h14 h15 )_vt + = -1 * Sum ( h9 h10 p7 ) * t ( p7 p16 p17 h9 h10 h14 )_t * i2 ( h9 h10 h15 p7 )_v
C             i2 ( h9 h10 h15 p7 )_v + = 1 * v ( h9 h10 h15 p7 )_v
C             i2 ( h9 h10 h15 p7 )_vt + = -1 * Sum ( p11 ) * t ( p11 h15 )_t * v ( h9 h10 p7 p11 )_v
C         i1 ( p16 p17 h14 h15 )_vt + = -1 * Sum ( h10 p6 p7 ) * t ( p6 p7 p16 h10 h14 h15 )_t * v ( h10 p17 p6 p7 )_v
C         i1 ( p16 p17 h14 h15 )_vt + = 1/4 * Sum ( h11 h12 p7 p8 ) * t ( p7 p8 p16 p17 h11 h12 h14 h15 )_t * v ( h11 h12 p7 p8 )_v
C         i1 ( p16 p17 h14 h15 )_ftt + = 2 * Sum ( h5 ) * t ( p16 p17 h5 h14 )_t * i2 ( h5 h15 )_ft
C             i2 ( h5 h15 )_ft + = 1 * Sum ( p6 ) * t ( p6 h15 )_t * f ( h5 p6 )_f
C             i2 ( h5 h15 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h5 h10 h15 p9 )_v
C             i2 ( h5 h15 )_vt + = -1/2 * Sum ( h12 p9 p10 ) * t ( p9 p10 h12 h15 )_t * v ( h5 h12 p9 p10 )_v
C         i1 ( p16 p17 h14 h15 )_ftt + = 2 * Sum ( p6 ) * t ( p6 p16 h14 h15 )_t * i2 ( p17 p6 )_ft
C             i2 ( p17 p6 )_ft + = 1 * Sum ( h5 ) * t ( p17 h5 )_t * f ( h5 p6 )_f
C             i2 ( p17 p6 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h10 p17 p6 p9 )_v
C             i2 ( p17 p6 )_vt + = -1/2 * Sum ( h11 h12 p10 ) * t ( p10 p17 h11 h12 )_t * v ( h11 h12 p6 p10 )_v
C         i1 ( p16 p17 h14 h15 )_vtt + = -4 * Sum ( h5 ) * t ( p17 h5 )_t * i2 ( h5 p16 h14 h15 )_vt
C             i2 ( h5 p16 h14 h15 )_vt + = 1 * Sum ( h8 p6 ) * t ( p6 p16 h8 h14 )_t * v ( h5 h8 h15 p6 )_v
C             i2 ( h5 p16 h14 h15 )_vt + = 1/4 * Sum ( h10 p6 p7 ) * t ( p6 p7 p16 h10 h14 h15 )_t * v ( h5 h10 p6 p7 )_v
C     i0 ( h3 h4 p1 p2 )_ytv + = 1 * P( 2 ) * Sum ( h13 ) * i1 ( h3 h13 )_yt * v ( h4 h13 p1 p2 )_v
C         i1 ( h3 h13 )_yt + = 1 * Sum ( p5 ) * t ( p5 h13 )_t * y ( h3 p5 )_y
C         i1 ( h3 h13 )_yt + = -1/2 * Sum ( h7 p6 p5 ) * t ( p5 p6 h7 h13 )_t * y ( h3 h7 p5 p6 )_y
C         i1 ( h3 h13 )_yt + = 1/12 * Sum ( h9 h8 p7 p6 p5 ) * t ( p5 p6 p7 h8 h9 h13 )_t * y ( h3 h8 h9 p5 p6 p7 )_y
C         i1 ( h3 h13 )_yt + = -1/144 * Sum ( h11 h10 h9 p8 p7 p6 p5 ) * t ( p5 p6 p7 p8 h9 h10 h11 h13 )_t * y ( h3 h9 h10 h11 p5 p6 p7 p8 )_y
C     i0 ( h3 h4 p1 p2 )_ytf + = 1 * P( 2 ) * Sum ( h5 ) * i1 ( h3 h4 h5 p1 )_yt * f ( h5 p2 )_f
C         i1 ( h3 h4 h5 p1 )_yt + = -1 * Sum ( p6 ) * t ( p6 h5 )_t * y ( h3 h4 p1 p6 )_y
C         i1 ( h3 h4 h5 p1 )_yt + = -1/2 * Sum ( h8 p7 p6 ) * t ( p6 p7 h5 h8 )_t * y ( h3 h4 h8 p1 p6 p7 )_y
C         i1 ( h3 h4 h5 p1 )_yt + = -1/12 * Sum ( h10 h9 p8 p7 p6 ) * t ( p6 p7 p8 h5 h9 h10 )_t * y ( h3 h4 h9 h10 p1 p6 p7 p8 )_y
C     i0 ( h3 h4 p1 p2 )_ytv + = 1 * P( 4 ) * Sum ( h12 h10 ) * i1 ( h3 h12 h10 p1 )_yt * v ( h4 h10 h12 p2 )_v
C         i1 ( h3 h12 h10 p1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h10 )_t * y ( h3 h12 p1 p5 )_y
C         i1 ( h3 h12 h10 p1 )_yt + = 1/2 * Sum ( h7 p6 p5 ) * t ( p5 p6 h7 h10 )_t * y ( h3 h7 h12 p1 p5 p6 )_y
C         i1 ( h3 h12 h10 p1 )_yt + = 1/12 * Sum ( h9 h8 p7 p6 p5 ) * t ( p5 p6 p7 h8 h9 h10 )_t * y ( h3 h8 h9 h12 p1 p5 p6 p7 )_y
C     i0 ( h3 h4 p1 p2 )_ytv + = 1 * Sum ( h10 p12 ) * i1 ( h3 h4 h10 p12 )_yt * v ( h10 p12 p1 p2 )_v
C         i1 ( h3 h4 h10 p12 )_yt + = -1 * Sum ( p5 ) * t ( p5 h10 )_t * y ( h3 h4 p5 p12 )_y
C         i1 ( h3 h4 h10 p12 )_yt + = -1/2 * Sum ( h7 p6 p5 ) * t ( p5 p6 h7 h10 )_t * y ( h3 h4 h7 p5 p6 p12 )_y
C         i1 ( h3 h4 h10 p12 )_yt + = -1/12 * Sum ( h9 h8 p7 p6 p5 ) * t ( p5 p6 p7 h8 h9 h10 )_t * y ( h3 h4 h8 h9 p5 p6 p7 p12 )_y
C     i0 ( h3 h4 p1 p2 )_ytv + = -1 * P( 2 ) * Sum ( h9 h11 p12 ) * i1 ( h3 h4 h9 h11 p1 p12 )_yt * v ( h11 p12 h9 p2 )_v
C         i1 ( h3 h4 h9 h11 p1 p12 )_yt + = -1 * Sum ( p5 ) * t ( p5 h11 )_t * y ( h3 h4 h9 p1 p5 p12 )_y
C         i1 ( h3 h4 h9 h11 p1 p12 )_yt + = 1/2 * Sum ( h7 p6 p5 ) * t ( p5 p6 h7 h11 )_t * y ( h3 h4 h7 h9 p1 p5 p6 p12 )_y
C     i0 ( h3 h4 p1 p2 )_ytv + = -1/2 * P( 2 ) * Sum ( p13 ) * i1 ( p13 p1 )_yt * v ( h3 h4 p2 p13 )_v
C         i1 ( p13 p1 )_yt + = 1 * Sum ( h8 h7 p5 ) * t ( p5 p13 h7 h8 )_t * y ( h7 h8 p1 p5 )_y
C         i1 ( p13 p1 )_yt + = -1/6 * Sum ( h10 h9 h8 p6 p5 ) * t ( p5 p6 p13 h8 h9 h10 )_t * y ( h8 h9 h10 p1 p5 p6 )_y
C         i1 ( p13 p1 )_yt + = 1/72 * Sum ( h12 h11 h10 h9 p7 p6 p5 ) * t ( p5 p6 p7 p13 h9 h10 h11 h12 )_t * y ( h9 h10 h11 h12 p1 p5 p6 p7 )_y
C     i0 ( h3 h4 p1 p2 )_ytv + = 1/4 * Sum ( h13 h12 ) * i1 ( h3 h4 h12 h13 )_yt * v ( h12 h13 p1 p2 )_v
C         i1 ( h3 h4 h12 h13 )_yt + = 1 * Sum ( p6 p5 ) * t ( p5 p6 h12 h13 )_t * y ( h3 h4 p5 p6 )_y
C         i1 ( h3 h4 h12 h13 )_yt + = 1/3 * Sum ( h8 p7 p6 p5 ) * t ( p5 p6 p7 h8 h12 h13 )_t * y ( h3 h4 h8 p5 p6 p7 )_y
C         i1 ( h3 h4 h12 h13 )_yt + = 1/24 * Sum ( h10 h9 p8 p7 p6 p5 ) * t ( p5 p6 p7 p8 h9 h10 h12 h13 )_t * y ( h3 h4 h9 h10 p5 p6 p7 p8 )_y
C         i1 ( h3 h4 h12 h13 )_ytt + = 2 * Sum ( p5 ) * t ( p5 h13 )_t * i2 ( h3 h4 h12 p5 )_yt
C             i2 ( h3 h4 h12 p5 )_yt + = -1 * Sum ( p7 ) * t ( p7 h12 )_t * y ( h3 h4 p5 p7 )_y
C         i1 ( h3 h4 h12 h13 )_ytt + = 2 * Sum ( p10 ) * t ( p10 h12 )_t * i2 ( h3 h4 h13 p10 )_yt
C             i2 ( h3 h4 h13 p10 )_yt + = -1 * Sum ( h7 p6 p5 ) * t ( p5 p6 h7 h13 )_t * y ( h3 h4 h7 p5 p6 p10 )_y
C             i2 ( h3 h4 h13 p10 )_yt + = -1/6 * Sum ( h9 h8 p7 p6 p5 ) * t ( p5 p6 p7 h8 h9 h13 )_t * y ( h3 h4 h8 h9 p5 p6 p7 p10 )_y
C         i1 ( h3 h4 h12 h13 )_ytt + = -1/3 * Sum ( h7 p5 p6 ) * t ( p5 p6 h7 h13 )_t * i2 ( h3 h4 h7 h12 p5 p6 )_yt
C             i2 ( h3 h4 h7 h12 p5 p6 )_yt + = -1 * Sum ( h11 p10 p9 ) * t ( p9 p10 h11 h12 )_t * i3 ( h3 h4 h7 h11 p5 p6 p9 p10 )_y
C                 i3 ( h3 h4 h7 h11 p5 p6 p9 p10 )_y + = 1 * y ( h3 h4 h7 h11 p5 p6 p9 p10 )_y
C                 i3 ( h3 h4 h7 h11 p5 p6 p9 p10 )_y + = 1/4 * y ( h3 h4 h7 h11 p5 p6 p9 p10 )_y
C     i0 ( h3 h4 p1 p2 )_ytv + = 1/2 * Sum ( h12 p11 ) * i1 ( h12 p11 p1 p2 )_yt * v ( h3 h4 h12 p11 )_v
C         i1 ( h12 p11 p1 p2 )_yt + = -1 * Sum ( h8 h7 p5 ) * t ( p5 p11 h7 h8 )_t * y ( h7 h8 h12 p1 p2 p5 )_y
C         i1 ( h12 p11 p1 p2 )_yt + = -1/6 * Sum ( h10 h9 h8 p6 p5 ) * t ( p5 p6 p11 h8 h9 h10 )_t * y ( h8 h9 h10 h12 p1 p2 p5 p6 )_y
C     i0 ( h3 h4 p1 p2 )_ytv + = 1/2 * P( 4 ) * Sum ( p11 p12 ) * i1 ( h3 p11 p1 p12 )_yt * v ( h4 p12 p2 p11 )_v
C         i1 ( h3 p11 p1 p12 )_yt + = 1 * Sum ( h8 h7 p5 ) * t ( p5 p11 h7 h8 )_t * y ( h3 h7 h8 p1 p5 p12 )_y
C         i1 ( h3 p11 p1 p12 )_yt + = 1/6 * Sum ( h10 h9 h8 p6 p5 ) * t ( p5 p6 p11 h8 h9 h10 )_t * y ( h3 h8 h9 h10 p1 p5 p6 p12 )_y
C     i0 ( h3 h4 p1 p2 )_vty + = 1/4 * P( 2 ) * Sum ( p18 p13 h15 h17 h16 ) * y ( h3 h15 h16 h17 p1 p2 p13 p18 )_y * i1 ( h4 p13 p18 h15 h16 h17 )_vt
C         i1 ( h3 p13 p18 h15 h16 h17 )_vt + = 1 * Sum ( h8 ) * t ( p13 p18 h8 h15 )_t * i2 ( h3 h8 h16 h17 )_v
C             i2 ( h3 h8 h16 h17 )_v + = 1 * v ( h3 h8 h16 h17 )_v
C             i2 ( h3 h8 h16 h17 )_vt + = 2 * Sum ( p9 ) * t ( p9 h17 )_t * v ( h3 h8 h16 p9 )_v
C             i2 ( h3 h8 h16 h17 )_vt + = 1/3 * Sum ( p9 p10 ) * t ( p9 p10 h16 h17 )_t * i3 ( h3 h8 p9 p10 )_v
C                 i3 ( h3 h8 p9 p10 )_v + = 1 * v ( h3 h8 p9 p10 )_v
C                 i3 ( h3 h8 p9 p10 )_v + = 1/2 * v ( h3 h8 p9 p10 )_v
C         i1 ( h3 p13 p18 h15 h16 h17 )_vt + = 2 * Sum ( p6 ) * t ( p6 p18 h15 h17 )_t * i2 ( h3 p13 h16 p6 )_v
C             i2 ( h3 p13 h16 p6 )_v + = 1 * v ( h3 p13 h16 p6 )_v
C             i2 ( h3 p13 h16 p6 )_vt + = -1 * Sum ( h10 ) * t ( p13 h10 )_t * v ( h3 h10 h16 p6 )_v
C             i2 ( h3 p13 h16 p6 )_vt + = -1 * Sum ( p9 ) * t ( p9 h16 )_t * v ( h3 p13 p6 p9 )_v
C             i2 ( h3 p13 h16 p6 )_vt + = -2/3 * Sum ( h12 p10 ) * t ( p10 p13 h12 h16 )_t * i3 ( h3 h12 p6 p10 )_v
C                 i3 ( h3 h12 p6 p10 )_v + = 1 * v ( h3 h12 p6 p10 )_v
C                 i3 ( h3 h12 p6 p10 )_v + = 1/2 * v ( h3 h12 p6 p10 )_v
C         i1 ( h3 p13 p18 h15 h16 h17 )_ft + = -1/3 * Sum ( p6 ) * t ( p6 p13 p18 h15 h16 h17 )_t * i2 ( h3 p6 )_f
C             i2 ( h3 p6 )_f + = 1 * f ( h3 p6 )_f
C             i2 ( h3 p6 )_vt + = 1 * Sum ( h12 p11 ) * t ( p11 h12 )_t * v ( h3 h12 p6 p11 )_v
C         i1 ( h3 p13 p18 h15 h16 h17 )_vt + = 1 * Sum ( h10 p7 ) * t ( p7 p13 p18 h10 h15 h17 )_t * i2 ( h3 h10 h16 p7 )_v
C             i2 ( h3 h10 h16 p7 )_v + = 1 * v ( h3 h10 h16 p7 )_v
C             i2 ( h3 h10 h16 p7 )_vt + = -1 * Sum ( p11 ) * t ( p11 h16 )_t * v ( h3 h10 p7 p11 )_v
C         i1 ( h3 p13 p18 h15 h16 h17 )_vt + = -1/3 * Sum ( p6 p7 ) * t ( p6 p7 p18 h15 h16 h17 )_t * i2 ( h3 p13 p6 p7 )_v
C             i2 ( h3 p13 p6 p7 )_v + = 1 * v ( h3 p13 p6 p7 )_v
C             i2 ( h3 p13 p6 p7 )_vt + = -1 * Sum ( h12 ) * t ( p13 h12 )_t * v ( h3 h12 p6 p7 )_v
C         i1 ( h3 p13 p18 h15 h16 h17 )_vt + = 1/6 * Sum ( h12 p7 p8 ) * t ( p7 p8 p13 p18 h12 h15 h16 h17 )_t * v ( h3 h12 p7 p8 )_v
C         i1 ( h3 p13 p18 h15 h16 h17 )_vttt + = -1 * Sum ( h12 ) * t ( p13 p18 h12 h16 )_t * i2 ( h3 h12 h15 h17 )_vtt
C             i2 ( h3 h12 h15 h17 )_vtt + = 1 * Sum ( p5 ) * t ( p5 h15 )_t * i3 ( h3 h12 h17 p5 )_vt
C                 i3 ( h3 h12 h17 p5 )_vt + = 1 * Sum ( p7 ) * t ( p7 h17 )_t * v ( h3 h12 p5 p7 )_v
C         i1 ( h3 p13 p18 h15 h16 h17 )_vttt + = -2 * Sum ( p10 ) * t ( p10 p13 h16 h17 )_t * i2 ( h3 p18 h15 p10 )_vtt
C             i2 ( h3 p18 h15 p10 )_vtt + = 1 * Sum ( h8 ) * t ( p18 h8 )_t * i3 ( h3 h8 h15 p10 )_vt
C                 i3 ( h3 h8 h15 p10 )_vt + = 1 * Sum ( p5 ) * t ( p5 h15 )_t * v ( h3 h8 p5 p10 )_v
C     i0 ( h3 h4 p1 p2 )_vty + = 1/4 * P( 2 ) * Sum ( p5 p17 p15 h16 h13 ) * y ( h3 h4 h13 h16 p1 p5 p15 p17 )_y * i1 ( p5 p15 p17 h13 h16 p2 )_vt
C         i1 ( p5 p15 p17 h13 h16 p1 )_vt + = -1 * Sum ( p6 ) * t ( p5 p6 h13 h16 )_t * i2 ( p15 p17 p1 p6 )_v
C             i2 ( p15 p17 p1 p6 )_v + = 1 * v ( p15 p17 p1 p6 )_v
C             i2 ( p15 p17 p1 p6 )_vt + = 1/2 * Sum ( h11 h12 ) * t ( p15 p17 h11 h12 )_t * v ( h11 h12 p1 p6 )_v
C         i1 ( p5 p15 p17 h13 h16 p1 )_vt + = -1/3 * Sum ( h9 h10 ) * t ( p5 p15 p17 h9 h10 h16 )_t * i2 ( h9 h10 h13 p1 )_v
C             i2 ( h9 h10 h13 p1 )_v + = 1 * v ( h9 h10 h13 p1 )_v
C             i2 ( h9 h10 h13 p1 )_vt + = -1 * Sum ( p11 ) * t ( p11 h13 )_t * v ( h9 h10 p1 p11 )_v
C         i1 ( p5 p15 p17 h13 h16 p1 )_vt + = -1 * Sum ( h10 p7 ) * t ( p5 p7 p17 h10 h13 h16 )_t * i2 ( h10 p15 p1 p7 )_v
C             i2 ( h10 p15 p1 p7 )_v + = 1 * v ( h10 p15 p1 p7 )_v
C             i2 ( h10 p15 p1 p7 )_vt + = -1 * Sum ( h12 ) * t ( p15 h12 )_t * v ( h10 h12 p1 p7 )_v
C         i1 ( p5 p15 p17 h13 h16 p1 )_vt + = -1/6 * Sum ( h11 h12 p8 ) * t ( p5 p8 p15 p17 h11 h12 h13 h16 )_t * v ( h11 h12 p1 p8 )_v
C     i0 ( h3 h4 p1 p2 )_vty + = 1/12 * Sum ( p5 h8 h9 h10 ) * y ( h8 h9 h10 p1 p2 p5 )_y * i1 ( h3 h4 p5 h8 h9 h10 )_vt
C         i1 ( h3 h4 p5 h8 h9 h10 )_vt + = 1 * Sum ( p6 p7 ) * t ( p5 p6 p7 h8 h9 h10 )_t * v ( h3 h4 p6 p7 )_v
C     i0 ( h3 h4 p1 p2 )_ytv + = 1/4 * P( 4 ) * Sum ( p13 h14 ) * i1 ( h3 p13 h14 p1 )_yt * v ( h4 h14 p2 p13 )_v
C         i1 ( h3 p13 h14 p1 )_yt + = 1 * Sum ( h9 h8 p6 p5 ) * t ( p5 p6 p13 h8 h9 h14 )_t * y ( h3 h8 h9 p1 p5 p6 )_y
C         i1 ( h3 p13 h14 p1 )_yt + = 1/9 * Sum ( h11 h10 h9 p7 p6 p5 ) * t ( p5 p6 p7 p13 h9 h10 h11 h14 )_t * y ( h3 h9 h10 h11 p1 p5 p6 p7 )_y
C         i1 ( h3 p13 h14 p1 )_ytt + = -4 * Sum ( h10 ) * t ( p13 h10 )_t * i2 ( h3 h10 h14 p1 )_yt
C             i2 ( h3 h10 h14 p1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h14 )_t * y ( h3 h10 p1 p7 )_y
C             i2 ( h3 h10 h14 p1 )_yt + = 1/2 * Sum ( h7 p6 p5 ) * t ( p5 p6 h7 h14 )_t * y ( h3 h7 h10 p1 p5 p6 )_y
C             i2 ( h3 h10 h14 p1 )_yt + = 1/12 * Sum ( h9 h8 p7 p6 p5 ) * t ( p5 p6 p7 h8 h9 h14 )_t * y ( h3 h8 h9 h10 p1 p5 p6 p7 )_y
C         i1 ( h3 p13 h14 p1 )_ytt + = -2 * Sum ( h7 h8 p5 ) * t ( p5 p13 h7 h8 )_t * i2 ( h3 h7 h8 h14 p1 p5 )_yt
C             i2 ( h3 h7 h8 h14 p1 p5 )_yt + = 1 * Sum ( p9 ) * t ( p9 h14 )_t * y ( h3 h7 h8 p1 p5 p9 )_y
C             i2 ( h3 h7 h8 h14 p1 p5 )_yt + = -5/18 * Sum ( h11 p10 p9 ) * t ( p9 p10 h11 h14 )_t * i3 ( h3 h7 h8 h11 p1 p5 p9 p10 )_y
C                 i3 ( h3 h7 h8 h11 p1 p5 p9 p10 )_y + = 1 * y ( h3 h7 h8 h11 p1 p5 p9 p10 )_y
C                 i3 ( h3 h7 h8 h11 p1 p5 p9 p10 )_y + = 4/5 * y ( h3 h7 h8 h11 p1 p5 p9 p10 )_y
C         i1 ( h3 p13 h14 p1 )_ytt + = -1/3 * Sum ( h8 h9 h10 p5 p6 ) * t ( p5 p6 p13 h8 h9 h10 )_t * i2 ( h3 h8 h9 h10 h14 p1 p5 p6 )_yt
C             i2 ( h3 h8 h9 h10 h14 p1 p5 p6 )_yt + = 1 * Sum ( p11 ) * t ( p11 h14 )_t * y ( h3 h8 h9 h10 p1 p5 p6 p11 )_y
C     i0 ( h3 h4 p1 p2 )_vty + = 1/96 * Sum ( p5 p6 h9 h10 h11 h12 ) * y ( h9 h10 h11 h12 p1 p2 p5 p6 )_y * i1 ( h3 h4 p5 p6 h9 h10 h11 h12 )_vt
C         i1 ( h3 h4 p5 p6 h9 h10 h11 h12 )_vt + = 1 * Sum ( p7 p8 ) * t ( p5 p6 p7 p8 h9 h10 h11 h12 )_t * v ( h3 h4 p7 p8 )_v
C     i0 ( h3 h4 p1 p2 )_yttv + = 1/2 * P( 2 ) * Sum ( h8 h12 h13 ) * i1 ( h3 h4 h8 h12 h13 p1 )_ytt * v ( h12 h13 h8 p2 )_v
C         i1 ( h3 h4 h8 h12 h13 p1 )_ytt + = 1 * Sum ( p5 ) * t ( p5 h12 )_t * i2 ( h3 h4 h8 h13 p1 p5 )_yt
C             i2 ( h3 h4 h8 h13 p1 p5 )_yt + = -1 * Sum ( p7 ) * t ( p7 h13 )_t * y ( h3 h4 h8 p1 p5 p7 )_y
C         i1 ( h3 h4 h8 h12 h13 p1 )_ytt + = -1 * Sum ( p9 ) * t ( p9 h13 )_t * i2 ( h3 h4 h8 h12 p1 p9 )_yt
C             i2 ( h3 h4 h8 h12 p1 p9 )_yt + = -1 * Sum ( h7 p6 p5 ) * t ( p5 p6 h7 h12 )_t * y ( h3 h4 h7 h8 p1 p5 p6 p9 )_y
C     i0 ( h3 h4 p1 p2 )_yttv + = -1/2 * Sum ( p13 p14 ) * i1 ( p13 p14 p1 p2 )_ytt * v ( h3 h4 p13 p14 )_v
C         i1 ( p13 p14 p1 p2 )_ytt + = 1 * Sum ( h11 ) * t ( p14 h11 )_t * i2 ( h11 p13 p1 p2 )_yt
C             i2 ( h11 p13 p1 p2 )_yt + = -1 * Sum ( h8 h7 p5 ) * t ( p5 p13 h7 h8 )_t * y ( h7 h8 h11 p1 p2 p5 )_y
C             i2 ( h11 p13 p1 p2 )_yt + = -1/6 * Sum ( h10 h9 h8 p6 p5 ) * t ( p5 p6 p13 h8 h9 h10 )_t * y ( h8 h9 h10 h11 p1 p2 p5 p6 )_y
C         i1 ( p13 p14 p1 p2 )_ytt + = -1/6 * Sum ( h7 h8 p5 ) * t ( p5 p13 h7 h8 )_t * i2 ( h7 h8 p14 p1 p2 p5 )_yt
C             i2 ( h7 h8 p14 p1 p2 p5 )_yt + = -1 * Sum ( h12 h11 p9 ) * t ( p9 p14 h11 h12 )_t * i3 ( h7 h8 h11 h12 p1 p2 p5 p9 )_y
C                 i3 ( h7 h8 h11 h12 p1 p2 p5 p9 )_y + = 1 * y ( h7 h8 h11 h12 p1 p2 p5 p9 )_y
C                 i3 ( h7 h8 h11 h12 p1 p2 p5 p9 )_y + = 1/4 * y ( h7 h8 h11 h12 p1 p2 p5 p9 )_y
C     i0 ( h3 h4 p1 p2 )_yttv + = -1/2 * P( 2 ) * Sum ( p15 h13 h14 ) * i1 ( h3 h4 p15 h13 h14 p1 )_ytt * v ( h13 h14 p2 p15 )_v
C         i1 ( h3 h4 p15 h13 h14 p1 )_ytt + = 1 * t ( p15 h14 )_t * i2 ( h3 h4 h13 p1 )_yt
C             i2 ( h3 h4 h13 p1 )_yt + = -1 * Sum ( h7 p6 p5 ) * t ( p5 p6 h7 h13 )_t * y ( h3 h4 h7 p1 p5 p6 )_y
C             i2 ( h3 h4 h13 p1 )_yt + = 1/6 * Sum ( h9 h8 p7 p6 p5 ) * t ( p5 p6 p7 h8 h9 h13 )_t * y ( h3 h4 h8 h9 p1 p5 p6 p7 )_y
C         i1 ( h3 h4 p15 h13 h14 p1 )_ytt + = -1/2 * Sum ( h11 p9 ) * t ( p9 p15 h11 h14 )_t * i2 ( h3 h4 h11 h13 p1 p9 )_yt
C             i2 ( h3 h4 h11 h13 p1 p9 )_yt + = 1 * Sum ( h7 p5 p6 ) * t ( p5 p6 h7 h13 )_t * i3 ( h3 h4 h7 h11 p1 p5 p6 p9 )_y
C                 i3 ( h3 h4 h7 h11 p1 p5 p6 p9 )_y + = 1 * y ( h3 h4 h7 h11 p1 p5 p6 p9 )_y
C         i1 ( h3 h4 p15 h13 h14 p1 )_yttt + = 1 * Sum ( h6 ) * t ( p15 h6 )_t * i2 ( h3 h4 h6 h13 h14 p1 )_ytt
C             i2 ( h3 h4 h6 h13 h14 p1 )_ytt + = 1 * Sum ( p7 ) * t ( p7 h13 )_t * i3 ( h3 h4 h6 h14 p1 p7 )_yt
C                 i3 ( h3 h4 h6 h14 p1 p7 )_yt + = -1 * Sum ( p9 ) * t ( p9 h14 )_t * y ( h3 h4 h6 p1 p7 p9 )_y
C                 i3 ( h3 h4 h6 h14 p1 p7 )_yt + = 1 * Sum ( h11 p10 p9 ) * t ( p9 p10 h11 h14 )_t * y ( h3 h4 h6 h11 p1 p7 p9 p10 )_y
C         i1 ( h3 h4 p15 h13 h14 p1 )_yttt + = -1/2 * Sum ( p5 ) * t ( p5 h13 )_t * i2 ( h3 h4 p15 h14 p1 p5 )_ytt
C             i2 ( h3 h4 p15 h14 p1 p5 )_ytt + = 1 * Sum ( h11 h12 p9 ) * t ( p9 p15 h11 h12 )_t * i3 ( h3 h4 h11 h12 h14 p1 p5 p9 )_yt
C                 i3 ( h3 h4 h11 h12 h14 p1 p5 p9 )_yt + = -1 * Sum ( p7 ) * t ( p7 h14 )_t * y ( h3 h4 h11 h12 p1 p5 p7 p9 )_y
C     i0 ( h3 h4 p1 p2 )_yttv + = -1/2 * P( 2 ) * Sum ( p13 h12 p11 ) * i1 ( h3 h4 p13 h12 p1 p11 )_ytt * v ( h12 p11 p2 p13 )_v
C         i1 ( h3 h4 p13 h12 p1 p11 )_ytt + = 1 * Sum ( h10 ) * t ( p13 h10 )_t * i2 ( h3 h4 h10 h12 p1 p11 )_yt
C             i2 ( h3 h4 h10 h12 p1 p11 )_yt + = -1 * Sum ( h7 p6 p5 ) * t ( p5 p6 h7 h12 )_t * y ( h3 h4 h7 h10 p1 p5 p6 p11 )_y
C         i1 ( h3 h4 p13 h12 p1 p11 )_ytt + = 1 * Sum ( h7 h8 p5 ) * t ( p5 p13 h7 h8 )_t * i2 ( h3 h4 h7 h8 h12 p1 p5 p11 )_yt
C             i2 ( h3 h4 h7 h8 h12 p1 p5 p11 )_yt + = -1 * Sum ( p9 ) * t ( p9 h12 )_t * y ( h3 h4 h7 h8 p1 p5 p9 p11 )_y
      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_v2
      INTEGER k_v2_offset
      INTEGER d_y1
      INTEGER k_y1_offset
      INTEGER d_i1
      INTEGER k_i1_offset
      INTEGER d_y2
      INTEGER k_y2_offset
      INTEGER d_y3
      INTEGER k_y3_offset
      INTEGER d_y4
      INTEGER k_y4_offset
      INTEGER d_f1
      INTEGER k_f1_offset
      INTEGER l_i1_offset
      INTEGER size_i1
      INTEGER d_t1
      INTEGER k_t1_offset
      INTEGER d_i2
      INTEGER k_i2_offset
      INTEGER d_t2
      INTEGER k_t2_offset
      INTEGER l_i2_offset
      INTEGER size_i2
      INTEGER d_t3
      INTEGER k_t3_offset
      INTEGER d_i3
      INTEGER k_i3_offset
      INTEGER l_i3_offset
      INTEGER size_i3
      INTEGER d_t4
      INTEGER k_t4_offset
      INTEGER d_i4
      INTEGER k_i4_offset
      INTEGER l_i4_offset
      INTEGER size_i4
      CHARACTER*255 filename
c#if !defined(CCSDTQ)
c      CALL ERRQUIT('CCSDTQ not compiled',0,CAPMIS_ERR)
c      RETURN
c      END
c#else
      CALL ccsdtq_lambda2_1(d_v2,k_v2_offset,d_i0,k_i0_offset)
      CALL OFFSET_ccsdtq_lambda2_2_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdtq_lambda2_2_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdtq_lambda2_2_1(d_f1,k_f1_offset,d_i1,k_i1_offset)
      CALL ccsdtq_lambda2_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i1,k_i
     &1_offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdtq_lambda2_2(d_y1,k_y1_offset,d_i1,k_i1_offset,d_i0,k_i0_
     &offset)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_3_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdtq_lambda2_3_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdtq_lambda2_3_1(d_v2,k_v2_offset,d_i1,k_i1_offset)
      CALL ccsdtq_lambda2_3_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i1,k_i
     &1_offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdtq_lambda2_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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL ccsdtq_lambda2_4(d_y1,k_y1_offset,d_v2,k_v2_offset,d_i0,k_i0_
     &offset)
      CALL OFFSET_ccsdtq_lambda2_5_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdtq_lambda2_5_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdtq_lambda2_5_1(d_f1,k_f1_offset,d_i1,k_i1_offset)
      CALL OFFSET_ccsdtq_lambda2_5_2_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_5_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_5_2_1(d_f1,k_f1_offset,d_i2,k_i2_offset)
      CALL ccsdtq_lambda2_5_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,k
     &_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_5_2(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k_i
     &1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL ccsdtq_lambda2_5_3(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i1,k_i
     &1_offset)
      CALL ccsdtq_lambda2_5_4(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1,k_i
     &1_offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdtq_lambda2_5(d_y2,k_y2_offset,d_i1,k_i1_offset,d_i0,k_i0_
     &offset)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_6_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdtq_lambda2_6_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdtq_lambda2_6_1(d_f1,k_f1_offset,d_i1,k_i1_offset)
      CALL ccsdtq_lambda2_6_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i1,k_i
     &1_offset)
      CALL ccsdtq_lambda2_6_3(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1,k_i
     &1_offset)
      CALL OFFSET_ccsdtq_lambda2_6_4_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_6_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_6_4_1(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,k
     &_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_6_4(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k_i
     &1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdtq_lambda2_6(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_7_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdtq_lambda2_7_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdtq_lambda2_7_1(d_v2,k_v2_offset,d_i1,k_i1_offset)
      CALL OFFSET_ccsdtq_lambda2_7_2_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_7_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_7_2_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
      CALL ccsdtq_lambda2_7_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,k
     &_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_7_2(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k_i
     &1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL ccsdtq_lambda2_7_3(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1,k_i
     &1_offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdtq_lambda2_7(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_8_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdtq_lambda2_8_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdtq_lambda2_8_1(d_v2,k_v2_offset,d_i1,k_i1_offset)
      CALL ccsdtq_lambda2_8_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i1,k_i
     &1_offset)
      CALL ccsdtq_lambda2_8_3(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1,k_i
     &1_offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdtq_lambda2_8(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL ccsdtq_lambda2_9(d_y2,k_y2_offset,d_v2,k_v2_offset,d_i0,k_i0_
     &offset)
      CALL OFFSET_ccsdtq_lambda2_10_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdtq_lambda2_10_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdtq_lambda2_10_1(d_f1,k_f1_offset,d_i1,k_i1_offset)
      CALL OFFSET_ccsdtq_lambda2_10_2_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_10_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_10_2_1(d_f1,k_f1_offset,d_i2,k_i2_offset)
      CALL OFFSET_ccsdtq_lambda2_10_2_2_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdtq_lambda2_10_2_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdtq_lambda2_10_2_2_1(d_f1,k_f1_offset,d_i3,k_i3_offset)
      CALL ccsdtq_lambda2_10_2_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i
     &3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdtq_lambda2_10_2_2(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,
     &k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL ccsdtq_lambda2_10_2_3(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
     &k_i2_offset)
      CALL ccsdtq_lambda2_10_2_4(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i2,
     &k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_10_2(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_10_3_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_10_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_10_3_1(d_f1,k_f1_offset,d_i2,k_i2_offset)
      CALL ccsdtq_lambda2_10_3_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
     &k_i2_offset)
      CALL ccsdtq_lambda2_10_3_3(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i2,
     &k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_10_3(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL ccsdtq_lambda2_10_4(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i1,k_
     &i1_offset)
      CALL OFFSET_ccsdtq_lambda2_10_5_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_10_5_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_10_5_1(d_f1,k_f1_offset,d_i2,k_i2_offset)
      CALL ccsdtq_lambda2_10_5_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
     &k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_10_5(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL ccsdtq_lambda2_10_6(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1,k_
     &i1_offset)
      CALL ccsdtq_lambda2_10_7(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1,k_
     &i1_offset)
      CALL ccsdtq_lambda2_10_8(d_t3,k_t3_offset,d_v2,k_v2_offset,d_i1,k_
     &i1_offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdtq_lambda2_10(d_y3,k_y3_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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_11_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdtq_lambda2_11_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdtq_lambda2_11_1(d_v2,k_v2_offset,d_i1,k_i1_offset)
      CALL OFFSET_ccsdtq_lambda2_11_2_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_11_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_11_2_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
      CALL OFFSET_ccsdtq_lambda2_11_2_2_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdtq_lambda2_11_2_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdtq_lambda2_11_2_2_1(d_v2,k_v2_offset,d_i3,k_i3_offset)
      CALL ccsdtq_lambda2_11_2_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i
     &3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdtq_lambda2_11_2_2(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,
     &k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL ccsdtq_lambda2_11_2_3(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i2,
     &k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_11_2(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_11_3_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_11_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_11_3_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
      CALL ccsdtq_lambda2_11_3_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
     &k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_11_3(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_11_4_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_11_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_11_4_1(d_f1,k_f1_offset,d_i2,k_i2_offset)
      CALL ccsdtq_lambda2_11_4_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
     &k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_11_4(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_11_5_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_11_5_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_11_5_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
      CALL ccsdtq_lambda2_11_5_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
     &k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_11_5(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL ccsdtq_lambda2_11_6(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1,k_
     &i1_offset)
      CALL ccsdtq_lambda2_11_7(d_t3,k_t3_offset,d_v2,k_v2_offset,d_i1,k_
     &i1_offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdtq_lambda2_11(d_y3,k_y3_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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_12_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdtq_lambda2_12_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdtq_lambda2_12_1(d_v2,k_v2_offset,d_i1,k_i1_offset)
      CALL ccsdtq_lambda2_12_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i1,k_
     &i1_offset)
      CALL OFFSET_ccsdtq_lambda2_12_3_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_12_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_12_3_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
      CALL ccsdtq_lambda2_12_3_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
     &k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_12_3(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL ccsdtq_lambda2_12_4(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1,k_
     &i1_offset)
      CALL ccsdtq_lambda2_12_5(d_t3,k_t3_offset,d_v2,k_v2_offset,d_i1,k_
     &i1_offset)
      CALL OFFSET_ccsdtq_lambda2_12_6_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_12_6_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_12_6_1(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
     &k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_12_6(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_12_7_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_12_7_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_12_7_1(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i2,
     &k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_12_7(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdtq_lambda2_12(d_y3,k_y3_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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_13_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdtq_lambda2_13_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdtq_lambda2_13_1(d_v2,k_v2_offset,d_i1,k_i1_offset)
      CALL OFFSET_ccsdtq_lambda2_13_2_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_13_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_13_2_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
      CALL OFFSET_ccsdtq_lambda2_13_2_2_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdtq_lambda2_13_2_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdtq_lambda2_13_2_2_1(d_v2,k_v2_offset,d_i3,k_i3_offset)
      CALL OFFSET_ccsdtq_lambda2_13_2_2_2_1(l_i4_offset,k_i4_offset,size
     &_i4)
      CALL TCE_FILENAME('ccsdtq_lambda2_13_2_2_2_1_i4',filename)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL ccsdtq_lambda2_13_2_2_2_1(d_v2,k_v2_offset,d_i4,k_i4_offset)
      CALL ccsdtq_lambda2_13_2_2_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d
     &_i4,k_i4_offset)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL ccsdtq_lambda2_13_2_2_2(d_t1,k_t1_offset,d_i4,k_i4_offset,d_i
     &3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL ccsdtq_lambda2_13_2_2_3(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i
     &3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdtq_lambda2_13_2_2(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,
     &k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_13_2_3_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdtq_lambda2_13_2_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdtq_lambda2_13_2_3_1(d_v2,k_v2_offset,d_i3,k_i3_offset)
      CALL ccsdtq_lambda2_13_2_3_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i
     &3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdtq_lambda2_13_2_3(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,
     &k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL ccsdtq_lambda2_13_2_4(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i2,
     &k_i2_offset)
      CALL OFFSET_ccsdtq_lambda2_13_2_5_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdtq_lambda2_13_2_5_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdtq_lambda2_13_2_5_1(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i
     &3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdtq_lambda2_13_2_5(d_t2,k_t2_offset,d_i3,k_i3_offset,d_i2,
     &k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_13_2(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_13_3_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_13_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_13_3_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
      CALL ccsdtq_lambda2_13_3_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
     &k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_13_3(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_13_4_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_13_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_13_4_1(d_f1,k_f1_offset,d_i2,k_i2_offset)
      CALL OFFSET_ccsdtq_lambda2_13_4_2_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdtq_lambda2_13_4_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdtq_lambda2_13_4_2_1(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i
     &3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdtq_lambda2_13_4_2(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,
     &k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_13_4(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_13_5_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_13_5_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_13_5_1(d_f1,k_f1_offset,d_i2,k_i2_offset)
      CALL OFFSET_ccsdtq_lambda2_13_5_2_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdtq_lambda2_13_5_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdtq_lambda2_13_5_2_1(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i
     &3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdtq_lambda2_13_5_2(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,
     &k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_13_5(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_13_6_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_13_6_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_13_6_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
      CALL OFFSET_ccsdtq_lambda2_13_6_2_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdtq_lambda2_13_6_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdtq_lambda2_13_6_2_1(d_v2,k_v2_offset,d_i3,k_i3_offset)
      CALL ccsdtq_lambda2_13_6_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i
     &3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdtq_lambda2_13_6_2(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,
     &k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL ccsdtq_lambda2_13_6_3(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i2,
     &k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_13_6(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_13_7_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_13_7_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_13_7_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
      CALL ccsdtq_lambda2_13_7_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
     &k_i2_offset)
      CALL ccsdtq_lambda2_13_7_3(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i2,
     &k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_13_7(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL ccsdtq_lambda2_13_8(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1,k_
     &i1_offset)
      CALL OFFSET_ccsdtq_lambda2_13_9_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_13_9_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_13_9_1(d_f1,k_f1_offset,d_i2,k_i2_offset)
      CALL ccsdtq_lambda2_13_9_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
     &k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_13_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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_13_10_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdtq_lambda2_13_10_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_13_10_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
      CALL ccsdtq_lambda2_13_10_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2
     &,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_13_10(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL ccsdtq_lambda2_13_11(d_t3,k_t3_offset,d_v2,k_v2_offset,d_i1,k
     &_i1_offset)
      CALL ccsdtq_lambda2_13_12(d_t4,k_t4_offset,d_v2,k_v2_offset,d_i1,k
     &_i1_offset)
      CALL OFFSET_ccsdtq_lambda2_13_13_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdtq_lambda2_13_13_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_13_13_1(d_t1,k_t1_offset,d_f1,k_f1_offset,d_i2
     &,k_i2_offset)
      CALL ccsdtq_lambda2_13_13_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2
     &,k_i2_offset)
      CALL ccsdtq_lambda2_13_13_3(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i2
     &,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_13_13(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_13_14_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdtq_lambda2_13_14_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_13_14_1(d_t1,k_t1_offset,d_f1,k_f1_offset,d_i2
     &,k_i2_offset)
      CALL ccsdtq_lambda2_13_14_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2
     &,k_i2_offset)
      CALL ccsdtq_lambda2_13_14_3(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i2
     &,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_13_14(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_13_15_1(l_i2_offset,k_i2_offset,size_i2
     &)
      CALL TCE_FILENAME('ccsdtq_lambda2_13_15_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_13_15_1(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i2
     &,k_i2_offset)
      CALL ccsdtq_lambda2_13_15_2(d_t3,k_t3_offset,d_v2,k_v2_offset,d_i2
     &,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_13_15(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k
     &_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdtq_lambda2_13(d_y4,k_y4_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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_14_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdtq_lambda2_14_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdtq_lambda2_14_1(d_t1,k_t1_offset,d_y1,k_y1_offset,d_i1,k_
     &i1_offset)
      CALL ccsdtq_lambda2_14_2(d_t2,k_t2_offset,d_y2,k_y2_offset,d_i1,k_
     &i1_offset)
      CALL ccsdtq_lambda2_14_3(d_t3,k_t3_offset,d_y3,k_y3_offset,d_i1,k_
     &i1_offset)
      CALL ccsdtq_lambda2_14_4(d_t4,k_t4_offset,d_y4,k_y4_offset,d_i1,k_
     &i1_offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdtq_lambda2_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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_15_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdtq_lambda2_15_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdtq_lambda2_15_1(d_t1,k_t1_offset,d_y2,k_y2_offset,d_i1,k_
     &i1_offset)
      CALL ccsdtq_lambda2_15_2(d_t2,k_t2_offset,d_y3,k_y3_offset,d_i1,k_
     &i1_offset)
      CALL ccsdtq_lambda2_15_3(d_t3,k_t3_offset,d_y4,k_y4_offset,d_i1,k_
     &i1_offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdtq_lambda2_15(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_16_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdtq_lambda2_16_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdtq_lambda2_16_1(d_t1,k_t1_offset,d_y2,k_y2_offset,d_i1,k_
     &i1_offset)
      CALL ccsdtq_lambda2_16_2(d_t2,k_t2_offset,d_y3,k_y3_offset,d_i1,k_
     &i1_offset)
      CALL ccsdtq_lambda2_16_3(d_t3,k_t3_offset,d_y4,k_y4_offset,d_i1,k_
     &i1_offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdtq_lambda2_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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_17_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdtq_lambda2_17_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdtq_lambda2_17_1(d_t1,k_t1_offset,d_y2,k_y2_offset,d_i1,k_
     &i1_offset)
      CALL ccsdtq_lambda2_17_2(d_t2,k_t2_offset,d_y3,k_y3_offset,d_i1,k_
     &i1_offset)
      CALL ccsdtq_lambda2_17_3(d_t3,k_t3_offset,d_y4,k_y4_offset,d_i1,k_
     &i1_offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdtq_lambda2_17(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_18_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdtq_lambda2_18_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdtq_lambda2_18_1(d_t1,k_t1_offset,d_y3,k_y3_offset,d_i1,k_
     &i1_offset)
      CALL ccsdtq_lambda2_18_2(d_t2,k_t2_offset,d_y4,k_y4_offset,d_i1,k_
     &i1_offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdtq_lambda2_18(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_19_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdtq_lambda2_19_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdtq_lambda2_19_1(d_t2,k_t2_offset,d_y2,k_y2_offset,d_i1,k_
     &i1_offset)
      CALL ccsdtq_lambda2_19_2(d_t3,k_t3_offset,d_y3,k_y3_offset,d_i1,k_
     &i1_offset)
      CALL ccsdtq_lambda2_19_3(d_t4,k_t4_offset,d_y4,k_y4_offset,d_i1,k_
     &i1_offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdtq_lambda2_19(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_20_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdtq_lambda2_20_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdtq_lambda2_20_1(d_t2,k_t2_offset,d_y2,k_y2_offset,d_i1,k_
     &i1_offset)
      CALL ccsdtq_lambda2_20_2(d_t3,k_t3_offset,d_y3,k_y3_offset,d_i1,k_
     &i1_offset)
      CALL ccsdtq_lambda2_20_3(d_t4,k_t4_offset,d_y4,k_y4_offset,d_i1,k_
     &i1_offset)
      CALL OFFSET_ccsdtq_lambda2_20_4_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_20_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_20_4_1(d_t1,k_t1_offset,d_y2,k_y2_offset,d_i2,
     &k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_20_4(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_20_5_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_20_5_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_20_5_1(d_t2,k_t2_offset,d_y3,k_y3_offset,d_i2,
     &k_i2_offset)
      CALL ccsdtq_lambda2_20_5_2(d_t3,k_t3_offset,d_y4,k_y4_offset,d_i2,
     &k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_20_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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_20_6_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_20_6_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdtq_lambda2_20_6_1_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdtq_lambda2_20_6_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdtq_lambda2_20_6_1_1(d_y4,k_y4_offset,d_i3,k_i3_offset)
      CALL ccsdtq_lambda2_20_6_1_2(d_y4,k_y4_offset,d_i3,k_i3_offset)
      CALL ccsdtq_lambda2_20_6_1_3(d_y4,k_y4_offset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdtq_lambda2_20_6_1(d_t2,k_t2_offset,d_i3,k_i3_offset,d_i2,
     &k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_20_6(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdtq_lambda2_20(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_21_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdtq_lambda2_21_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdtq_lambda2_21_1(d_t2,k_t2_offset,d_y3,k_y3_offset,d_i1,k_
     &i1_offset)
      CALL ccsdtq_lambda2_21_2(d_t3,k_t3_offset,d_y4,k_y4_offset,d_i1,k_
     &i1_offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdtq_lambda2_21(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_22_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdtq_lambda2_22_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdtq_lambda2_22_1(d_t2,k_t2_offset,d_y3,k_y3_offset,d_i1,k_
     &i1_offset)
      CALL ccsdtq_lambda2_22_2(d_t3,k_t3_offset,d_y4,k_y4_offset,d_i1,k_
     &i1_offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdtq_lambda2_22(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_23_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdtq_lambda2_23_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL OFFSET_ccsdtq_lambda2_23_1_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_23_1_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_23_1_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
      CALL ccsdtq_lambda2_23_1_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
     &k_i2_offset)
      CALL OFFSET_ccsdtq_lambda2_23_1_3_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdtq_lambda2_23_1_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdtq_lambda2_23_1_3_1(d_v2,k_v2_offset,d_i3,k_i3_offset)
      CALL ccsdtq_lambda2_23_1_3_2(d_v2,k_v2_offset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdtq_lambda2_23_1_3(d_t2,k_t2_offset,d_i3,k_i3_offset,d_i2,
     &k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_23_1(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_23_2_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_23_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_23_2_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
      CALL ccsdtq_lambda2_23_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
     &k_i2_offset)
      CALL ccsdtq_lambda2_23_2_3(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
     &k_i2_offset)
      CALL OFFSET_ccsdtq_lambda2_23_2_4_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdtq_lambda2_23_2_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdtq_lambda2_23_2_4_1(d_v2,k_v2_offset,d_i3,k_i3_offset)
      CALL ccsdtq_lambda2_23_2_4_2(d_v2,k_v2_offset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdtq_lambda2_23_2_4(d_t2,k_t2_offset,d_i3,k_i3_offset,d_i2,
     &k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_23_2(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_23_3_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_23_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_23_3_1(d_f1,k_f1_offset,d_i2,k_i2_offset)
      CALL ccsdtq_lambda2_23_3_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
     &k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_23_3(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_23_4_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_23_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_23_4_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
      CALL ccsdtq_lambda2_23_4_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
     &k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_23_4(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_23_5_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_23_5_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_23_5_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
      CALL ccsdtq_lambda2_23_5_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
     &k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_23_5(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL ccsdtq_lambda2_23_6(d_t4,k_t4_offset,d_v2,k_v2_offset,d_i1,k_
     &i1_offset)
      CALL OFFSET_ccsdtq_lambda2_23_7_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_23_7_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdtq_lambda2_23_7_1_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdtq_lambda2_23_7_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdtq_lambda2_23_7_1_1(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i
     &3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdtq_lambda2_23_7_1(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,
     &k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_23_7(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_23_8_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_23_8_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdtq_lambda2_23_8_1_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdtq_lambda2_23_8_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdtq_lambda2_23_8_1_1(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i
     &3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdtq_lambda2_23_8_1(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,
     &k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_23_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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdtq_lambda2_23(d_y4,k_y4_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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_24_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdtq_lambda2_24_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL OFFSET_ccsdtq_lambda2_24_1_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_24_1_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_24_1_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
      CALL ccsdtq_lambda2_24_1_2(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i2,
     &k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_24_1(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_24_2_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_24_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_24_2_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
      CALL ccsdtq_lambda2_24_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
     &k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_24_2(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_24_3_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_24_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_24_3_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
      CALL ccsdtq_lambda2_24_3_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
     &k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_24_3(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL ccsdtq_lambda2_24_4(d_t4,k_t4_offset,d_v2,k_v2_offset,d_i1,k_
     &i1_offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdtq_lambda2_24(d_y4,k_y4_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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_25_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdtq_lambda2_25_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdtq_lambda2_25_1(d_t3,k_t3_offset,d_v2,k_v2_offset,d_i1,k_
     &i1_offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdtq_lambda2_25(d_y3,k_y3_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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_26_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdtq_lambda2_26_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdtq_lambda2_26_1(d_t3,k_t3_offset,d_y3,k_y3_offset,d_i1,k_
     &i1_offset)
      CALL ccsdtq_lambda2_26_2(d_t4,k_t4_offset,d_y4,k_y4_offset,d_i1,k_
     &i1_offset)
      CALL OFFSET_ccsdtq_lambda2_26_3_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_26_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_26_3_1(d_t1,k_t1_offset,d_y2,k_y2_offset,d_i2,
     &k_i2_offset)
      CALL ccsdtq_lambda2_26_3_2(d_t2,k_t2_offset,d_y3,k_y3_offset,d_i2,
     &k_i2_offset)
      CALL ccsdtq_lambda2_26_3_3(d_t3,k_t3_offset,d_y4,k_y4_offset,d_i2,
     &k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_26_3(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_26_4_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_26_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_26_4_1(d_t1,k_t1_offset,d_y3,k_y3_offset,d_i2,
     &k_i2_offset)
      CALL OFFSET_ccsdtq_lambda2_26_4_2_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdtq_lambda2_26_4_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdtq_lambda2_26_4_2_1(d_y4,k_y4_offset,d_i3,k_i3_offset)
      CALL ccsdtq_lambda2_26_4_2_2(d_y4,k_y4_offset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdtq_lambda2_26_4_2(d_t2,k_t2_offset,d_i3,k_i3_offset,d_i2,
     &k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_26_4(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_26_5_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_26_5_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_26_5_1(d_t1,k_t1_offset,d_y4,k_y4_offset,d_i2,
     &k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_26_5(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdtq_lambda2_26(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_27_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdtq_lambda2_27_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdtq_lambda2_27_1(d_t4,k_t4_offset,d_v2,k_v2_offset,d_i1,k_
     &i1_offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdtq_lambda2_27(d_y4,k_y4_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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_28_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdtq_lambda2_28_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL OFFSET_ccsdtq_lambda2_28_1_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_28_1_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_28_1_1(d_t1,k_t1_offset,d_y3,k_y3_offset,d_i2,
     &k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_28_1(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_28_2_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_28_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_28_2_1(d_t2,k_t2_offset,d_y4,k_y4_offset,d_i2,
     &k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_28_2(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdtq_lambda2_28(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_29_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdtq_lambda2_29_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL OFFSET_ccsdtq_lambda2_29_1_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_29_1_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_29_1_1(d_t2,k_t2_offset,d_y3,k_y3_offset,d_i2,
     &k_i2_offset)
      CALL ccsdtq_lambda2_29_1_2(d_t3,k_t3_offset,d_y4,k_y4_offset,d_i2,
     &k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_29_1(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_29_2_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_29_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdtq_lambda2_29_2_1_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdtq_lambda2_29_2_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdtq_lambda2_29_2_1_1(d_y4,k_y4_offset,d_i3,k_i3_offset)
      CALL ccsdtq_lambda2_29_2_1_2(d_y4,k_y4_offset,d_i3,k_i3_offset)
      CALL ccsdtq_lambda2_29_2_1_3(d_y4,k_y4_offset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdtq_lambda2_29_2_1(d_t2,k_t2_offset,d_i3,k_i3_offset,d_i2,
     &k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_29_2(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdtq_lambda2_29(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_30_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdtq_lambda2_30_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL OFFSET_ccsdtq_lambda2_30_1_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_30_1_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_30_1_1(d_t2,k_t2_offset,d_y3,k_y3_offset,d_i2,
     &k_i2_offset)
      CALL ccsdtq_lambda2_30_1_2(d_t3,k_t3_offset,d_y4,k_y4_offset,d_i2,
     &k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_30_1(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_30_2_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_30_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdtq_lambda2_30_2_1_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdtq_lambda2_30_2_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdtq_lambda2_30_2_1_1(d_y4,k_y4_offset,d_i3,k_i3_offset)
      CALL ccsdtq_lambda2_30_2_1_2(d_y4,k_y4_offset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdtq_lambda2_30_2_1(d_t2,k_t2_offset,d_i3,k_i3_offset,d_i2,
     &k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_30_2(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_30_3_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_30_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdtq_lambda2_30_3_1_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdtq_lambda2_30_3_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdtq_lambda2_30_3_1_1(d_t1,k_t1_offset,d_y3,k_y3_offset,d_i
     &3,k_i3_offset)
      CALL ccsdtq_lambda2_30_3_1_2(d_t2,k_t2_offset,d_y4,k_y4_offset,d_i
     &3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdtq_lambda2_30_3_1(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,
     &k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_30_3(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_30_4_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_30_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdtq_lambda2_30_4_1_1(l_i3_offset,k_i3_offset,size_i
     &3)
      CALL TCE_FILENAME('ccsdtq_lambda2_30_4_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdtq_lambda2_30_4_1_1(d_t1,k_t1_offset,d_y4,k_y4_offset,d_i
     &3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdtq_lambda2_30_4_1(d_t2,k_t2_offset,d_i3,k_i3_offset,d_i2,
     &k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_30_4(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdtq_lambda2_30(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_31_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdtq_lambda2_31_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL OFFSET_ccsdtq_lambda2_31_1_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_31_1_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_31_1_1(d_t2,k_t2_offset,d_y4,k_y4_offset,d_i2,
     &k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_31_1(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL OFFSET_ccsdtq_lambda2_31_2_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdtq_lambda2_31_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdtq_lambda2_31_2_1(d_t1,k_t1_offset,d_y4,k_y4_offset,d_i2,
     &k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdtq_lambda2_31_2(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdtq_lambda2_31(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('ccsdtq_lambda2',
     &-1,MA_ERR)
      RETURN
      END
c#endif
