      SUBROUTINE ccsdt_y_tr1(d_f1,d_i0,d_t1,d_t2,d_t3,d_tr1,d_tr2,d_tr3,
     &d_v2,d_y1,d_y2,d_y3,k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offse
     &t,k_t3_offset,k_tr1_offset,k_tr2_offset,k_tr3_offset,k_v2_offset,k
     &_y1_offset,k_y2_offset,k_y3_offset)
C     $Id: ccsdt_y_tr1.F 19701 2010-10-29 17:16:57Z d3y133 $
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
C     i0 ( h2 p1 )_ftry + = -1 * Sum ( h7 ) * y ( h7 p1 )_y * i1 ( h2 h7 )_ftr
C         i1 ( h2 h7 )_ftr + = 1 * Sum ( p3 ) * tr ( p3 h7 )_tr * i2 ( h2 p3 )_f
C             i2 ( h2 p3 )_f + = 1 * f ( h2 p3 )_f
C             i2 ( h2 p3 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h2 h6 p3 p5 )_v
C         i1 ( h2 h7 )_vtr + = 1 * Sum ( h4 p3 ) * tr ( p3 h4 )_tr * v ( h2 h4 h7 p3 )_v
C         i1 ( h2 h7 )_vtr + = -1/2 * Sum ( h6 p3 p4 ) * tr ( p3 p4 h6 h7 )_tr * v ( h2 h6 p3 p4 )_v
C         i1 ( h2 h7 )_vtrt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * i2 ( h2 p3 )_vtr
C             i2 ( h2 p3 )_vtr + = 1 * Sum ( h6 p5 ) * tr ( p5 h6 )_tr * v ( h2 h6 p3 p5 )_v
C     i0 ( h2 p1 )_ytrf + = -1 * Sum ( h3 ) * i1 ( h2 h3 )_ytr * f ( h3 p1 )_f
C         i1 ( h2 h3 )_ytr + = 1 * Sum ( p4 ) * tr ( p4 h3 )_tr * y ( h2 p4 )_y
C         i1 ( h2 h3 )_ytr + = 1/2 * Sum ( h6 p5 p4 ) * tr ( p4 p5 h3 h6 )_tr * y ( h2 h6 p4 p5 )_y
C         i1 ( h2 h3 )_ytr + = 1/12 * Sum ( h8 h7 p6 p5 p4 ) * tr ( p4 p5 p6 h3 h7 h8 )_tr * y ( h2 h7 h8 p4 p5 p6 )_y
C     i0 ( h2 p1 )_ytrv + = 1 * Sum ( h10 h8 ) * i1 ( h10 h8 )_ytr * v ( h2 h8 h10 p1 )_v
C         i1 ( h10 h8 )_ytr + = 1 * Sum ( p3 ) * tr ( p3 h8 )_tr * y ( h10 p3 )_y
C         i1 ( h10 h8 )_ytr + = 1/2 * Sum ( h5 p4 p3 ) * tr ( p3 p4 h5 h8 )_tr * y ( h5 h10 p3 p4 )_y
C         i1 ( h10 h8 )_ytr + = 1/12 * Sum ( h7 h6 p5 p4 p3 ) * tr ( p3 p4 p5 h6 h7 h8 )_tr * y ( h6 h7 h10 p3 p4 p5 )_y
C     i0 ( h2 p1 )_ytrv + = 1 * Sum ( p9 p10 ) * i1 ( p9 p10 )_ytr * v ( h2 p10 p1 p9 )_v
C         i1 ( p9 p10 )_ytr + = 1 * Sum ( h4 ) * tr ( p9 h4 )_tr * y ( h4 p10 )_y
C         i1 ( p9 p10 )_ytr + = 1/2 * Sum ( h6 h5 p3 ) * tr ( p3 p9 h5 h6 )_tr * y ( h5 h6 p3 p10 )_y
C         i1 ( p9 p10 )_ytr + = 1/12 * Sum ( h8 h7 h6 p4 p3 ) * tr ( p3 p4 p9 h6 h7 h8 )_tr * y ( h6 h7 h8 p3 p4 p10 )_y
C     i0 ( h2 p1 )_vtry + = 1 * Sum ( p8 ) * y ( h2 p8 )_y * i1 ( p8 p1 )_vtr
C         i1 ( p8 p1 )_vtr + = -1 * Sum ( h4 p3 ) * tr ( p3 h4 )_tr * v ( h4 p8 p1 p3 )_v
C         i1 ( p8 p1 )_vttr + = -1 * Sum ( h4 ) * tr ( p8 h4 )_tr * i2 ( h4 p1 )_vt
C             i2 ( h4 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h4 h6 p1 p5 )_v
C         i1 ( p8 p1 )_vtrt + = -1 * Sum ( h4 ) * t ( p8 h4 )_t * i2 ( h4 p1 )_vtr
C             i2 ( h4 p1 )_vtr + = 1 * Sum ( h6 p5 ) * tr ( p5 h6 )_tr * v ( h4 h6 p1 p5 )_v
C     i0 ( h2 p1 )_vtry + = -1/2 * Sum ( p9 h11 h12 ) * y ( h11 h12 p1 p9 )_y * i1 ( h2 p9 h11 h12 )_vtr
C         i1 ( h2 p9 h11 h12 )_vtr + = -1 * Sum ( h7 ) * tr ( p9 h7 )_tr * i2 ( h2 h7 h11 h12 )_v
C             i2 ( h2 h7 h11 h12 )_v + = 1 * v ( h2 h7 h11 h12 )_v
C             i2 ( h2 h7 h11 h12 )_vt + = -2 * Sum ( p3 ) * t ( p3 h11 )_t * i3 ( h2 h7 h12 p3 )_v
C                 i3 ( h2 h7 h12 p3 )_v + = 1 * v ( h2 h7 h12 p3 )_v
C                 i3 ( h2 h7 h12 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h12 )_t * v ( h2 h7 p3 p5 )_v
C             i2 ( h2 h7 h11 h12 )_vt + = 1/2 * Sum ( p3 p4 ) * t ( p3 p4 h11 h12 )_t * v ( h2 h7 p3 p4 )_v
C         i1 ( h2 p9 h11 h12 )_vtr + = -2 * Sum ( p3 ) * tr ( p3 h11 )_tr * i2 ( h2 p9 h12 p3 )_v
C             i2 ( h2 p9 h12 p3 )_v + = 1 * v ( h2 p9 h12 p3 )_v
C             i2 ( h2 p9 h12 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h12 )_t * v ( h2 p9 p3 p5 )_v
C         i1 ( h2 p9 h11 h12 )_ftr + = 1 * Sum ( p5 ) * tr ( p5 p9 h11 h12 )_tr * i2 ( h2 p5 )_f
C             i2 ( h2 p5 )_f + = 1 * f ( h2 p5 )_f
C             i2 ( h2 p5 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h2 h8 p5 p7 )_v
C         i1 ( h2 p9 h11 h12 )_vtr + = -2 * Sum ( h6 p4 ) * tr ( p4 p9 h6 h11 )_tr * i2 ( h2 h6 h12 p4 )_v
C             i2 ( h2 h6 h12 p4 )_v + = 1 * v ( h2 h6 h12 p4 )_v
C             i2 ( h2 h6 h12 p4 )_vt + = -1 * Sum ( p7 ) * t ( p7 h12 )_t * v ( h2 h6 p4 p7 )_v
C         i1 ( h2 p9 h11 h12 )_vtr + = 1/2 * Sum ( p3 p4 ) * tr ( p3 p4 h11 h12 )_tr * v ( h2 p9 p3 p4 )_v
C         i1 ( h2 p9 h11 h12 )_vtr + = -1/2 * Sum ( h8 p4 p5 ) * tr ( p4 p5 p9 h8 h11 h12 )_tr * v ( h2 h8 p4 p5 )_v
C         i1 ( h2 p9 h11 h12 )_vtrt + = -2 * Sum ( h7 ) * t ( p9 h7 )_t * i2 ( h2 h7 h11 h12 )_vtr
C             i2 ( h2 h7 h11 h12 )_vtr + = -1 * Sum ( p3 ) * tr ( p3 h11 )_tr * i3 ( h2 h7 h12 p3 )_v
C             i2 ( h2 h7 h11 h12 )_vtr + = 1/4 * Sum ( p3 p4 ) * tr ( p3 p4 h11 h12 )_tr * v ( h2 h7 p3 p4 )_v
C             i2 ( h2 h7 h11 h12 )_vtrt + = 1/2 * Sum ( p3 ) * t ( p3 h11 )_t * i3 ( h2 h7 h12 p3 )_vtr
C                 i3 ( h2 h7 h12 p3 )_vtr + = 1 * Sum ( p5 ) * tr ( p5 h12 )_tr * v ( h2 h7 p3 p5 )_v
C         i1 ( h2 p9 h11 h12 )_vtrt + = -1 * Sum ( p3 ) * t ( p3 h11 )_t * i2 ( h2 p9 h12 p3 )_vtr
C             i2 ( h2 p9 h12 p3 )_vtr + = -1 * Sum ( p5 ) * tr ( p5 h12 )_tr * v ( h2 p9 p3 p5 )_v
C         i1 ( h2 p9 h11 h12 )_vtrt + = 2 * Sum ( h6 p4 ) * t ( p4 p9 h6 h11 )_t * i2 ( h2 h6 h12 p4 )_vtr
C             i2 ( h2 h6 h12 p4 )_vtr + = 1 * Sum ( p7 ) * tr ( p7 h12 )_tr * v ( h2 h6 p4 p7 )_v
C         i1 ( h2 p9 h11 h12 )_vtrt + = 1 * Sum ( p4 ) * t ( p4 p9 h11 h12 )_t * i2 ( h2 p4 )_vtr
C             i2 ( h2 p4 )_vtr + = 1 * Sum ( h8 p7 ) * tr ( p7 h8 )_tr * v ( h2 h8 p4 p7 )_v
C     i0 ( h2 p1 )_ytrv + = 1 * Sum ( h7 h9 p10 ) * i1 ( h2 h7 h9 p10 )_ytr * v ( h9 p10 h7 p1 )_v
C         i1 ( h2 h7 h9 p10 )_ytr + = 1 * Sum ( p3 ) * tr ( p3 h9 )_tr * y ( h2 h7 p3 p10 )_y
C         i1 ( h2 h7 h9 p10 )_ytr + = -1/2 * Sum ( h5 p4 p3 ) * tr ( p3 p4 h5 h9 )_tr * y ( h2 h5 h7 p3 p4 p10 )_y
C     i0 ( h2 p1 )_vtry + = -1/2 * Sum ( p5 p6 h4 ) * y ( h2 h4 p5 p6 )_y * i1 ( p5 p6 h4 p1 )_vtr
C         i1 ( p5 p6 h4 p1 )_vtr + = -1 * Sum ( p3 ) * tr ( p3 h4 )_tr * v ( p5 p6 p1 p3 )_v
C     i0 ( h2 p1 )_ytrv + = 1 * Sum ( p12 h11 ) * i1 ( p12 h11 )_ytr * v ( h2 h11 p1 p12 )_v
C         i1 ( p12 h11 )_ytr + = 1 * Sum ( h5 p3 ) * tr ( p3 p12 h5 h11 )_tr * y ( h5 p3 )_y
C         i1 ( p12 h11 )_ytr + = 1/4 * Sum ( h7 h6 p4 p3 ) * tr ( p3 p4 p12 h6 h7 h11 )_tr * y ( h6 h7 p3 p4 )_y
C         i1 ( p12 h11 )_yttr + = -1 * Sum ( h8 ) * tr ( p12 h8 )_tr * i2 ( h8 h11 )_yt
C             i2 ( h8 h11 )_yt + = 1 * Sum ( p5 ) * t ( p5 h11 )_t * y ( h8 p5 )_y
C             i2 ( h8 h11 )_yt + = 1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h11 )_t * y ( h5 h8 p3 p4 )_y
C             i2 ( h8 h11 )_yt + = 1/12 * Sum ( h7 h6 p5 p4 p3 ) * t ( p3 p4 p5 h6 h7 h11 )_t * y ( h6 h7 h8 p3 p4 p5 )_y
C         i1 ( p12 h11 )_ytrt + = -1/2 * Sum ( h8 ) * t ( p12 h8 )_t * i2 ( h8 h11 )_ytr
C             i2 ( h8 h11 )_ytr + = 1 * Sum ( h5 p4 p3 ) * tr ( p3 p4 h5 h11 )_tr * y ( h5 h8 p3 p4 )_y
C             i2 ( h8 h11 )_ytr + = 1/6 * Sum ( h7 h6 p5 p4 p3 ) * tr ( p3 p4 p5 h6 h7 h11 )_tr * y ( h6 h7 h8 p3 p4 p5 )_y
C             i2 ( h8 h11 )_ytr + = 2 * Sum ( p5 ) * tr ( p5 h11 )_tr * y ( h8 p5 )_y
C         i1 ( p12 h11 )_yttr + = -1/2 * Sum ( h5 h6 p3 ) * tr ( p3 p12 h5 h6 )_tr * i2 ( h5 h6 h11 p3 )_yt
C             i2 ( h5 h6 h11 p3 )_yt + = 1 * Sum ( p7 ) * t ( p7 h11 )_t * y ( h5 h6 p3 p7 )_y
C             i2 ( h5 h6 h11 p3 )_yt + = -5/18 * Sum ( h9 p8 p7 ) * t ( p7 p8 h9 h11 )_t * i3 ( h5 h6 h9 p3 p7 p8 )_y
C                 i3 ( h5 h6 h9 p3 p7 p8 )_y + = 1 * y ( h5 h6 h9 p3 p7 p8 )_y
C                 i3 ( h5 h6 h9 p3 p7 p8 )_y + = 4/5 * y ( h5 h6 h9 p3 p7 p8 )_y
C         i1 ( p12 h11 )_yttr + = -1/12 * Sum ( h6 h7 h8 p3 p4 ) * tr ( p3 p4 p12 h6 h7 h8 )_tr * i2 ( h6 h7 h8 h11 p3 p4 )_yt
C             i2 ( h6 h7 h8 h11 p3 p4 )_yt + = 1 * Sum ( p9 ) * t ( p9 h11 )_t * y ( h6 h7 h8 p3 p4 p9 )_y
C         i1 ( p12 h11 )_ytrt + = -1/2 * Sum ( h5 h6 p3 ) * t ( p3 p12 h5 h6 )_t * i2 ( h5 h6 h11 p3 )_ytr
C             i2 ( h5 h6 h11 p3 )_ytr + = 1 * Sum ( p7 ) * tr ( p7 h11 )_tr * y ( h5 h6 p3 p7 )_y
C             i2 ( h5 h6 h11 p3 )_ytr + = -5/18 * Sum ( h9 p8 p7 ) * tr ( p7 p8 h9 h11 )_tr * i3 ( h5 h6 h9 p3 p7 p8 )_y
C         i1 ( p12 h11 )_ytrt + = -1/12 * Sum ( h6 h7 h8 p3 p4 ) * t ( p3 p4 p12 h6 h7 h8 )_t * i2 ( h6 h7 h8 h11 p3 p4 )_ytr
C             i2 ( h6 h7 h8 h11 p3 p4 )_ytr + = 1 * Sum ( p9 ) * tr ( p9 h11 )_tr * y ( h6 h7 h8 p3 p4 p9 )_y
C     i0 ( h2 p1 )_ytrv + = 1/2 * Sum ( p14 h13 h11 ) * i1 ( h2 p14 h11 h13 )_ytr * v ( h11 h13 p1 p14 )_v
C         i1 ( h2 p14 h11 h13 )_ytr + = -1 * Sum ( p3 ) * tr ( p3 p14 h11 h13 )_tr * y ( h2 p3 )_y
C         i1 ( h2 p14 h11 h13 )_ytr + = 1/2 * Sum ( h6 p4 p3 ) * tr ( p3 p4 p14 h6 h11 h13 )_tr * y ( h2 h6 p3 p4 )_y
C         i1 ( h2 p14 h11 h13 )_ytrt + = -1/2 * Sum ( h10 ) * t ( p14 h10 )_t * i2 ( h2 h10 h11 h13 )_ytr
C             i2 ( h2 h10 h11 h13 )_ytr + = -1 * Sum ( p4 p3 ) * tr ( p3 p4 h11 h13 )_tr * y ( h2 h10 p3 p4 )_y
C             i2 ( h2 h10 h11 h13 )_ytr + = 1/3 * Sum ( h6 p5 p4 p3 ) * tr ( p3 p4 p5 h6 h11 h13 )_tr * y ( h2 h6 h10 p3 p4 p5 )_y
C             i2 ( h2 h10 h11 h13 )_yttr + = 2 * Sum ( p5 ) * tr ( p5 h13 )_tr * i3 ( h2 h10 h11 p5 )_yt
C                 i3 ( h2 h10 h11 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h11 )_t * y ( h2 h10 p5 p7 )_y
C                 i3 ( h2 h10 h11 p5 )_yt + = 1 * Sum ( h9 p8 p7 ) * t ( p7 p8 h9 h11 )_t * y ( h2 h9 h10 p5 p7 p8 )_y
C             i2 ( h2 h10 h11 h13 )_ytrt + = 2 * Sum ( p5 ) * t ( p5 h13 )_t * i3 ( h2 h10 h11 p5 )_ytr
C                 i3 ( h2 h10 h11 p5 )_ytr + = 1 * Sum ( p7 ) * tr ( p7 h11 )_tr * y ( h2 h10 p5 p7 )_y
C                 i3 ( h2 h10 h11 p5 )_ytr + = 1 * Sum ( h9 p8 p7 ) * tr ( p7 p8 h9 h11 )_tr * y ( h2 h9 h10 p5 p7 p8 )_y
C         i1 ( h2 p14 h11 h13 )_yttr + = 2 * Sum ( h5 p3 ) * tr ( p3 p14 h5 h13 )_tr * i2 ( h2 h5 h11 p3 )_yt
C             i2 ( h2 h5 h11 p3 )_yt + = 1 * Sum ( p7 ) * t ( p7 h11 )_t * y ( h2 h5 p3 p7 )_y
C         i1 ( h2 p14 h11 h13 )_ytrt + = -1 * t ( p14 h11 )_t * i2 ( h2 h13 )_ytr
C             i2 ( h2 h13 )_ytr + = 1 * Sum ( h5 p4 p3 ) * tr ( p3 p4 h5 h13 )_tr * y ( h2 h5 p3 p4 )_y
C             i2 ( h2 h13 )_ytr + = -1/6 * Sum ( h7 h6 p5 p4 p3 ) * tr ( p3 p4 p5 h6 h7 h13 )_tr * y ( h2 h6 h7 p3 p4 p5 )_y
C         i1 ( h2 p14 h11 h13 )_yttr + = -1/2 * Sum ( h6 h7 p3 p4 ) * tr ( p3 p4 p14 h6 h7 h13 )_tr * i2 ( h2 h6 h7 h11 p3 p4 )_yt
C             i2 ( h2 h6 h7 h11 p3 p4 )_yt + = 1 * Sum ( p9 ) * t ( p9 h11 )_t * y ( h2 h6 h7 p3 p4 p9 )_y
C         i1 ( h2 p14 h11 h13 )_ytrt + = -1/4 * Sum ( p7 p8 ) * t ( p7 p8 h11 h13 )_t * i2 ( h2 p14 p7 p8 )_ytr
C             i2 ( h2 p14 p7 p8 )_ytr + = 1 * Sum ( h6 h5 p3 ) * tr ( p3 p14 h5 h6 )_tr * y ( h2 h5 h6 p3 p7 p8 )_y
C         i1 ( h2 p14 h11 h13 )_ytrt + = 1/2 * Sum ( h9 p7 ) * t ( p7 p14 h9 h11 )_t * i2 ( h2 h9 h13 p7 )_ytr
C             i2 ( h2 h9 h13 p7 )_ytr + = -1 * Sum ( h5 p3 p4 ) * tr ( p3 p4 h5 h13 )_tr * i3 ( h2 h5 h9 p3 p4 p7 )_y
C                 i3 ( h2 h5 h9 p3 p4 p7 )_y + = 1 * y ( h2 h5 h9 p3 p4 p7 )_y
C         i1 ( h2 p14 h11 h13 )_yttr + = -1/2 * Sum ( h10 ) * tr ( p14 h10 )_tr * i2 ( h2 h10 h11 h13 )_yt
C             i2 ( h2 h10 h11 h13 )_yt + = -1 * Sum ( p4 p3 ) * t ( p3 p4 h11 h13 )_t * y ( h2 h10 p3 p4 )_y
C             i2 ( h2 h10 h11 h13 )_yt + = 1/3 * Sum ( h6 p5 p4 p3 ) * t ( p3 p4 p5 h6 h11 h13 )_t * y ( h2 h6 h10 p3 p4 p5 )_y
C             i2 ( h2 h10 h11 h13 )_ytt + = 2 * Sum ( p5 ) * t ( p5 h13 )_t * i3 ( h2 h10 h11 p5 )_yt
C         i1 ( h2 p14 h11 h13 )_ytrt + = 2 * Sum ( h5 p3 ) * t ( p3 p14 h5 h13 )_t * i2 ( h2 h5 h11 p3 )_ytr
C             i2 ( h2 h5 h11 p3 )_ytr + = 1 * Sum ( p7 ) * tr ( p7 h11 )_tr * y ( h2 h5 p3 p7 )_y
C         i1 ( h2 p14 h11 h13 )_yttr + = -1 * tr ( p14 h11 )_tr * i2 ( h2 h13 )_yt
C             i2 ( h2 h13 )_yt + = 1 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h13 )_t * y ( h2 h5 p3 p4 )_y
C             i2 ( h2 h13 )_yt + = -1/6 * Sum ( h7 h6 p5 p4 p3 ) * t ( p3 p4 p5 h6 h7 h13 )_t * y ( h2 h6 h7 p3 p4 p5 )_y
C         i1 ( h2 p14 h11 h13 )_ytrt + = -1/2 * Sum ( h6 h7 p3 p4 ) * t ( p3 p4 p14 h6 h7 h13 )_t * i2 ( h2 h6 h7 h11 p3 p4 )_ytr
C             i2 ( h2 h6 h7 h11 p3 p4 )_ytr + = 1 * Sum ( p9 ) * tr ( p9 h11 )_tr * y ( h2 h6 h7 p3 p4 p9 )_y
C         i1 ( h2 p14 h11 h13 )_yttr + = -1/4 * Sum ( p7 p8 ) * tr ( p7 p8 h11 h13 )_tr * i2 ( h2 p14 p7 p8 )_yt
C             i2 ( h2 p14 p7 p8 )_yt + = 1 * Sum ( h6 h5 p3 ) * t ( p3 p14 h5 h6 )_t * y ( h2 h5 h6 p3 p7 p8 )_y
C         i1 ( h2 p14 h11 h13 )_yttr + = 1/2 * Sum ( h9 p7 ) * tr ( p7 p14 h9 h11 )_tr * i2 ( h2 h9 h13 p7 )_yt
C             i2 ( h2 h9 h13 p7 )_yt + = -1 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h13 )_t * i3 ( h2 h5 h9 p3 p4 p7 )_y
C         i1 ( h2 p14 h11 h13 )_ytttr + = 1/2 * Sum ( p3 ) * tr ( p3 h13 )_tr * i2 ( h2 p14 h11 p3 )_ytt
C             i2 ( h2 p14 h11 p3 )_ytt + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p14 h9 h10 )_t * i3 ( h2 h9 h10 h11 p3 p7 )_yt
C                 i3 ( h2 h9 h10 h11 p3 p7 )_yt + = 1 * Sum ( p5 ) * t ( p5 h11 )_t * y ( h2 h9 h10 p3 p5 p7 )_y
C         i1 ( h2 p14 h11 h13 )_ytrtt + = 1/2 * Sum ( p3 ) * t ( p3 h13 )_t * i2 ( h2 p14 h11 p3 )_ytrt
C             i2 ( h2 p14 h11 p3 )_ytrt + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p14 h9 h10 )_t * i3 ( h2 h9 h10 h11 p3 p7 )_ytr
C                 i3 ( h2 h9 h10 h11 p3 p7 )_ytr + = 1 * Sum ( p5 ) * tr ( p5 h11 )_tr * y ( h2 h9 h10 p3 p5 p7 )_y
C             i2 ( h2 p14 h11 p3 )_yttr + = 1 * Sum ( h9 h10 p7 ) * tr ( p7 p14 h9 h10 )_tr * i3 ( h2 h9 h10 h11 p3 p7 )_yt
C     i0 ( h2 p1 )_ytrv + = -1/4 * Sum ( h8 h12 h13 ) * i1 ( h2 h8 h12 h13 )_ytr * v ( h12 h13 h8 p1 )_v
C         i1 ( h2 h8 h12 h13 )_ytr + = 1 * Sum ( p4 p3 ) * tr ( p3 p4 h12 h13 )_tr * y ( h2 h8 p3 p4 )_y
C         i1 ( h2 h8 h12 h13 )_ytr + = -1/3 * Sum ( h6 p5 p4 p3 ) * tr ( p3 p4 p5 h6 h12 h13 )_tr * y ( h2 h6 h8 p3 p4 p5 )_y
C         i1 ( h2 h8 h12 h13 )_yttr + = 2 * Sum ( p3 ) * tr ( p3 h12 )_tr * i2 ( h2 h8 h13 p3 )_yt
C             i2 ( h2 h8 h13 p3 )_yt + = 1 * Sum ( p5 ) * t ( p5 h13 )_t * y ( h2 h8 p3 p5 )_y
C         i1 ( h2 h8 h12 h13 )_ytrt + = -2 * Sum ( p7 ) * t ( p7 h13 )_t * i2 ( h2 h8 h12 p7 )_ytr
C             i2 ( h2 h8 h12 p7 )_ytr + = 1 * Sum ( h5 p4 p3 ) * tr ( p3 p4 h5 h12 )_tr * y ( h2 h5 h8 p3 p4 p7 )_y
C         i1 ( h2 h8 h12 h13 )_ytrt + = 2 * Sum ( p3 ) * t ( p3 h12 )_t * i2 ( h2 h8 h13 p3 )_ytr
C             i2 ( h2 h8 h13 p3 )_ytr + = 1 * Sum ( p5 ) * tr ( p5 h13 )_tr * y ( h2 h8 p3 p5 )_y
C         i1 ( h2 h8 h12 h13 )_yttr + = -2 * Sum ( p7 ) * tr ( p7 h13 )_tr * i2 ( h2 h8 h12 p7 )_yt
C             i2 ( h2 h8 h12 p7 )_yt + = 1 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h12 )_t * y ( h2 h5 h8 p3 p4 p7 )_y
C     i0 ( h2 p1 )_ytrv + = 1 * Sum ( p12 h10 p11 ) * i1 ( h2 p12 h10 p11 )_ytr * v ( h10 p11 p1 p12 )_v
C         i1 ( h2 p12 h10 p11 )_ytr + = 1 * Sum ( h5 p3 ) * tr ( p3 p12 h5 h10 )_tr * y ( h2 h5 p3 p11 )_y
C         i1 ( h2 p12 h10 p11 )_ytr + = -1/4 * Sum ( h7 h6 p4 p3 ) * tr ( p3 p4 p12 h6 h7 h10 )_tr * y ( h2 h6 h7 p3 p4 p11 )_y
C         i1 ( h2 p12 h10 p11 )_yttr + = -1 * Sum ( h6 ) * tr ( p12 h6 )_tr * i2 ( h2 h6 h10 p11 )_yt
C             i2 ( h2 h6 h10 p11 )_yt + = 1 * Sum ( p5 ) * t ( p5 h10 )_t * y ( h2 h6 p5 p11 )_y
C             i2 ( h2 h6 h10 p11 )_yt + = -1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h10 )_t * y ( h2 h5 h6 p3 p4 p11 )_y
C         i1 ( h2 p12 h10 p11 )_ytrt + = 1/2 * Sum ( h6 ) * t ( p12 h6 )_t * i2 ( h2 h6 h10 p11 )_ytr
C             i2 ( h2 h6 h10 p11 )_ytr + = 1 * Sum ( h5 p4 p3 ) * tr ( p3 p4 h5 h10 )_tr * y ( h2 h5 h6 p3 p4 p11 )_y
C             i2 ( h2 h6 h10 p11 )_ytr + = -2 * Sum ( p5 ) * tr ( p5 h10 )_tr * y ( h2 h6 p5 p11 )_y
C         i1 ( h2 p12 h10 p11 )_yttr + = 1/2 * Sum ( h5 h6 p3 ) * tr ( p3 p12 h5 h6 )_tr * i2 ( h2 h5 h6 h10 p3 p11 )_yt
C             i2 ( h2 h5 h6 h10 p3 p11 )_yt + = 1 * Sum ( p7 ) * t ( p7 h10 )_t * y ( h2 h5 h6 p3 p7 p11 )_y
C         i1 ( h2 p12 h10 p11 )_ytrt + = 1/2 * Sum ( h5 h6 p3 ) * t ( p3 p12 h5 h6 )_t * i2 ( h2 h5 h6 h10 p3 p11 )_ytr
C             i2 ( h2 h5 h6 h10 p3 p11 )_ytr + = 1 * Sum ( p7 ) * tr ( p7 h10 )_tr * y ( h2 h5 h6 p3 p7 p11 )_y
C     i0 ( h2 p1 )_ytrv + = -1/4 * Sum ( h7 h8 h6 ) * i1 ( h7 h8 h6 p1 )_ytr * v ( h2 h6 h7 h8 )_v
C         i1 ( h7 h8 h6 p1 )_ytr + = 1 * Sum ( h5 p4 p3 ) * tr ( p3 p4 h5 h6 )_tr * y ( h5 h7 h8 p1 p3 p4 )_y
C     i0 ( h2 p1 )_vtry + = 1/2 * Sum ( p15 p12 h13 h14 h11 ) * y ( h11 h13 h14 p1 p12 p15 )_y * i1 ( h2 p12 p15 h11 h13 h14 )_vtr
C         i1 ( h2 p12 p15 h11 h13 h14 )_vtr + = -1 * Sum ( p4 ) * tr ( p4 p15 h13 h14 )_tr * i2 ( h2 p12 h11 p4 )_v
C             i2 ( h2 p12 h11 p4 )_v + = 1 * v ( h2 p12 h11 p4 )_v
C             i2 ( h2 p12 h11 p4 )_vt + = -1 * Sum ( h8 ) * t ( p12 h8 )_t * v ( h2 h8 h11 p4 )_v
C             i2 ( h2 p12 h11 p4 )_vt + = -1 * Sum ( p7 ) * t ( p7 h11 )_t * v ( h2 p12 p4 p7 )_v
C             i2 ( h2 p12 h11 p4 )_vt + = -2/3 * Sum ( h10 p8 ) * t ( p8 p12 h10 h11 )_t * i3 ( h2 h10 p4 p8 )_v
C                 i3 ( h2 h10 p4 p8 )_v + = 1 * v ( h2 h10 p4 p8 )_v
C                 i3 ( h2 h10 p4 p8 )_v + = 1/2 * v ( h2 h10 p4 p8 )_v
C         i1 ( h2 p12 p15 h11 h13 h14 )_ftr + = -1/6 * Sum ( p4 ) * tr ( p4 p12 p15 h11 h13 h14 )_tr * i2 ( h2 p4 )_f
C             i2 ( h2 p4 )_f + = 1 * f ( h2 p4 )_f
C             i2 ( h2 p4 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h2 h10 p4 p9 )_v
C         i1 ( h2 p12 p15 h11 h13 h14 )_vtr + = -1/2 * Sum ( h8 p5 ) * tr ( p5 p12 p15 h8 h13 h14 )_tr * i2 ( h2 h8 h11 p5 )_v
C             i2 ( h2 h8 h11 p5 )_v + = 1 * v ( h2 h8 h11 p5 )_v
C             i2 ( h2 h8 h11 p5 )_vt + = -1 * Sum ( p9 ) * t ( p9 h11 )_t * v ( h2 h8 p5 p9 )_v
C         i1 ( h2 p12 p15 h11 h13 h14 )_vtr + = -1/6 * Sum ( p4 p5 ) * tr ( p4 p5 p15 h11 h13 h14 )_tr * v ( h2 p12 p4 p5 )_v
C         i1 ( h2 p12 p15 h11 h13 h14 )_vtrt + = -1/6 * Sum ( h10 ) * t ( p12 h10 )_t * i2 ( h2 h10 p15 h11 h13 h14 )_vtr
C             i2 ( h2 h10 p15 h11 h13 h14 )_vtr + = -1 * Sum ( p4 p5 ) * tr ( p4 p5 p15 h11 h13 h14 )_tr * v ( h2 h10 p4 p5 )_v
C         i1 ( h2 p12 p15 h11 h13 h14 )_vtrt + = -1 * Sum ( p4 ) * t ( p4 p15 h13 h14 )_t * i2 ( h2 p12 h11 p4 )_vtr
C             i2 ( h2 p12 h11 p4 )_vtr + = -1 * Sum ( h8 ) * tr ( p12 h8 )_tr * v ( h2 h8 h11 p4 )_v
C             i2 ( h2 p12 h11 p4 )_vtr + = -1 * Sum ( p7 ) * tr ( p7 h11 )_tr * v ( h2 p12 p4 p7 )_v
C             i2 ( h2 p12 h11 p4 )_vtr + = -2/3 * Sum ( h10 p8 ) * tr ( p8 p12 h10 h11 )_tr * i3 ( h2 h10 p4 p8 )_v
C         i1 ( h2 p12 p15 h11 h13 h14 )_vtrt + = 1/2 * Sum ( h8 p5 ) * t ( p5 p12 p15 h8 h13 h14 )_t * i2 ( h2 h8 h11 p5 )_vtr
C             i2 ( h2 h8 h11 p5 )_vtr + = 1 * Sum ( p9 ) * tr ( p9 h11 )_tr * v ( h2 h8 p5 p9 )_v
C         i1 ( h2 p12 p15 h11 h13 h14 )_vttr + = -1/6 * Sum ( h10 ) * tr ( p12 h10 )_tr * i2 ( h2 h10 p15 h11 h13 h14 )_vt
C             i2 ( h2 h10 p15 h11 h13 h14 )_vt + = -1 * Sum ( p4 p5 ) * t ( p4 p5 p15 h11 h13 h14 )_t * v ( h2 h10 p4 p5 )_v
C         i1 ( h2 p12 p15 h11 h13 h14 )_vtrt + = -1/6 * Sum ( p5 ) * t ( p5 p12 p15 h11 h13 h14 )_t * i2 ( h2 p5 )_vtr
C             i2 ( h2 p5 )_vtr + = 1 * Sum ( h10 p9 ) * tr ( p9 h10 )_tr * v ( h2 h10 p5 p9 )_v
C         i1 ( h2 p12 p15 h11 h13 h14 )_vtrtt + = 1 * Sum ( p8 ) * t ( p8 p12 h11 h14 )_t * i2 ( h2 p15 h13 p8 )_vtrt
C             i2 ( h2 p15 h13 p8 )_vtrt + = 1 * Sum ( h6 ) * t ( p15 h6 )_t * i3 ( h2 h6 h13 p8 )_vtr
C                 i3 ( h2 h6 h13 p8 )_vtr + = 1 * Sum ( p3 ) * tr ( p3 h13 )_tr * v ( h2 h6 p3 p8 )_v
C             i2 ( h2 p15 h13 p8 )_vttr + = 1 * Sum ( h6 ) * tr ( p15 h6 )_tr * i3 ( h2 h6 h13 p8 )_vt
C                 i3 ( h2 h6 h13 p8 )_vt + = 1 * Sum ( p3 ) * t ( p3 h13 )_t * v ( h2 h6 p3 p8 )_v
C         i1 ( h2 p12 p15 h11 h13 h14 )_vtttr + = 1 * Sum ( p8 ) * tr ( p8 p12 h11 h14 )_tr * i2 ( h2 p15 h13 p8 )_vtt
C             i2 ( h2 p15 h13 p8 )_vtt + = 1 * Sum ( h6 ) * t ( p15 h6 )_t * i3 ( h2 h6 h13 p8 )_vt
C     i0 ( h2 p1 )_ytrv + = -1/4 * Sum ( p4 p7 p8 ) * i1 ( h2 p4 p7 p8 )_ytr * v ( p7 p8 p1 p4 )_v
C         i1 ( h2 p4 p7 p8 )_ytr + = 1 * Sum ( h6 h5 p3 ) * tr ( p3 p4 h5 h6 )_tr * y ( h2 h5 h6 p3 p7 p8 )_y
C     i0 ( h2 p1 )_ytrtv + = 1/2 * Sum ( h9 p7 h6 ) * i1 ( h9 p7 h6 p1 )_ytrt * v ( h2 h6 h9 p7 )_v
C         i1 ( h9 p7 h6 p1 )_ytrt + = 1 * Sum ( h8 ) * t ( p7 h8 )_t * i2 ( h8 h9 h6 p1 )_ytr
C             i2 ( h8 h9 h6 p1 )_ytr + = 1 * Sum ( h5 p4 p3 ) * tr ( p3 p4 h5 h6 )_tr * y ( h5 h8 h9 p1 p3 p4 )_y
C         i1 ( h9 p7 h6 p1 )_yttr + = 1 * Sum ( h8 ) * tr ( p7 h8 )_tr * i2 ( h8 h9 h6 p1 )_yt
C             i2 ( h8 h9 h6 p1 )_yt + = 1 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h6 )_t * y ( h5 h8 h9 p1 p3 p4 )_y
C     i0 ( h2 p1 )_ytrtv + = -1/12 * Sum ( p14 p11 h13 ) * i1 ( p11 p14 h13 p1 )_ytrt * v ( h2 h13 p11 p14 )_v
C         i1 ( p11 p14 h13 p1 )_ytrt + = -1 * Sum ( h9 h10 ) * t ( p11 p14 h9 h10 )_t * i2 ( h9 h10 h13 p1 )_ytr
C             i2 ( h9 h10 h13 p1 )_ytr + = -1 * Sum ( h5 p4 p3 ) * tr ( p3 p4 h5 h13 )_tr * i3 ( h5 h9 h10 p1 p3 p4 )_y
C                 i3 ( h5 h9 h10 p1 p3 p4 )_y + = 1 * y ( h5 h9 h10 p1 p3 p4 )_y
C                 i3 ( h5 h9 h10 p1 p3 p4 )_y + = 1/2 * y ( h5 h9 h10 p1 p3 p4 )_y
C         i1 ( p11 p14 h13 p1 )_yttr + = -1 * Sum ( h9 h10 ) * tr ( p11 p14 h9 h10 )_tr * i2 ( h9 h10 h13 p1 )_yt
C             i2 ( h9 h10 h13 p1 )_yt + = -1 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h13 )_t * i3 ( h5 h9 h10 p1 p3 p4 )_y
C         i1 ( p11 p14 h13 p1 )_ytttr + = -3 * Sum ( h4 ) * tr ( p14 h4 )_tr * i2 ( h4 p11 h13 p1 )_ytt
C             i2 ( h4 p11 h13 p1 )_ytt + = 1 * Sum ( h6 ) * t ( p11 h6 )_t * i3 ( h4 h6 h13 p1 )_yt
C                 i3 ( h4 h6 h13 p1 )_yt + = 1 * Sum ( h9 p8 p7 ) * t ( p7 p8 h9 h13 )_t * y ( h4 h6 h9 p1 p7 p8 )_y
C         i1 ( p11 p14 h13 p1 )_yttrt + = -3 * Sum ( h4 ) * t ( p14 h4 )_t * i2 ( h4 p11 h13 p1 )_yttr
C             i2 ( h4 p11 h13 p1 )_yttr + = 1 * Sum ( h6 ) * tr ( p11 h6 )_tr * i3 ( h4 h6 h13 p1 )_yt
C             i2 ( h4 p11 h13 p1 )_ytrt + = 1 * Sum ( h6 ) * t ( p11 h6 )_t * i3 ( h4 h6 h13 p1 )_ytr
C                 i3 ( h4 h6 h13 p1 )_ytr + = 1 * Sum ( h9 p8 p7 ) * tr ( p7 p8 h9 h13 )_tr * y ( h4 h6 h9 p1 p7 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_y1
      INTEGER k_y1_offset
      INTEGER d_i1
      INTEGER k_i1_offset
      INTEGER d_f1
      INTEGER k_f1_offset
      INTEGER d_v2
      INTEGER k_v2_offset
      INTEGER d_y2
      INTEGER k_y2_offset
      INTEGER d_y3
      INTEGER k_y3_offset
      INTEGER l_i1_offset
      INTEGER d_tr1
      INTEGER k_tr1_offset
      INTEGER d_i2
      INTEGER k_i2_offset
      INTEGER size_i1
      INTEGER d_tr2
      INTEGER k_tr2_offset
      INTEGER d_t1
      INTEGER k_t1_offset
      INTEGER l_i2_offset
      INTEGER size_i2
      INTEGER d_tr3
      INTEGER k_tr3_offset
      INTEGER d_t2
      INTEGER k_t2_offset
      INTEGER d_i3
      INTEGER k_i3_offset
      INTEGER l_i3_offset
      INTEGER size_i3
      INTEGER d_t3
      INTEGER k_t3_offset
      CHARACTER*255 filename
#if !defined(CCSDTLR)
      CALL ERRQUIT('CCSDTLR not compiled (ccsdt_y_tr1.F)',
     &              0,CAPMIS_ERR)
      RETURN
      END
#else
      CALL OFFSET_ccsdt_y_tr1_1_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdt_y_tr1_1_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL OFFSET_ccsdt_y_tr1_1_1_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_1_1_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_1_1_1(d_f1,k_f1_offset,d_i2,k_i2_offset)
      CALL ccsdt_y_tr1_1_1_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,k_i2
     &_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_1_1(d_tr1,k_tr1_offset,d_i2,k_i2_offset,d_i1,k_i1
     &_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL ccsdt_y_tr1_1_2(d_tr1,k_tr1_offset,d_v2,k_v2_offset,d_i1,k_i1
     &_offset)
      CALL ccsdt_y_tr1_1_3(d_tr2,k_tr2_offset,d_v2,k_v2_offset,d_i1,k_i1
     &_offset)
      CALL OFFSET_ccsdt_y_tr1_1_4_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_1_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_1_4_1(d_tr1,k_tr1_offset,d_v2,k_v2_offset,d_i2,k_
     &i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_1_4(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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_y_tr1_1(d_y1,k_y1_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_2_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdt_y_tr1_2_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdt_y_tr1_2_1(d_tr1,k_tr1_offset,d_y1,k_y1_offset,d_i1,k_i1
     &_offset)
      CALL ccsdt_y_tr1_2_2(d_tr2,k_tr2_offset,d_y2,k_y2_offset,d_i1,k_i1
     &_offset)
      CALL ccsdt_y_tr1_2_3(d_tr3,k_tr3_offset,d_y3,k_y3_offset,d_i1,k_i1
     &_offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_y_tr1_2(d_i1,k_i1_offset,d_f1,k_f1_offset,d_i0,k_i0_off
     &set)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_3_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdt_y_tr1_3_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdt_y_tr1_3_1(d_tr1,k_tr1_offset,d_y1,k_y1_offset,d_i1,k_i1
     &_offset)
      CALL ccsdt_y_tr1_3_2(d_tr2,k_tr2_offset,d_y2,k_y2_offset,d_i1,k_i1
     &_offset)
      CALL ccsdt_y_tr1_3_3(d_tr3,k_tr3_offset,d_y3,k_y3_offset,d_i1,k_i1
     &_offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_y_tr1_3(d_i1,k_i1_offset,d_v2,k_v2_offset,d_i0,k_i0_off
     &set)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_4_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdt_y_tr1_4_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdt_y_tr1_4_1(d_tr1,k_tr1_offset,d_y1,k_y1_offset,d_i1,k_i1
     &_offset)
      CALL ccsdt_y_tr1_4_2(d_tr2,k_tr2_offset,d_y2,k_y2_offset,d_i1,k_i1
     &_offset)
      CALL ccsdt_y_tr1_4_3(d_tr3,k_tr3_offset,d_y3,k_y3_offset,d_i1,k_i1
     &_offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_y_tr1_4(d_i1,k_i1_offset,d_v2,k_v2_offset,d_i0,k_i0_off
     &set)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_5_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdt_y_tr1_5_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdt_y_tr1_5_1(d_tr1,k_tr1_offset,d_v2,k_v2_offset,d_i1,k_i1
     &_offset)
      CALL OFFSET_ccsdt_y_tr1_5_2_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_5_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_5_2_1(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,k_i2
     &_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_5_2(d_tr1,k_tr1_offset,d_i2,k_i2_offset,d_i1,k_i1
     &_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_5_3_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_5_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_5_3_1(d_tr1,k_tr1_offset,d_v2,k_v2_offset,d_i2,k_
     &i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_5_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_y_tr1_5(d_y1,k_y1_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_6_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdt_y_tr1_6_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL OFFSET_ccsdt_y_tr1_6_1_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_6_1_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_6_1_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
      CALL OFFSET_ccsdt_y_tr1_6_1_2_1(l_i3_offset,k_i3_offset,size_i3)
      CALL TCE_FILENAME('ccsdt_y_tr1_6_1_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_y_tr1_6_1_2_1(d_v2,k_v2_offset,d_i3,k_i3_offset)
      CALL ccsdt_y_tr1_6_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 ccsdt_y_tr1_6_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL ccsdt_y_tr1_6_1_3(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i2,k_i2
     &_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_6_1(d_tr1,k_tr1_offset,d_i2,k_i2_offset,d_i1,k_i1
     &_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_6_2_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_6_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_6_2_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
      CALL ccsdt_y_tr1_6_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,k_i2
     &_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_6_2(d_tr1,k_tr1_offset,d_i2,k_i2_offset,d_i1,k_i1
     &_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_6_3_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_6_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_6_3_1(d_f1,k_f1_offset,d_i2,k_i2_offset)
      CALL ccsdt_y_tr1_6_3_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,k_i2
     &_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_6_3(d_tr2,k_tr2_offset,d_i2,k_i2_offset,d_i1,k_i1
     &_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_6_4_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_6_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_6_4_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
      CALL ccsdt_y_tr1_6_4_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,k_i2
     &_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_6_4(d_tr2,k_tr2_offset,d_i2,k_i2_offset,d_i1,k_i1
     &_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL ccsdt_y_tr1_6_5(d_tr2,k_tr2_offset,d_v2,k_v2_offset,d_i1,k_i1
     &_offset)
      CALL ccsdt_y_tr1_6_6(d_tr3,k_tr3_offset,d_v2,k_v2_offset,d_i1,k_i1
     &_offset)
      CALL OFFSET_ccsdt_y_tr1_6_7_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_6_7_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_y_tr1_6_7_1_1(l_i3_offset,k_i3_offset,size_i3)
      CALL TCE_FILENAME('ccsdt_y_tr1_6_7_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_y_tr1_6_7_1_1(d_v2,k_v2_offset,d_i3,k_i3_offset)
      CALL ccsdt_y_tr1_6_7_1_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i3,k_
     &i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_y_tr1_6_7_1(d_tr1,k_tr1_offset,d_i3,k_i3_offset,d_i2,k_
     &i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL ccsdt_y_tr1_6_7_2(d_tr2,k_tr2_offset,d_v2,k_v2_offset,d_i2,k_
     &i2_offset)
      CALL OFFSET_ccsdt_y_tr1_6_7_3_1(l_i3_offset,k_i3_offset,size_i3)
      CALL TCE_FILENAME('ccsdt_y_tr1_6_7_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_y_tr1_6_7_3_1(d_tr1,k_tr1_offset,d_v2,k_v2_offset,d_i3,
     &k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_y_tr1_6_7_3(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,k_i2
     &_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_6_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_6_8_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_6_8_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_6_8_1(d_tr1,k_tr1_offset,d_v2,k_v2_offset,d_i2,k_
     &i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_6_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_6_9_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_6_9_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_6_9_1(d_tr1,k_tr1_offset,d_v2,k_v2_offset,d_i2,k_
     &i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_6_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_6_10_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_6_10_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_6_10_1(d_tr1,k_tr1_offset,d_v2,k_v2_offset,d_i2,k
     &_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_6_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_y_tr1_6(d_y2,k_y2_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_7_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdt_y_tr1_7_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdt_y_tr1_7_1(d_tr1,k_tr1_offset,d_y2,k_y2_offset,d_i1,k_i1
     &_offset)
      CALL ccsdt_y_tr1_7_2(d_tr2,k_tr2_offset,d_y3,k_y3_offset,d_i1,k_i1
     &_offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_y_tr1_7(d_i1,k_i1_offset,d_v2,k_v2_offset,d_i0,k_i0_off
     &set)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_8_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdt_y_tr1_8_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdt_y_tr1_8_1(d_tr1,k_tr1_offset,d_v2,k_v2_offset,d_i1,k_i1
     &_offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_y_tr1_8(d_y2,k_y2_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_9_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdt_y_tr1_9_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdt_y_tr1_9_1(d_tr2,k_tr2_offset,d_y1,k_y1_offset,d_i1,k_i1
     &_offset)
      CALL ccsdt_y_tr1_9_2(d_tr3,k_tr3_offset,d_y2,k_y2_offset,d_i1,k_i1
     &_offset)
      CALL OFFSET_ccsdt_y_tr1_9_3_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_9_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_9_3_1(d_t1,k_t1_offset,d_y1,k_y1_offset,d_i2,k_i2
     &_offset)
      CALL ccsdt_y_tr1_9_3_2(d_t2,k_t2_offset,d_y2,k_y2_offset,d_i2,k_i2
     &_offset)
      CALL ccsdt_y_tr1_9_3_3(d_t3,k_t3_offset,d_y3,k_y3_offset,d_i2,k_i2
     &_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_9_3(d_tr1,k_tr1_offset,d_i2,k_i2_offset,d_i1,k_i1
     &_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_9_4_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_9_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_9_4_1(d_tr2,k_tr2_offset,d_y2,k_y2_offset,d_i2,k_
     &i2_offset)
      CALL ccsdt_y_tr1_9_4_2(d_tr3,k_tr3_offset,d_y3,k_y3_offset,d_i2,k_
     &i2_offset)
      CALL ccsdt_y_tr1_9_4_3(d_tr1,k_tr1_offset,d_y1,k_y1_offset,d_i2,k_
     &i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_9_4(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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_9_5_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_9_5_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_9_5_1(d_t1,k_t1_offset,d_y2,k_y2_offset,d_i2,k_i2
     &_offset)
      CALL OFFSET_ccsdt_y_tr1_9_5_2_1(l_i3_offset,k_i3_offset,size_i3)
      CALL TCE_FILENAME('ccsdt_y_tr1_9_5_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_y_tr1_9_5_2_1(d_y3,k_y3_offset,d_i3,k_i3_offset)
      CALL ccsdt_y_tr1_9_5_2_2(d_y3,k_y3_offset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_y_tr1_9_5_2(d_t2,k_t2_offset,d_i3,k_i3_offset,d_i2,k_i2
     &_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_9_5(d_tr2,k_tr2_offset,d_i2,k_i2_offset,d_i1,k_i1
     &_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_9_6_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_9_6_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_9_6_1(d_t1,k_t1_offset,d_y3,k_y3_offset,d_i2,k_i2
     &_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_9_6(d_tr3,k_tr3_offset,d_i2,k_i2_offset,d_i1,k_i1
     &_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_9_7_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_9_7_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_9_7_1(d_tr1,k_tr1_offset,d_y2,k_y2_offset,d_i2,k_
     &i2_offset)
      CALL OFFSET_ccsdt_y_tr1_9_7_2_1(l_i3_offset,k_i3_offset,size_i3)
      CALL TCE_FILENAME('ccsdt_y_tr1_9_7_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_y_tr1_9_7_2_1(d_y3,k_y3_offset,d_i3,k_i3_offset)
      CALL ccsdt_y_tr1_9_7_2_2(d_y3,k_y3_offset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_y_tr1_9_7_2(d_tr2,k_tr2_offset,d_i3,k_i3_offset,d_i2,k_
     &i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_9_7(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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_9_8_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_9_8_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_9_8_1(d_tr1,k_tr1_offset,d_y3,k_y3_offset,d_i2,k_
     &i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_9_8(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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_y_tr1_9(d_i1,k_i1_offset,d_v2,k_v2_offset,d_i0,k_i0_off
     &set)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_10_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdt_y_tr1_10_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdt_y_tr1_10_1(d_tr2,k_tr2_offset,d_y1,k_y1_offset,d_i1,k_i
     &1_offset)
      CALL ccsdt_y_tr1_10_2(d_tr3,k_tr3_offset,d_y2,k_y2_offset,d_i1,k_i
     &1_offset)
      CALL OFFSET_ccsdt_y_tr1_10_3_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_10_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_10_3_1(d_tr2,k_tr2_offset,d_y2,k_y2_offset,d_i2,k
     &_i2_offset)
      CALL ccsdt_y_tr1_10_3_2(d_tr3,k_tr3_offset,d_y3,k_y3_offset,d_i2,k
     &_i2_offset)
      CALL OFFSET_ccsdt_y_tr1_10_3_3_1(l_i3_offset,k_i3_offset,size_i3)
      CALL TCE_FILENAME('ccsdt_y_tr1_10_3_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_y_tr1_10_3_3_1(d_t1,k_t1_offset,d_y2,k_y2_offset,d_i3,k
     &_i3_offset)
      CALL ccsdt_y_tr1_10_3_3_2(d_t2,k_t2_offset,d_y3,k_y3_offset,d_i3,k
     &_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_y_tr1_10_3_3(d_tr1,k_tr1_offset,d_i3,k_i3_offset,d_i2,k
     &_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_10_3_4_1(l_i3_offset,k_i3_offset,size_i3)
      CALL TCE_FILENAME('ccsdt_y_tr1_10_3_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_y_tr1_10_3_4_1(d_tr1,k_tr1_offset,d_y2,k_y2_offset,d_i3
     &,k_i3_offset)
      CALL ccsdt_y_tr1_10_3_4_2(d_tr2,k_tr2_offset,d_y3,k_y3_offset,d_i3
     &,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_y_tr1_10_3_4(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,k_i
     &2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_10_4_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_10_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_10_4_1(d_t1,k_t1_offset,d_y2,k_y2_offset,d_i2,k_i
     &2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_10_4(d_tr2,k_tr2_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_10_5_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_10_5_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_10_5_1(d_tr2,k_tr2_offset,d_y2,k_y2_offset,d_i2,k
     &_i2_offset)
      CALL ccsdt_y_tr1_10_5_2(d_tr3,k_tr3_offset,d_y3,k_y3_offset,d_i2,k
     &_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_10_5(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k_i1_
     &offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_10_6_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_10_6_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_10_6_1(d_t1,k_t1_offset,d_y3,k_y3_offset,d_i2,k_i
     &2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_10_6(d_tr3,k_tr3_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_10_7_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_10_7_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_10_7_1(d_tr2,k_tr2_offset,d_y3,k_y3_offset,d_i2,k
     &_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_10_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_10_8_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_10_8_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_y_tr1_10_8_1_1(l_i3_offset,k_i3_offset,size_i3)
      CALL TCE_FILENAME('ccsdt_y_tr1_10_8_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_y_tr1_10_8_1_1(d_y3,k_y3_offset,d_i3,k_i3_offset)
      CALL ccsdt_y_tr1_10_8_1_2(d_y3,k_y3_offset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_y_tr1_10_8_1(d_tr2,k_tr2_offset,d_i3,k_i3_offset,d_i2,k
     &_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_10_8(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1,k_i1_
     &offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_10_9_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_10_9_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_10_9_1(d_t2,k_t2_offset,d_y2,k_y2_offset,d_i2,k_i
     &2_offset)
      CALL ccsdt_y_tr1_10_9_2(d_t3,k_t3_offset,d_y3,k_y3_offset,d_i2,k_i
     &2_offset)
      CALL OFFSET_ccsdt_y_tr1_10_9_3_1(l_i3_offset,k_i3_offset,size_i3)
      CALL TCE_FILENAME('ccsdt_y_tr1_10_9_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_y_tr1_10_9_3_1(d_t1,k_t1_offset,d_y2,k_y2_offset,d_i3,k
     &_i3_offset)
      CALL ccsdt_y_tr1_10_9_3_2(d_t2,k_t2_offset,d_y3,k_y3_offset,d_i3,k
     &_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_y_tr1_10_9_3(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,k_i
     &2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_10_9(d_tr1,k_tr1_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_10_10_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_10_10_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_10_10_1(d_tr1,k_tr1_offset,d_y2,k_y2_offset,d_i2,
     &k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_10_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_10_11_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_10_11_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_10_11_1(d_t2,k_t2_offset,d_y2,k_y2_offset,d_i2,k_
     &i2_offset)
      CALL ccsdt_y_tr1_10_11_2(d_t3,k_t3_offset,d_y3,k_y3_offset,d_i2,k_
     &i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_10_11(d_tr1,k_tr1_offset,d_i2,k_i2_offset,d_i1,k_
     &i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_10_12_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_10_12_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_10_12_1(d_tr1,k_tr1_offset,d_y3,k_y3_offset,d_i2,
     &k_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_10_12(d_t3,k_t3_offset,d_i2,k_i2_offset,d_i1,k_i1
     &_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_10_13_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_10_13_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_10_13_1(d_t2,k_t2_offset,d_y3,k_y3_offset,d_i2,k_
     &i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_10_13(d_tr2,k_tr2_offset,d_i2,k_i2_offset,d_i1,k_
     &i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_10_14_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_10_14_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_y_tr1_10_14_1_1(l_i3_offset,k_i3_offset,size_i3)
      CALL TCE_FILENAME('ccsdt_y_tr1_10_14_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_y_tr1_10_14_1_1(d_y3,k_y3_offset,d_i3,k_i3_offset)
      CALL ccsdt_y_tr1_10_14_1_2(d_y3,k_y3_offset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_y_tr1_10_14_1(d_t2,k_t2_offset,d_i3,k_i3_offset,d_i2,k_
     &i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_10_14(d_tr2,k_tr2_offset,d_i2,k_i2_offset,d_i1,k_
     &i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_10_15_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_10_15_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_y_tr1_10_15_1_1(l_i3_offset,k_i3_offset,size_i3)
      CALL TCE_FILENAME('ccsdt_y_tr1_10_15_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_y_tr1_10_15_1_1(d_t1,k_t1_offset,d_y3,k_y3_offset,d_i3,
     &k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_y_tr1_10_15_1(d_t2,k_t2_offset,d_i3,k_i3_offset,d_i2,k_
     &i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_10_15(d_tr1,k_tr1_offset,d_i2,k_i2_offset,d_i1,k_
     &i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_10_16_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_10_16_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_y_tr1_10_16_1_1(l_i3_offset,k_i3_offset,size_i3)
      CALL TCE_FILENAME('ccsdt_y_tr1_10_16_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_y_tr1_10_16_1_1(d_tr1,k_tr1_offset,d_y3,k_y3_offset,d_i
     &3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_y_tr1_10_16_1(d_t2,k_t2_offset,d_i3,k_i3_offset,d_i2,k_
     &i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_10_16_2_1(l_i3_offset,k_i3_offset,size_i3)
      CALL TCE_FILENAME('ccsdt_y_tr1_10_16_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_y_tr1_10_16_2_1(d_t1,k_t1_offset,d_y3,k_y3_offset,d_i3,
     &k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_y_tr1_10_16_2(d_tr2,k_tr2_offset,d_i3,k_i3_offset,d_i2,
     &k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_10_16(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k_i1
     &_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_y_tr1_10(d_i1,k_i1_offset,d_v2,k_v2_offset,d_i0,k_i0_of
     &fset)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_11_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdt_y_tr1_11_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdt_y_tr1_11_1(d_tr2,k_tr2_offset,d_y2,k_y2_offset,d_i1,k_i
     &1_offset)
      CALL ccsdt_y_tr1_11_2(d_tr3,k_tr3_offset,d_y3,k_y3_offset,d_i1,k_i
     &1_offset)
      CALL OFFSET_ccsdt_y_tr1_11_3_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_11_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_11_3_1(d_t1,k_t1_offset,d_y2,k_y2_offset,d_i2,k_i
     &2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_11_3(d_tr1,k_tr1_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_11_4_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_11_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_11_4_1(d_tr2,k_tr2_offset,d_y3,k_y3_offset,d_i2,k
     &_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_11_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_11_5_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_11_5_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_11_5_1(d_tr1,k_tr1_offset,d_y2,k_y2_offset,d_i2,k
     &_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_11_5(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k_i1_
     &offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_11_6_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_11_6_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_11_6_1(d_t2,k_t2_offset,d_y3,k_y3_offset,d_i2,k_i
     &2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_11_6(d_tr1,k_tr1_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_y_tr1_11(d_i1,k_i1_offset,d_v2,k_v2_offset,d_i0,k_i0_of
     &fset)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_12_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdt_y_tr1_12_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdt_y_tr1_12_1(d_tr2,k_tr2_offset,d_y2,k_y2_offset,d_i1,k_i
     &1_offset)
      CALL ccsdt_y_tr1_12_2(d_tr3,k_tr3_offset,d_y3,k_y3_offset,d_i1,k_i
     &1_offset)
      CALL OFFSET_ccsdt_y_tr1_12_3_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_12_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_12_3_1(d_t1,k_t1_offset,d_y2,k_y2_offset,d_i2,k_i
     &2_offset)
      CALL ccsdt_y_tr1_12_3_2(d_t2,k_t2_offset,d_y3,k_y3_offset,d_i2,k_i
     &2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_12_3(d_tr1,k_tr1_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_12_4_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_12_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_12_4_1(d_tr2,k_tr2_offset,d_y3,k_y3_offset,d_i2,k
     &_i2_offset)
      CALL ccsdt_y_tr1_12_4_2(d_tr1,k_tr1_offset,d_y2,k_y2_offset,d_i2,k
     &_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_12_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_12_5_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_12_5_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_12_5_1(d_t1,k_t1_offset,d_y3,k_y3_offset,d_i2,k_i
     &2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_12_5(d_tr2,k_tr2_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_12_6_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_12_6_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_12_6_1(d_tr1,k_tr1_offset,d_y3,k_y3_offset,d_i2,k
     &_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_12_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_y_tr1_12(d_i1,k_i1_offset,d_v2,k_v2_offset,d_i0,k_i0_of
     &fset)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_13_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdt_y_tr1_13_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdt_y_tr1_13_1(d_tr2,k_tr2_offset,d_y3,k_y3_offset,d_i1,k_i
     &1_offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_y_tr1_13(d_i1,k_i1_offset,d_v2,k_v2_offset,d_i0,k_i0_of
     &fset)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_14_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdt_y_tr1_14_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL OFFSET_ccsdt_y_tr1_14_1_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_14_1_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_14_1_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
      CALL ccsdt_y_tr1_14_1_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,k_i
     &2_offset)
      CALL ccsdt_y_tr1_14_1_3(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,k_i
     &2_offset)
      CALL OFFSET_ccsdt_y_tr1_14_1_4_1(l_i3_offset,k_i3_offset,size_i3)
      CALL TCE_FILENAME('ccsdt_y_tr1_14_1_4_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_y_tr1_14_1_4_1(d_v2,k_v2_offset,d_i3,k_i3_offset)
      CALL ccsdt_y_tr1_14_1_4_2(d_v2,k_v2_offset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_y_tr1_14_1_4(d_t2,k_t2_offset,d_i3,k_i3_offset,d_i2,k_i
     &2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_14_1(d_tr2,k_tr2_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_14_2_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_14_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_14_2_1(d_f1,k_f1_offset,d_i2,k_i2_offset)
      CALL ccsdt_y_tr1_14_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 ccsdt_y_tr1_14_2(d_tr3,k_tr3_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_14_3_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_14_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_14_3_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
      CALL ccsdt_y_tr1_14_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 ccsdt_y_tr1_14_3(d_tr3,k_tr3_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL ccsdt_y_tr1_14_4(d_tr3,k_tr3_offset,d_v2,k_v2_offset,d_i1,k_i
     &1_offset)
      CALL OFFSET_ccsdt_y_tr1_14_5_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_14_5_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_14_5_1(d_tr3,k_tr3_offset,d_v2,k_v2_offset,d_i2,k
     &_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_14_5(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k_i1_
     &offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_14_6_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_14_6_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_14_6_1(d_tr1,k_tr1_offset,d_v2,k_v2_offset,d_i2,k
     &_i2_offset)
      CALL ccsdt_y_tr1_14_6_2(d_tr1,k_tr1_offset,d_v2,k_v2_offset,d_i2,k
     &_i2_offset)
      CALL OFFSET_ccsdt_y_tr1_14_6_3_1(l_i3_offset,k_i3_offset,size_i3)
      CALL TCE_FILENAME('ccsdt_y_tr1_14_6_3_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_y_tr1_14_6_3_1(d_v2,k_v2_offset,d_i3,k_i3_offset)
      CALL ccsdt_y_tr1_14_6_3_2(d_v2,k_v2_offset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_y_tr1_14_6_3(d_tr2,k_tr2_offset,d_i3,k_i3_offset,d_i2,k
     &_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_14_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_14_7_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_14_7_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_14_7_1(d_tr1,k_tr1_offset,d_v2,k_v2_offset,d_i2,k
     &_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_14_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_14_8_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_14_8_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_14_8_1(d_t3,k_t3_offset,d_v2,k_v2_offset,d_i2,k_i
     &2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_14_8(d_tr1,k_tr1_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_14_9_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_14_9_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_14_9_1(d_tr1,k_tr1_offset,d_v2,k_v2_offset,d_i2,k
     &_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_14_9(d_t3,k_t3_offset,d_i2,k_i2_offset,d_i1,k_i1_
     &offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_14_10_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_14_10_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_y_tr1_14_10_1_1(l_i3_offset,k_i3_offset,size_i3)
      CALL TCE_FILENAME('ccsdt_y_tr1_14_10_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_y_tr1_14_10_1_1(d_tr1,k_tr1_offset,d_v2,k_v2_offset,d_i
     &3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_y_tr1_14_10_1(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,k_
     &i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_14_10_2_1(l_i3_offset,k_i3_offset,size_i3)
      CALL TCE_FILENAME('ccsdt_y_tr1_14_10_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_y_tr1_14_10_2_1(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i3,
     &k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_y_tr1_14_10_2(d_tr1,k_tr1_offset,d_i3,k_i3_offset,d_i2,
     &k_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_14_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_14_11_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_14_11_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_y_tr1_14_11_1_1(l_i3_offset,k_i3_offset,size_i3)
      CALL TCE_FILENAME('ccsdt_y_tr1_14_11_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_y_tr1_14_11_1_1(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i3,
     &k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_y_tr1_14_11_1(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,k_
     &i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_14_11(d_tr2,k_tr2_offset,d_i2,k_i2_offset,d_i1,k_
     &i1_offset)
      CALL DELETEFILE(d_i2)
      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_y_tr1_14(d_y3,k_y3_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_15_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdt_y_tr1_15_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL ccsdt_y_tr1_15_1(d_tr2,k_tr2_offset,d_y3,k_y3_offset,d_i1,k_i
     &1_offset)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_y_tr1_15(d_i1,k_i1_offset,d_v2,k_v2_offset,d_i0,k_i0_of
     &fset)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_16_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdt_y_tr1_16_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL OFFSET_ccsdt_y_tr1_16_1_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_16_1_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_16_1_1(d_tr2,k_tr2_offset,d_y3,k_y3_offset,d_i2,k
     &_i2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_16_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_16_2_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_16_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL ccsdt_y_tr1_16_2_1(d_t2,k_t2_offset,d_y3,k_y3_offset,d_i2,k_i
     &2_offset)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_16_2(d_tr1,k_tr1_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_y_tr1_16(d_i1,k_i1_offset,d_v2,k_v2_offset,d_i0,k_i0_of
     &fset)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_17_1(l_i1_offset,k_i1_offset,size_i1)
      CALL TCE_FILENAME('ccsdt_y_tr1_17_1_i1',filename)
      CALL CREATEFILE(filename,d_i1,size_i1)
      CALL OFFSET_ccsdt_y_tr1_17_1_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_17_1_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_y_tr1_17_1_1_1(l_i3_offset,k_i3_offset,size_i3)
      CALL TCE_FILENAME('ccsdt_y_tr1_17_1_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_y_tr1_17_1_1_1(d_y3,k_y3_offset,d_i3,k_i3_offset)
      CALL ccsdt_y_tr1_17_1_1_2(d_y3,k_y3_offset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_y_tr1_17_1_1(d_tr2,k_tr2_offset,d_i3,k_i3_offset,d_i2,k
     &_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_17_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_17_2_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_17_2_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_y_tr1_17_2_1_1(l_i3_offset,k_i3_offset,size_i3)
      CALL TCE_FILENAME('ccsdt_y_tr1_17_2_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_y_tr1_17_2_1_1(d_y3,k_y3_offset,d_i3,k_i3_offset)
      CALL ccsdt_y_tr1_17_2_1_2(d_y3,k_y3_offset,d_i3,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_y_tr1_17_2_1(d_t2,k_t2_offset,d_i3,k_i3_offset,d_i2,k_i
     &2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_17_2(d_tr2,k_tr2_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_17_3_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_17_3_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_y_tr1_17_3_1_1(l_i3_offset,k_i3_offset,size_i3)
      CALL TCE_FILENAME('ccsdt_y_tr1_17_3_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_y_tr1_17_3_1_1(d_t2,k_t2_offset,d_y3,k_y3_offset,d_i3,k
     &_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_y_tr1_17_3_1(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,k_i
     &2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_17_3(d_tr1,k_tr1_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_17_4_1(l_i2_offset,k_i2_offset,size_i2)
      CALL TCE_FILENAME('ccsdt_y_tr1_17_4_1_i2',filename)
      CALL CREATEFILE(filename,d_i2,size_i2)
      CALL OFFSET_ccsdt_y_tr1_17_4_1_1(l_i3_offset,k_i3_offset,size_i3)
      CALL TCE_FILENAME('ccsdt_y_tr1_17_4_1_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_y_tr1_17_4_1_1(d_t2,k_t2_offset,d_y3,k_y3_offset,d_i3,k
     &_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_y_tr1_17_4_1(d_tr1,k_tr1_offset,d_i3,k_i3_offset,d_i2,k
     &_i2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL OFFSET_ccsdt_y_tr1_17_4_2_1(l_i3_offset,k_i3_offset,size_i3)
      CALL TCE_FILENAME('ccsdt_y_tr1_17_4_2_1_i3',filename)
      CALL CREATEFILE(filename,d_i3,size_i3)
      CALL ccsdt_y_tr1_17_4_2_1(d_tr2,k_tr2_offset,d_y3,k_y3_offset,d_i3
     &,k_i3_offset)
      CALL RECONCILEFILE(d_i3,size_i3)
      CALL ccsdt_y_tr1_17_4_2(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,k_i
     &2_offset)
      CALL DELETEFILE(d_i3)
      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL RECONCILEFILE(d_i2,size_i2)
      CALL ccsdt_y_tr1_17_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('ccsdt_y_tr1',-1,
     &MA_ERR)
      CALL RECONCILEFILE(d_i1,size_i1)
      CALL ccsdt_y_tr1_17(d_i1,k_i1_offset,d_v2,k_v2_offset,d_i0,k_i0_of
     &fset)
      CALL DELETEFILE(d_i1)
      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('ccsdt_y_tr1',-1,
     &MA_ERR)
      RETURN
      END
#endif
