1      SUBROUTINE eomccsdt_x2a(d_f1,d_i0,d_t1,d_t2,d_t3,d_v2,d_x1,d_x2,
2     &d_x3,k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,
3     &k_v2_offset,k_x1_offset,k_x2_offset,k_x3_offset)
4C     $Id$
5C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7C     i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( h9 ) * x ( p3 h9 )_x * i1 ( h9 p4 h1 h2 )_v
8C         i1 ( h9 p3 h1 h2 )_v + = 1 * v ( h9 p3 h1 h2 )_v
9C         i1 ( h9 p3 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h9 p3 h2 p5 )_v
10C             i2 ( h9 p3 h1 p5 )_v + = 1 * v ( h9 p3 h1 p5 )_v
11C             i2 ( h9 p3 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h9 p3 p5 p6 )_v
12C         i1 ( h9 p3 h1 h2 )_ft + = -1 * Sum ( p8 ) * t ( p3 p8 h1 h2 )_t * i2 ( h9 p8 )_f
13C             i2 ( h9 p8 )_f + = 1 * f ( h9 p8 )_f
14C             i2 ( h9 p8 )_vt + = 1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h9 p6 p8 )_v
15C         i1 ( h9 p3 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i2 ( h6 h9 h2 p5 )_v
16C             i2 ( h6 h9 h1 p5 )_v + = 1 * v ( h6 h9 h1 p5 )_v
17C             i2 ( h6 h9 h1 p5 )_vt + = -1 * Sum ( p7 ) * t ( p7 h1 )_t * v ( h6 h9 p5 p7 )_v
18C         i1 ( h9 p3 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( h9 p3 p5 p6 )_v
19C         i1 ( h9 p3 h1 h2 )_vt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p3 p5 p6 h1 h2 h7 )_t * v ( h7 h9 p5 p6 )_v
20C     i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( p5 ) * x ( p5 h1 )_x * v ( p3 p4 h2 p5 )_v
21C     i0 ( p3 p4 h1 h2 )_xf + = -1 * P( 2 ) * Sum ( h8 ) * x ( p3 p4 h1 h8 )_x * i1 ( h8 h2 )_f
22C         i1 ( h8 h1 )_f + = 1 * f ( h8 h1 )_f
23C         i1 ( h8 h1 )_ft + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * i2 ( h8 p9 )_f
24C             i2 ( h8 p9 )_f + = 1 * f ( h8 p9 )_f
25C             i2 ( h8 p9 )_vt + = 1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h8 p6 p9 )_v
26C         i1 ( h8 h1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h8 h1 p5 )_v
27C         i1 ( h8 h1 )_vt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * v ( h7 h8 p5 p6 )_v
28C     i0 ( p3 p4 h1 h2 )_xf + = 1 * P( 2 ) * Sum ( p8 ) * x ( p3 p8 h1 h2 )_x * i1 ( p4 p8 )_f
29C         i1 ( p3 p8 )_f + = 1 * f ( p3 p8 )_f
30C         i1 ( p3 p8 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p3 p5 p8 )_v
31C         i1 ( p3 p8 )_vt + = 1/2 * Sum ( h6 h7 p5 ) * t ( p3 p5 h6 h7 )_t * v ( h6 h7 p5 p8 )_v
32C     i0 ( p3 p4 h1 h2 )_xv + = 1/2 * Sum ( h10 h9 ) * x ( p3 p4 h9 h10 )_x * i1 ( h9 h10 h1 h2 )_v
33C         i1 ( h9 h10 h1 h2 )_v + = 1 * v ( h9 h10 h1 h2 )_v
34C         i1 ( h9 h10 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h9 h10 h2 p5 )_v
35C             i2 ( h9 h10 h1 p5 )_v + = 1 * v ( h9 h10 h1 p5 )_v
36C             i2 ( h9 h10 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h9 h10 p5 p6 )_v
37C         i1 ( h9 h10 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( h9 h10 p5 p6 )_v
38C     i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 4 ) * Sum ( p8 h7 ) * x ( p3 p8 h1 h7 )_x * i1 ( h7 p4 h2 p8 )_v
39C         i1 ( h7 p3 h1 p8 )_v + = 1 * v ( h7 p3 h1 p8 )_v
40C         i1 ( h7 p3 h1 p8 )_vt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * v ( h7 p3 p5 p8 )_v
41C     i0 ( p3 p4 h1 h2 )_xv + = 1/2 * Sum ( p6 p5 ) * x ( p5 p6 h1 h2 )_x * v ( p3 p4 p5 p6 )_v
42C     i0 ( p3 p4 h1 h2 )_xf + = 1 * Sum ( p9 h8 ) * x ( p3 p4 p9 h1 h2 h8 )_x * i1 ( h8 p9 )_f
43C         i1 ( h8 p9 )_f + = 1 * f ( h8 p9 )_f
44C         i1 ( h8 p9 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h8 p5 p9 )_v
45C     i0 ( p3 p4 h1 h2 )_xv + = -1/2 * P( 2 ) * Sum ( p9 h10 h8 ) * x ( p3 p4 p9 h1 h8 h10 )_x * i1 ( h8 h10 h2 p9 )_v
46C         i1 ( h8 h10 h1 p9 )_v + = 1 * v ( h8 h10 h1 p9 )_v
47C         i1 ( h8 h10 h1 p9 )_vt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * v ( h8 h10 p5 p9 )_v
48C     i0 ( p3 p4 h1 h2 )_xv + = -1/2 * P( 2 ) * Sum ( p7 p6 h5 ) * x ( p3 p6 p7 h1 h2 h5 )_x * v ( h5 p4 p6 p7 )_v
49C     i0 ( p3 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( h9 ) * t ( p3 h9 )_t * i1 ( h9 p4 h1 h2 )_vx
50C         i1 ( h9 p3 h1 h2 )_vx + = 1 * Sum ( h10 ) * x ( p3 h10 )_x * i2 ( h9 h10 h1 h2 )_v
51C             i2 ( h9 h10 h1 h2 )_v + = -1 * v ( h9 h10 h1 h2 )_v
52C             i2 ( h9 h10 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( p6 ) * t ( p6 h1 )_t * i3 ( h9 h10 h2 p6 )_v
53C                 i3 ( h9 h10 h1 p6 )_v + = 1 * v ( h9 h10 h1 p6 )_v
54C                 i3 ( h9 h10 h1 p6 )_vt + = -1/2 * Sum ( p7 ) * t ( p7 h1 )_t * v ( h9 h10 p6 p7 )_v
55C             i2 ( h9 h10 h1 h2 )_vt + = -1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( h9 h10 p5 p6 )_v
56C         i1 ( h9 p3 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( p6 ) * x ( p6 h1 )_x * v ( h9 p3 h2 p6 )_v
57C         i1 ( h9 p3 h1 h2 )_fx + = -1 * Sum ( p5 ) * x ( p3 p5 h1 h2 )_x * i2 ( h9 p5 )_f
58C             i2 ( h9 p5 )_f + = 1 * f ( h9 p5 )_f
59C             i2 ( h9 p5 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h9 p5 p6 )_v
60C         i1 ( h9 p3 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( h8 p5 ) * x ( p3 p5 h1 h8 )_x * i2 ( h8 h9 h2 p5 )_v
61C             i2 ( h8 h9 h1 p5 )_v + = 1 * v ( h8 h9 h1 p5 )_v
62C             i2 ( h8 h9 h1 p5 )_vt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h8 h9 p5 p6 )_v
63C         i1 ( h9 p3 h1 h2 )_vx + = 1/2 * Sum ( p6 p7 ) * x ( p6 p7 h1 h2 )_x * v ( h9 p3 p6 p7 )_v
64C         i1 ( h9 p3 h1 h2 )_vx + = 1/2 * Sum ( h6 p7 p8 ) * x ( p3 p7 p8 h1 h2 h6 )_x * v ( h6 h9 p7 p8 )_v
65C         i1 ( h9 p3 h1 h2 )_vxt + = 1 * Sum ( h6 ) * t ( p3 h6 )_t * i2 ( h6 h9 h1 h2 )_vx
66C             i2 ( h6 h9 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( h6 h9 h2 p7 )_v
67C             i2 ( h6 h9 h1 h2 )_vx + = 1/4 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * v ( h6 h9 p7 p8 )_v
68C             i2 ( h6 h9 h1 h2 )_vxt + = -1/2 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i3 ( h6 h9 h2 p7 )_vx
69C                 i3 ( h6 h9 h1 p7 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h6 h9 p7 p8 )_v
70C         i1 ( h9 p3 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p6 ) * t ( p6 h1 )_t * i2 ( h9 p3 h2 p6 )_vx
71C             i2 ( h9 p3 h1 p6 )_vx + = -1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h9 p3 p6 p7 )_v
72C         i1 ( h9 p3 h1 h2 )_vxt + = -1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i2 ( h9 p5 )_vx
73C             i2 ( h9 p5 )_vx + = -1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h7 h9 p5 p8 )_v
74C         i1 ( h9 p3 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i2 ( h6 h9 h2 p5 )_vx
75C             i2 ( h6 h9 h1 p5 )_vx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h6 h9 p5 p8 )_v
76C     i0 ( p3 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i1 ( p3 p4 h2 p5 )_vx
77C         i1 ( p3 p4 h1 p5 )_vx + = -1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( p3 p4 p5 p6 )_v
78C     i0 ( p3 p4 h1 h2 )_fxt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_fx
79C         i1 ( h5 h1 )_fx + = 1 * Sum ( p9 ) * x ( p9 h1 )_x * i2 ( h5 p9 )_f
80C             i2 ( h5 p9 )_f + = 1 * f ( h5 p9 )_f
81C             i2 ( h5 p9 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h5 h7 p6 p9 )_v
82C         i1 ( h5 h1 )_vx + = 1 * Sum ( h6 p7 ) * x ( p7 h6 )_x * v ( h5 h6 h1 p7 )_v
83C         i1 ( h5 h1 )_vx + = 1/2 * Sum ( h6 p7 p8 ) * x ( p7 p8 h1 h6 )_x * v ( h5 h6 p7 p8 )_v
84C         i1 ( h5 h1 )_vxt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * i2 ( h5 p6 )_vx
85C             i2 ( h5 p6 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h5 h7 p6 p8 )_v
86C     i0 ( p3 p4 h1 h2 )_vxt + = 1 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * i1 ( h5 h6 h1 h2 )_vx
87C         i1 ( h5 h6 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( h5 h6 h2 p7 )_v
88C         i1 ( h5 h6 h1 h2 )_vx + = 1/4 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * v ( h5 h6 p7 p8 )_v
89C         i1 ( h5 h6 h1 h2 )_vxt + = -1/2 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h5 h6 h2 p7 )_vx
90C             i2 ( h5 h6 h1 p7 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h5 h6 p7 p8 )_v
91C     i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i1 ( p4 p5 )_vx
92C         i1 ( p3 p5 )_vx + = -1 * Sum ( h6 p7 ) * x ( p7 h6 )_x * v ( h6 p3 p5 p7 )_v
93C         i1 ( p3 p5 )_vx + = -1/2 * Sum ( h6 h7 p8 ) * x ( p3 p8 h6 h7 )_x * v ( h6 h7 p5 p8 )_v
94C     i0 ( p3 p4 h1 h2 )_vxt + = -1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i1 ( h6 p4 h2 p5 )_vx
95C         i1 ( h6 p3 h1 p5 )_vx + = -1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h6 p3 p5 p7 )_v
96C         i1 ( h6 p3 h1 p5 )_vx + = -1 * Sum ( h7 p8 ) * x ( p3 p8 h1 h7 )_x * v ( h6 h7 p5 p8 )_v
97C     i0 ( p3 p4 h1 h2 )_vxt + = 1 * Sum ( h6 p5 ) * t ( p3 p4 p5 h1 h2 h6 )_t * i1 ( h6 p5 )_vx
98C         i1 ( h6 p5 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h6 h7 p5 p8 )_v
99C     i0 ( p3 p4 h1 h2 )_vxt + = -1/2 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p3 p4 p5 h1 h6 h7 )_t * i1 ( h6 h7 h2 p5 )_vx
100C         i1 ( h6 h7 h1 p5 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h6 h7 p5 p8 )_v
101      IMPLICIT NONE
102#include "global.fh"
103#include "mafdecls.fh"
104#include "util.fh"
105#include "errquit.fh"
106#include "tce.fh"
107      INTEGER d_i0
108      INTEGER k_i0_offset
109      INTEGER d_x1
110      INTEGER k_x1_offset
111      INTEGER d_i1
112      INTEGER k_i1_offset
113      INTEGER d_v2
114      INTEGER k_v2_offset
115      INTEGER d_x2
116      INTEGER k_x2_offset
117      INTEGER d_x3
118      INTEGER k_x3_offset
119      INTEGER d_t1
120      INTEGER k_t1_offset
121      INTEGER d_t2
122      INTEGER k_t2_offset
123      INTEGER d_t3
124      INTEGER k_t3_offset
125      INTEGER l_i1_offset
126      INTEGER size_i1
127      INTEGER d_i2
128      INTEGER k_i2_offset
129      INTEGER l_i2_offset
130      INTEGER size_i2
131      INTEGER d_f1
132      INTEGER k_f1_offset
133      INTEGER d_i3
134      INTEGER k_i3_offset
135      INTEGER l_i3_offset
136      INTEGER size_i3
137      CHARACTER*255 filename
138      CALL OFFSET_eomccsdt_x2a_1_1(l_i1_offset,k_i1_offset,size_i1)
139      CALL TCE_FILENAME('eomccsdt_x2_1_1_i1',filename)
140      CALL CREATEFILE(filename,d_i1,size_i1)
141      CALL eomccsdt_x2a_1_1(d_v2,k_v2_offset,d_i1,k_i1_offset)
142      CALL OFFSET_eomccsdt_x2a_1_2_1(l_i2_offset,k_i2_offset,size_i2)
143      CALL TCE_FILENAME('eomccsdt_x2_1_2_1_i2',filename)
144      CALL CREATEFILE(filename,d_i2,size_i2)
145      CALL eomccsdt_x2a_1_2_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
146      CALL eomccsdt_x2a_1_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
147     &k_i2_offset)
148      CALL RECONCILEFILE(d_i2,size_i2)
149      CALL eomccsdt_x2a_1_2(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,
150     &k_i1_offset)
151      CALL DELETEFILE(d_i2)
152      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x2',-1,
153     &MA_ERR)
154      CALL OFFSET_eomccsdt_x2a_1_3_1(l_i2_offset,k_i2_offset,size_i2)
155      CALL TCE_FILENAME('eomccsdt_x2_1_3_1_i2',filename)
156      CALL CREATEFILE(filename,d_i2,size_i2)
157      CALL eomccsdt_x2a_1_3_1(d_f1,k_f1_offset,d_i2,k_i2_offset)
158      CALL eomccsdt_x2a_1_3_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
159     &k_i2_offset)
160      CALL RECONCILEFILE(d_i2,size_i2)
161      CALL eomccsdt_x2a_1_3(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1,
162     &k_i1_offset)
163      CALL DELETEFILE(d_i2)
164      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x2',-1,
165     &MA_ERR)
166      CALL OFFSET_eomccsdt_x2a_1_4_1(l_i2_offset,k_i2_offset,size_i2)
167      CALL TCE_FILENAME('eomccsdt_x2_1_4_1_i2',filename)
168      CALL CREATEFILE(filename,d_i2,size_i2)
169      CALL eomccsdt_x2a_1_4_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
170      CALL eomccsdt_x2a_1_4_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
171     &k_i2_offset)
172      CALL RECONCILEFILE(d_i2,size_i2)
173      CALL eomccsdt_x2a_1_4(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1,
174     &k_i1_offset)
175      CALL DELETEFILE(d_i2)
176      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x2',-1,
177     &MA_ERR)
178      CALL eomccsdt_x2a_1_5(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1,
179     &k_i1_offset)
180      CALL eomccsdt_x2a_1_6(d_t3,k_t3_offset,d_v2,k_v2_offset,d_i1,
181     &k_i1_offset)
182      CALL RECONCILEFILE(d_i1,size_i1)
183      CALL eomccsdt_x2a_1(d_x1,k_x1_offset,d_i1,k_i1_offset,d_i0,
184     &k_i0_offset)
185      CALL DELETEFILE(d_i1)
186      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x2',-1,
187     &MA_ERR)
188      CALL eomccsdt_x2a_2(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i0,
189     &k_i0_offset)
190      CALL OFFSET_eomccsdt_x2a_3_1(l_i1_offset,k_i1_offset,size_i1)
191      CALL TCE_FILENAME('eomccsdt_x2_3_1_i1',filename)
192      CALL CREATEFILE(filename,d_i1,size_i1)
193      CALL eomccsdt_x2a_3_1(d_f1,k_f1_offset,d_i1,k_i1_offset)
194      CALL OFFSET_eomccsdt_x2a_3_2_1(l_i2_offset,k_i2_offset,size_i2)
195      CALL TCE_FILENAME('eomccsdt_x2_3_2_1_i2',filename)
196      CALL CREATEFILE(filename,d_i2,size_i2)
197      CALL eomccsdt_x2a_3_2_1(d_f1,k_f1_offset,d_i2,k_i2_offset)
198      CALL eomccsdt_x2a_3_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
199     &k_i2_offset)
200      CALL RECONCILEFILE(d_i2,size_i2)
201      CALL eomccsdt_x2a_3_2(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,
202     &k_i1_offset)
203      CALL DELETEFILE(d_i2)
204      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x2',-1,
205     &MA_ERR)
206      CALL eomccsdt_x2a_3_3(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i1,
207     &k_i1_offset)
208      CALL eomccsdt_x2a_3_4(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1,
209     &k_i1_offset)
210      CALL RECONCILEFILE(d_i1,size_i1)
211      CALL eomccsdt_x2a_3(d_x2,k_x2_offset,d_i1,k_i1_offset,d_i0,
212     &k_i0_offset)
213      CALL DELETEFILE(d_i1)
214      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x2',-1,
215     &MA_ERR)
216      CALL OFFSET_eomccsdt_x2a_4_1(l_i1_offset,k_i1_offset,size_i1)
217      CALL TCE_FILENAME('eomccsdt_x2_4_1_i1',filename)
218      CALL CREATEFILE(filename,d_i1,size_i1)
219      CALL eomccsdt_x2a_4_1(d_f1,k_f1_offset,d_i1,k_i1_offset)
220      CALL eomccsdt_x2a_4_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i1,
221     &k_i1_offset)
222      CALL eomccsdt_x2a_4_3(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1,
223     &k_i1_offset)
224      CALL RECONCILEFILE(d_i1,size_i1)
225      CALL eomccsdt_x2a_4(d_x2,k_x2_offset,d_i1,k_i1_offset,d_i0,
226     &k_i0_offset)
227      CALL DELETEFILE(d_i1)
228      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x2',-1,
229     &MA_ERR)
230      CALL OFFSET_eomccsdt_x2a_5_1(l_i1_offset,k_i1_offset,size_i1)
231      CALL TCE_FILENAME('eomccsdt_x2_5_1_i1',filename)
232      CALL CREATEFILE(filename,d_i1,size_i1)
233      CALL eomccsdt_x2a_5_1(d_v2,k_v2_offset,d_i1,k_i1_offset)
234      CALL OFFSET_eomccsdt_x2a_5_2_1(l_i2_offset,k_i2_offset,size_i2)
235      CALL TCE_FILENAME('eomccsdt_x2_5_2_1_i2',filename)
236      CALL CREATEFILE(filename,d_i2,size_i2)
237      CALL eomccsdt_x2a_5_2_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
238      CALL eomccsdt_x2a_5_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
239     &k_i2_offset)
240      CALL RECONCILEFILE(d_i2,size_i2)
241      CALL eomccsdt_x2a_5_2(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,
242     &k_i1_offset)
243      CALL DELETEFILE(d_i2)
244      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x2',-1,
245     &MA_ERR)
246      CALL eomccsdt_x2a_5_3(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1,
247     &k_i1_offset)
248      CALL RECONCILEFILE(d_i1,size_i1)
249      CALL eomccsdt_x2a_5(d_x2,k_x2_offset,d_i1,k_i1_offset,d_i0,
250     &k_i0_offset)
251      CALL DELETEFILE(d_i1)
252      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x2',-1,
253     &MA_ERR)
254      CALL OFFSET_eomccsdt_x2a_6_1(l_i1_offset,k_i1_offset,size_i1)
255      CALL TCE_FILENAME('eomccsdt_x2_6_1_i1',filename)
256      CALL CREATEFILE(filename,d_i1,size_i1)
257      CALL eomccsdt_x2a_6_1(d_v2,k_v2_offset,d_i1,k_i1_offset)
258      CALL eomccsdt_x2a_6_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i1,
259     &k_i1_offset)
260      CALL RECONCILEFILE(d_i1,size_i1)
261      CALL eomccsdt_x2a_6(d_x2,k_x2_offset,d_i1,k_i1_offset,d_i0,
262     &k_i0_offset)
263      CALL DELETEFILE(d_i1)
264      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x2',-1,
265     &MA_ERR)
266      CALL eomccsdt_x2a_7(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i0,
267     &k_i0_offset)
268      CALL OFFSET_eomccsdt_x2a_8_1(l_i1_offset,k_i1_offset,size_i1)
269      CALL TCE_FILENAME('eomccsdt_x2_8_1_i1',filename)
270      CALL CREATEFILE(filename,d_i1,size_i1)
271      CALL eomccsdt_x2a_8_1(d_f1,k_f1_offset,d_i1,k_i1_offset)
272      CALL eomccsdt_x2a_8_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i1,
273     &k_i1_offset)
274      CALL RECONCILEFILE(d_i1,size_i1)
275      CALL eomccsdt_x2a_8(d_x3,k_x3_offset,d_i1,k_i1_offset,d_i0,
276     &k_i0_offset)
277      CALL DELETEFILE(d_i1)
278      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x2',-1,
279     &MA_ERR)
280      CALL OFFSET_eomccsdt_x2a_9_1(l_i1_offset,k_i1_offset,size_i1)
281      CALL TCE_FILENAME('eomccsdt_x2_9_1_i1',filename)
282      CALL CREATEFILE(filename,d_i1,size_i1)
283      CALL eomccsdt_x2a_9_1(d_v2,k_v2_offset,d_i1,k_i1_offset)
284      CALL eomccsdt_x2a_9_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i1,
285     &k_i1_offset)
286      CALL RECONCILEFILE(d_i1,size_i1)
287      CALL eomccsdt_x2a_9(d_x3,k_x3_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_x2',-1,
291     &MA_ERR)
292      CALL eomccsdt_x2a_10(d_x3,k_x3_offset,d_v2,k_v2_offset,d_i0,
293     &k_i0_offset)
294      CALL OFFSET_eomccsdt_x2a_11_1(l_i1_offset,k_i1_offset,size_i1)
295      CALL TCE_FILENAME('eomccsdt_x2_11_1_i1',filename)
296      CALL CREATEFILE(filename,d_i1,size_i1)
297      CALL OFFSET_eomccsdt_x2a_11_1_1(l_i2_offset,k_i2_offset,size_i2)
298      CALL TCE_FILENAME('eomccsdt_x2_11_1_1_i2',filename)
299      CALL CREATEFILE(filename,d_i2,size_i2)
300      CALL eomccsdt_x2a_11_1_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
301      CALL OFFSET_eomccsdt_x2a_11_1_2_1(l_i3_offset,k_i3_offset,size_i3)
302      CALL TCE_FILENAME('eomccsdt_x2_11_1_2_1_i3',filename)
303      CALL CREATEFILE(filename,d_i3,size_i3)
304      CALL eomccsdt_x2a_11_1_2_1(d_v2,k_v2_offset,d_i3,k_i3_offset)
305      CALL eomccsdt_x2a_11_1_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,
306     &d_i3,k_i3_offset)
307      CALL RECONCILEFILE(d_i3,size_i3)
308      CALL eomccsdt_x2a_11_1_2(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,
309     &k_i2_offset)
310      CALL DELETEFILE(d_i3)
311      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('eomccsdt_x2',-1,
312     &MA_ERR)
313      CALL eomccsdt_x2a_11_1_3(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i2,
314     &k_i2_offset)
315      CALL RECONCILEFILE(d_i2,size_i2)
316      CALL eomccsdt_x2a_11_1(d_x1,k_x1_offset,d_i2,k_i2_offset,d_i1,
317     &k_i1_offset)
318      CALL DELETEFILE(d_i2)
319      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x2',-1,
320     &MA_ERR)
321      CALL eomccsdt_x2a_11_2(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i1,
322     &k_i1_offset)
323      CALL OFFSET_eomccsdt_x2a_11_3_1(l_i2_offset,k_i2_offset,size_i2)
324      CALL TCE_FILENAME('eomccsdt_x2_11_3_1_i2',filename)
325      CALL CREATEFILE(filename,d_i2,size_i2)
326      CALL eomccsdt_x2a_11_3_1(d_f1,k_f1_offset,d_i2,k_i2_offset)
327      CALL eomccsdt_x2a_11_3_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
328     &k_i2_offset)
329      CALL RECONCILEFILE(d_i2,size_i2)
330      CALL eomccsdt_x2a_11_3(d_x2,k_x2_offset,d_i2,k_i2_offset,d_i1,
331     &k_i1_offset)
332      CALL DELETEFILE(d_i2)
333      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x2',-1,
334     &MA_ERR)
335      CALL OFFSET_eomccsdt_x2a_11_4_1(l_i2_offset,k_i2_offset,size_i2)
336      CALL TCE_FILENAME('eomccsdt_x2_11_4_1_i2',filename)
337      CALL CREATEFILE(filename,d_i2,size_i2)
338      CALL eomccsdt_x2a_11_4_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
339      CALL eomccsdt_x2a_11_4_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
340     &k_i2_offset)
341      CALL RECONCILEFILE(d_i2,size_i2)
342      CALL eomccsdt_x2a_11_4(d_x2,k_x2_offset,d_i2,k_i2_offset,d_i1,
343     &k_i1_offset)
344      CALL DELETEFILE(d_i2)
345      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x2',-1,
346     &MA_ERR)
347      CALL eomccsdt_x2a_11_5(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i1,
348     &k_i1_offset)
349      CALL eomccsdt_x2a_11_6(d_x3,k_x3_offset,d_v2,k_v2_offset,d_i1,
350     &k_i1_offset)
351      CALL OFFSET_eomccsdt_x2a_11_7_1(l_i2_offset,k_i2_offset,size_i2)
352      CALL TCE_FILENAME('eomccsdt_x2_11_7_1_i2',filename)
353      CALL CREATEFILE(filename,d_i2,size_i2)
354      CALL eomccsdt_x2a_11_7_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2,
355     &k_i2_offset)
356      CALL eomccsdt_x2a_11_7_2(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i2,
357     &k_i2_offset)
358      CALL OFFSET_eomccsdt_x2a_11_7_3_1(l_i3_offset,k_i3_offset,size_i3)
359      CALL TCE_FILENAME('eomccsdt_x2_11_7_3_1_i3',filename)
360      CALL CREATEFILE(filename,d_i3,size_i3)
361      CALL eomccsdt_x2a_11_7_3_1(d_x1,k_x1_offset,d_v2,k_v2_offset,
362     &d_i3,k_i3_offset)
363      CALL RECONCILEFILE(d_i3,size_i3)
364      CALL eomccsdt_x2a_11_7_3(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,
365     &k_i2_offset)
366      CALL DELETEFILE(d_i3)
367      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('eomccsdt_x2',-1,
368     &MA_ERR)
369      CALL RECONCILEFILE(d_i2,size_i2)
370      CALL eomccsdt_x2a_11_7(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,
371     &k_i1_offset)
372      CALL DELETEFILE(d_i2)
373      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x2',-1,
374     &MA_ERR)
375      CALL OFFSET_eomccsdt_x2a_11_8_1(l_i2_offset,k_i2_offset,size_i2)
376      CALL TCE_FILENAME('eomccsdt_x2_11_8_1_i2',filename)
377      CALL CREATEFILE(filename,d_i2,size_i2)
378      CALL eomccsdt_x2a_11_8_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2,
379     &k_i2_offset)
380      CALL RECONCILEFILE(d_i2,size_i2)
381      CALL eomccsdt_x2a_11_8(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,
382     &k_i1_offset)
383      CALL DELETEFILE(d_i2)
384      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x2',-1,
385     &MA_ERR)
386      CALL OFFSET_eomccsdt_x2a_11_9_1(l_i2_offset,k_i2_offset,size_i2)
387      CALL TCE_FILENAME('eomccsdt_x2_11_9_1_i2',filename)
388      CALL CREATEFILE(filename,d_i2,size_i2)
389      CALL eomccsdt_x2a_11_9_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2,
390     &k_i2_offset)
391      CALL RECONCILEFILE(d_i2,size_i2)
392      CALL eomccsdt_x2a_11_9(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1,
393     &k_i1_offset)
394      CALL DELETEFILE(d_i2)
395      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x2',-1,
396     &MA_ERR)
397      CALL OFFSET_eomccsdt_x2a_11_10_1(l_i2_offset,k_i2_offset,size_i2)
398      CALL TCE_FILENAME('eomccsdt_x2_11_10_1_i2',filename)
399      CALL CREATEFILE(filename,d_i2,size_i2)
400      CALL eomccsdt_x2a_11_10_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2,
401     &k_i2_offset)
402      CALL RECONCILEFILE(d_i2,size_i2)
403      CALL eomccsdt_x2a_11_10(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1,
404     &k_i1_offset)
405      CALL DELETEFILE(d_i2)
406      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x2',-1,
407     &MA_ERR)
408      CALL RECONCILEFILE(d_i1,size_i1)
409      CALL eomccsdt_x2a_11(d_t1,k_t1_offset,d_i1,k_i1_offset,d_i0,
410     &k_i0_offset)
411      CALL DELETEFILE(d_i1)
412      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x2',-1,
413     &MA_ERR)
414      CALL OFFSET_eomccsdt_x2a_12_1(l_i1_offset,k_i1_offset,size_i1)
415      CALL TCE_FILENAME('eomccsdt_x2_12_1_i1',filename)
416      CALL CREATEFILE(filename,d_i1,size_i1)
417      CALL eomccsdt_x2a_12_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i1,
418     &k_i1_offset)
419      CALL RECONCILEFILE(d_i1,size_i1)
420      CALL eomccsdt_x2a_12(d_t1,k_t1_offset,d_i1,k_i1_offset,d_i0,
421     &k_i0_offset)
422      CALL DELETEFILE(d_i1)
423      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x2',-1,
424     &MA_ERR)
425      CALL OFFSET_eomccsdt_x2a_13_1(l_i1_offset,k_i1_offset,size_i1)
426      CALL TCE_FILENAME('eomccsdt_x2_13_1_i1',filename)
427      CALL CREATEFILE(filename,d_i1,size_i1)
428      CALL OFFSET_eomccsdt_x2a_13_1_1(l_i2_offset,k_i2_offset,size_i2)
429      CALL TCE_FILENAME('eomccsdt_x2_13_1_1_i2',filename)
430      CALL CREATEFILE(filename,d_i2,size_i2)
431      CALL eomccsdt_x2a_13_1_1(d_f1,k_f1_offset,d_i2,k_i2_offset)
432      CALL eomccsdt_x2a_13_1_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,
433     &k_i2_offset)
434      CALL RECONCILEFILE(d_i2,size_i2)
435      CALL eomccsdt_x2a_13_1(d_x1,k_x1_offset,d_i2,k_i2_offset,d_i1,
436     &k_i1_offset)
437      CALL DELETEFILE(d_i2)
438      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x2',-1,
439     &MA_ERR)
440      CALL eomccsdt_x2a_13_2(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i1,
441     &k_i1_offset)
442      CALL eomccsdt_x2a_13_3(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i1,
443     &k_i1_offset)
444      CALL OFFSET_eomccsdt_x2a_13_4_1(l_i2_offset,k_i2_offset,size_i2)
445      CALL TCE_FILENAME('eomccsdt_x2_13_4_1_i2',filename)
446      CALL CREATEFILE(filename,d_i2,size_i2)
447      CALL eomccsdt_x2a_13_4_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2,
448     &k_i2_offset)
449      CALL RECONCILEFILE(d_i2,size_i2)
450      CALL eomccsdt_x2a_13_4(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,
451     &k_i1_offset)
452      CALL DELETEFILE(d_i2)
453      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x2',-1,
454     &MA_ERR)
455      CALL RECONCILEFILE(d_i1,size_i1)
456      CALL eomccsdt_x2a_13(d_t2,k_t2_offset,d_i1,k_i1_offset,d_i0,
457     &k_i0_offset)
458      CALL DELETEFILE(d_i1)
459      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x2',-1,
460     &MA_ERR)
461      CALL OFFSET_eomccsdt_x2a_14_1(l_i1_offset,k_i1_offset,size_i1)
462      CALL TCE_FILENAME('eomccsdt_x2_14_1_i1',filename)
463      CALL CREATEFILE(filename,d_i1,size_i1)
464      CALL eomccsdt_x2a_14_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i1,
465     &k_i1_offset)
466      CALL eomccsdt_x2a_14_2(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i1,
467     &k_i1_offset)
468      CALL OFFSET_eomccsdt_x2a_14_3_1(l_i2_offset,k_i2_offset,size_i2)
469      CALL TCE_FILENAME('eomccsdt_x2_14_3_1_i2',filename)
470      CALL CREATEFILE(filename,d_i2,size_i2)
471      CALL eomccsdt_x2a_14_3_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2,
472     &k_i2_offset)
473      CALL RECONCILEFILE(d_i2,size_i2)
474      CALL eomccsdt_x2a_14_3(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,
475     &k_i1_offset)
476      CALL DELETEFILE(d_i2)
477      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x2',-1,
478     &MA_ERR)
479      CALL RECONCILEFILE(d_i1,size_i1)
480      CALL eomccsdt_x2a_14(d_t2,k_t2_offset,d_i1,k_i1_offset,d_i0,
481     &k_i0_offset)
482      CALL DELETEFILE(d_i1)
483      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x2',-1,
484     &MA_ERR)
485      CALL OFFSET_eomccsdt_x2a_15_1(l_i1_offset,k_i1_offset,size_i1)
486      CALL TCE_FILENAME('eomccsdt_x2_15_1_i1',filename)
487      CALL CREATEFILE(filename,d_i1,size_i1)
488      CALL eomccsdt_x2a_15_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i1,
489     &k_i1_offset)
490      CALL eomccsdt_x2a_15_2(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i1,
491     &k_i1_offset)
492      CALL RECONCILEFILE(d_i1,size_i1)
493      CALL eomccsdt_x2a_15(d_t2,k_t2_offset,d_i1,k_i1_offset,d_i0,
494     &k_i0_offset)
495      CALL DELETEFILE(d_i1)
496      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x2',-1,
497     &MA_ERR)
498      CALL OFFSET_eomccsdt_x2a_16_1(l_i1_offset,k_i1_offset,size_i1)
499      CALL TCE_FILENAME('eomccsdt_x2_16_1_i1',filename)
500      CALL CREATEFILE(filename,d_i1,size_i1)
501      CALL eomccsdt_x2a_16_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i1,
502     &k_i1_offset)
503      CALL eomccsdt_x2a_16_2(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i1,
504     &k_i1_offset)
505      CALL RECONCILEFILE(d_i1,size_i1)
506      CALL eomccsdt_x2a_16(d_t2,k_t2_offset,d_i1,k_i1_offset,d_i0,
507     &k_i0_offset)
508      CALL DELETEFILE(d_i1)
509      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x2',-1,
510     &MA_ERR)
511      CALL OFFSET_eomccsdt_x2a_17_1(l_i1_offset,k_i1_offset,size_i1)
512      CALL TCE_FILENAME('eomccsdt_x2_17_1_i1',filename)
513      CALL CREATEFILE(filename,d_i1,size_i1)
514      CALL eomccsdt_x2a_17_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i1,
515     &k_i1_offset)
516      CALL RECONCILEFILE(d_i1,size_i1)
517      CALL eomccsdt_x2a_17(d_t3,k_t3_offset,d_i1,k_i1_offset,d_i0,
518     &k_i0_offset)
519      CALL DELETEFILE(d_i1)
520      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x2',-1,
521     &MA_ERR)
522      CALL OFFSET_eomccsdt_x2a_18_1(l_i1_offset,k_i1_offset,size_i1)
523      CALL TCE_FILENAME('eomccsdt_x2_18_1_i1',filename)
524      CALL CREATEFILE(filename,d_i1,size_i1)
525      CALL eomccsdt_x2a_18_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i1,
526     &k_i1_offset)
527      CALL RECONCILEFILE(d_i1,size_i1)
528      CALL eomccsdt_x2a_18(d_t3,k_t3_offset,d_i1,k_i1_offset,d_i0,
529     &k_i0_offset)
530      CALL DELETEFILE(d_i1)
531      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x2',-1,
532     &MA_ERR)
533      RETURN
534      END
535