1      SUBROUTINE eomccsdt_x3a(d_f1,d_i0,d_t1,d_t2,d_t3,d_v2,d_x1,
2     &d_x2,d_x3,
3     &k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_v2
4     &_offset,k_x1_offset,k_x2_offset,k_x3_offset)
5C     $Id$
6C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
8C     i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( h11 ) * x ( p4 p5 h1 h11 )_x * i1 ( h11 p6 h2 h3 )_v
9C         i1 ( h11 p4 h1 h2 )_v + = 1 * v ( h11 p4 h1 h2 )_v
10C         i1 ( h11 p4 h1 h2 )_vt + = 1 * Sum ( h12 ) * t ( p4 h12 )_t * i2 ( h11 h12 h1 h2 )_v
11C             i2 ( h11 h12 h1 h2 )_v + = -1 * v ( h11 h12 h1 h2 )_v
12C             i2 ( h11 h12 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 ( h11 h12 h2 p8 )_v
13C                 i3 ( h11 h12 h1 p8 )_v + = 1 * v ( h11 h12 h1 p8 )_v
14C                 i3 ( h11 h12 h1 p8 )_vt + = -1/2 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h11 h12 p8 p9 )_v
15C             i2 ( h11 h12 h1 h2 )_vt + = -1/2 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( h11 h12 p7 p8 )_v
16C         i1 ( h11 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h11 p4 h2 p7 )_v
17C             i2 ( h11 p4 h1 p7 )_v + = 1 * v ( h11 p4 h1 p7 )_v
18C             i2 ( h11 p4 h1 p7 )_vt + = -1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 p4 p7 p8 )_v
19C         i1 ( h11 p4 h1 h2 )_ft + = -1 * Sum ( p10 ) * t ( p4 p10 h1 h2 )_t * i2 ( h11 p10 )_f
20C             i2 ( h11 p10 )_f + = 1 * f ( h11 p10 )_f
21C             i2 ( h11 p10 )_vt + = 1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h11 p8 p10 )_v
22C         i1 ( h11 p4 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * i2 ( h8 h11 h2 p7 )_v
23C             i2 ( h8 h11 h1 p7 )_v + = 1 * v ( h8 h11 h1 p7 )_v
24C             i2 ( h8 h11 h1 p7 )_vt + = -1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h11 p7 p9 )_v
25C         i1 ( h11 p4 h1 h2 )_vt + = 1/2 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( h11 p4 p7 p8 )_v
26C         i1 ( h11 p4 h1 h2 )_vt + = 1/2 * Sum ( h9 p7 p8 ) * t ( p4 p7 p8 h1 h2 h9 )_t * v ( h9 h11 p7 p8 )_v
27C     i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( p12 ) * x ( p4 p12 h1 h2 )_x * i1 ( p5 p6 h3 p12 )_v
28C         i1 ( p4 p5 h1 p12 )_v + = 1 * v ( p4 p5 h1 p12 )_v
29C         i1 ( p4 p5 h1 p12 )_vt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * v ( p4 p5 p7 p12 )_v
30C         i1 ( p4 p5 h1 p12 )_vt + = 1/2 * Sum ( h7 h8 ) * t ( p4 p5 h7 h8 )_t * i2 ( h7 h8 h1 p12 )_v
31C             i2 ( h7 h8 h1 p12 )_v + = 1 * v ( h7 h8 h1 p12 )_v
32C             i2 ( h7 h8 h1 p12 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h7 h8 p9 p12 )_v
33C         i1 ( p4 p5 h1 p12 )_vt + = 1 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * v ( h8 p5 p7 p12 )_v
34C         i1 ( p4 p5 h1 p12 )_vt + = 1/2 * Sum ( h8 h9 p7 ) * t ( p4 p5 p7 h1 h8 h9 )_t * v ( h8 h9 p7 p12 )_v
35C     i0 ( p4 p5 p6 h1 h2 h3 )_xf + = -1 * P( 3 ) * Sum ( h10 ) * x ( p4 p5 p6 h1 h2 h10 )_x * i1 ( h10 h3 )_f
36C         i1 ( h10 h1 )_f + = 1 * f ( h10 h1 )_f
37C         i1 ( h10 h1 )_ft + = 1 * Sum ( p11 ) * t ( p11 h1 )_t * i2 ( h10 p11 )_f
38C             i2 ( h10 p11 )_f + = 1 * f ( h10 p11 )_f
39C             i2 ( h10 p11 )_vt + = 1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h10 p8 p11 )_v
40C         i1 ( h10 h1 )_vt + = -1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 h10 h1 p7 )_v
41C         i1 ( h10 h1 )_vt + = -1/2 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t * v ( h9 h10 p7 p8 )_v
42C     i0 ( p4 p5 p6 h1 h2 h3 )_xf + = 1 * P( 3 ) * Sum ( p10 ) * x ( p4 p5 p10 h1 h2 h3 )_x * i1 ( p6 p10 )_f
43C         i1 ( p4 p10 )_f + = 1 * f ( p4 p10 )_f
44C         i1 ( p4 p10 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 p4 p7 p10 )_v
45C         i1 ( p4 p10 )_vt + = 1/2 * Sum ( h8 h9 p7 ) * t ( p4 p7 h8 h9 )_t * v ( h8 h9 p7 p10 )_v
46C     i0 ( p4 p5 p6 h1 h2 h3 )_xv + = 1/2 * P( 3 ) * Sum ( h12 h11 ) * x ( p4 p5 p6 h1 h11 h12 )_x * i1 ( h11 h12 h2 h3 )_v
47C         i1 ( h11 h12 h1 h2 )_v + = 1 * v ( h11 h12 h1 h2 )_v
48C         i1 ( h11 h12 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h11 h12 h2 p7 )_v
49C             i2 ( h11 h12 h1 p7 )_v + = 1 * v ( h11 h12 h1 p7 )_v
50C             i2 ( h11 h12 h1 p7 )_vt + = -1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 h12 p7 p8 )_v
51C         i1 ( h11 h12 h1 h2 )_vt + = 1/2 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( h11 h12 p7 p8 )_v
52C     i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( p10 h9 ) * x ( p4 p5 p10 h1 h2 h9 )_x * i1 ( h9 p6 h3 p10 )_v
53C         i1 ( h9 p4 h1 p10 )_v + = 1 * v ( h9 p4 h1 p10 )_v
54C         i1 ( h9 p4 h1 p10 )_vt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * v ( h9 p4 p7 p10 )_v
55C         i1 ( h9 p4 h1 p10 )_vt + = -1 * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * v ( h8 h9 p7 p10 )_v
56C     i0 ( p4 p5 p6 h1 h2 h3 )_xv + = 1/2 * P( 3 ) * Sum ( p8 p7 ) * x ( p4 p7 p8 h1 h2 h3 )_x * v ( p5 p6 p7 p8 )_v
57C     i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = 6 * P( 3 ) * Sum ( h11 ) * t ( p4 h11 )_t * i1 ( h11 p5 p6 h1 h2 h3 )_vx
58C         i1 ( h11 p4 p5 h1 h2 h3 )_vx + = -1/6 * P( 6 ) * Sum ( p10 ) * x ( p4 p10 h1 h2 )_x * i2 ( h11 p5 h3 p10 )_v
59C             i2 ( h11 p4 h1 p10 )_v + = 1 * v ( h11 p4 h1 p10 )_v
60C             i2 ( h11 p4 h1 p10 )_vt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h8 h11 h1 p10 )_v
61C                 i3 ( h8 h11 h1 p10 )_v + = 1 * v ( h8 h11 h1 p10 )_v
62C                 i3 ( h8 h11 h1 p10 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h11 p9 p10 )_v
63C             i2 ( h11 p4 h1 p10 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 p4 p8 p10 )_v
64C             i2 ( h11 p4 h1 p10 )_vt + = -1 * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * v ( h8 h11 p7 p10 )_v
65C         i1 ( h11 p4 p5 h1 h2 h3 )_fx + = -1/6 * Sum ( p7 ) * x ( p4 p5 p7 h1 h2 h3 )_x * i2 ( h11 p7 )_f
66C             i2 ( h11 p7 )_f + = 1 * f ( h11 p7 )_f
67C             i2 ( h11 p7 )_vt + = -1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h11 p7 p8 )_v
68C         i1 ( h11 p4 p5 h1 h2 h3 )_vx + = 1/6 * P( 3 ) * Sum ( h10 p7 ) * x ( p4 p5 p7 h1 h2 h10 )_x * i2 ( h10 h11 h3 p7 )_v
69C             i2 ( h10 h11 h1 p7 )_v + = 1 * v ( h10 h11 h1 p7 )_v
70C             i2 ( h10 h11 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h11 p7 p8 )_v
71C         i1 ( h11 p4 p5 h1 h2 h3 )_vx + = 1/12 * P( 2 ) * Sum ( p8 p9 ) * x ( p4 p8 p9 h1 h2 h3 )_x * v ( h11 p5 p8 p9 )_v
72C         i1 ( h11 p4 p5 h1 h2 h3 )_vxt + = 1/24 * P( 2 ) * Sum ( h8 ) * t ( p4 h8 )_t * i2 ( h8 h11 p5 h1 h2 h3 )_vx
73C             i2 ( h8 h11 p4 h1 h2 h3 )_vx + = -1 * Sum ( p9 p10 ) * x ( p4 p9 p10 h1 h2 h3 )_x * v ( h8 h11 p9 p10 )_v
74C         i1 ( h11 p4 p5 h1 h2 h3 )_vxt + = -1/6 * P( 6 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i2 ( h11 p5 h3 p7 )_vx
75C             i2 ( h11 p4 h1 p7 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h11 p4 p7 p9 )_v
76C             i2 ( h11 p4 h1 p7 )_vx + = 1 * Sum ( h9 p10 ) * x ( p4 p10 h1 h9 )_x * v ( h9 h11 p7 p10 )_v
77C             i2 ( h11 p4 h1 p7 )_vtx + = -1 * Sum ( h10 ) * x ( p4 h10 )_x * i3 ( h10 h11 h1 p7 )_vt
78C                 i3 ( h10 h11 h1 p7 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h11 p7 p8 )_v
79C             i2 ( h11 p4 h1 p7 )_vxt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h8 h11 h1 p7 )_vx
80C                 i3 ( h8 h11 h1 p7 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h8 h11 p7 p10 )_v
81C         i1 ( h11 p4 p5 h1 h2 h3 )_vxt + = -1/6 * Sum ( p7 ) * t ( p4 p5 p7 h1 h2 h3 )_t * i2 ( h11 p7 )_vx
82C             i2 ( h11 p7 )_vx + = -1 * Sum ( h9 p10 ) * x ( p10 h9 )_x * v ( h9 h11 p7 p10 )_v
83C         i1 ( h11 p4 p5 h1 h2 h3 )_vtx + = -1/12 * P( 2 ) * Sum ( h10 ) * x ( p4 h10 )_x * i2 ( h10 h11 p5 h1 h2 h3 )_vt
84C             i2 ( h10 h11 p4 h1 h2 h3 )_vt + = 1 * Sum ( p7 p8 ) * t ( p4 p7 p8 h1 h2 h3 )_t * v ( h10 h11 p7 p8 )_v
85C         i1 ( h11 p4 p5 h1 h2 h3 )_vxt + = -1/6 * P( 3 ) * Sum ( h8 p7 ) * t ( p4 p5 p7 h1 h2 h8 )_t * i2 ( h8 h11 h3 p7 )_vx
86C             i2 ( h8 h11 h1 p7 )_vx + = 1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h8 h11 p7 p10 )_v
87C     i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( h12 ) * t ( p4 p5 h1 h12 )_t * i1 ( h12 p6 h2 h3 )_vx
88C         i1 ( h12 p4 h1 h2 )_vx + = 1 * Sum ( h13 ) * x ( p4 h13 )_x * i2 ( h12 h13 h1 h2 )_v
89C             i2 ( h12 h13 h1 h2 )_v + = -1 * v ( h12 h13 h1 h2 )_v
90C             i2 ( h12 h13 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( p9 ) * t ( p9 h1 )_t * i3 ( h12 h13 h2 p9 )_v
91C                 i3 ( h12 h13 h1 p9 )_v + = 1 * v ( h12 h13 h1 p9 )_v
92C                 i3 ( h12 h13 h1 p9 )_vt + = 1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 h13 p8 p9 )_v
93C             i2 ( h12 h13 h1 h2 )_vt + = -1/2 * Sum ( p8 p9 ) * t ( p8 p9 h1 h2 )_t * v ( h12 h13 p8 p9 )_v
94C         i1 ( h12 p4 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( p8 ) * x ( p8 h1 )_x * v ( h12 p4 h2 p8 )_v
95C         i1 ( h12 p4 h1 h2 )_fx + = -1 * Sum ( p7 ) * x ( p4 p7 h1 h2 )_x * i2 ( h12 p7 )_f
96C             i2 ( h12 p7 )_f + = 1 * f ( h12 p7 )_f
97C             i2 ( h12 p7 )_vt + = -1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h12 p7 p8 )_v
98C         i1 ( h12 p4 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( h10 p7 ) * x ( p4 p7 h1 h10 )_x * i2 ( h10 h12 h2 p7 )_v
99C             i2 ( h10 h12 h1 p7 )_v + = 1 * v ( h10 h12 h1 p7 )_v
100C             i2 ( h10 h12 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h12 p7 p8 )_v
101C         i1 ( h12 p4 h1 h2 )_vx + = 1/2 * Sum ( p8 p9 ) * x ( p8 p9 h1 h2 )_x * v ( h12 p4 p8 p9 )_v
102C         i1 ( h12 p4 h1 h2 )_vx + = 1/2 * Sum ( h8 p9 p10 ) * x ( p4 p9 p10 h1 h2 h8 )_x * v ( h8 h12 p9 p10 )_v
103C         i1 ( h12 p4 h1 h2 )_vxt + = 2 * Sum ( h11 ) * t ( p4 h11 )_t * i2 ( h11 h12 h1 h2 )_vx
104C             i2 ( h11 h12 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p9 ) * x ( p9 h1 )_x * v ( h11 h12 h2 p9 )_v
105C             i2 ( h11 h12 h1 h2 )_vx + = 1/4 * Sum ( p9 p10 ) * x ( p9 p10 h1 h2 )_x * v ( h11 h12 p9 p10 )_v
106C             i2 ( h11 h12 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 ( h11 h12 h2 p8 )_vx
107C                 i3 ( h11 h12 h1 p8 )_vx + = 1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h11 h12 p8 p10 )_v
108C         i1 ( h12 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i2 ( h12 p4 h2 p8 )_vx
109C             i2 ( h12 p4 h1 p8 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h12 p4 p8 p9 )_v
110C         i1 ( h12 p4 h1 h2 )_vxt + = -1 * Sum ( p8 ) * t ( p4 p8 h1 h2 )_t * i2 ( h12 p8 )_vx
111C             i2 ( h12 p8 )_vx + = -1 * Sum ( h9 p10 ) * x ( p10 h9 )_x * v ( h9 h12 p8 p10 )_v
112C         i1 ( h12 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * i2 ( h9 h12 h2 p8 )_vx
113C             i2 ( h9 h12 h1 p8 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h9 h12 p8 p10 )_v
114C     i0 ( p4 p5 p6 h1 h2 h3 )_vtx + = 6 * P( 3 ) * Sum ( h11 ) * x ( p4 h11 )_x * i1 ( h11 p5 p6 h1 h2 h3 )_vt
115C         i1 ( h11 p4 p5 h1 h2 h3 )_vt + = -1/6 * P( 6 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i2 ( h11 p5 h3 p7 )_v
116C             i2 ( h11 p4 h1 p7 )_vt + = 1 * Sum ( h8 ) * t ( p4 h8 )_t * v ( h8 h11 h1 p7 )_v
117C             i2 ( h11 p4 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 p4 p7 p8 )_v
118C             i2 ( h11 p4 h1 p7 )_vt + = 1 * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * v ( h9 h11 p7 p8 )_v
119C         i1 ( h11 p4 p5 h1 h2 h3 )_ft + = -1/6 * Sum ( p10 ) * t ( p4 p5 p10 h1 h2 h3 )_t * i2 ( h11 p10 )_f
120C         i1 ( h11 p4 p5 h1 h2 h3 )_vt + = 1/6 * P( 3 ) * Sum ( h8 p7 ) * t ( p4 p5 p7 h1 h2 h8 )_t * i2 ( h8 h11 h3 p7 )_v
121C         i1 ( h11 p4 p5 h1 h2 h3 )_vt + = 1/12 * P( 2 ) * Sum ( p7 p8 ) * t ( p4 p7 p8 h1 h2 h3 )_t * v ( h11 p5 p7 p8 )_v
122C     i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i1 ( p5 p6 h3 p7 )_vx
123C         i1 ( p4 p5 h1 p7 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( p4 p5 p7 p8 )_v
124C         i1 ( p4 p5 h1 p7 )_vx + = 1/2 * Sum ( h11 h12 ) * x ( p4 p5 h11 h12 )_x * i2 ( h11 h12 h1 p7 )_v
125C             i2 ( h11 h12 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 h12 p7 p8 )_v
126C         i1 ( p4 p5 h1 p7 )_vx + = -1 * P( 2 ) * Sum ( h8 p9 ) * x ( p4 p9 h1 h8 )_x * v ( h8 p5 p7 p9 )_v
127C         i1 ( p4 p5 h1 p7 )_vx + = -1/2 * Sum ( h8 h9 p10 ) * x ( p4 p5 p10 h1 h8 h9 )_x * v ( h8 h9 p7 p10 )_v
128C         i1 ( p4 p5 h1 p7 )_vxt + = 1/2 * Sum ( h8 h9 ) * t ( p4 p5 h8 h9 )_t * i2 ( h8 h9 h1 p7 )_vx
129C             i2 ( h8 h9 h1 p7 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h8 h9 p7 p10 )_v
130C     i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1/4 * P( 3 ) * Sum ( h7 h8 ) * t ( p4 p5 h7 h8 )_t * i1 ( h7 h8 p6 h1 h2 h3 )_vx
131C         i1 ( h7 h8 p4 h1 h2 h3 )_vx + = -1 * Sum ( p9 p10 ) * x ( p4 p9 p10 h1 h2 h3 )_x * v ( h7 h8 p9 p10 )_v
132C     i0 ( p4 p5 p6 h1 h2 h3 )_fxt + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 h2 h7 )_t * i1 ( h7 h3 )_fx
133C         i1 ( h7 h1 )_fx + = 1 * Sum ( p11 ) * x ( p11 h1 )_x * i2 ( h7 p11 )_f
134C             i2 ( h7 p11 )_f + = 1 * f ( h7 p11 )_f
135C             i2 ( h7 p11 )_vt + = -1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h7 h9 p8 p11 )_v
136C         i1 ( h7 h1 )_vx + = 1 * Sum ( h8 p9 ) * x ( p9 h8 )_x * v ( h7 h8 h1 p9 )_v
137C         i1 ( h7 h1 )_vx + = 1/2 * Sum ( h8 p9 p10 ) * x ( p9 p10 h1 h8 )_x * v ( h7 h8 p9 p10 )_v
138C         i1 ( h7 h1 )_vxt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * i2 ( h7 p8 )_vx
139C             i2 ( h7 p8 )_vx + = 1 * Sum ( h9 p10 ) * x ( p10 h9 )_x * v ( h7 h9 p8 p10 )_v
140C     i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = 1 * P( 3 ) * Sum ( h7 h8 ) * t ( p4 p5 p6 h1 h7 h8 )_t * i1 ( h7 h8 h2 h3 )_vx
141C         i1 ( h7 h8 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p9 ) * x ( p9 h1 )_x * v ( h7 h8 h2 p9 )_v
142C         i1 ( h7 h8 h1 h2 )_vx + = 1/4 * Sum ( p9 p10 ) * x ( p9 p10 h1 h2 )_x * v ( h7 h8 p9 p10 )_v
143C         i1 ( h7 h8 h1 h2 )_vxt + = -1/2 * P( 2 ) * Sum ( p9 ) * t ( p9 h1 )_t * i2 ( h7 h8 h2 p9 )_vx
144C             i2 ( h7 h8 h1 p9 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h7 h8 p9 p10 )_v
145C     i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = 1 * P( 3 ) * Sum ( p7 ) * t ( p4 p5 p7 h1 h2 h3 )_t * i1 ( p6 p7 )_vx
146C         i1 ( p4 p7 )_vx + = -1 * Sum ( h8 p9 ) * x ( p9 h8 )_x * v ( h8 p4 p7 p9 )_v
147C         i1 ( p4 p7 )_vx + = -1/2 * Sum ( h8 h9 p10 ) * x ( p4 p10 h8 h9 )_x * v ( h8 h9 p7 p10 )_v
148C     i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( h8 p7 ) * t ( p4 p5 p7 h1 h2 h8 )_t * i1 ( h8 p6 h3 p7 )_vx
149C         i1 ( h8 p4 h1 p7 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h8 p4 p7 p9 )_v
150C         i1 ( h8 p4 h1 p7 )_vx + = -1 * Sum ( h9 p10 ) * x ( p4 p10 h1 h9 )_x * v ( h8 h9 p7 p10 )_v
151C     i0 ( p4 p5 p6 h1 h2 h3 )_vtx + = 1/4 * P( 3 ) * Sum ( h9 h10 ) * x ( p4 p5 h9 h10 )_x * i1 ( h9 h10 p6 h1 h2 h3 )_vt
152C         i1 ( h9 h10 p4 h1 h2 h3 )_vt + = 1 * Sum ( p7 p8 ) * t ( p4 p7 p8 h1 h2 h3 )_t * v ( h9 h10 p7 p8 )_v
153      IMPLICIT NONE
154#include "global.fh"
155#include "mafdecls.fh"
156#include "util.fh"
157#include "errquit.fh"
158#include "tce.fh"
159      INTEGER d_i0
160      INTEGER k_i0_offset
161      INTEGER d_x2
162      INTEGER k_x2_offset
163      INTEGER d_i1
164      INTEGER k_i1_offset
165      INTEGER d_x3
166      INTEGER k_x3_offset
167      INTEGER d_v2
168      INTEGER k_v2_offset
169      INTEGER d_t1
170      INTEGER k_t1_offset
171      INTEGER d_t2
172      INTEGER k_t2_offset
173      INTEGER d_x1
174      INTEGER k_x1_offset
175      INTEGER d_t3
176      INTEGER k_t3_offset
177      INTEGER l_i1_offset
178      INTEGER size_i1
179      INTEGER d_i2
180      INTEGER k_i2_offset
181      INTEGER l_i2_offset
182      INTEGER size_i2
183      INTEGER d_i3
184      INTEGER k_i3_offset
185      INTEGER l_i3_offset
186      INTEGER size_i3
187      INTEGER d_f1
188      INTEGER k_f1_offset
189      CHARACTER*255 filename
190      CALL OFFSET_eomccsdt_x3a_1_1(l_i1_offset,k_i1_offset,size_i1)
191      CALL TCE_FILENAME('eomccsdt_x3_1_1_i1',filename)
192      CALL CREATEFILE(filename,d_i1,size_i1)
193      CALL eomccsdt_x3a_1_1(d_v2,k_v2_offset,d_i1,k_i1_offset)
194      CALL OFFSET_eomccsdt_x3a_1_2_1(l_i2_offset,k_i2_offset,size_i2)
195      CALL TCE_FILENAME('eomccsdt_x3_1_2_1_i2',filename)
196      CALL CREATEFILE(filename,d_i2,size_i2)
197      CALL eomccsdt_x3a_1_2_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
198      CALL OFFSET_eomccsdt_x3a_1_2_2_1(l_i3_offset,k_i3_offset,size_i3)
199      CALL TCE_FILENAME('eomccsdt_x3_1_2_2_1_i3',filename)
200      CALL CREATEFILE(filename,d_i3,size_i3)
201      CALL eomccsdt_x3a_1_2_2_1(d_v2,k_v2_offset,d_i3,k_i3_offset)
202      CALL eomccsdt_x3a_1_2_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i3,
203     &k_i3_offset)
204      CALL RECONCILEFILE(d_i3,size_i3)
205      CALL eomccsdt_x3a_1_2_2(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,
206     &k_i2_offset)
207      CALL DELETEFILE(d_i3)
208      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
209     &MA_ERR)
210      CALL eomccsdt_x3a_1_2_3(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i2,
211     &k_i2_offset)
212      CALL RECONCILEFILE(d_i2,size_i2)
213      CALL eomccsdt_x3a_1_2(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,
214     &k_i1_offset)
215      CALL DELETEFILE(d_i2)
216      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
217     &MA_ERR)
218      CALL OFFSET_eomccsdt_x3a_1_3_1(l_i2_offset,k_i2_offset,size_i2)
219      CALL TCE_FILENAME('eomccsdt_x3_1_3_1_i2',filename)
220      CALL CREATEFILE(filename,d_i2,size_i2)
221      CALL eomccsdt_x3a_1_3_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
222      CALL eomccsdt_x3a_1_3_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
223     &k_i2_offset)
224      CALL RECONCILEFILE(d_i2,size_i2)
225      CALL eomccsdt_x3a_1_3(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,
226     &k_i1_offset)
227      CALL DELETEFILE(d_i2)
228      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
229     &MA_ERR)
230      CALL OFFSET_eomccsdt_x3a_1_4_1(l_i2_offset,k_i2_offset,size_i2)
231      CALL TCE_FILENAME('eomccsdt_x3_1_4_1_i2',filename)
232      CALL CREATEFILE(filename,d_i2,size_i2)
233      CALL eomccsdt_x3a_1_4_1(d_f1,k_f1_offset,d_i2,k_i2_offset)
234      CALL eomccsdt_x3a_1_4_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
235     &k_i2_offset)
236      CALL RECONCILEFILE(d_i2,size_i2)
237      CALL eomccsdt_x3a_1_4(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1,
238     &k_i1_offset)
239      CALL DELETEFILE(d_i2)
240      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
241     &MA_ERR)
242      CALL OFFSET_eomccsdt_x3a_1_5_1(l_i2_offset,k_i2_offset,size_i2)
243      CALL TCE_FILENAME('eomccsdt_x3_1_5_1_i2',filename)
244      CALL CREATEFILE(filename,d_i2,size_i2)
245      CALL eomccsdt_x3a_1_5_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
246      CALL eomccsdt_x3a_1_5_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
247     &k_i2_offset)
248      CALL RECONCILEFILE(d_i2,size_i2)
249      CALL eomccsdt_x3a_1_5(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1,
250     &k_i1_offset)
251      CALL DELETEFILE(d_i2)
252      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
253     &MA_ERR)
254      CALL eomccsdt_x3a_1_6(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1,
255     &k_i1_offset)
256      CALL eomccsdt_x3a_1_7(d_t3,k_t3_offset,d_v2,k_v2_offset,d_i1,
257     &k_i1_offset)
258      CALL RECONCILEFILE(d_i1,size_i1)
259      CALL eomccsdt_x3a_1(d_x2,k_x2_offset,d_i1,k_i1_offset,d_i0,
260     &k_i0_offset)
261      CALL DELETEFILE(d_i1)
262      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
263     &MA_ERR)
264      CALL OFFSET_eomccsdt_x3a_2_1(l_i1_offset,k_i1_offset,size_i1)
265      CALL TCE_FILENAME('eomccsdt_x3_2_1_i1',filename)
266      CALL CREATEFILE(filename,d_i1,size_i1)
267      CALL eomccsdt_x3a_2_1(d_v2,k_v2_offset,d_i1,k_i1_offset)
268      CALL eomccsdt_x3a_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i1,
269     &k_i1_offset)
270      CALL OFFSET_eomccsdt_x3a_2_3_1(l_i2_offset,k_i2_offset,size_i2)
271      CALL TCE_FILENAME('eomccsdt_x3_2_3_1_i2',filename)
272      CALL CREATEFILE(filename,d_i2,size_i2)
273      CALL eomccsdt_x3a_2_3_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
274      CALL eomccsdt_x3a_2_3_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
275     &k_i2_offset)
276      CALL RECONCILEFILE(d_i2,size_i2)
277      CALL eomccsdt_x3a_2_3(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1,
278     &k_i1_offset)
279      CALL DELETEFILE(d_i2)
280      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
281     &MA_ERR)
282      CALL eomccsdt_x3a_2_4(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1,
283     &k_i1_offset)
284      CALL eomccsdt_x3a_2_5(d_t3,k_t3_offset,d_v2,k_v2_offset,d_i1,
285     &k_i1_offset)
286      CALL RECONCILEFILE(d_i1,size_i1)
287      CALL eomccsdt_x3a_2(d_x2,k_x2_offset,d_i1,k_i1_offset,d_i0,
288     &k_i0_offset)
289      CALL DELETEFILE(d_i1)
290      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
291     &MA_ERR)
292      CALL OFFSET_eomccsdt_x3a_3_1(l_i1_offset,k_i1_offset,size_i1)
293      CALL TCE_FILENAME('eomccsdt_x3_3_1_i1',filename)
294      CALL CREATEFILE(filename,d_i1,size_i1)
295      CALL eomccsdt_x3a_3_1(d_f1,k_f1_offset,d_i1,k_i1_offset)
296      CALL OFFSET_eomccsdt_x3a_3_2_1(l_i2_offset,k_i2_offset,size_i2)
297      CALL TCE_FILENAME('eomccsdt_x3_3_2_1_i2',filename)
298      CALL CREATEFILE(filename,d_i2,size_i2)
299      CALL eomccsdt_x3a_3_2_1(d_f1,k_f1_offset,d_i2,k_i2_offset)
300      CALL eomccsdt_x3a_3_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
301     &k_i2_offset)
302      CALL RECONCILEFILE(d_i2,size_i2)
303      CALL eomccsdt_x3a_3_2(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,
304     &k_i1_offset)
305      CALL DELETEFILE(d_i2)
306      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
307     &MA_ERR)
308      CALL eomccsdt_x3a_3_3(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i1,
309     &k_i1_offset)
310      CALL eomccsdt_x3a_3_4(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1,
311     &k_i1_offset)
312      CALL RECONCILEFILE(d_i1,size_i1)
313      CALL eomccsdt_x3a_3(d_x3,k_x3_offset,d_i1,k_i1_offset,d_i0,
314     &k_i0_offset)
315      CALL DELETEFILE(d_i1)
316      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
317     &MA_ERR)
318      CALL OFFSET_eomccsdt_x3a_4_1(l_i1_offset,k_i1_offset,size_i1)
319      CALL TCE_FILENAME('eomccsdt_x3_4_1_i1',filename)
320      CALL CREATEFILE(filename,d_i1,size_i1)
321      CALL eomccsdt_x3a_4_1(d_f1,k_f1_offset,d_i1,k_i1_offset)
322      CALL eomccsdt_x3a_4_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i1,
323     &k_i1_offset)
324      CALL eomccsdt_x3a_4_3(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1,
325     &k_i1_offset)
326      CALL RECONCILEFILE(d_i1,size_i1)
327      CALL eomccsdt_x3a_4(d_x3,k_x3_offset,d_i1,k_i1_offset,d_i0,
328     &k_i0_offset)
329      CALL DELETEFILE(d_i1)
330      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
331     &MA_ERR)
332      CALL OFFSET_eomccsdt_x3a_5_1(l_i1_offset,k_i1_offset,size_i1)
333      CALL TCE_FILENAME('eomccsdt_x3_5_1_i1',filename)
334      CALL CREATEFILE(filename,d_i1,size_i1)
335      CALL eomccsdt_x3a_5_1(d_v2,k_v2_offset,d_i1,k_i1_offset)
336      CALL OFFSET_eomccsdt_x3a_5_2_1(l_i2_offset,k_i2_offset,size_i2)
337      CALL TCE_FILENAME('eomccsdt_x3_5_2_1_i2',filename)
338      CALL CREATEFILE(filename,d_i2,size_i2)
339      CALL eomccsdt_x3a_5_2_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
340      CALL eomccsdt_x3a_5_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
341     &k_i2_offset)
342      CALL RECONCILEFILE(d_i2,size_i2)
343      CALL eomccsdt_x3a_5_2(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,
344     &k_i1_offset)
345      CALL DELETEFILE(d_i2)
346      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
347     &MA_ERR)
348      CALL eomccsdt_x3a_5_3(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1,
349     &k_i1_offset)
350      CALL RECONCILEFILE(d_i1,size_i1)
351      CALL eomccsdt_x3a_5(d_x3,k_x3_offset,d_i1,k_i1_offset,d_i0,
352     &k_i0_offset)
353      CALL DELETEFILE(d_i1)
354      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
355     &MA_ERR)
356      CALL OFFSET_eomccsdt_x3a_6_1(l_i1_offset,k_i1_offset,size_i1)
357      CALL TCE_FILENAME('eomccsdt_x3_6_1_i1',filename)
358      CALL CREATEFILE(filename,d_i1,size_i1)
359      CALL eomccsdt_x3a_6_1(d_v2,k_v2_offset,d_i1,k_i1_offset)
360      CALL eomccsdt_x3a_6_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i1,
361     &k_i1_offset)
362      CALL eomccsdt_x3a_6_3(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1,
363     &k_i1_offset)
364      CALL RECONCILEFILE(d_i1,size_i1)
365      CALL eomccsdt_x3a_6(d_x3,k_x3_offset,d_i1,k_i1_offset,d_i0,
366     &k_i0_offset)
367      CALL DELETEFILE(d_i1)
368      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
369     &MA_ERR)
370      CALL eomccsdt_x3a_7(d_x3,k_x3_offset,d_v2,k_v2_offset,d_i0,
371     &k_i0_offset)
372      CALL OFFSET_eomccsdt_x3a_8_1(l_i1_offset,k_i1_offset,size_i1)
373      CALL TCE_FILENAME('eomccsdt_x3_8_1_i1',filename)
374      CALL CREATEFILE(filename,d_i1,size_i1)
375      CALL OFFSET_eomccsdt_x3a_8_1_1(l_i2_offset,k_i2_offset,size_i2)
376      CALL TCE_FILENAME('eomccsdt_x3_8_1_1_i2',filename)
377      CALL CREATEFILE(filename,d_i2,size_i2)
378      CALL eomccsdt_x3a_8_1_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
379      CALL OFFSET_eomccsdt_x3a_8_1_2_1(l_i3_offset,k_i3_offset,size_i3)
380      CALL TCE_FILENAME('eomccsdt_x3_8_1_2_1_i3',filename)
381      CALL CREATEFILE(filename,d_i3,size_i3)
382      CALL eomccsdt_x3a_8_1_2_1(d_v2,k_v2_offset,d_i3,k_i3_offset)
383      CALL eomccsdt_x3a_8_1_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i3,
384     &k_i3_offset)
385      CALL RECONCILEFILE(d_i3,size_i3)
386      CALL eomccsdt_x3a_8_1_2(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,
387     &k_i2_offset)
388      CALL DELETEFILE(d_i3)
389      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
390     &MA_ERR)
391      CALL eomccsdt_x3a_8_1_3(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
392     &k_i2_offset)
393      CALL eomccsdt_x3a_8_1_4(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i2,
394     &k_i2_offset)
395      CALL RECONCILEFILE(d_i2,size_i2)
396      CALL eomccsdt_x3a_8_1(d_x2,k_x2_offset,d_i2,k_i2_offset,d_i1,
397     &k_i1_offset)
398      CALL DELETEFILE(d_i2)
399      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
400     &MA_ERR)
401      CALL OFFSET_eomccsdt_x3a_8_2_1(l_i2_offset,k_i2_offset,size_i2)
402      CALL TCE_FILENAME('eomccsdt_x3_8_2_1_i2',filename)
403      CALL CREATEFILE(filename,d_i2,size_i2)
404      CALL eomccsdt_x3a_8_2_1(d_f1,k_f1_offset,d_i2,k_i2_offset)
405      CALL eomccsdt_x3a_8_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
406     &k_i2_offset)
407      CALL RECONCILEFILE(d_i2,size_i2)
408      CALL eomccsdt_x3a_8_2(d_x3,k_x3_offset,d_i2,k_i2_offset,d_i1,
409     &k_i1_offset)
410      CALL DELETEFILE(d_i2)
411      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
412     &MA_ERR)
413      CALL OFFSET_eomccsdt_x3a_8_3_1(l_i2_offset,k_i2_offset,size_i2)
414      CALL TCE_FILENAME('eomccsdt_x3_8_3_1_i2',filename)
415      CALL CREATEFILE(filename,d_i2,size_i2)
416      CALL eomccsdt_x3a_8_3_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
417      CALL eomccsdt_x3a_8_3_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
418     &k_i2_offset)
419      CALL RECONCILEFILE(d_i2,size_i2)
420      CALL eomccsdt_x3a_8_3(d_x3,k_x3_offset,d_i2,k_i2_offset,d_i1,
421     &k_i1_offset)
422      CALL DELETEFILE(d_i2)
423      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
424     &MA_ERR)
425      CALL eomccsdt_x3a_8_4(d_x3,k_x3_offset,d_v2,k_v2_offset,d_i1,
426     &k_i1_offset)
427      CALL OFFSET_eomccsdt_x3a_8_5_1(l_i2_offset,k_i2_offset,size_i2)
428      CALL TCE_FILENAME('eomccsdt_x3_8_5_1_i2',filename)
429      CALL CREATEFILE(filename,d_i2,size_i2)
430      CALL eomccsdt_x3a_8_5_1(d_x3,k_x3_offset,d_v2,k_v2_offset,d_i2,
431     &k_i2_offset)
432      CALL RECONCILEFILE(d_i2,size_i2)
433      CALL eomccsdt_x3a_8_5(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,
434     &k_i1_offset)
435      CALL DELETEFILE(d_i2)
436      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
437     &MA_ERR)
438      CALL OFFSET_eomccsdt_x3a_8_6_1(l_i2_offset,k_i2_offset,size_i2)
439      CALL TCE_FILENAME('eomccsdt_x3_8_6_1_i2',filename)
440      CALL CREATEFILE(filename,d_i2,size_i2)
441      CALL eomccsdt_x3a_8_6_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2,
442     &k_i2_offset)
443      CALL eomccsdt_x3a_8_6_2(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i2,
444     &k_i2_offset)
445      CALL OFFSET_eomccsdt_x3a_8_6_3_1(l_i3_offset,k_i3_offset,size_i3)
446      CALL TCE_FILENAME('eomccsdt_x3_8_6_3_1_i3',filename)
447      CALL CREATEFILE(filename,d_i3,size_i3)
448      CALL eomccsdt_x3a_8_6_3_1(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i3,
449     &k_i3_offset)
450      CALL RECONCILEFILE(d_i3,size_i3)
451      CALL eomccsdt_x3a_8_6_3(d_x1,k_x1_offset,d_i3,k_i3_offset,d_i2,
452     &k_i2_offset)
453      CALL DELETEFILE(d_i3)
454      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
455     &MA_ERR)
456      CALL OFFSET_eomccsdt_x3a_8_6_4_1(l_i3_offset,k_i3_offset,size_i3)
457      CALL TCE_FILENAME('eomccsdt_x3_8_6_4_1_i3',filename)
458      CALL CREATEFILE(filename,d_i3,size_i3)
459      CALL eomccsdt_x3a_8_6_4_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i3,
460     &k_i3_offset)
461      CALL RECONCILEFILE(d_i3,size_i3)
462      CALL eomccsdt_x3a_8_6_4(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,
463     &k_i2_offset)
464      CALL DELETEFILE(d_i3)
465      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
466     &MA_ERR)
467      CALL RECONCILEFILE(d_i2,size_i2)
468      CALL eomccsdt_x3a_8_6(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1,
469     &k_i1_offset)
470      CALL DELETEFILE(d_i2)
471      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
472     &MA_ERR)
473      CALL OFFSET_eomccsdt_x3a_8_7_1(l_i2_offset,k_i2_offset,size_i2)
474      CALL TCE_FILENAME('eomccsdt_x3_8_7_1_i2',filename)
475      CALL CREATEFILE(filename,d_i2,size_i2)
476      CALL eomccsdt_x3a_8_7_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2,
477     &k_i2_offset)
478      CALL RECONCILEFILE(d_i2,size_i2)
479      CALL eomccsdt_x3a_8_7(d_t3,k_t3_offset,d_i2,k_i2_offset,d_i1,
480     &k_i1_offset)
481      CALL DELETEFILE(d_i2)
482      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
483     &MA_ERR)
484      CALL OFFSET_eomccsdt_x3a_8_8_1(l_i2_offset,k_i2_offset,size_i2)
485      CALL TCE_FILENAME('eomccsdt_x3_8_8_1_i2',filename)
486      CALL CREATEFILE(filename,d_i2,size_i2)
487      CALL eomccsdt_x3a_8_8_1(d_t3,k_t3_offset,d_v2,k_v2_offset,d_i2,
488     &k_i2_offset)
489      CALL RECONCILEFILE(d_i2,size_i2)
490      CALL eomccsdt_x3a_8_8(d_x1,k_x1_offset,d_i2,k_i2_offset,d_i1,
491     &k_i1_offset)
492      CALL DELETEFILE(d_i2)
493      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
494     &MA_ERR)
495      CALL OFFSET_eomccsdt_x3a_8_9_1(l_i2_offset,k_i2_offset,size_i2)
496      CALL TCE_FILENAME('eomccsdt_x3_8_9_1_i2',filename)
497      CALL CREATEFILE(filename,d_i2,size_i2)
498      CALL eomccsdt_x3a_8_9_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2,
499     &k_i2_offset)
500      CALL RECONCILEFILE(d_i2,size_i2)
501      CALL eomccsdt_x3a_8_9(d_t3,k_t3_offset,d_i2,k_i2_offset,d_i1,
502     &k_i1_offset)
503      CALL DELETEFILE(d_i2)
504      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
505     &MA_ERR)
506      CALL RECONCILEFILE(d_i1,size_i1)
507      CALL eomccsdt_x3a_8(d_t1,k_t1_offset,d_i1,k_i1_offset,d_i0,
508     &k_i0_offset)
509      CALL DELETEFILE(d_i1)
510      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
511     &MA_ERR)
512      CALL OFFSET_eomccsdt_x3a_9_1(l_i1_offset,k_i1_offset,size_i1)
513      CALL TCE_FILENAME('eomccsdt_x3_9_1_i1',filename)
514      CALL CREATEFILE(filename,d_i1,size_i1)
515      CALL OFFSET_eomccsdt_x3a_9_1_1(l_i2_offset,k_i2_offset,size_i2)
516      CALL TCE_FILENAME('eomccsdt_x3_9_1_1_i2',filename)
517      CALL CREATEFILE(filename,d_i2,size_i2)
518      CALL eomccsdt_x3a_9_1_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
519      CALL OFFSET_eomccsdt_x3a_9_1_2_1(l_i3_offset,k_i3_offset,size_i3)
520      CALL TCE_FILENAME('eomccsdt_x3_9_1_2_1_i3',filename)
521      CALL CREATEFILE(filename,d_i3,size_i3)
522      CALL eomccsdt_x3a_9_1_2_1(d_v2,k_v2_offset,d_i3,k_i3_offset)
523      CALL eomccsdt_x3a_9_1_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i3,
524     &k_i3_offset)
525      CALL RECONCILEFILE(d_i3,size_i3)
526      CALL eomccsdt_x3a_9_1_2(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,
527     &k_i2_offset)
528      CALL DELETEFILE(d_i3)
529      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
530     &MA_ERR)
531      CALL eomccsdt_x3a_9_1_3(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i2,
532     &k_i2_offset)
533      CALL RECONCILEFILE(d_i2,size_i2)
534      CALL eomccsdt_x3a_9_1(d_x1,k_x1_offset,d_i2,k_i2_offset,d_i1,
535     &k_i1_offset)
536      CALL DELETEFILE(d_i2)
537      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
538     &MA_ERR)
539      CALL eomccsdt_x3a_9_2(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i1,
540     &k_i1_offset)
541      CALL OFFSET_eomccsdt_x3a_9_3_1(l_i2_offset,k_i2_offset,size_i2)
542      CALL TCE_FILENAME('eomccsdt_x3_9_3_1_i2',filename)
543      CALL CREATEFILE(filename,d_i2,size_i2)
544      CALL eomccsdt_x3a_9_3_1(d_f1,k_f1_offset,d_i2,k_i2_offset)
545      CALL eomccsdt_x3a_9_3_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
546     &k_i2_offset)
547      CALL RECONCILEFILE(d_i2,size_i2)
548      CALL eomccsdt_x3a_9_3(d_x2,k_x2_offset,d_i2,k_i2_offset,d_i1,
549     &k_i1_offset)
550      CALL DELETEFILE(d_i2)
551      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
552     &MA_ERR)
553      CALL OFFSET_eomccsdt_x3a_9_4_1(l_i2_offset,k_i2_offset,size_i2)
554      CALL TCE_FILENAME('eomccsdt_x3_9_4_1_i2',filename)
555      CALL CREATEFILE(filename,d_i2,size_i2)
556      CALL eomccsdt_x3a_9_4_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
557      CALL eomccsdt_x3a_9_4_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
558     &k_i2_offset)
559      CALL RECONCILEFILE(d_i2,size_i2)
560      CALL eomccsdt_x3a_9_4(d_x2,k_x2_offset,d_i2,k_i2_offset,d_i1,
561     &k_i1_offset)
562      CALL DELETEFILE(d_i2)
563      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
564     &MA_ERR)
565      CALL eomccsdt_x3a_9_5(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i1,
566     &k_i1_offset)
567      CALL eomccsdt_x3a_9_6(d_x3,k_x3_offset,d_v2,k_v2_offset,d_i1,
568     &k_i1_offset)
569      CALL OFFSET_eomccsdt_x3a_9_7_1(l_i2_offset,k_i2_offset,size_i2)
570      CALL TCE_FILENAME('eomccsdt_x3_9_7_1_i2',filename)
571      CALL CREATEFILE(filename,d_i2,size_i2)
572      CALL eomccsdt_x3a_9_7_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2,
573     &k_i2_offset)
574      CALL eomccsdt_x3a_9_7_2(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i2,
575     &k_i2_offset)
576      CALL OFFSET_eomccsdt_x3a_9_7_3_1(l_i3_offset,k_i3_offset,size_i3)
577      CALL TCE_FILENAME('eomccsdt_x3_9_7_3_1_i3',filename)
578      CALL CREATEFILE(filename,d_i3,size_i3)
579      CALL eomccsdt_x3a_9_7_3_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i3,
580     &k_i3_offset)
581      CALL RECONCILEFILE(d_i3,size_i3)
582      CALL eomccsdt_x3a_9_7_3(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,
583     &k_i2_offset)
584      CALL DELETEFILE(d_i3)
585      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
586     &MA_ERR)
587      CALL RECONCILEFILE(d_i2,size_i2)
588      CALL eomccsdt_x3a_9_7(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,
589     &k_i1_offset)
590      CALL DELETEFILE(d_i2)
591      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
592     &MA_ERR)
593      CALL OFFSET_eomccsdt_x3a_9_8_1(l_i2_offset,k_i2_offset,size_i2)
594      CALL TCE_FILENAME('eomccsdt_x3_9_8_1_i2',filename)
595      CALL CREATEFILE(filename,d_i2,size_i2)
596      CALL eomccsdt_x3a_9_8_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2,
597     &k_i2_offset)
598      CALL RECONCILEFILE(d_i2,size_i2)
599      CALL eomccsdt_x3a_9_8(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,
600     &k_i1_offset)
601      CALL DELETEFILE(d_i2)
602      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
603     &MA_ERR)
604      CALL OFFSET_eomccsdt_x3a_9_9_1(l_i2_offset,k_i2_offset,size_i2)
605      CALL TCE_FILENAME('eomccsdt_x3_9_9_1_i2',filename)
606      CALL CREATEFILE(filename,d_i2,size_i2)
607      CALL eomccsdt_x3a_9_9_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2,
608     &k_i2_offset)
609      CALL RECONCILEFILE(d_i2,size_i2)
610      CALL eomccsdt_x3a_9_9(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1,
611     &k_i1_offset)
612      CALL DELETEFILE(d_i2)
613      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
614     &MA_ERR)
615      CALL OFFSET_eomccsdt_x3a_9_10_1(l_i2_offset,k_i2_offset,size_i2)
616      CALL TCE_FILENAME('eomccsdt_x3_9_10_1_i2',filename)
617      CALL CREATEFILE(filename,d_i2,size_i2)
618      CALL eomccsdt_x3a_9_10_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2,
619     &k_i2_offset)
620      CALL RECONCILEFILE(d_i2,size_i2)
621      CALL eomccsdt_x3a_9_10(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1,
622     &k_i1_offset)
623      CALL DELETEFILE(d_i2)
624      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
625     &MA_ERR)
626      CALL RECONCILEFILE(d_i1,size_i1)
627      CALL eomccsdt_x3a_9(d_t2,k_t2_offset,d_i1,k_i1_offset,d_i0,
628     &k_i0_offset)
629      CALL DELETEFILE(d_i1)
630      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
631     &MA_ERR)
632      CALL OFFSET_eomccsdt_x3a_10_1(l_i1_offset,k_i1_offset,size_i1)
633      CALL TCE_FILENAME('eomccsdt_x3_10_1_i1',filename)
634      CALL CREATEFILE(filename,d_i1,size_i1)
635      CALL OFFSET_eomccsdt_x3a_10_1_1(l_i2_offset,k_i2_offset,size_i2)
636      CALL TCE_FILENAME('eomccsdt_x3_10_1_1_i2',filename)
637      CALL CREATEFILE(filename,d_i2,size_i2)
638      CALL eomccsdt_x3a_10_1_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
639      CALL eomccsdt_x3a_10_1_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
640     &k_i2_offset)
641      CALL eomccsdt_x3a_10_1_3(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
642     &k_i2_offset)
643      CALL eomccsdt_x3a_10_1_4(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i2,
644     &k_i2_offset)
645      CALL RECONCILEFILE(d_i2,size_i2)
646      CALL eomccsdt_x3a_10_1(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1,
647     &k_i1_offset)
648      CALL DELETEFILE(d_i2)
649      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
650     &MA_ERR)
651      CALL OFFSET_eomccsdt_x3a_10_2_1(l_i2_offset,k_i2_offset,size_i2)
652      CALL TCE_FILENAME('eomccsdt_x3_10_2_1_i2',filename)
653      CALL CREATEFILE(filename,d_i2,size_i2)
654      CALL eomccsdt_x3a_10_2_1(d_f1,k_f1_offset,d_i2,k_i2_offset)
655      CALL eomccsdt_x3a_10_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
656     &k_i2_offset)
657      CALL RECONCILEFILE(d_i2,size_i2)
658      CALL eomccsdt_x3a_10_2(d_t3,k_t3_offset,d_i2,k_i2_offset,d_i1,
659     &k_i1_offset)
660      CALL DELETEFILE(d_i2)
661      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
662     &MA_ERR)
663      CALL OFFSET_eomccsdt_x3a_10_3_1(l_i2_offset,k_i2_offset,size_i2)
664      CALL TCE_FILENAME('eomccsdt_x3_10_3_1_i2',filename)
665      CALL CREATEFILE(filename,d_i2,size_i2)
666      CALL eomccsdt_x3a_10_3_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
667      CALL eomccsdt_x3a_10_3_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
668     &k_i2_offset)
669      CALL RECONCILEFILE(d_i2,size_i2)
670      CALL eomccsdt_x3a_10_3(d_t3,k_t3_offset,d_i2,k_i2_offset,d_i1,
671     &k_i1_offset)
672      CALL DELETEFILE(d_i2)
673      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
674     &MA_ERR)
675      CALL eomccsdt_x3a_10_4(d_t3,k_t3_offset,d_v2,k_v2_offset,d_i1,
676     &k_i1_offset)
677      CALL RECONCILEFILE(d_i1,size_i1)
678      CALL eomccsdt_x3a_10(d_x1,k_x1_offset,d_i1,k_i1_offset,d_i0,
679     &k_i0_offset)
680      CALL DELETEFILE(d_i1)
681      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
682     &MA_ERR)
683      CALL OFFSET_eomccsdt_x3a_11_1(l_i1_offset,k_i1_offset,size_i1)
684      CALL TCE_FILENAME('eomccsdt_x3_11_1_i1',filename)
685      CALL CREATEFILE(filename,d_i1,size_i1)
686      CALL eomccsdt_x3a_11_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i1,
687     &k_i1_offset)
688      CALL OFFSET_eomccsdt_x3a_11_2_1(l_i2_offset,k_i2_offset,size_i2)
689      CALL TCE_FILENAME('eomccsdt_x3_11_2_1_i2',filename)
690      CALL CREATEFILE(filename,d_i2,size_i2)
691      CALL eomccsdt_x3a_11_2_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
692      CALL eomccsdt_x3a_11_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
693     &k_i2_offset)
694      CALL RECONCILEFILE(d_i2,size_i2)
695      CALL eomccsdt_x3a_11_2(d_x2,k_x2_offset,d_i2,k_i2_offset,d_i1,
696     &k_i1_offset)
697      CALL DELETEFILE(d_i2)
698      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
699     &MA_ERR)
700      CALL eomccsdt_x3a_11_3(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i1,
701     &k_i1_offset)
702      CALL eomccsdt_x3a_11_4(d_x3,k_x3_offset,d_v2,k_v2_offset,d_i1,
703     &k_i1_offset)
704      CALL OFFSET_eomccsdt_x3a_11_5_1(l_i2_offset,k_i2_offset,size_i2)
705      CALL TCE_FILENAME('eomccsdt_x3_11_5_1_i2',filename)
706      CALL CREATEFILE(filename,d_i2,size_i2)
707      CALL eomccsdt_x3a_11_5_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2,
708     &k_i2_offset)
709      CALL RECONCILEFILE(d_i2,size_i2)
710      CALL eomccsdt_x3a_11_5(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1,
711     &k_i1_offset)
712      CALL DELETEFILE(d_i2)
713      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
714     &MA_ERR)
715      CALL RECONCILEFILE(d_i1,size_i1)
716      CALL eomccsdt_x3a_11(d_t2,k_t2_offset,d_i1,k_i1_offset,d_i0,
717     &k_i0_offset)
718      CALL DELETEFILE(d_i1)
719      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
720     &MA_ERR)
721      CALL OFFSET_eomccsdt_x3a_12_1(l_i1_offset,k_i1_offset,size_i1)
722      CALL TCE_FILENAME('eomccsdt_x3_12_1_i1',filename)
723      CALL CREATEFILE(filename,d_i1,size_i1)
724      CALL eomccsdt_x3a_12_1(d_x3,k_x3_offset,d_v2,k_v2_offset,d_i1,
725     &k_i1_offset)
726      CALL RECONCILEFILE(d_i1,size_i1)
727      CALL eomccsdt_x3a_12(d_t2,k_t2_offset,d_i1,k_i1_offset,d_i0,
728     &k_i0_offset)
729      CALL DELETEFILE(d_i1)
730      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
731     &MA_ERR)
732      CALL OFFSET_eomccsdt_x3a_13_1(l_i1_offset,k_i1_offset,size_i1)
733      CALL TCE_FILENAME('eomccsdt_x3_13_1_i1',filename)
734      CALL CREATEFILE(filename,d_i1,size_i1)
735      CALL OFFSET_eomccsdt_x3a_13_1_1(l_i2_offset,k_i2_offset,size_i2)
736      CALL TCE_FILENAME('eomccsdt_x3_13_1_1_i2',filename)
737      CALL CREATEFILE(filename,d_i2,size_i2)
738      CALL eomccsdt_x3a_13_1_1(d_f1,k_f1_offset,d_i2,k_i2_offset)
739      CALL eomccsdt_x3a_13_1_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
740     &k_i2_offset)
741      CALL RECONCILEFILE(d_i2,size_i2)
742      CALL eomccsdt_x3a_13_1(d_x1,k_x1_offset,d_i2,k_i2_offset,d_i1,
743     &k_i1_offset)
744      CALL DELETEFILE(d_i2)
745      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
746     &MA_ERR)
747      CALL eomccsdt_x3a_13_2(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i1,
748     &k_i1_offset)
749      CALL eomccsdt_x3a_13_3(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i1,
750     &k_i1_offset)
751      CALL OFFSET_eomccsdt_x3a_13_4_1(l_i2_offset,k_i2_offset,size_i2)
752      CALL TCE_FILENAME('eomccsdt_x3_13_4_1_i2',filename)
753      CALL CREATEFILE(filename,d_i2,size_i2)
754      CALL eomccsdt_x3a_13_4_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2,
755     &k_i2_offset)
756      CALL RECONCILEFILE(d_i2,size_i2)
757      CALL eomccsdt_x3a_13_4(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,
758     &k_i1_offset)
759      CALL DELETEFILE(d_i2)
760      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
761     &MA_ERR)
762      CALL RECONCILEFILE(d_i1,size_i1)
763      CALL eomccsdt_x3a_13(d_t3,k_t3_offset,d_i1,k_i1_offset,d_i0,
764     &k_i0_offset)
765      CALL DELETEFILE(d_i1)
766      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
767     &MA_ERR)
768      CALL OFFSET_eomccsdt_x3a_14_1(l_i1_offset,k_i1_offset,size_i1)
769      CALL TCE_FILENAME('eomccsdt_x3_14_1_i1',filename)
770      CALL CREATEFILE(filename,d_i1,size_i1)
771      CALL eomccsdt_x3a_14_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i1,
772     &k_i1_offset)
773      CALL eomccsdt_x3a_14_2(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i1,
774     &k_i1_offset)
775      CALL OFFSET_eomccsdt_x3a_14_3_1(l_i2_offset,k_i2_offset,size_i2)
776      CALL TCE_FILENAME('eomccsdt_x3_14_3_1_i2',filename)
777      CALL CREATEFILE(filename,d_i2,size_i2)
778      CALL eomccsdt_x3a_14_3_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2,
779     &k_i2_offset)
780      CALL RECONCILEFILE(d_i2,size_i2)
781      CALL eomccsdt_x3a_14_3(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,
782     &k_i1_offset)
783      CALL DELETEFILE(d_i2)
784      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
785     &MA_ERR)
786      CALL RECONCILEFILE(d_i1,size_i1)
787      CALL eomccsdt_x3a_14(d_t3,k_t3_offset,d_i1,k_i1_offset,d_i0,
788     &k_i0_offset)
789      CALL DELETEFILE(d_i1)
790      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
791     &MA_ERR)
792      CALL OFFSET_eomccsdt_x3a_15_1(l_i1_offset,k_i1_offset,size_i1)
793      CALL TCE_FILENAME('eomccsdt_x3_15_1_i1',filename)
794      CALL CREATEFILE(filename,d_i1,size_i1)
795      CALL eomccsdt_x3a_15_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i1,
796     &k_i1_offset)
797      CALL eomccsdt_x3a_15_2(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i1,
798     &k_i1_offset)
799      CALL RECONCILEFILE(d_i1,size_i1)
800      CALL eomccsdt_x3a_15(d_t3,k_t3_offset,d_i1,k_i1_offset,d_i0,
801     &k_i0_offset)
802      CALL DELETEFILE(d_i1)
803      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
804     &MA_ERR)
805      CALL OFFSET_eomccsdt_x3a_16_1(l_i1_offset,k_i1_offset,size_i1)
806      CALL TCE_FILENAME('eomccsdt_x3_16_1_i1',filename)
807      CALL CREATEFILE(filename,d_i1,size_i1)
808      CALL eomccsdt_x3a_16_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i1,
809     &k_i1_offset)
810      CALL eomccsdt_x3a_16_2(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i1,
811     &k_i1_offset)
812      CALL RECONCILEFILE(d_i1,size_i1)
813      CALL eomccsdt_x3a_16(d_t3,k_t3_offset,d_i1,k_i1_offset,d_i0,
814     &k_i0_offset)
815      CALL DELETEFILE(d_i1)
816      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
817     &MA_ERR)
818      CALL OFFSET_eomccsdt_x3a_17_1(l_i1_offset,k_i1_offset,size_i1)
819      CALL TCE_FILENAME('eomccsdt_x3_17_1_i1',filename)
820      CALL CREATEFILE(filename,d_i1,size_i1)
821      CALL eomccsdt_x3a_17_1(d_t3,k_t3_offset,d_v2,k_v2_offset,d_i1,
822     &k_i1_offset)
823      CALL RECONCILEFILE(d_i1,size_i1)
824      CALL eomccsdt_x3a_17(d_x2,k_x2_offset,d_i1,k_i1_offset,d_i0,
825     &k_i0_offset)
826      CALL DELETEFILE(d_i1)
827      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1,
828     &MA_ERR)
829      RETURN
830      END
831