      SUBROUTINE eomccsdtq_density1(d_d1,d_i0,d_t1,d_t2,d_t3,d_t4,d_x0,d
     &_x1,d_x2,d_x3,d_x4,d_y0,d_y1,d_y2,d_y3,d_y4,k_d1_offset,k_i0_offse
     &t,k_t1_offset,k_t2_offset,k_t3_offset,k_t4_offset,k_x0_offset,k_x1
     &_offset,k_x2_offset,k_x3_offset,k_x4_offset,k_y0_offset,k_y1_offse
     &t,k_y2_offset,k_y3_offset,k_y4_offset)
C     $Id: eomccsdtq_density1.F 19704 2010-10-29 17:43:02Z d3y133 $
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
C     i0 ( )_yxd + = 1 * Sum ( h2 p1 ) * d ( p1 h2 )_d * i1 ( h2 p1 )_yx
C         i1 ( h2 p1 )_yx + = 1 * x ( )_x * y ( h2 p1 )_y
C         i1 ( h2 p1 )_yx + = 1 * Sum ( h4 p3 ) * x ( p3 h4 )_x * y ( h2 h4 p1 p3 )_y
C         i1 ( h2 p1 )_yx + = 1/4 * Sum ( h6 h5 p4 p3 ) * x ( p3 p4 h5 h6 )_x * y ( h2 h5 h6 p1 p3 p4 )_y
C         i1 ( h2 p1 )_yx + = 1/36 * Sum ( h8 h7 h6 p5 p4 p3 ) * x ( p3 p4 p5 h6 h7 h8 )_x * y ( h2 h6 h7 h8 p1 p3 p4 p5 )_y
C     i0 ( )_dxy + = 1 * y ( )_y * i1 ( )_dx
C         i1 ( )_dx + = 1 * Sum ( h1 p2 ) * d ( h1 p2 )_d * x ( p2 h1 )_x
C         i1 ( )_dtx + = 1 * x ( )_x * i2 ( )_dt
C             i2 ( )_dt + = 1 * Sum ( h1 p2 ) * d ( h1 p2 )_d * t ( p2 h1 )_t
C     i0 ( )_yxd + = -1 * Sum ( h2 h1 ) * d ( h1 h2 )_d * i1 ( h2 h1 )_yx
C         i1 ( h2 h1 )_yx + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * y ( h2 p3 )_y
C         i1 ( h2 h1 )_yx + = 1/2 * Sum ( h5 p4 p3 ) * x ( p3 p4 h1 h5 )_x * y ( h2 h5 p3 p4 )_y
C         i1 ( h2 h1 )_yx + = 1/12 * Sum ( h7 h6 p5 p4 p3 ) * x ( p3 p4 p5 h1 h6 h7 )_x * y ( h2 h6 h7 p3 p4 p5 )_y
C         i1 ( h2 h1 )_yx + = 1/144 * Sum ( h9 h8 h7 p6 p5 p4 p3 ) * x ( p3 p4 p5 p6 h1 h7 h8 h9 )_x * y ( h2 h7 h8 h9 p3 p4 p5 p6 )_y
C         i1 ( h2 h1 )_ytx + = 1 * x ( )_x * i2 ( h2 h1 )_yt
C             i2 ( h2 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y
C             i2 ( h2 h1 )_yt + = 1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h1 h5 )_t * y ( h2 h5 p3 p4 )_y
C             i2 ( h2 h1 )_yt + = 1/12 * Sum ( h7 h6 p5 p4 p3 ) * t ( p3 p4 p5 h1 h6 h7 )_t * y ( h2 h6 h7 p3 p4 p5 )_y
C             i2 ( h2 h1 )_yt + = 1/144 * Sum ( h9 h8 h7 p6 p5 p4 p3 ) * t ( p3 p4 p5 p6 h1 h7 h8 h9 )_t * y ( h2 h7 h8 h9 p3 p4 p5 p6 )_y
C         i1 ( h2 h1 )_yxt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i2 ( h2 p3 )_yx
C             i2 ( h2 p3 )_yx + = 1 * Sum ( h5 p4 ) * x ( p4 h5 )_x * y ( h2 h5 p3 p4 )_y
C             i2 ( h2 p3 )_yx + = 1/4 * Sum ( h7 h6 p5 p4 ) * x ( p4 p5 h6 h7 )_x * y ( h2 h6 h7 p3 p4 p5 )_y
C             i2 ( h2 p3 )_yx + = 1/36 * Sum ( h9 h8 h7 p6 p5 p4 ) * x ( p4 p5 p6 h7 h8 h9 )_x * y ( h2 h7 h8 h9 p3 p4 p5 p6 )_y
C         i1 ( h2 h1 )_yxt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * i2 ( h2 h5 p3 p4 )_yx
C             i2 ( h2 h5 p3 p4 )_yx + = 1 * Sum ( h7 p6 ) * x ( p6 h7 )_x * y ( h2 h5 h7 p3 p4 p6 )_y
C             i2 ( h2 h5 p3 p4 )_yx + = 1/4 * Sum ( h9 h8 p7 p6 ) * x ( p6 p7 h8 h9 )_x * y ( h2 h5 h8 h9 p3 p4 p6 p7 )_y
C         i1 ( h2 h1 )_yxt + = 1/12 * Sum ( h6 h7 p3 p4 p5 ) * t ( p3 p4 p5 h1 h6 h7 )_t * i2 ( h2 h6 h7 p3 p4 p5 )_yx
C             i2 ( h2 h6 h7 p3 p4 p5 )_yx + = 1 * Sum ( h9 p8 ) * x ( p8 h9 )_x * y ( h2 h6 h7 h9 p3 p4 p5 p8 )_y
C     i0 ( )_dxy + = 1 * Sum ( p1 h3 ) * y ( h3 p1 )_y * i1 ( p1 h3 )_dx
C         i1 ( p1 h3 )_dx + = 1 * Sum ( p2 ) * d ( p1 p2 )_d * x ( p2 h3 )_x
C         i1 ( p1 h3 )_dtx + = 1 * x ( )_x * i2 ( p1 h3 )_dt
C             i2 ( p1 h3 )_dt + = 1 * Sum ( p2 ) * d ( p1 p2 )_d * t ( p2 h3 )_t
C     i0 ( )_yxd + = 1 * Sum ( p12 h11 ) * d ( h11 p12 )_d * i1 ( p12 h11 )_yx
C         i1 ( p12 h11 )_yx + = 1 * Sum ( h4 p3 ) * x ( p3 p12 h4 h11 )_x * y ( h4 p3 )_y
C         i1 ( p12 h11 )_yx + = 1/4 * Sum ( h6 h5 p4 p3 ) * x ( p3 p4 p12 h5 h6 h11 )_x * y ( h5 h6 p3 p4 )_y
C         i1 ( p12 h11 )_yx + = 1/36 * Sum ( h8 h7 h6 p5 p4 p3 ) * x ( p3 p4 p5 p12 h6 h7 h8 h11 )_x * y ( h6 h7 h8 p3 p4 p5 )_y
C         i1 ( p12 h11 )_yxt + = -1 * Sum ( h2 ) * t ( p12 h2 )_t * i2 ( h2 h11 )_yx
C             i2 ( h2 h11 )_yx + = 1 * Sum ( p4 ) * x ( p4 h11 )_x * y ( h2 p4 )_y
C             i2 ( h2 h11 )_yx + = -1/2 * Sum ( h6 p5 p4 ) * x ( p4 p5 h6 h11 )_x * y ( h2 h6 p4 p5 )_y
C             i2 ( h2 h11 )_yx + = 1/12 * Sum ( h8 h7 p6 p5 p4 ) * x ( p4 p5 p6 h7 h8 h11 )_x * y ( h2 h7 h8 p4 p5 p6 )_y
C             i2 ( h2 h11 )_yx + = -1/144 * Sum ( h10 h9 h8 p7 p6 p5 p4 ) * x ( p4 p5 p6 p7 h8 h9 h10 h11 )_x * y ( h2 h8 h9 h10 p4 p5 p6 p7 )_y
C             i2 ( h2 h11 )_ytx + = 1 * x ( )_x * i3 ( h2 h11 )_yt
C                 i3 ( h2 h11 )_yt + = 1 * Sum ( p3 ) * t ( p3 h11 )_t * y ( h2 p3 )_y
C                 i3 ( h2 h11 )_yt + = -1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h11 )_t * y ( h2 h5 p3 p4 )_y
C                 i3 ( h2 h11 )_yt + = 1/12 * Sum ( h7 h6 p5 p4 p3 ) * t ( p3 p4 p5 h6 h7 h11 )_t * y ( h2 h6 h7 p3 p4 p5 )_y
C                 i3 ( h2 h11 )_yt + = -1/144 * Sum ( h9 h8 h7 p6 p5 p4 p3 ) * t ( p3 p4 p5 p6 h7 h8 h9 h11 )_t * y ( h2 h7 h8 h9 p3 p4 p5 p6 )_y
C             i2 ( h2 h11 )_yxt + = 1 * Sum ( p3 ) * t ( p3 h11 )_t * i3 ( h2 p3 )_yx
C                 i3 ( h2 p3 )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h2 h6 p3 p5 )_y
C                 i3 ( h2 p3 )_yx + = 1/4 * Sum ( h8 h7 p6 p5 ) * x ( p5 p6 h7 h8 )_x * y ( h2 h7 h8 p3 p5 p6 )_y
C                 i3 ( h2 p3 )_yx + = 1/36 * Sum ( h10 h9 h8 p7 p6 p5 ) * x ( p5 p6 p7 h8 h9 h10 )_x * y ( h2 h8 h9 h10 p3 p5 p6 p7 )_y
C             i2 ( h2 h11 )_yxt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h11 )_t * i3 ( h2 h5 p3 p4 )_yx
C                 i3 ( h2 h5 p3 p4 )_yx + = -1 * Sum ( h8 p7 ) * x ( p7 h8 )_x * y ( h2 h5 h8 p3 p4 p7 )_y
C                 i3 ( h2 h5 p3 p4 )_yx + = -1/4 * Sum ( h10 h9 p8 p7 ) * x ( p7 p8 h9 h10 )_x * y ( h2 h5 h9 h10 p3 p4 p7 p8 )_y
C             i2 ( h2 h11 )_yxt + = 1/12 * Sum ( h6 h7 p3 p4 p5 ) * t ( p3 p4 p5 h6 h7 h11 )_t * i3 ( h2 h6 h7 p3 p4 p5 )_yx
C                 i3 ( h2 h6 h7 p3 p4 p5 )_yx + = 1 * Sum ( h10 p9 ) * x ( p9 h10 )_x * y ( h2 h6 h7 h10 p3 p4 p5 p9 )_y
C         i1 ( p12 h11 )_ytx + = -1 * Sum ( h1 ) * x ( p12 h1 )_x * i2 ( h1 h11 )_yt
C             i2 ( h1 h11 )_yt + = 1 * Sum ( p3 ) * t ( p3 h11 )_t * y ( h1 p3 )_y
C             i2 ( h1 h11 )_yt + = -1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h11 )_t * y ( h1 h5 p3 p4 )_y
C             i2 ( h1 h11 )_yt + = 1/12 * Sum ( h7 h6 p5 p4 p3 ) * t ( p3 p4 p5 h6 h7 h11 )_t * y ( h1 h6 h7 p3 p4 p5 )_y
C             i2 ( h1 h11 )_yt + = -1/144 * Sum ( h9 h8 h7 p6 p5 p4 p3 ) * t ( p3 p4 p5 p6 h7 h8 h9 h11 )_t * y ( h1 h7 h8 h9 p3 p4 p5 p6 )_y
C         i1 ( p12 h11 )_yxt + = 1 * t ( p12 h11 )_t * i2 ( )_yx
C             i2 ( )_yx + = 1 * Sum ( h4 p3 ) * x ( p3 h4 )_x * y ( h4 p3 )_y
C             i2 ( )_yx + = 1/4 * Sum ( h6 h5 p4 p3 ) * x ( p3 p4 h5 h6 )_x * y ( h5 h6 p3 p4 )_y
C             i2 ( )_yx + = 1/36 * Sum ( h8 h7 h6 p5 p4 p3 ) * x ( p3 p4 p5 h6 h7 h8 )_x * y ( h6 h7 h8 p3 p4 p5 )_y
C             i2 ( )_yx + = 1/576 * Sum ( h10 h9 h8 h7 p6 p5 p4 p3 ) * x ( p3 p4 p5 p6 h7 h8 h9 h10 )_x * y ( h7 h8 h9 h10 p3 p4 p5 p6 )_y
C         i1 ( p12 h11 )_ytx + = -1/2 * Sum ( h1 h2 p13 ) * x ( p12 p13 h1 h2 )_x * i2 ( h1 h2 h11 p13 )_yt
C             i2 ( h1 h2 h11 p13 )_yt + = 1 * Sum ( p3 ) * t ( p3 h11 )_t * y ( h1 h2 p3 p13 )_y
C             i2 ( h1 h2 h11 p13 )_yt + = 1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h11 )_t * y ( h1 h2 h5 p3 p4 p13 )_y
C             i2 ( h1 h2 h11 p13 )_yt + = 1/12 * Sum ( h7 h6 p5 p4 p3 ) * t ( p3 p4 p5 h6 h7 h11 )_t * y ( h1 h2 h6 h7 p3 p4 p5 p13 )_y
C         i1 ( p12 h11 )_ytx + = -1/12 * Sum ( h13 h6 h7 p1 p2 ) * x ( p1 p2 p12 h6 h7 h13 )_x * i2 ( h6 h7 h13 h11 p1 p2 )_yt
C             i2 ( h6 h7 h13 h11 p1 p2 )_yt + = 1 * Sum ( p3 ) * t ( p3 h11 )_t * y ( h6 h7 h13 p1 p2 p3 )_y
C             i2 ( h6 h7 h13 h11 p1 p2 )_yt + = 1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h11 )_t * y ( h5 h6 h7 h13 p1 p2 p3 p4 )_y
C         i1 ( p12 h11 )_ytx + = 1/144 * Sum ( h7 h8 h9 h10 p4 p5 p6 ) * x ( p4 p5 p6 p12 h7 h8 h9 h10 )_x * i2 ( h7 h8 h9 h10 h11 p4 p5 p6 )_yt
C             i2 ( h7 h8 h9 h10 h11 p4 p5 p6 )_yt + = 1 * Sum ( p3 ) * t ( p3 h11 )_t * y ( h7 h8 h9 h10 p3 p4 p5 p6 )_y
C         i1 ( p12 h11 )_yxt + = 1 * Sum ( h4 p3 ) * t ( p3 p12 h4 h11 )_t * i2 ( h4 p3 )_yx
C             i2 ( h4 p3 )_yx + = 1 * x ( )_x * y ( h4 p3 )_y
C             i2 ( h4 p3 )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h4 h6 p3 p5 )_y
C             i2 ( h4 p3 )_yx + = 1/4 * Sum ( h8 h7 p6 p5 ) * x ( p5 p6 h7 h8 )_x * y ( h4 h7 h8 p3 p5 p6 )_y
C             i2 ( h4 p3 )_yx + = 1/36 * Sum ( h10 h9 h8 p7 p6 p5 ) * x ( p5 p6 p7 h8 h9 h10 )_x * y ( h4 h8 h9 h10 p3 p5 p6 p7 )_y
C         i1 ( p12 h11 )_yxt + = -1/2 * Sum ( h2 h1 p13 ) * t ( p12 p13 h1 h2 )_t * i2 ( h1 h2 h11 p13 )_yx
C             i2 ( h1 h2 h11 p13 )_yx + = 1 * Sum ( p6 ) * x ( p6 h11 )_x * y ( h1 h2 p6 p13 )_y
C             i2 ( h1 h2 h11 p13 )_yx + = 1/2 * Sum ( h8 p7 p6 ) * x ( p6 p7 h8 h11 )_x * y ( h1 h2 h8 p6 p7 p13 )_y
C             i2 ( h1 h2 h11 p13 )_yx + = 1/12 * Sum ( h10 h9 p8 p7 p6 ) * x ( p6 p7 p8 h9 h10 h11 )_x * y ( h1 h2 h9 h10 p6 p7 p8 p13 )_y
C             i2 ( h1 h2 h11 p13 )_yxt + = -5/18 * Sum ( h7 p5 p6 ) * t ( p5 p6 h7 h11 )_t * i3 ( h1 h2 h7 p5 p6 p13 )_yx
C                 i3 ( h1 h2 h7 p5 p6 p13 )_yx + = 1 * Sum ( h10 p9 ) * x ( p9 h10 )_x * i4 ( h1 h2 h7 h10 p5 p6 p9 p13 )_y
C                     i4 ( h1 h2 h7 h10 p5 p6 p9 p13 )_y + = 1 * y ( h1 h2 h7 h10 p5 p6 p9 p13 )_y
C                     i4 ( h1 h2 h7 h10 p5 p6 p9 p13 )_y + = 4/5 * y ( h1 h2 h7 h10 p5 p6 p9 p13 )_y
C         i1 ( p12 h11 )_ytx + = 1/4 * x ( )_x * i2 ( p12 h11 )_yt
C             i2 ( p12 h11 )_yt + = 1 * Sum ( h6 h5 p4 p3 ) * t ( p3 p4 p12 h5 h6 h11 )_t * y ( h5 h6 p3 p4 )_y
C             i2 ( p12 h11 )_yt + = 1/9 * Sum ( h8 h7 h6 p5 p4 p3 ) * t ( p3 p4 p5 p12 h6 h7 h8 h11 )_t * y ( h6 h7 h8 p3 p4 p5 )_y
C             i2 ( p12 h11 )_ytt + = 2 * Sum ( h13 h2 p8 ) * t ( p8 p12 h2 h13 )_t * i3 ( h2 h13 h11 p8 )_yt
C                 i3 ( h2 h13 h11 p8 )_yt + = 1 * Sum ( p6 ) * t ( p6 h11 )_t * y ( h2 h13 p6 p8 )_y
C                 i3 ( h2 h13 h11 p8 )_yt + = -5/18 * Sum ( h7 p6 p5 ) * t ( p5 p6 h7 h11 )_t * i4 ( h2 h7 h13 p5 p6 p8 )_y
C                     i4 ( h2 h7 h13 p5 p6 p8 )_y + = 1 * y ( h2 h7 h13 p5 p6 p8 )_y
C                     i4 ( h2 h7 h13 p5 p6 p8 )_y + = 4/5 * y ( h2 h7 h13 p5 p6 p8 )_y
C                 i3 ( h2 h13 h11 p8 )_yt + = 1/12 * Sum ( h7 h6 p5 p4 p3 ) * t ( p3 p4 p5 h6 h7 h11 )_t * y ( h2 h6 h7 h13 p3 p4 p5 p8 )_y
C             i2 ( p12 h11 )_ytt + = -1/3 * Sum ( h5 h6 h7 p3 p4 ) * t ( p3 p4 p12 h5 h6 h7 )_t * i3 ( h5 h6 h7 h11 p3 p4 )_yt
C                 i3 ( h5 h6 h7 h11 p3 p4 )_yt + = 1 * Sum ( p8 ) * t ( p8 h11 )_t * y ( h5 h6 h7 p3 p4 p8 )_y
C                 i3 ( h5 h6 h7 h11 p3 p4 )_yt + = -1/2 * Sum ( h10 p9 p8 ) * t ( p8 p9 h10 h11 )_t * y ( h5 h6 h7 h10 p3 p4 p8 p9 )_y
C             i2 ( p12 h11 )_ytt + = -1/36 * Sum ( h6 h7 h8 h9 p3 p4 p5 ) * t ( p3 p4 p5 p12 h6 h7 h8 h9 )_t * i3 ( h6 h7 h8 h9 h11 p3 p4 p5 )_yt
C                 i3 ( h6 h7 h8 h9 h11 p3 p4 p5 )_yt + = 1 * Sum ( p10 ) * t ( p10 h11 )_t * y ( h6 h7 h8 h9 p3 p4 p5 p10 )_y
C         i1 ( p12 h11 )_yxt + = -1/12 * Sum ( h5 h6 h7 p3 p4 ) * t ( p3 p4 p12 h5 h6 h7 )_t * i2 ( h5 h6 h7 h11 p3 p4 )_yx
C             i2 ( h5 h6 h7 h11 p3 p4 )_yx + = 1 * Sum ( p8 ) * x ( p8 h11 )_x * y ( h5 h6 h7 p3 p4 p8 )_y
C             i2 ( h5 h6 h7 h11 p3 p4 )_yx + = -1/2 * Sum ( h10 p9 p8 ) * x ( p8 p9 h10 h11 )_x * y ( h5 h6 h7 h10 p3 p4 p8 p9 )_y
C         i1 ( p12 h11 )_yxt + = 1/4 * Sum ( h5 h6 p3 p4 ) * t ( p3 p4 p12 h5 h6 h11 )_t * i2 ( h5 h6 p3 p4 )_yx
C             i2 ( h5 h6 p3 p4 )_yx + = 1 * Sum ( h8 p7 ) * x ( p7 h8 )_x * y ( h5 h6 h8 p3 p4 p7 )_y
C             i2 ( h5 h6 p3 p4 )_yx + = 1/4 * Sum ( h10 h9 p8 p7 ) * x ( p7 p8 h9 h10 )_x * y ( h5 h6 h9 h10 p3 p4 p7 p8 )_y
C         i1 ( p12 h11 )_yxt + = -1/144 * Sum ( h6 h7 h8 h9 p3 p4 p5 ) * t ( p3 p4 p5 p12 h6 h7 h8 h9 )_t * i2 ( h6 h7 h8 h9 h11 p3 p4 p5 )_yx
C             i2 ( h6 h7 h8 h9 h11 p3 p4 p5 )_yx + = 1 * Sum ( p10 ) * x ( p10 h11 )_x * y ( h6 h7 h8 h9 p3 p4 p5 p10 )_y
C         i1 ( p12 h11 )_yxt + = 1/36 * Sum ( h6 h7 h8 p3 p4 p5 ) * t ( p3 p4 p5 p12 h6 h7 h8 h11 )_t * i2 ( h6 h7 h8 p3 p4 p5 )_yx
C             i2 ( h6 h7 h8 p3 p4 p5 )_yx + = 1 * Sum ( h10 p9 ) * x ( p9 h10 )_x * y ( h6 h7 h8 h10 p3 p4 p5 p9 )_y
C         i1 ( p12 h11 )_yxtt + = -1/2 * Sum ( p1 ) * t ( p1 h11 )_t * i2 ( p12 p1 )_yxt
C             i2 ( p12 p1 )_yxt + = 1 * Sum ( h4 h5 p3 ) * t ( p3 p12 h4 h5 )_t * i3 ( h4 h5 p1 p3 )_yx
C                 i3 ( h4 h5 p1 p3 )_yx + = -1 * Sum ( h8 p7 ) * x ( p7 h8 )_x * y ( h4 h5 h8 p1 p3 p7 )_y
C                 i3 ( h4 h5 p1 p3 )_yx + = -1/4 * Sum ( h10 h9 p8 p7 ) * x ( p7 p8 h9 h10 )_x * y ( h4 h5 h9 h10 p1 p3 p7 p8 )_y
C             i2 ( p12 p1 )_yxt + = 1/6 * Sum ( h5 h6 h7 p3 p4 ) * t ( p3 p4 p12 h5 h6 h7 )_t * i3 ( h5 h6 h7 p1 p3 p4 )_yx
C                 i3 ( h5 h6 h7 p1 p3 p4 )_yx + = 1 * Sum ( h10 p9 ) * x ( p9 h10 )_x * y ( h5 h6 h7 h10 p1 p3 p4 p9 )_y
C     i0 ( )_yxd + = -1/2 * Sum ( p2 p1 ) * d ( p1 p2 )_d * i1 ( p2 p1 )_yx
C         i1 ( p2 p1 )_yx + = -1 * Sum ( h5 h4 p3 ) * x ( p2 p3 h4 h5 )_x * y ( h4 h5 p1 p3 )_y
C         i1 ( p2 p1 )_yx + = -1/6 * Sum ( h7 h6 h5 p4 p3 ) * x ( p2 p3 p4 h5 h6 h7 )_x * y ( h5 h6 h7 p1 p3 p4 )_y
C         i1 ( p2 p1 )_yx + = -1/72 * Sum ( h9 h8 h7 h6 p5 p4 p3 ) * x ( p2 p3 p4 p5 h6 h7 h8 h9 )_x * y ( h6 h7 h8 h9 p1 p3 p4 p5 )_y
C         i1 ( p2 p1 )_yxt + = -2 * Sum ( h3 ) * t ( p2 h3 )_t * i2 ( h3 p1 )_yx
C             i2 ( h3 p1 )_yx + = 1 * Sum ( h5 p4 ) * x ( p4 h5 )_x * y ( h3 h5 p1 p4 )_y
C             i2 ( h3 p1 )_yx + = 1/4 * Sum ( h7 h6 p5 p4 ) * x ( p4 p5 h6 h7 )_x * y ( h3 h6 h7 p1 p4 p5 )_y
C             i2 ( h3 p1 )_yx + = 1/36 * Sum ( h9 h8 h7 p6 p5 p4 ) * x ( p4 p5 p6 h7 h8 h9 )_x * y ( h3 h7 h8 h9 p1 p4 p5 p6 )_y
C         i1 ( p2 p1 )_ytx + = 1 * x ( )_x * i2 ( p2 p1 )_yt
C             i2 ( p2 p1 )_yt + = -1 * Sum ( h5 h4 p3 ) * t ( p2 p3 h4 h5 )_t * y ( h4 h5 p1 p3 )_y
C             i2 ( p2 p1 )_yt + = -1/6 * Sum ( h7 h6 h5 p4 p3 ) * t ( p2 p3 p4 h5 h6 h7 )_t * y ( h5 h6 h7 p1 p3 p4 )_y
C             i2 ( p2 p1 )_yt + = -1/72 * Sum ( h9 h8 h7 h6 p5 p4 p3 ) * t ( p2 p3 p4 p5 h6 h7 h8 h9 )_t * y ( h6 h7 h8 h9 p1 p3 p4 p5 )_y
C         i1 ( p2 p1 )_yxt + = -1 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i2 ( h4 h5 p1 p3 )_yx
C             i2 ( h4 h5 p1 p3 )_yx + = 1 * Sum ( h7 p6 ) * x ( p6 h7 )_x * y ( h4 h5 h7 p1 p3 p6 )_y
C             i2 ( h4 h5 p1 p3 )_yx + = 1/4 * Sum ( h9 h8 p7 p6 ) * x ( p6 p7 h8 h9 )_x * y ( h4 h5 h8 h9 p1 p3 p6 p7 )_y
C         i1 ( p2 p1 )_yxt + = -1/6 * Sum ( h5 h6 h7 p3 p4 ) * t ( p2 p3 p4 h5 h6 h7 )_t * i2 ( h5 h6 h7 p1 p3 p4 )_yx
C             i2 ( h5 h6 h7 p1 p3 p4 )_yx + = 1 * Sum ( h9 p8 ) * x ( p8 h9 )_x * y ( h5 h6 h7 h9 p1 p3 p4 p8 )_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_d1
      INTEGER k_d1_offset
      INTEGER d_i1
      INTEGER k_i1_offset
      INTEGER d_y0
      INTEGER k_y0_offset
      INTEGER d_y1
      INTEGER k_y1_offset
      INTEGER l_i1_offset
      INTEGER d_x0
      INTEGER k_x0_offset
      INTEGER size_i1
      INTEGER d_x1
      INTEGER k_x1_offset
      INTEGER d_y2
      INTEGER k_y2_offset
      INTEGER d_x2
      INTEGER k_x2_offset
      INTEGER d_y3
      INTEGER k_y3_offset
      INTEGER d_x3
      INTEGER k_x3_offset
      INTEGER d_y4
      INTEGER k_y4_offset
      INTEGER d_i2
      INTEGER k_i2_offset
      INTEGER l_i2_offset
      INTEGER d_t1
      INTEGER k_t1_offset
      INTEGER size_i2
      INTEGER d_x4
      INTEGER k_x4_offset
      INTEGER d_t2
      INTEGER k_t2_offset
      INTEGER d_t3
      INTEGER k_t3_offset
      INTEGER d_t4
      INTEGER k_t4_offset
      INTEGER d_i3
      INTEGER k_i3_offset
      INTEGER l_i3_offset
      INTEGER size_i3
      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 OFFSET_eomccsdtq_density1_1_1(l_i1_offset,k_i1_offset,size_i1
     &)
      CALL TCE_FILENAME('eomccsdtq_density1_1_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL eomccsdtq_density1_1_1(d_x0,k_x0_offset,d_y1,k_y1_offset,d_i1
     &,k_i1_offset)
      CALL eomccsdtq_density1_1_2(d_x1,k_x1_offset,d_y2,k_y2_offset,d_i1
     &,k_i1_offset)
      CALL eomccsdtq_density1_1_3(d_x2,k_x2_offset,d_y3,k_y3_offset,d_i1
     &,k_i1_offset)
      CALL eomccsdtq_density1_1_4(d_x3,k_x3_offset,d_y4,k_y4_offset,d_i1
     &,k_i1_offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL eomccsdtq_density1_1(d_d1,k_d1_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('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL OFFSET_eomccsdtq_density1_2_1(l_i1_offset,k_i1_offset,size_i1
     &)
      CALL TCE_FILENAME('eomccsdtq_density1_2_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL eomccsdtq_density1_2_1(d_d1,k_d1_offset,d_x1,k_x1_offset,d_i1
     &,k_i1_offset)
      CALL OFFSET_eomccsdtq_density1_2_2_1(l_i2_offset,k_i2_offset,size_
     &i2)
      CALL TCE_FILENAME('eomccsdtq_density1_2_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdtq_density1_2_2_1(d_d1,k_d1_offset,d_t1,k_t1_offset,d_
     &i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdtq_density1_2_2(d_x0,k_x0_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('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL eomccsdtq_density1_2(d_y0,k_y0_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('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL OFFSET_eomccsdtq_density1_3_1(l_i1_offset,k_i1_offset,size_i1
     &)
      CALL TCE_FILENAME('eomccsdtq_density1_3_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL eomccsdtq_density1_3_1(d_x1,k_x1_offset,d_y1,k_y1_offset,d_i1
     &,k_i1_offset)
      CALL eomccsdtq_density1_3_2(d_x2,k_x2_offset,d_y2,k_y2_offset,d_i1
     &,k_i1_offset)
      CALL eomccsdtq_density1_3_3(d_x3,k_x3_offset,d_y3,k_y3_offset,d_i1
     &,k_i1_offset)
      CALL eomccsdtq_density1_3_4(d_x4,k_x4_offset,d_y4,k_y4_offset,d_i1
     &,k_i1_offset)
      CALL OFFSET_eomccsdtq_density1_3_5_1(l_i2_offset,k_i2_offset,size_
     &i2)
      CALL TCE_FILENAME('eomccsdtq_density1_3_5_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdtq_density1_3_5_1(d_t1,k_t1_offset,d_y1,k_y1_offset,d_
     &i2,k_i2_offset)
      CALL eomccsdtq_density1_3_5_2(d_t2,k_t2_offset,d_y2,k_y2_offset,d_
     &i2,k_i2_offset)
      CALL eomccsdtq_density1_3_5_3(d_t3,k_t3_offset,d_y3,k_y3_offset,d_
     &i2,k_i2_offset)
      CALL eomccsdtq_density1_3_5_4(d_t4,k_t4_offset,d_y4,k_y4_offset,d_
     &i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdtq_density1_3_5(d_x0,k_x0_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('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL OFFSET_eomccsdtq_density1_3_6_1(l_i2_offset,k_i2_offset,size_
     &i2)
      CALL TCE_FILENAME('eomccsdtq_density1_3_6_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdtq_density1_3_6_1(d_x1,k_x1_offset,d_y2,k_y2_offset,d_
     &i2,k_i2_offset)
      CALL eomccsdtq_density1_3_6_2(d_x2,k_x2_offset,d_y3,k_y3_offset,d_
     &i2,k_i2_offset)
      CALL eomccsdtq_density1_3_6_3(d_x3,k_x3_offset,d_y4,k_y4_offset,d_
     &i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdtq_density1_3_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('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL OFFSET_eomccsdtq_density1_3_7_1(l_i2_offset,k_i2_offset,size_
     &i2)
      CALL TCE_FILENAME('eomccsdtq_density1_3_7_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdtq_density1_3_7_1(d_x1,k_x1_offset,d_y3,k_y3_offset,d_
     &i2,k_i2_offset)
      CALL eomccsdtq_density1_3_7_2(d_x2,k_x2_offset,d_y4,k_y4_offset,d_
     &i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdtq_density1_3_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('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL OFFSET_eomccsdtq_density1_3_8_1(l_i2_offset,k_i2_offset,size_
     &i2)
      CALL TCE_FILENAME('eomccsdtq_density1_3_8_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdtq_density1_3_8_1(d_x1,k_x1_offset,d_y4,k_y4_offset,d_
     &i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdtq_density1_3_8(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('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL eomccsdtq_density1_3(d_d1,k_d1_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('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL OFFSET_eomccsdtq_density1_4_1(l_i1_offset,k_i1_offset,size_i1
     &)
      CALL TCE_FILENAME('eomccsdtq_density1_4_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL eomccsdtq_density1_4_1(d_d1,k_d1_offset,d_x1,k_x1_offset,d_i1
     &,k_i1_offset)
      CALL OFFSET_eomccsdtq_density1_4_2_1(l_i2_offset,k_i2_offset,size_
     &i2)
      CALL TCE_FILENAME('eomccsdtq_density1_4_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdtq_density1_4_2_1(d_d1,k_d1_offset,d_t1,k_t1_offset,d_
     &i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdtq_density1_4_2(d_x0,k_x0_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('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL eomccsdtq_density1_4(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('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL OFFSET_eomccsdtq_density1_5_1(l_i1_offset,k_i1_offset,size_i1
     &)
      CALL TCE_FILENAME('eomccsdtq_density1_5_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL eomccsdtq_density1_5_1(d_x2,k_x2_offset,d_y1,k_y1_offset,d_i1
     &,k_i1_offset)
      CALL eomccsdtq_density1_5_2(d_x3,k_x3_offset,d_y2,k_y2_offset,d_i1
     &,k_i1_offset)
      CALL eomccsdtq_density1_5_3(d_x4,k_x4_offset,d_y3,k_y3_offset,d_i1
     &,k_i1_offset)
      CALL OFFSET_eomccsdtq_density1_5_4_1(l_i2_offset,k_i2_offset,size_
     &i2)
      CALL TCE_FILENAME('eomccsdtq_density1_5_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdtq_density1_5_4_1(d_x1,k_x1_offset,d_y1,k_y1_offset,d_
     &i2,k_i2_offset)
      CALL eomccsdtq_density1_5_4_2(d_x2,k_x2_offset,d_y2,k_y2_offset,d_
     &i2,k_i2_offset)
      CALL eomccsdtq_density1_5_4_3(d_x3,k_x3_offset,d_y3,k_y3_offset,d_
     &i2,k_i2_offset)
      CALL eomccsdtq_density1_5_4_4(d_x4,k_x4_offset,d_y4,k_y4_offset,d_
     &i2,k_i2_offset)
      CALL OFFSET_eomccsdtq_density1_5_4_5_1(l_i3_offset,k_i3_offset,siz
     &e_i3)
      CALL TCE_FILENAME('eomccsdtq_density1_5_4_5_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL eomccsdtq_density1_5_4_5_1(d_t1,k_t1_offset,d_y1,k_y1_offset,
     &d_i3,k_i3_offset)
      CALL eomccsdtq_density1_5_4_5_2(d_t2,k_t2_offset,d_y2,k_y2_offset,
     &d_i3,k_i3_offset)
      CALL eomccsdtq_density1_5_4_5_3(d_t3,k_t3_offset,d_y3,k_y3_offset,
     &d_i3,k_i3_offset)
      CALL eomccsdtq_density1_5_4_5_4(d_t4,k_t4_offset,d_y4,k_y4_offset,
     &d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL eomccsdtq_density1_5_4_5(d_x0,k_x0_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('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL OFFSET_eomccsdtq_density1_5_4_6_1(l_i3_offset,k_i3_offset,siz
     &e_i3)
      CALL TCE_FILENAME('eomccsdtq_density1_5_4_6_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL eomccsdtq_density1_5_4_6_1(d_x1,k_x1_offset,d_y2,k_y2_offset,
     &d_i3,k_i3_offset)
      CALL eomccsdtq_density1_5_4_6_2(d_x2,k_x2_offset,d_y3,k_y3_offset,
     &d_i3,k_i3_offset)
      CALL eomccsdtq_density1_5_4_6_3(d_x3,k_x3_offset,d_y4,k_y4_offset,
     &d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL eomccsdtq_density1_5_4_6(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('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL OFFSET_eomccsdtq_density1_5_4_7_1(l_i3_offset,k_i3_offset,siz
     &e_i3)
      CALL TCE_FILENAME('eomccsdtq_density1_5_4_7_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL eomccsdtq_density1_5_4_7_1(d_x1,k_x1_offset,d_y3,k_y3_offset,
     &d_i3,k_i3_offset)
      CALL eomccsdtq_density1_5_4_7_2(d_x2,k_x2_offset,d_y4,k_y4_offset,
     &d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL eomccsdtq_density1_5_4_7(d_t2,k_t2_offset,d_i3,k_i3_offset,d_
     &i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL OFFSET_eomccsdtq_density1_5_4_8_1(l_i3_offset,k_i3_offset,siz
     &e_i3)
      CALL TCE_FILENAME('eomccsdtq_density1_5_4_8_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL eomccsdtq_density1_5_4_8_1(d_x1,k_x1_offset,d_y4,k_y4_offset,
     &d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL eomccsdtq_density1_5_4_8(d_t3,k_t3_offset,d_i3,k_i3_offset,d_
     &i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdtq_density1_5_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('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL OFFSET_eomccsdtq_density1_5_5_1(l_i2_offset,k_i2_offset,size_
     &i2)
      CALL TCE_FILENAME('eomccsdtq_density1_5_5_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdtq_density1_5_5_1(d_t1,k_t1_offset,d_y1,k_y1_offset,d_
     &i2,k_i2_offset)
      CALL eomccsdtq_density1_5_5_2(d_t2,k_t2_offset,d_y2,k_y2_offset,d_
     &i2,k_i2_offset)
      CALL eomccsdtq_density1_5_5_3(d_t3,k_t3_offset,d_y3,k_y3_offset,d_
     &i2,k_i2_offset)
      CALL eomccsdtq_density1_5_5_4(d_t4,k_t4_offset,d_y4,k_y4_offset,d_
     &i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdtq_density1_5_5(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('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL OFFSET_eomccsdtq_density1_5_6_1(l_i2_offset,k_i2_offset,size_
     &i2)
      CALL TCE_FILENAME('eomccsdtq_density1_5_6_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdtq_density1_5_6_1(d_x1,k_x1_offset,d_y1,k_y1_offset,d_
     &i2,k_i2_offset)
      CALL eomccsdtq_density1_5_6_2(d_x2,k_x2_offset,d_y2,k_y2_offset,d_
     &i2,k_i2_offset)
      CALL eomccsdtq_density1_5_6_3(d_x3,k_x3_offset,d_y3,k_y3_offset,d_
     &i2,k_i2_offset)
      CALL eomccsdtq_density1_5_6_4(d_x4,k_x4_offset,d_y4,k_y4_offset,d_
     &i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdtq_density1_5_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('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL OFFSET_eomccsdtq_density1_5_7_1(l_i2_offset,k_i2_offset,size_
     &i2)
      CALL TCE_FILENAME('eomccsdtq_density1_5_7_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdtq_density1_5_7_1(d_t1,k_t1_offset,d_y2,k_y2_offset,d_
     &i2,k_i2_offset)
      CALL eomccsdtq_density1_5_7_2(d_t2,k_t2_offset,d_y3,k_y3_offset,d_
     &i2,k_i2_offset)
      CALL eomccsdtq_density1_5_7_3(d_t3,k_t3_offset,d_y4,k_y4_offset,d_
     &i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdtq_density1_5_7(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('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL OFFSET_eomccsdtq_density1_5_8_1(l_i2_offset,k_i2_offset,size_
     &i2)
      CALL TCE_FILENAME('eomccsdtq_density1_5_8_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdtq_density1_5_8_1(d_t1,k_t1_offset,d_y3,k_y3_offset,d_
     &i2,k_i2_offset)
      CALL eomccsdtq_density1_5_8_2(d_t2,k_t2_offset,d_y4,k_y4_offset,d_
     &i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdtq_density1_5_8(d_x3,k_x3_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('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL OFFSET_eomccsdtq_density1_5_9_1(l_i2_offset,k_i2_offset,size_
     &i2)
      CALL TCE_FILENAME('eomccsdtq_density1_5_9_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdtq_density1_5_9_1(d_t1,k_t1_offset,d_y4,k_y4_offset,d_
     &i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdtq_density1_5_9(d_x4,k_x4_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('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL OFFSET_eomccsdtq_density1_5_10_1(l_i2_offset,k_i2_offset,size
     &_i2)
      CALL TCE_FILENAME('eomccsdtq_density1_5_10_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdtq_density1_5_10_1(d_x0,k_x0_offset,d_y1,k_y1_offset,d
     &_i2,k_i2_offset)
      CALL eomccsdtq_density1_5_10_2(d_x1,k_x1_offset,d_y2,k_y2_offset,d
     &_i2,k_i2_offset)
      CALL eomccsdtq_density1_5_10_3(d_x2,k_x2_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL eomccsdtq_density1_5_10_4(d_x3,k_x3_offset,d_y4,k_y4_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdtq_density1_5_10(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL OFFSET_eomccsdtq_density1_5_11_1(l_i2_offset,k_i2_offset,size
     &_i2)
      CALL TCE_FILENAME('eomccsdtq_density1_5_11_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdtq_density1_5_11_1(d_x1,k_x1_offset,d_y2,k_y2_offset,d
     &_i2,k_i2_offset)
      CALL eomccsdtq_density1_5_11_2(d_x2,k_x2_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL eomccsdtq_density1_5_11_3(d_x3,k_x3_offset,d_y4,k_y4_offset,d
     &_i2,k_i2_offset)
      CALL OFFSET_eomccsdtq_density1_5_11_4_1(l_i3_offset,k_i3_offset,si
     &ze_i3)
      CALL TCE_FILENAME('eomccsdtq_density1_5_11_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL OFFSET_eomccsdtq_density1_5_11_4_1_1(l_i4_offset,k_i4_offset,
     &size_i4)
      CALL TCE_FILENAME('eomccsdtq_density1_5_11_4_1_1_i4',filename)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL eomccsdtq_density1_5_11_4_1_1(d_y4,k_y4_offset,d_i4,k_i4_offs
     &et)
      CALL eomccsdtq_density1_5_11_4_1_2(d_y4,k_y4_offset,d_i4,k_i4_offs
     &et)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL eomccsdtq_density1_5_11_4_1(d_x1,k_x1_offset,d_i4,k_i4_offset
     &,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL eomccsdtq_density1_5_11_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('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdtq_density1_5_11(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL OFFSET_eomccsdtq_density1_5_12_1(l_i2_offset,k_i2_offset,size
     &_i2)
      CALL TCE_FILENAME('eomccsdtq_density1_5_12_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdtq_density1_5_12_1(d_t3,k_t3_offset,d_y2,k_y2_offset,d
     &_i2,k_i2_offset)
      CALL eomccsdtq_density1_5_12_2(d_t4,k_t4_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL OFFSET_eomccsdtq_density1_5_12_3_1(l_i3_offset,k_i3_offset,si
     &ze_i3)
      CALL TCE_FILENAME('eomccsdtq_density1_5_12_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL eomccsdtq_density1_5_12_3_1(d_t1,k_t1_offset,d_y2,k_y2_offset
     &,d_i3,k_i3_offset)
      CALL OFFSET_eomccsdtq_density1_5_12_3_2_1(l_i4_offset,k_i4_offset,
     &size_i4)
      CALL TCE_FILENAME('eomccsdtq_density1_5_12_3_2_1_i4',filename)
      CALL CREATEFILE(filename,d_i4,size_i4)
      CALL eomccsdtq_density1_5_12_3_2_1(d_y3,k_y3_offset,d_i4,k_i4_offs
     &et)
      CALL eomccsdtq_density1_5_12_3_2_2(d_y3,k_y3_offset,d_i4,k_i4_offs
     &et)
      CALL RECONCILEFILE(d_i4,size_i4)
      CALL eomccsdtq_density1_5_12_3_2(d_t2,k_t2_offset,d_i4,k_i4_offset
     &,d_i3,k_i3_offset)
      CALL DELETEFILE(d_i4)
      IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL eomccsdtq_density1_5_12_3_3(d_t3,k_t3_offset,d_y4,k_y4_offset
     &,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL eomccsdtq_density1_5_12_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('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL OFFSET_eomccsdtq_density1_5_12_4_1(l_i3_offset,k_i3_offset,si
     &ze_i3)
      CALL TCE_FILENAME('eomccsdtq_density1_5_12_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL eomccsdtq_density1_5_12_4_1(d_t1,k_t1_offset,d_y3,k_y3_offset
     &,d_i3,k_i3_offset)
      CALL eomccsdtq_density1_5_12_4_2(d_t2,k_t2_offset,d_y4,k_y4_offset
     &,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL eomccsdtq_density1_5_12_4(d_t3,k_t3_offset,d_i3,k_i3_offset,d
     &_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL OFFSET_eomccsdtq_density1_5_12_5_1(l_i3_offset,k_i3_offset,si
     &ze_i3)
      CALL TCE_FILENAME('eomccsdtq_density1_5_12_5_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL eomccsdtq_density1_5_12_5_1(d_t1,k_t1_offset,d_y4,k_y4_offset
     &,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL eomccsdtq_density1_5_12_5(d_t4,k_t4_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('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdtq_density1_5_12(d_x0,k_x0_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL OFFSET_eomccsdtq_density1_5_13_1(l_i2_offset,k_i2_offset,size
     &_i2)
      CALL TCE_FILENAME('eomccsdtq_density1_5_13_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdtq_density1_5_13_1(d_x1,k_x1_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL eomccsdtq_density1_5_13_2(d_x2,k_x2_offset,d_y4,k_y4_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdtq_density1_5_13(d_t3,k_t3_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL OFFSET_eomccsdtq_density1_5_14_1(l_i2_offset,k_i2_offset,size
     &_i2)
      CALL TCE_FILENAME('eomccsdtq_density1_5_14_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdtq_density1_5_14_1(d_x1,k_x1_offset,d_y3,k_y3_offset,d
     &_i2,k_i2_offset)
      CALL eomccsdtq_density1_5_14_2(d_x2,k_x2_offset,d_y4,k_y4_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdtq_density1_5_14(d_t3,k_t3_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL OFFSET_eomccsdtq_density1_5_15_1(l_i2_offset,k_i2_offset,size
     &_i2)
      CALL TCE_FILENAME('eomccsdtq_density1_5_15_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdtq_density1_5_15_1(d_x1,k_x1_offset,d_y4,k_y4_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdtq_density1_5_15(d_t4,k_t4_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL OFFSET_eomccsdtq_density1_5_16_1(l_i2_offset,k_i2_offset,size
     &_i2)
      CALL TCE_FILENAME('eomccsdtq_density1_5_16_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdtq_density1_5_16_1(d_x1,k_x1_offset,d_y4,k_y4_offset,d
     &_i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdtq_density1_5_16(d_t4,k_t4_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL OFFSET_eomccsdtq_density1_5_17_1(l_i2_offset,k_i2_offset,size
     &_i2)
      CALL TCE_FILENAME('eomccsdtq_density1_5_17_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_eomccsdtq_density1_5_17_1_1(l_i3_offset,k_i3_offset,si
     &ze_i3)
      CALL TCE_FILENAME('eomccsdtq_density1_5_17_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL eomccsdtq_density1_5_17_1_1(d_x1,k_x1_offset,d_y3,k_y3_offset
     &,d_i3,k_i3_offset)
      CALL eomccsdtq_density1_5_17_1_2(d_x2,k_x2_offset,d_y4,k_y4_offset
     &,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL eomccsdtq_density1_5_17_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('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL OFFSET_eomccsdtq_density1_5_17_2_1(l_i3_offset,k_i3_offset,si
     &ze_i3)
      CALL TCE_FILENAME('eomccsdtq_density1_5_17_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL eomccsdtq_density1_5_17_2_1(d_x1,k_x1_offset,d_y4,k_y4_offset
     &,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL eomccsdtq_density1_5_17_2(d_t3,k_t3_offset,d_i3,k_i3_offset,d
     &_i2,k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdtq_density1_5_17(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i
     &1,k_i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL eomccsdtq_density1_5(d_d1,k_d1_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('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL OFFSET_eomccsdtq_density1_6_1(l_i1_offset,k_i1_offset,size_i1
     &)
      CALL TCE_FILENAME('eomccsdtq_density1_6_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL eomccsdtq_density1_6_1(d_x2,k_x2_offset,d_y2,k_y2_offset,d_i1
     &,k_i1_offset)
      CALL eomccsdtq_density1_6_2(d_x3,k_x3_offset,d_y3,k_y3_offset,d_i1
     &,k_i1_offset)
      CALL eomccsdtq_density1_6_3(d_x4,k_x4_offset,d_y4,k_y4_offset,d_i1
     &,k_i1_offset)
      CALL OFFSET_eomccsdtq_density1_6_4_1(l_i2_offset,k_i2_offset,size_
     &i2)
      CALL TCE_FILENAME('eomccsdtq_density1_6_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdtq_density1_6_4_1(d_x1,k_x1_offset,d_y2,k_y2_offset,d_
     &i2,k_i2_offset)
      CALL eomccsdtq_density1_6_4_2(d_x2,k_x2_offset,d_y3,k_y3_offset,d_
     &i2,k_i2_offset)
      CALL eomccsdtq_density1_6_4_3(d_x3,k_x3_offset,d_y4,k_y4_offset,d_
     &i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdtq_density1_6_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('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL OFFSET_eomccsdtq_density1_6_5_1(l_i2_offset,k_i2_offset,size_
     &i2)
      CALL TCE_FILENAME('eomccsdtq_density1_6_5_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdtq_density1_6_5_1(d_t2,k_t2_offset,d_y2,k_y2_offset,d_
     &i2,k_i2_offset)
      CALL eomccsdtq_density1_6_5_2(d_t3,k_t3_offset,d_y3,k_y3_offset,d_
     &i2,k_i2_offset)
      CALL eomccsdtq_density1_6_5_3(d_t4,k_t4_offset,d_y4,k_y4_offset,d_
     &i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdtq_density1_6_5(d_x0,k_x0_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('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL OFFSET_eomccsdtq_density1_6_6_1(l_i2_offset,k_i2_offset,size_
     &i2)
      CALL TCE_FILENAME('eomccsdtq_density1_6_6_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdtq_density1_6_6_1(d_x1,k_x1_offset,d_y3,k_y3_offset,d_
     &i2,k_i2_offset)
      CALL eomccsdtq_density1_6_6_2(d_x2,k_x2_offset,d_y4,k_y4_offset,d_
     &i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdtq_density1_6_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('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL OFFSET_eomccsdtq_density1_6_7_1(l_i2_offset,k_i2_offset,size_
     &i2)
      CALL TCE_FILENAME('eomccsdtq_density1_6_7_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL eomccsdtq_density1_6_7_1(d_x1,k_x1_offset,d_y4,k_y4_offset,d_
     &i2,k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL eomccsdtq_density1_6_7(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('eomccsdtq_densit
     &y1',-1,MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL eomccsdtq_density1_6(d_d1,k_d1_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('eomccsdtq_densit
     &y1',-1,MA_ERR)
      RETURN
      END
c#endif
