      SUBROUTINE eomccsdt_x3(d_f1,d_i0,d_t1,d_t2,d_t3,d_v2,d_x1,d_x2,d_x
     &3,k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_v2
     &_offset,k_x1_offset,k_x2_offset,k_x3_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 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( h11 ) * x ( p4 p5 h1 h11 )_x * i1 ( h11 p6 h2 h3 )_v
C         i1 ( h11 p4 h1 h2 )_v + = 1 * v ( h11 p4 h1 h2 )_v
C         i1 ( h11 p4 h1 h2 )_vt + = 1 * Sum ( h12 ) * t ( p4 h12 )_t * i2 ( h11 h12 h1 h2 )_v
C             i2 ( h11 h12 h1 h2 )_v + = -1 * v ( h11 h12 h1 h2 )_v
C             i2 ( h11 h12 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 ( h11 h12 h2 p8 )_v
C                 i3 ( h11 h12 h1 p8 )_v + = 1 * v ( h11 h12 h1 p8 )_v
C                 i3 ( h11 h12 h1 p8 )_vt + = -1/2 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h11 h12 p8 p9 )_v
C             i2 ( h11 h12 h1 h2 )_vt + = -1/2 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( h11 h12 p7 p8 )_v
C         i1 ( h11 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h11 p4 h2 p7 )_v
C             i2 ( h11 p4 h1 p7 )_v + = 1 * v ( h11 p4 h1 p7 )_v
C             i2 ( h11 p4 h1 p7 )_vt + = -1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 p4 p7 p8 )_v
C         i1 ( h11 p4 h1 h2 )_ft + = -1 * Sum ( p10 ) * t ( p4 p10 h1 h2 )_t * i2 ( h11 p10 )_f
C             i2 ( h11 p10 )_f + = 1 * f ( h11 p10 )_f
C             i2 ( h11 p10 )_vt + = 1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h11 p8 p10 )_v
C         i1 ( h11 p4 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * i2 ( h8 h11 h2 p7 )_v
C             i2 ( h8 h11 h1 p7 )_v + = 1 * v ( h8 h11 h1 p7 )_v
C             i2 ( h8 h11 h1 p7 )_vt + = -1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h11 p7 p9 )_v
C         i1 ( h11 p4 h1 h2 )_vt + = 1/2 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( h11 p4 p7 p8 )_v
C         i1 ( h11 p4 h1 h2 )_vt + = 1/2 * Sum ( h9 p7 p8 ) * t ( p4 p7 p8 h1 h2 h9 )_t * v ( h9 h11 p7 p8 )_v
C     i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( p12 ) * x ( p4 p12 h1 h2 )_x * i1 ( p5 p6 h3 p12 )_v
C         i1 ( p4 p5 h1 p12 )_v + = 1 * v ( p4 p5 h1 p12 )_v
C         i1 ( p4 p5 h1 p12 )_vt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * v ( p4 p5 p7 p12 )_v
C         i1 ( p4 p5 h1 p12 )_vt + = 1/2 * Sum ( h7 h8 ) * t ( p4 p5 h7 h8 )_t * i2 ( h7 h8 h1 p12 )_v
C             i2 ( h7 h8 h1 p12 )_v + = 1 * v ( h7 h8 h1 p12 )_v
C             i2 ( h7 h8 h1 p12 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h7 h8 p9 p12 )_v
C         i1 ( p4 p5 h1 p12 )_vt + = 1 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * v ( h8 p5 p7 p12 )_v
C         i1 ( p4 p5 h1 p12 )_vt + = 1/2 * Sum ( h8 h9 p7 ) * t ( p4 p5 p7 h1 h8 h9 )_t * v ( h8 h9 p7 p12 )_v
C     i0 ( p4 p5 p6 h1 h2 h3 )_xf + = -1 * P( 3 ) * Sum ( h10 ) * x ( p4 p5 p6 h1 h2 h10 )_x * i1 ( h10 h3 )_f
C         i1 ( h10 h1 )_f + = 1 * f ( h10 h1 )_f
C         i1 ( h10 h1 )_ft + = 1 * Sum ( p11 ) * t ( p11 h1 )_t * i2 ( h10 p11 )_f
C             i2 ( h10 p11 )_f + = 1 * f ( h10 p11 )_f
C             i2 ( h10 p11 )_vt + = 1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h10 p8 p11 )_v
C         i1 ( h10 h1 )_vt + = -1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 h10 h1 p7 )_v
C         i1 ( h10 h1 )_vt + = -1/2 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t * v ( h9 h10 p7 p8 )_v
C     i0 ( p4 p5 p6 h1 h2 h3 )_xf + = 1 * P( 3 ) * Sum ( p10 ) * x ( p4 p5 p10 h1 h2 h3 )_x * i1 ( p6 p10 )_f
C         i1 ( p4 p10 )_f + = 1 * f ( p4 p10 )_f
C         i1 ( p4 p10 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 p4 p7 p10 )_v
C         i1 ( p4 p10 )_vt + = 1/2 * Sum ( h8 h9 p7 ) * t ( p4 p7 h8 h9 )_t * v ( h8 h9 p7 p10 )_v
C     i0 ( p4 p5 p6 h1 h2 h3 )_xv + = 1/2 * P( 3 ) * Sum ( h12 h11 ) * x ( p4 p5 p6 h1 h11 h12 )_x * i1 ( h11 h12 h2 h3 )_v
C         i1 ( h11 h12 h1 h2 )_v + = 1 * v ( h11 h12 h1 h2 )_v
C         i1 ( h11 h12 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h11 h12 h2 p7 )_v
C             i2 ( h11 h12 h1 p7 )_v + = 1 * v ( h11 h12 h1 p7 )_v
C             i2 ( h11 h12 h1 p7 )_vt + = -1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 h12 p7 p8 )_v
C         i1 ( h11 h12 h1 h2 )_vt + = 1/2 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( h11 h12 p7 p8 )_v
C     i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( p10 h9 ) * x ( p4 p5 p10 h1 h2 h9 )_x * i1 ( h9 p6 h3 p10 )_v
C         i1 ( h9 p4 h1 p10 )_v + = 1 * v ( h9 p4 h1 p10 )_v
C         i1 ( h9 p4 h1 p10 )_vt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * v ( h9 p4 p7 p10 )_v
C         i1 ( h9 p4 h1 p10 )_vt + = -1 * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * v ( h8 h9 p7 p10 )_v
C     i0 ( p4 p5 p6 h1 h2 h3 )_xv + = 1/2 * P( 3 ) * Sum ( p8 p7 ) * x ( p4 p7 p8 h1 h2 h3 )_x * v ( p5 p6 p7 p8 )_v
C     i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = 6 * P( 3 ) * Sum ( h11 ) * t ( p4 h11 )_t * i1 ( h11 p5 p6 h1 h2 h3 )_vx
C         i1 ( h11 p4 p5 h1 h2 h3 )_vx + = -1/6 * P( 6 ) * Sum ( p10 ) * x ( p4 p10 h1 h2 )_x * i2 ( h11 p5 h3 p10 )_v
C             i2 ( h11 p4 h1 p10 )_v + = 1 * v ( h11 p4 h1 p10 )_v
C             i2 ( h11 p4 h1 p10 )_vt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h8 h11 h1 p10 )_v
C                 i3 ( h8 h11 h1 p10 )_v + = 1 * v ( h8 h11 h1 p10 )_v
C                 i3 ( h8 h11 h1 p10 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h11 p9 p10 )_v
C             i2 ( h11 p4 h1 p10 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 p4 p8 p10 )_v
C             i2 ( h11 p4 h1 p10 )_vt + = -1 * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * v ( h8 h11 p7 p10 )_v
C         i1 ( h11 p4 p5 h1 h2 h3 )_fx + = -1/6 * Sum ( p7 ) * x ( p4 p5 p7 h1 h2 h3 )_x * i2 ( h11 p7 )_f
C             i2 ( h11 p7 )_f + = 1 * f ( h11 p7 )_f
C             i2 ( h11 p7 )_vt + = -1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h11 p7 p8 )_v
C         i1 ( h11 p4 p5 h1 h2 h3 )_vx + = 1/6 * P( 3 ) * Sum ( h10 p7 ) * x ( p4 p5 p7 h1 h2 h10 )_x * i2 ( h10 h11 h3 p7 )_v
C             i2 ( h10 h11 h1 p7 )_v + = 1 * v ( h10 h11 h1 p7 )_v
C             i2 ( h10 h11 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h11 p7 p8 )_v
C         i1 ( h11 p4 p5 h1 h2 h3 )_vx + = 1/12 * P( 2 ) * Sum ( p8 p9 ) * x ( p4 p8 p9 h1 h2 h3 )_x * v ( h11 p5 p8 p9 )_v
C         i1 ( h11 p4 p5 h1 h2 h3 )_vxt + = 1/24 * P( 2 ) * Sum ( h8 ) * t ( p4 h8 )_t * i2 ( h8 h11 p5 h1 h2 h3 )_vx
C             i2 ( h8 h11 p4 h1 h2 h3 )_vx + = -1 * Sum ( p9 p10 ) * x ( p4 p9 p10 h1 h2 h3 )_x * v ( h8 h11 p9 p10 )_v
C         i1 ( h11 p4 p5 h1 h2 h3 )_vxt + = -1/6 * P( 6 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i2 ( h11 p5 h3 p7 )_vx
C             i2 ( h11 p4 h1 p7 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h11 p4 p7 p9 )_v
C             i2 ( h11 p4 h1 p7 )_vx + = 1 * Sum ( h9 p10 ) * x ( p4 p10 h1 h9 )_x * v ( h9 h11 p7 p10 )_v
C             i2 ( h11 p4 h1 p7 )_vtx + = -1 * Sum ( h10 ) * x ( p4 h10 )_x * i3 ( h10 h11 h1 p7 )_vt
C                 i3 ( h10 h11 h1 p7 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h11 p7 p8 )_v
C             i2 ( h11 p4 h1 p7 )_vxt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h8 h11 h1 p7 )_vx
C                 i3 ( h8 h11 h1 p7 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h8 h11 p7 p10 )_v
C         i1 ( h11 p4 p5 h1 h2 h3 )_vxt + = -1/6 * Sum ( p7 ) * t ( p4 p5 p7 h1 h2 h3 )_t * i2 ( h11 p7 )_vx
C             i2 ( h11 p7 )_vx + = -1 * Sum ( h9 p10 ) * x ( p10 h9 )_x * v ( h9 h11 p7 p10 )_v
C         i1 ( h11 p4 p5 h1 h2 h3 )_vtx + = -1/12 * P( 2 ) * Sum ( h10 ) * x ( p4 h10 )_x * i2 ( h10 h11 p5 h1 h2 h3 )_vt
C             i2 ( h10 h11 p4 h1 h2 h3 )_vt + = 1 * Sum ( p7 p8 ) * t ( p4 p7 p8 h1 h2 h3 )_t * v ( h10 h11 p7 p8 )_v
C         i1 ( h11 p4 p5 h1 h2 h3 )_vxt + = -1/6 * P( 3 ) * Sum ( h8 p7 ) * t ( p4 p5 p7 h1 h2 h8 )_t * i2 ( h8 h11 h3 p7 )_vx
C             i2 ( h8 h11 h1 p7 )_vx + = 1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h8 h11 p7 p10 )_v
C     i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( h12 ) * t ( p4 p5 h1 h12 )_t * i1 ( h12 p6 h2 h3 )_vx
C         i1 ( h12 p4 h1 h2 )_vx + = 1 * Sum ( h13 ) * x ( p4 h13 )_x * i2 ( h12 h13 h1 h2 )_v
C             i2 ( h12 h13 h1 h2 )_v + = -1 * v ( h12 h13 h1 h2 )_v
C             i2 ( h12 h13 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( p9 ) * t ( p9 h1 )_t * i3 ( h12 h13 h2 p9 )_v
C                 i3 ( h12 h13 h1 p9 )_v + = 1 * v ( h12 h13 h1 p9 )_v
C                 i3 ( h12 h13 h1 p9 )_vt + = 1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 h13 p8 p9 )_v
C             i2 ( h12 h13 h1 h2 )_vt + = -1/2 * Sum ( p8 p9 ) * t ( p8 p9 h1 h2 )_t * v ( h12 h13 p8 p9 )_v
C         i1 ( h12 p4 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( p8 ) * x ( p8 h1 )_x * v ( h12 p4 h2 p8 )_v
C         i1 ( h12 p4 h1 h2 )_fx + = -1 * Sum ( p7 ) * x ( p4 p7 h1 h2 )_x * i2 ( h12 p7 )_f
C             i2 ( h12 p7 )_f + = 1 * f ( h12 p7 )_f
C             i2 ( h12 p7 )_vt + = -1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h12 p7 p8 )_v
C         i1 ( h12 p4 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( h10 p7 ) * x ( p4 p7 h1 h10 )_x * i2 ( h10 h12 h2 p7 )_v
C             i2 ( h10 h12 h1 p7 )_v + = 1 * v ( h10 h12 h1 p7 )_v
C             i2 ( h10 h12 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h12 p7 p8 )_v
C         i1 ( h12 p4 h1 h2 )_vx + = 1/2 * Sum ( p8 p9 ) * x ( p8 p9 h1 h2 )_x * v ( h12 p4 p8 p9 )_v
C         i1 ( h12 p4 h1 h2 )_vx + = 1/2 * Sum ( h8 p9 p10 ) * x ( p4 p9 p10 h1 h2 h8 )_x * v ( h8 h12 p9 p10 )_v
C         i1 ( h12 p4 h1 h2 )_vxt + = 2 * Sum ( h11 ) * t ( p4 h11 )_t * i2 ( h11 h12 h1 h2 )_vx
C             i2 ( h11 h12 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p9 ) * x ( p9 h1 )_x * v ( h11 h12 h2 p9 )_v
C             i2 ( h11 h12 h1 h2 )_vx + = 1/4 * Sum ( p9 p10 ) * x ( p9 p10 h1 h2 )_x * v ( h11 h12 p9 p10 )_v
C             i2 ( h11 h12 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 ( h11 h12 h2 p8 )_vx
C                 i3 ( h11 h12 h1 p8 )_vx + = 1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h11 h12 p8 p10 )_v
C         i1 ( h12 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i2 ( h12 p4 h2 p8 )_vx
C             i2 ( h12 p4 h1 p8 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h12 p4 p8 p9 )_v
C         i1 ( h12 p4 h1 h2 )_vxt + = -1 * Sum ( p8 ) * t ( p4 p8 h1 h2 )_t * i2 ( h12 p8 )_vx
C             i2 ( h12 p8 )_vx + = -1 * Sum ( h9 p10 ) * x ( p10 h9 )_x * v ( h9 h12 p8 p10 )_v
C         i1 ( h12 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * i2 ( h9 h12 h2 p8 )_vx
C             i2 ( h9 h12 h1 p8 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h9 h12 p8 p10 )_v
C     i0 ( p4 p5 p6 h1 h2 h3 )_vtx + = 6 * P( 3 ) * Sum ( h11 ) * x ( p4 h11 )_x * i1 ( h11 p5 p6 h1 h2 h3 )_vt
C         i1 ( h11 p4 p5 h1 h2 h3 )_vt + = -1/6 * P( 6 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i2 ( h11 p5 h3 p7 )_v
C             i2 ( h11 p4 h1 p7 )_vt + = 1 * Sum ( h8 ) * t ( p4 h8 )_t * v ( h8 h11 h1 p7 )_v
C             i2 ( h11 p4 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 p4 p7 p8 )_v
C             i2 ( h11 p4 h1 p7 )_vt + = 1 * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * v ( h9 h11 p7 p8 )_v
C         i1 ( h11 p4 p5 h1 h2 h3 )_ft + = -1/6 * Sum ( p10 ) * t ( p4 p5 p10 h1 h2 h3 )_t * i2 ( h11 p10 )_f
C         i1 ( h11 p4 p5 h1 h2 h3 )_vt + = 1/6 * P( 3 ) * Sum ( h8 p7 ) * t ( p4 p5 p7 h1 h2 h8 )_t * i2 ( h8 h11 h3 p7 )_v
C         i1 ( h11 p4 p5 h1 h2 h3 )_vt + = 1/12 * P( 2 ) * Sum ( p7 p8 ) * t ( p4 p7 p8 h1 h2 h3 )_t * v ( h11 p5 p7 p8 )_v
C     i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i1 ( p5 p6 h3 p7 )_vx
C         i1 ( p4 p5 h1 p7 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( p4 p5 p7 p8 )_v
C         i1 ( p4 p5 h1 p7 )_vx + = 1/2 * Sum ( h11 h12 ) * x ( p4 p5 h11 h12 )_x * i2 ( h11 h12 h1 p7 )_v
C             i2 ( h11 h12 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 h12 p7 p8 )_v
C         i1 ( p4 p5 h1 p7 )_vx + = -1 * P( 2 ) * Sum ( h8 p9 ) * x ( p4 p9 h1 h8 )_x * v ( h8 p5 p7 p9 )_v
C         i1 ( p4 p5 h1 p7 )_vx + = -1/2 * Sum ( h8 h9 p10 ) * x ( p4 p5 p10 h1 h8 h9 )_x * v ( h8 h9 p7 p10 )_v
C         i1 ( p4 p5 h1 p7 )_vxt + = 1/2 * Sum ( h8 h9 ) * t ( p4 p5 h8 h9 )_t * i2 ( h8 h9 h1 p7 )_vx
C             i2 ( h8 h9 h1 p7 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h8 h9 p7 p10 )_v
C     i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1/4 * P( 3 ) * Sum ( h7 h8 ) * t ( p4 p5 h7 h8 )_t * i1 ( h7 h8 p6 h1 h2 h3 )_vx
C         i1 ( h7 h8 p4 h1 h2 h3 )_vx + = -1 * Sum ( p9 p10 ) * x ( p4 p9 p10 h1 h2 h3 )_x * v ( h7 h8 p9 p10 )_v
C     i0 ( p4 p5 p6 h1 h2 h3 )_fxt + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 h2 h7 )_t * i1 ( h7 h3 )_fx
C         i1 ( h7 h1 )_fx + = 1 * Sum ( p11 ) * x ( p11 h1 )_x * i2 ( h7 p11 )_f
C             i2 ( h7 p11 )_f + = 1 * f ( h7 p11 )_f
C             i2 ( h7 p11 )_vt + = -1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h7 h9 p8 p11 )_v
C         i1 ( h7 h1 )_vx + = 1 * Sum ( h8 p9 ) * x ( p9 h8 )_x * v ( h7 h8 h1 p9 )_v
C         i1 ( h7 h1 )_vx + = 1/2 * Sum ( h8 p9 p10 ) * x ( p9 p10 h1 h8 )_x * v ( h7 h8 p9 p10 )_v
C         i1 ( h7 h1 )_vxt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * i2 ( h7 p8 )_vx
C             i2 ( h7 p8 )_vx + = 1 * Sum ( h9 p10 ) * x ( p10 h9 )_x * v ( h7 h9 p8 p10 )_v
C     i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = 1 * P( 3 ) * Sum ( h7 h8 ) * t ( p4 p5 p6 h1 h7 h8 )_t * i1 ( h7 h8 h2 h3 )_vx
C         i1 ( h7 h8 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p9 ) * x ( p9 h1 )_x * v ( h7 h8 h2 p9 )_v
C         i1 ( h7 h8 h1 h2 )_vx + = 1/4 * Sum ( p9 p10 ) * x ( p9 p10 h1 h2 )_x * v ( h7 h8 p9 p10 )_v
C         i1 ( h7 h8 h1 h2 )_vxt + = -1/2 * P( 2 ) * Sum ( p9 ) * t ( p9 h1 )_t * i2 ( h7 h8 h2 p9 )_vx
C             i2 ( h7 h8 h1 p9 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h7 h8 p9 p10 )_v
C     i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = 1 * P( 3 ) * Sum ( p7 ) * t ( p4 p5 p7 h1 h2 h3 )_t * i1 ( p6 p7 )_vx
C         i1 ( p4 p7 )_vx + = -1 * Sum ( h8 p9 ) * x ( p9 h8 )_x * v ( h8 p4 p7 p9 )_v
C         i1 ( p4 p7 )_vx + = -1/2 * Sum ( h8 h9 p10 ) * x ( p4 p10 h8 h9 )_x * v ( h8 h9 p7 p10 )_v
C     i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( h8 p7 ) * t ( p4 p5 p7 h1 h2 h8 )_t * i1 ( h8 p6 h3 p7 )_vx
C         i1 ( h8 p4 h1 p7 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h8 p4 p7 p9 )_v
C         i1 ( h8 p4 h1 p7 )_vx + = -1 * Sum ( h9 p10 ) * x ( p4 p10 h1 h9 )_x * v ( h8 h9 p7 p10 )_v
C     i0 ( p4 p5 p6 h1 h2 h3 )_vtx + = 1/4 * P( 3 ) * Sum ( h9 h10 ) * x ( p4 p5 h9 h10 )_x * i1 ( h9 h10 p6 h1 h2 h3 )_vt
C         i1 ( h9 h10 p4 h1 h2 h3 )_vt + = 1 * Sum ( p7 p8 ) * t ( p4 p7 p8 h1 h2 h3 )_t * v ( h9 h10 p7 p8 )_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_x2
      INTEGER k_x2_offset
      INTEGER d_i1
      INTEGER k_i1_offset
      INTEGER d_x3
      INTEGER k_x3_offset
      INTEGER d_v2
      INTEGER k_v2_offset
      INTEGER d_t1
      INTEGER k_t1_offset
      INTEGER d_t2
      INTEGER k_t2_offset
      INTEGER d_x1
      INTEGER k_x1_offset
      INTEGER d_t3
      INTEGER k_t3_offset
      INTEGER l_i1_offset
      INTEGER size_i1
      INTEGER d_i2
      INTEGER k_i2_offset
      INTEGER l_i2_offset
      INTEGER size_i2
      INTEGER d_i3
      INTEGER k_i3_offset
      INTEGER l_i3_offset
      INTEGER size_i3
      INTEGER d_f1
      INTEGER k_f1_offset
      CHARACTER*255 filename
      CALL OFFSET_eomccsdt_x3_1_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('eomccsdt_x3_1_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL eomccsdt_x3_1_1(d_v2,k_v2_offset,d_i1,k_i1_offset)
      CALL OFFSET_eomccsdt_x3_1_2_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('eomccsdt_x3_1_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdt_x3_1_2_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
      CALL OFFSET_eomccsdt_x3_1_2_2_1(l_i3_offset,k_i3_offset,size_i3)
      CALL TCE_FILENAME('eomccsdt_x3_1_2_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL eomccsdt_x3_1_2_2_1(d_v2,k_v2_offset,d_i3,k_i3_offset)
      CALL eomccsdt_x3_1_2_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i3,k_
     &i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL eomccsdt_x3_1_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('eomccsdt_x3',-1,
     &MA_ERR)
      CALL eomccsdt_x3_1_2_3(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i2,k_i2
     &_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdt_x3_1_2(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k_i1_o
     &ffset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL OFFSET_eomccsdt_x3_1_3_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('eomccsdt_x3_1_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdt_x3_1_3_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
      CALL eomccsdt_x3_1_3_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,k_i2
     &_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdt_x3_1_3(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k_i1_o
     &ffset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL OFFSET_eomccsdt_x3_1_4_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('eomccsdt_x3_1_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdt_x3_1_4_1(d_f1,k_f1_offset,d_i2,k_i2_offset)
      CALL eomccsdt_x3_1_4_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,k_i2
     &_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdt_x3_1_4(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1,k_i1_o
     &ffset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL OFFSET_eomccsdt_x3_1_5_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('eomccsdt_x3_1_5_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdt_x3_1_5_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
      CALL eomccsdt_x3_1_5_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,k_i2
     &_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdt_x3_1_5(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1,k_i1_o
     &ffset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL eomccsdt_x3_1_6(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1,k_i1_o
     &ffset)
      CALL eomccsdt_x3_1_7(d_t3,k_t3_offset,d_v2,k_v2_offset,d_i1,k_i1_o
     &ffset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL eomccsdt_x3_1(d_x2,k_x2_offset,d_i1,k_i1_offset,d_i0,k_i0_off
     &set)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL OFFSET_eomccsdt_x3_2_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('eomccsdt_x3_2_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL eomccsdt_x3_2_1(d_v2,k_v2_offset,d_i1,k_i1_offset)
      CALL eomccsdt_x3_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i1,k_i1_o
     &ffset)
      CALL OFFSET_eomccsdt_x3_2_3_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('eomccsdt_x3_2_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdt_x3_2_3_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
      CALL eomccsdt_x3_2_3_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,k_i2
     &_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdt_x3_2_3(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1,k_i1_o
     &ffset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL eomccsdt_x3_2_4(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1,k_i1_o
     &ffset)
      CALL eomccsdt_x3_2_5(d_t3,k_t3_offset,d_v2,k_v2_offset,d_i1,k_i1_o
     &ffset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL eomccsdt_x3_2(d_x2,k_x2_offset,d_i1,k_i1_offset,d_i0,k_i0_off
     &set)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL OFFSET_eomccsdt_x3_3_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('eomccsdt_x3_3_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL eomccsdt_x3_3_1(d_f1,k_f1_offset,d_i1,k_i1_offset)
      CALL OFFSET_eomccsdt_x3_3_2_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('eomccsdt_x3_3_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdt_x3_3_2_1(d_f1,k_f1_offset,d_i2,k_i2_offset)
      CALL eomccsdt_x3_3_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,k_i2
     &_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdt_x3_3_2(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k_i1_o
     &ffset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL eomccsdt_x3_3_3(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i1,k_i1_o
     &ffset)
      CALL eomccsdt_x3_3_4(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1,k_i1_o
     &ffset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL eomccsdt_x3_3(d_x3,k_x3_offset,d_i1,k_i1_offset,d_i0,k_i0_off
     &set)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL OFFSET_eomccsdt_x3_4_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('eomccsdt_x3_4_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL eomccsdt_x3_4_1(d_f1,k_f1_offset,d_i1,k_i1_offset)
      CALL eomccsdt_x3_4_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i1,k_i1_o
     &ffset)
      CALL eomccsdt_x3_4_3(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1,k_i1_o
     &ffset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL eomccsdt_x3_4(d_x3,k_x3_offset,d_i1,k_i1_offset,d_i0,k_i0_off
     &set)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL OFFSET_eomccsdt_x3_5_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('eomccsdt_x3_5_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL eomccsdt_x3_5_1(d_v2,k_v2_offset,d_i1,k_i1_offset)
      CALL OFFSET_eomccsdt_x3_5_2_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('eomccsdt_x3_5_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdt_x3_5_2_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
      CALL eomccsdt_x3_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 eomccsdt_x3_5_2(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k_i1_o
     &ffset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL eomccsdt_x3_5_3(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1,k_i1_o
     &ffset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL eomccsdt_x3_5(d_x3,k_x3_offset,d_i1,k_i1_offset,d_i0,k_i0_off
     &set)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL OFFSET_eomccsdt_x3_6_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('eomccsdt_x3_6_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL eomccsdt_x3_6_1(d_v2,k_v2_offset,d_i1,k_i1_offset)
      CALL eomccsdt_x3_6_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i1,k_i1_o
     &ffset)
      CALL eomccsdt_x3_6_3(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1,k_i1_o
     &ffset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL eomccsdt_x3_6(d_x3,k_x3_offset,d_i1,k_i1_offset,d_i0,k_i0_off
     &set)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL eomccsdt_x3_7(d_x3,k_x3_offset,d_v2,k_v2_offset,d_i0,k_i0_off
     &set)
      CALL OFFSET_eomccsdt_x3_8_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('eomccsdt_x3_8_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL OFFSET_eomccsdt_x3_8_1_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('eomccsdt_x3_8_1_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdt_x3_8_1_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
      CALL OFFSET_eomccsdt_x3_8_1_2_1(l_i3_offset,k_i3_offset,size_i3)
      CALL TCE_FILENAME('eomccsdt_x3_8_1_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL eomccsdt_x3_8_1_2_1(d_v2,k_v2_offset,d_i3,k_i3_offset)
      CALL eomccsdt_x3_8_1_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i3,k_
     &i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL eomccsdt_x3_8_1_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('eomccsdt_x3',-1,
     &MA_ERR)
      CALL eomccsdt_x3_8_1_3(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,k_i2
     &_offset)
      CALL eomccsdt_x3_8_1_4(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i2,k_i2
     &_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdt_x3_8_1(d_x2,k_x2_offset,d_i2,k_i2_offset,d_i1,k_i1_o
     &ffset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL OFFSET_eomccsdt_x3_8_2_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('eomccsdt_x3_8_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdt_x3_8_2_1(d_f1,k_f1_offset,d_i2,k_i2_offset)
      CALL eomccsdt_x3_8_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,k_i2
     &_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdt_x3_8_2(d_x3,k_x3_offset,d_i2,k_i2_offset,d_i1,k_i1_o
     &ffset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL OFFSET_eomccsdt_x3_8_3_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('eomccsdt_x3_8_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdt_x3_8_3_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
      CALL eomccsdt_x3_8_3_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,k_i2
     &_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdt_x3_8_3(d_x3,k_x3_offset,d_i2,k_i2_offset,d_i1,k_i1_o
     &ffset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL eomccsdt_x3_8_4(d_x3,k_x3_offset,d_v2,k_v2_offset,d_i1,k_i1_o
     &ffset)
      CALL OFFSET_eomccsdt_x3_8_5_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('eomccsdt_x3_8_5_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdt_x3_8_5_1(d_x3,k_x3_offset,d_v2,k_v2_offset,d_i2,k_i2
     &_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdt_x3_8_5(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k_i1_o
     &ffset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL OFFSET_eomccsdt_x3_8_6_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('eomccsdt_x3_8_6_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdt_x3_8_6_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2,k_i2
     &_offset)
      CALL eomccsdt_x3_8_6_2(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i2,k_i2
     &_offset)
      CALL OFFSET_eomccsdt_x3_8_6_3_1(l_i3_offset,k_i3_offset,size_i3)
      CALL TCE_FILENAME('eomccsdt_x3_8_6_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL eomccsdt_x3_8_6_3_1(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i3,k_
     &i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL eomccsdt_x3_8_6_3(d_x1,k_x1_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('eomccsdt_x3',-1,
     &MA_ERR)
      CALL OFFSET_eomccsdt_x3_8_6_4_1(l_i3_offset,k_i3_offset,size_i3)
      CALL TCE_FILENAME('eomccsdt_x3_8_6_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL eomccsdt_x3_8_6_4_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i3,k_
     &i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL eomccsdt_x3_8_6_4(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,k_i2
     &_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdt_x3_8_6(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1,k_i1_o
     &ffset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL OFFSET_eomccsdt_x3_8_7_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('eomccsdt_x3_8_7_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdt_x3_8_7_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2,k_i2
     &_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdt_x3_8_7(d_t3,k_t3_offset,d_i2,k_i2_offset,d_i1,k_i1_o
     &ffset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL OFFSET_eomccsdt_x3_8_8_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('eomccsdt_x3_8_8_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdt_x3_8_8_1(d_t3,k_t3_offset,d_v2,k_v2_offset,d_i2,k_i2
     &_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdt_x3_8_8(d_x1,k_x1_offset,d_i2,k_i2_offset,d_i1,k_i1_o
     &ffset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL OFFSET_eomccsdt_x3_8_9_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('eomccsdt_x3_8_9_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdt_x3_8_9_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2,k_i2
     &_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdt_x3_8_9(d_t3,k_t3_offset,d_i2,k_i2_offset,d_i1,k_i1_o
     &ffset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL eomccsdt_x3_8(d_t1,k_t1_offset,d_i1,k_i1_offset,d_i0,k_i0_off
     &set)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL OFFSET_eomccsdt_x3_9_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('eomccsdt_x3_9_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL OFFSET_eomccsdt_x3_9_1_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('eomccsdt_x3_9_1_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdt_x3_9_1_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
      CALL OFFSET_eomccsdt_x3_9_1_2_1(l_i3_offset,k_i3_offset,size_i3)
      CALL TCE_FILENAME('eomccsdt_x3_9_1_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL eomccsdt_x3_9_1_2_1(d_v2,k_v2_offset,d_i3,k_i3_offset)
      CALL eomccsdt_x3_9_1_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i3,k_
     &i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL eomccsdt_x3_9_1_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('eomccsdt_x3',-1,
     &MA_ERR)
      CALL eomccsdt_x3_9_1_3(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i2,k_i2
     &_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdt_x3_9_1(d_x1,k_x1_offset,d_i2,k_i2_offset,d_i1,k_i1_o
     &ffset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL eomccsdt_x3_9_2(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i1,k_i1_o
     &ffset)
      CALL OFFSET_eomccsdt_x3_9_3_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('eomccsdt_x3_9_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdt_x3_9_3_1(d_f1,k_f1_offset,d_i2,k_i2_offset)
      CALL eomccsdt_x3_9_3_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,k_i2
     &_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdt_x3_9_3(d_x2,k_x2_offset,d_i2,k_i2_offset,d_i1,k_i1_o
     &ffset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL OFFSET_eomccsdt_x3_9_4_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('eomccsdt_x3_9_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdt_x3_9_4_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
      CALL eomccsdt_x3_9_4_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,k_i2
     &_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdt_x3_9_4(d_x2,k_x2_offset,d_i2,k_i2_offset,d_i1,k_i1_o
     &ffset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL eomccsdt_x3_9_5(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i1,k_i1_o
     &ffset)
      CALL eomccsdt_x3_9_6(d_x3,k_x3_offset,d_v2,k_v2_offset,d_i1,k_i1_o
     &ffset)
      CALL OFFSET_eomccsdt_x3_9_7_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('eomccsdt_x3_9_7_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdt_x3_9_7_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2,k_i2
     &_offset)
      CALL eomccsdt_x3_9_7_2(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i2,k_i2
     &_offset)
      CALL OFFSET_eomccsdt_x3_9_7_3_1(l_i3_offset,k_i3_offset,size_i3)
      CALL TCE_FILENAME('eomccsdt_x3_9_7_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL eomccsdt_x3_9_7_3_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i3,k_
     &i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL eomccsdt_x3_9_7_3(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,k_i2
     &_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdt_x3_9_7(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k_i1_o
     &ffset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL OFFSET_eomccsdt_x3_9_8_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('eomccsdt_x3_9_8_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdt_x3_9_8_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2,k_i2
     &_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdt_x3_9_8(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k_i1_o
     &ffset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL OFFSET_eomccsdt_x3_9_9_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('eomccsdt_x3_9_9_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdt_x3_9_9_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2,k_i2
     &_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdt_x3_9_9(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1,k_i1_o
     &ffset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL OFFSET_eomccsdt_x3_9_10_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('eomccsdt_x3_9_10_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdt_x3_9_10_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2,k_i
     &2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdt_x3_9_10(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('eomccsdt_x3',-1,
     &MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL eomccsdt_x3_9(d_t2,k_t2_offset,d_i1,k_i1_offset,d_i0,k_i0_off
     &set)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL OFFSET_eomccsdt_x3_10_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('eomccsdt_x3_10_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL OFFSET_eomccsdt_x3_10_1_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('eomccsdt_x3_10_1_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdt_x3_10_1_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
      CALL eomccsdt_x3_10_1_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,k_i
     &2_offset)
      CALL eomccsdt_x3_10_1_3(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,k_i
     &2_offset)
      CALL eomccsdt_x3_10_1_4(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i2,k_i
     &2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdt_x3_10_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('eomccsdt_x3',-1,
     &MA_ERR)
      CALL OFFSET_eomccsdt_x3_10_2_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('eomccsdt_x3_10_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdt_x3_10_2_1(d_f1,k_f1_offset,d_i2,k_i2_offset)
      CALL eomccsdt_x3_10_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,k_i
     &2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdt_x3_10_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('eomccsdt_x3',-1,
     &MA_ERR)
      CALL OFFSET_eomccsdt_x3_10_3_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('eomccsdt_x3_10_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdt_x3_10_3_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
      CALL eomccsdt_x3_10_3_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,k_i
     &2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdt_x3_10_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('eomccsdt_x3',-1,
     &MA_ERR)
      CALL eomccsdt_x3_10_4(d_t3,k_t3_offset,d_v2,k_v2_offset,d_i1,k_i1_
     &offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL eomccsdt_x3_10(d_x1,k_x1_offset,d_i1,k_i1_offset,d_i0,k_i0_of
     &fset)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL OFFSET_eomccsdt_x3_11_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('eomccsdt_x3_11_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL eomccsdt_x3_11_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i1,k_i1_
     &offset)
      CALL OFFSET_eomccsdt_x3_11_2_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('eomccsdt_x3_11_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdt_x3_11_2_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
      CALL eomccsdt_x3_11_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,k_i
     &2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdt_x3_11_2(d_x2,k_x2_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('eomccsdt_x3',-1,
     &MA_ERR)
      CALL eomccsdt_x3_11_3(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i1,k_i1_
     &offset)
      CALL eomccsdt_x3_11_4(d_x3,k_x3_offset,d_v2,k_v2_offset,d_i1,k_i1_
     &offset)
      CALL OFFSET_eomccsdt_x3_11_5_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('eomccsdt_x3_11_5_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdt_x3_11_5_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2,k_i
     &2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdt_x3_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('eomccsdt_x3',-1,
     &MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL eomccsdt_x3_11(d_t2,k_t2_offset,d_i1,k_i1_offset,d_i0,k_i0_of
     &fset)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL OFFSET_eomccsdt_x3_12_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('eomccsdt_x3_12_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL eomccsdt_x3_12_1(d_x3,k_x3_offset,d_v2,k_v2_offset,d_i1,k_i1_
     &offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL eomccsdt_x3_12(d_t2,k_t2_offset,d_i1,k_i1_offset,d_i0,k_i0_of
     &fset)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL OFFSET_eomccsdt_x3_13_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('eomccsdt_x3_13_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL OFFSET_eomccsdt_x3_13_1_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('eomccsdt_x3_13_1_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdt_x3_13_1_1(d_f1,k_f1_offset,d_i2,k_i2_offset)
      CALL eomccsdt_x3_13_1_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,k_i
     &2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdt_x3_13_1(d_x1,k_x1_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('eomccsdt_x3',-1,
     &MA_ERR)
      CALL eomccsdt_x3_13_2(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i1,k_i1_
     &offset)
      CALL eomccsdt_x3_13_3(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i1,k_i1_
     &offset)
      CALL OFFSET_eomccsdt_x3_13_4_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('eomccsdt_x3_13_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdt_x3_13_4_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2,k_i
     &2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdt_x3_13_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('eomccsdt_x3',-1,
     &MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL eomccsdt_x3_13(d_t3,k_t3_offset,d_i1,k_i1_offset,d_i0,k_i0_of
     &fset)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL OFFSET_eomccsdt_x3_14_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('eomccsdt_x3_14_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL eomccsdt_x3_14_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i1,k_i1_
     &offset)
      CALL eomccsdt_x3_14_2(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i1,k_i1_
     &offset)
      CALL OFFSET_eomccsdt_x3_14_3_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('eomccsdt_x3_14_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdt_x3_14_3_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2,k_i
     &2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdt_x3_14_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('eomccsdt_x3',-1,
     &MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL eomccsdt_x3_14(d_t3,k_t3_offset,d_i1,k_i1_offset,d_i0,k_i0_of
     &fset)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL OFFSET_eomccsdt_x3_15_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('eomccsdt_x3_15_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL eomccsdt_x3_15_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i1,k_i1_
     &offset)
      CALL eomccsdt_x3_15_2(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i1,k_i1_
     &offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL eomccsdt_x3_15(d_t3,k_t3_offset,d_i1,k_i1_offset,d_i0,k_i0_of
     &fset)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL OFFSET_eomccsdt_x3_16_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('eomccsdt_x3_16_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL eomccsdt_x3_16_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i1,k_i1_
     &offset)
      CALL eomccsdt_x3_16_2(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i1,k_i1_
     &offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL eomccsdt_x3_16(d_t3,k_t3_offset,d_i1,k_i1_offset,d_i0,k_i0_of
     &fset)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      CALL OFFSET_eomccsdt_x3_17_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('eomccsdt_x3_17_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL eomccsdt_x3_17_1(d_t3,k_t3_offset,d_v2,k_v2_offset,d_i1,k_i1_
     &offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL eomccsdt_x3_17(d_x2,k_x2_offset,d_i1,k_i1_offset,d_i0,k_i0_of
     &fset)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
     &MA_ERR)
      RETURN
      END
