1      SUBROUTINE eomccsdtq_x2(d_f1,d_i0,d_t1,d_t2,d_t3,d_v2,d_x1,d_x2,d_
2     &x3,d_x4,k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offse
3     &t,k_v2_offset,k_x1_offset,k_x2_offset,k_x3_offset,k_x4_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 )_xv + = 1/4 * Sum ( p8 p7 h6 h5 ) * x ( p3 p4 p7 p8 h1 h2 h5 h6 )_x * v ( h5 h6 p7 p8 )_v
50C     i0 ( p3 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( h9 ) * t ( p3 h9 )_t * i1 ( h9 p4 h1 h2 )_vx
51C         i1 ( h9 p3 h1 h2 )_vx + = 1 * Sum ( h10 ) * x ( p3 h10 )_x * i2 ( h9 h10 h1 h2 )_v
52C             i2 ( h9 h10 h1 h2 )_v + = -1 * v ( h9 h10 h1 h2 )_v
53C             i2 ( h9 h10 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( p6 ) * t ( p6 h1 )_t * i3 ( h9 h10 h2 p6 )_v
54C                 i3 ( h9 h10 h1 p6 )_v + = 1 * v ( h9 h10 h1 p6 )_v
55C                 i3 ( h9 h10 h1 p6 )_vt + = -1/2 * Sum ( p7 ) * t ( p7 h1 )_t * v ( h9 h10 p6 p7 )_v
56C             i2 ( h9 h10 h1 h2 )_vt + = -1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( h9 h10 p5 p6 )_v
57C         i1 ( h9 p3 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( p6 ) * x ( p6 h1 )_x * v ( h9 p3 h2 p6 )_v
58C         i1 ( h9 p3 h1 h2 )_fx + = -1 * Sum ( p5 ) * x ( p3 p5 h1 h2 )_x * i2 ( h9 p5 )_f
59C             i2 ( h9 p5 )_f + = 1 * f ( h9 p5 )_f
60C             i2 ( h9 p5 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h9 p5 p6 )_v
61C         i1 ( h9 p3 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( h8 p5 ) * x ( p3 p5 h1 h8 )_x * i2 ( h8 h9 h2 p5 )_v
62C             i2 ( h8 h9 h1 p5 )_v + = 1 * v ( h8 h9 h1 p5 )_v
63C             i2 ( h8 h9 h1 p5 )_vt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h8 h9 p5 p6 )_v
64C         i1 ( h9 p3 h1 h2 )_vx + = 1/2 * Sum ( p6 p7 ) * x ( p6 p7 h1 h2 )_x * v ( h9 p3 p6 p7 )_v
65C         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
66C         i1 ( h9 p3 h1 h2 )_vxt + = 1 * Sum ( h6 ) * t ( p3 h6 )_t * i2 ( h6 h9 h1 h2 )_vx
67C             i2 ( h6 h9 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( h6 h9 h2 p7 )_v
68C             i2 ( h6 h9 h1 h2 )_vx + = 1/4 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * v ( h6 h9 p7 p8 )_v
69C             i2 ( h6 h9 h1 h2 )_vxt + = -1/2 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i3 ( h6 h9 h2 p7 )_vx
70C                 i3 ( h6 h9 h1 p7 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h6 h9 p7 p8 )_v
71C         i1 ( h9 p3 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p6 ) * t ( p6 h1 )_t * i2 ( h9 p3 h2 p6 )_vx
72C             i2 ( h9 p3 h1 p6 )_vx + = -1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h9 p3 p6 p7 )_v
73C         i1 ( h9 p3 h1 h2 )_vxt + = -1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i2 ( h9 p5 )_vx
74C             i2 ( h9 p5 )_vx + = -1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h7 h9 p5 p8 )_v
75C         i1 ( h9 p3 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i2 ( h6 h9 h2 p5 )_vx
76C             i2 ( h6 h9 h1 p5 )_vx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h6 h9 p5 p8 )_v
77C     i0 ( p3 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i1 ( p3 p4 h2 p5 )_vx
78C         i1 ( p3 p4 h1 p5 )_vx + = -1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( p3 p4 p5 p6 )_v
79C     i0 ( p3 p4 h1 h2 )_fxt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_fx
80C         i1 ( h5 h1 )_fx + = 1 * Sum ( p9 ) * x ( p9 h1 )_x * i2 ( h5 p9 )_f
81C             i2 ( h5 p9 )_f + = 1 * f ( h5 p9 )_f
82C             i2 ( h5 p9 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h5 h7 p6 p9 )_v
83C         i1 ( h5 h1 )_vx + = 1 * Sum ( h6 p7 ) * x ( p7 h6 )_x * v ( h5 h6 h1 p7 )_v
84C         i1 ( h5 h1 )_vx + = 1/2 * Sum ( h6 p7 p8 ) * x ( p7 p8 h1 h6 )_x * v ( h5 h6 p7 p8 )_v
85C         i1 ( h5 h1 )_vxt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * i2 ( h5 p6 )_vx
86C             i2 ( h5 p6 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h5 h7 p6 p8 )_v
87C     i0 ( p3 p4 h1 h2 )_vxt + = 1 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * i1 ( h5 h6 h1 h2 )_vx
88C         i1 ( h5 h6 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( h5 h6 h2 p7 )_v
89C         i1 ( h5 h6 h1 h2 )_vx + = 1/4 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * v ( h5 h6 p7 p8 )_v
90C         i1 ( h5 h6 h1 h2 )_vxt + = -1/2 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h5 h6 h2 p7 )_vx
91C             i2 ( h5 h6 h1 p7 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h5 h6 p7 p8 )_v
92C     i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i1 ( p4 p5 )_vx
93C         i1 ( p3 p5 )_vx + = -1 * Sum ( h6 p7 ) * x ( p7 h6 )_x * v ( h6 p3 p5 p7 )_v
94C         i1 ( p3 p5 )_vx + = -1/2 * Sum ( h6 h7 p8 ) * x ( p3 p8 h6 h7 )_x * v ( h6 h7 p5 p8 )_v
95C     i0 ( p3 p4 h1 h2 )_vxt + = -1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i1 ( h6 p4 h2 p5 )_vx
96C         i1 ( h6 p3 h1 p5 )_vx + = -1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h6 p3 p5 p7 )_v
97C         i1 ( h6 p3 h1 p5 )_vx + = -1 * Sum ( h7 p8 ) * x ( p3 p8 h1 h7 )_x * v ( h6 h7 p5 p8 )_v
98C     i0 ( p3 p4 h1 h2 )_vxt + = 1 * Sum ( h6 p5 ) * t ( p3 p4 p5 h1 h2 h6 )_t * i1 ( h6 p5 )_vx
99C         i1 ( h6 p5 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h6 h7 p5 p8 )_v
100C     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
101C         i1 ( h6 h7 h1 p5 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h6 h7 p5 p8 )_v
102      IMPLICIT NONE
103#include "global.fh"
104#include "mafdecls.fh"
105#include "util.fh"
106#include "errquit.fh"
107#include "tce.fh"
108      INTEGER d_i0
109      INTEGER k_i0_offset
110      INTEGER d_x1
111      INTEGER k_x1_offset
112      INTEGER d_i1
113      INTEGER k_i1_offset
114      INTEGER d_v2
115      INTEGER k_v2_offset
116      INTEGER d_x2
117      INTEGER k_x2_offset
118      INTEGER d_x3
119      INTEGER k_x3_offset
120      INTEGER d_x4
121      INTEGER k_x4_offset
122      INTEGER d_t1
123      INTEGER k_t1_offset
124      INTEGER d_t2
125      INTEGER k_t2_offset
126      INTEGER d_t3
127      INTEGER k_t3_offset
128      INTEGER l_i1_offset
129      INTEGER size_i1
130      INTEGER d_i2
131      INTEGER k_i2_offset
132      INTEGER l_i2_offset
133      INTEGER size_i2
134      INTEGER d_f1
135      INTEGER k_f1_offset
136      INTEGER d_i3
137      INTEGER k_i3_offset
138      INTEGER l_i3_offset
139      INTEGER size_i3
140      CHARACTER*255 filename
141c#if !defined(CCSDTQ)
142c      CALL ERRQUIT('CCSDTQ not compiled',0,CAPMIS_ERR)
143c      RETURN
144c      END
145c#else
146      CALL OFFSET_eomccsdtq_x2_1_1(l_i1_offset,k_i1_offset,size_i1)
147      CALL TCE_FILENAME('eomccsdtq_x2_1_1_i1',filename)
148      CALL CREATEFILE(filename,d_i1,size_i1)
149      CALL eomccsdtq_x2_1_1(d_v2,k_v2_offset,d_i1,k_i1_offset)
150      CALL OFFSET_eomccsdtq_x2_1_2_1(l_i2_offset,k_i2_offset,size_i2)
151      CALL TCE_FILENAME('eomccsdtq_x2_1_2_1_i2',filename)
152      CALL CREATEFILE(filename,d_i2,size_i2)
153      CALL eomccsdtq_x2_1_2_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
154      CALL eomccsdtq_x2_1_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,k_i
155     &2_offset)
156      CALL RECONCILEFILE(d_i2,size_i2)
157      CALL eomccsdtq_x2_1_2(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k_i1_
158     &offset)
159      CALL DELETEFILE(d_i2)
160      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdtq_x2',-1
161     &,MA_ERR)
162      CALL OFFSET_eomccsdtq_x2_1_3_1(l_i2_offset,k_i2_offset,size_i2)
163      CALL TCE_FILENAME('eomccsdtq_x2_1_3_1_i2',filename)
164      CALL CREATEFILE(filename,d_i2,size_i2)
165      CALL eomccsdtq_x2_1_3_1(d_f1,k_f1_offset,d_i2,k_i2_offset)
166      CALL eomccsdtq_x2_1_3_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,k_i
167     &2_offset)
168      CALL RECONCILEFILE(d_i2,size_i2)
169      CALL eomccsdtq_x2_1_3(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1,k_i1_
170     &offset)
171      CALL DELETEFILE(d_i2)
172      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdtq_x2',-1
173     &,MA_ERR)
174      CALL OFFSET_eomccsdtq_x2_1_4_1(l_i2_offset,k_i2_offset,size_i2)
175      CALL TCE_FILENAME('eomccsdtq_x2_1_4_1_i2',filename)
176      CALL CREATEFILE(filename,d_i2,size_i2)
177      CALL eomccsdtq_x2_1_4_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
178      CALL eomccsdtq_x2_1_4_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,k_i
179     &2_offset)
180      CALL RECONCILEFILE(d_i2,size_i2)
181      CALL eomccsdtq_x2_1_4(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1,k_i1_
182     &offset)
183      CALL DELETEFILE(d_i2)
184      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdtq_x2',-1
185     &,MA_ERR)
186      CALL eomccsdtq_x2_1_5(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1,k_i1_
187     &offset)
188      CALL eomccsdtq_x2_1_6(d_t3,k_t3_offset,d_v2,k_v2_offset,d_i1,k_i1_
189     &offset)
190      CALL RECONCILEFILE(d_i1,size_i1)
191      CALL eomccsdtq_x2_1(d_x1,k_x1_offset,d_i1,k_i1_offset,d_i0,k_i0_of
192     &fset)
193      CALL DELETEFILE(d_i1)
194      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdtq_x2',-1
195     &,MA_ERR)
196      CALL eomccsdtq_x2_2(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i0,k_i0_of
197     &fset)
198      CALL OFFSET_eomccsdtq_x2_3_1(l_i1_offset,k_i1_offset,size_i1)
199      CALL TCE_FILENAME('eomccsdtq_x2_3_1_i1',filename)
200      CALL CREATEFILE(filename,d_i1,size_i1)
201      CALL eomccsdtq_x2_3_1(d_f1,k_f1_offset,d_i1,k_i1_offset)
202      CALL OFFSET_eomccsdtq_x2_3_2_1(l_i2_offset,k_i2_offset,size_i2)
203      CALL TCE_FILENAME('eomccsdtq_x2_3_2_1_i2',filename)
204      CALL CREATEFILE(filename,d_i2,size_i2)
205      CALL eomccsdtq_x2_3_2_1(d_f1,k_f1_offset,d_i2,k_i2_offset)
206      CALL eomccsdtq_x2_3_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,k_i
207     &2_offset)
208      CALL RECONCILEFILE(d_i2,size_i2)
209      CALL eomccsdtq_x2_3_2(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k_i1_
210     &offset)
211      CALL DELETEFILE(d_i2)
212      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdtq_x2',-1
213     &,MA_ERR)
214      CALL eomccsdtq_x2_3_3(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i1,k_i1_
215     &offset)
216      CALL eomccsdtq_x2_3_4(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1,k_i1_
217     &offset)
218      CALL RECONCILEFILE(d_i1,size_i1)
219      CALL eomccsdtq_x2_3(d_x2,k_x2_offset,d_i1,k_i1_offset,d_i0,k_i0_of
220     &fset)
221      CALL DELETEFILE(d_i1)
222      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdtq_x2',-1
223     &,MA_ERR)
224      CALL OFFSET_eomccsdtq_x2_4_1(l_i1_offset,k_i1_offset,size_i1)
225      CALL TCE_FILENAME('eomccsdtq_x2_4_1_i1',filename)
226      CALL CREATEFILE(filename,d_i1,size_i1)
227      CALL eomccsdtq_x2_4_1(d_f1,k_f1_offset,d_i1,k_i1_offset)
228      CALL eomccsdtq_x2_4_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i1,k_i1_
229     &offset)
230      CALL eomccsdtq_x2_4_3(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1,k_i1_
231     &offset)
232      CALL RECONCILEFILE(d_i1,size_i1)
233      CALL eomccsdtq_x2_4(d_x2,k_x2_offset,d_i1,k_i1_offset,d_i0,k_i0_of
234     &fset)
235      CALL DELETEFILE(d_i1)
236      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdtq_x2',-1
237     &,MA_ERR)
238      CALL OFFSET_eomccsdtq_x2_5_1(l_i1_offset,k_i1_offset,size_i1)
239      CALL TCE_FILENAME('eomccsdtq_x2_5_1_i1',filename)
240      CALL CREATEFILE(filename,d_i1,size_i1)
241      CALL eomccsdtq_x2_5_1(d_v2,k_v2_offset,d_i1,k_i1_offset)
242      CALL OFFSET_eomccsdtq_x2_5_2_1(l_i2_offset,k_i2_offset,size_i2)
243      CALL TCE_FILENAME('eomccsdtq_x2_5_2_1_i2',filename)
244      CALL CREATEFILE(filename,d_i2,size_i2)
245      CALL eomccsdtq_x2_5_2_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
246      CALL eomccsdtq_x2_5_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,k_i
247     &2_offset)
248      CALL RECONCILEFILE(d_i2,size_i2)
249      CALL eomccsdtq_x2_5_2(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k_i1_
250     &offset)
251      CALL DELETEFILE(d_i2)
252      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdtq_x2',-1
253     &,MA_ERR)
254      CALL eomccsdtq_x2_5_3(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1,k_i1_
255     &offset)
256      CALL RECONCILEFILE(d_i1,size_i1)
257      CALL eomccsdtq_x2_5(d_x2,k_x2_offset,d_i1,k_i1_offset,d_i0,k_i0_of
258     &fset)
259      CALL DELETEFILE(d_i1)
260      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdtq_x2',-1
261     &,MA_ERR)
262      CALL OFFSET_eomccsdtq_x2_6_1(l_i1_offset,k_i1_offset,size_i1)
263      CALL TCE_FILENAME('eomccsdtq_x2_6_1_i1',filename)
264      CALL CREATEFILE(filename,d_i1,size_i1)
265      CALL eomccsdtq_x2_6_1(d_v2,k_v2_offset,d_i1,k_i1_offset)
266      CALL eomccsdtq_x2_6_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i1,k_i1_
267     &offset)
268      CALL RECONCILEFILE(d_i1,size_i1)
269      CALL eomccsdtq_x2_6(d_x2,k_x2_offset,d_i1,k_i1_offset,d_i0,k_i0_of
270     &fset)
271      CALL DELETEFILE(d_i1)
272      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdtq_x2',-1
273     &,MA_ERR)
274      CALL eomccsdtq_x2_7(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i0,k_i0_of
275     &fset)
276      CALL OFFSET_eomccsdtq_x2_8_1(l_i1_offset,k_i1_offset,size_i1)
277      CALL TCE_FILENAME('eomccsdtq_x2_8_1_i1',filename)
278      CALL CREATEFILE(filename,d_i1,size_i1)
279      CALL eomccsdtq_x2_8_1(d_f1,k_f1_offset,d_i1,k_i1_offset)
280      CALL eomccsdtq_x2_8_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i1,k_i1_
281     &offset)
282      CALL RECONCILEFILE(d_i1,size_i1)
283      CALL eomccsdtq_x2_8(d_x3,k_x3_offset,d_i1,k_i1_offset,d_i0,k_i0_of
284     &fset)
285      CALL DELETEFILE(d_i1)
286      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdtq_x2',-1
287     &,MA_ERR)
288      CALL OFFSET_eomccsdtq_x2_9_1(l_i1_offset,k_i1_offset,size_i1)
289      CALL TCE_FILENAME('eomccsdtq_x2_9_1_i1',filename)
290      CALL CREATEFILE(filename,d_i1,size_i1)
291      CALL eomccsdtq_x2_9_1(d_v2,k_v2_offset,d_i1,k_i1_offset)
292      CALL eomccsdtq_x2_9_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i1,k_i1_
293     &offset)
294      CALL RECONCILEFILE(d_i1,size_i1)
295      CALL eomccsdtq_x2_9(d_x3,k_x3_offset,d_i1,k_i1_offset,d_i0,k_i0_of
296     &fset)
297      CALL DELETEFILE(d_i1)
298      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdtq_x2',-1
299     &,MA_ERR)
300      CALL eomccsdtq_x2_10(d_x3,k_x3_offset,d_v2,k_v2_offset,d_i0,k_i0_o
301     &ffset)
302      CALL eomccsdtq_x2_11(d_x4,k_x4_offset,d_v2,k_v2_offset,d_i0,k_i0_o
303     &ffset)
304      CALL OFFSET_eomccsdtq_x2_12_1(l_i1_offset,k_i1_offset,size_i1)
305      CALL TCE_FILENAME('eomccsdtq_x2_12_1_i1',filename)
306      CALL CREATEFILE(filename,d_i1,size_i1)
307      CALL OFFSET_eomccsdtq_x2_12_1_1(l_i2_offset,k_i2_offset,size_i2)
308      CALL TCE_FILENAME('eomccsdtq_x2_12_1_1_i2',filename)
309      CALL CREATEFILE(filename,d_i2,size_i2)
310      CALL eomccsdtq_x2_12_1_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
311      CALL OFFSET_eomccsdtq_x2_12_1_2_1(l_i3_offset,k_i3_offset,size_i3)
312      CALL TCE_FILENAME('eomccsdtq_x2_12_1_2_1_i3',filename)
313      CALL CREATEFILE(filename,d_i3,size_i3)
314      CALL eomccsdtq_x2_12_1_2_1(d_v2,k_v2_offset,d_i3,k_i3_offset)
315      CALL eomccsdtq_x2_12_1_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i3,
316     &k_i3_offset)
317      CALL RECONCILEFILE(d_i3,size_i3)
318      CALL eomccsdtq_x2_12_1_2(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,k_
319     &i2_offset)
320      CALL DELETEFILE(d_i3)
321      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('eomccsdtq_x2',-1
322     &,MA_ERR)
323      CALL eomccsdtq_x2_12_1_3(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i2,k_
324     &i2_offset)
325      CALL RECONCILEFILE(d_i2,size_i2)
326      CALL eomccsdtq_x2_12_1(d_x1,k_x1_offset,d_i2,k_i2_offset,d_i1,k_i1
327     &_offset)
328      CALL DELETEFILE(d_i2)
329      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdtq_x2',-1
330     &,MA_ERR)
331      CALL eomccsdtq_x2_12_2(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i1,k_i1
332     &_offset)
333      CALL OFFSET_eomccsdtq_x2_12_3_1(l_i2_offset,k_i2_offset,size_i2)
334      CALL TCE_FILENAME('eomccsdtq_x2_12_3_1_i2',filename)
335      CALL CREATEFILE(filename,d_i2,size_i2)
336      CALL eomccsdtq_x2_12_3_1(d_f1,k_f1_offset,d_i2,k_i2_offset)
337      CALL eomccsdtq_x2_12_3_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,k_
338     &i2_offset)
339      CALL RECONCILEFILE(d_i2,size_i2)
340      CALL eomccsdtq_x2_12_3(d_x2,k_x2_offset,d_i2,k_i2_offset,d_i1,k_i1
341     &_offset)
342      CALL DELETEFILE(d_i2)
343      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdtq_x2',-1
344     &,MA_ERR)
345      CALL OFFSET_eomccsdtq_x2_12_4_1(l_i2_offset,k_i2_offset,size_i2)
346      CALL TCE_FILENAME('eomccsdtq_x2_12_4_1_i2',filename)
347      CALL CREATEFILE(filename,d_i2,size_i2)
348      CALL eomccsdtq_x2_12_4_1(d_v2,k_v2_offset,d_i2,k_i2_offset)
349      CALL eomccsdtq_x2_12_4_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,k_
350     &i2_offset)
351      CALL RECONCILEFILE(d_i2,size_i2)
352      CALL eomccsdtq_x2_12_4(d_x2,k_x2_offset,d_i2,k_i2_offset,d_i1,k_i1
353     &_offset)
354      CALL DELETEFILE(d_i2)
355      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdtq_x2',-1
356     &,MA_ERR)
357      CALL eomccsdtq_x2_12_5(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i1,k_i1
358     &_offset)
359      CALL eomccsdtq_x2_12_6(d_x3,k_x3_offset,d_v2,k_v2_offset,d_i1,k_i1
360     &_offset)
361      CALL OFFSET_eomccsdtq_x2_12_7_1(l_i2_offset,k_i2_offset,size_i2)
362      CALL TCE_FILENAME('eomccsdtq_x2_12_7_1_i2',filename)
363      CALL CREATEFILE(filename,d_i2,size_i2)
364      CALL eomccsdtq_x2_12_7_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2,k_
365     &i2_offset)
366      CALL eomccsdtq_x2_12_7_2(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i2,k_
367     &i2_offset)
368      CALL OFFSET_eomccsdtq_x2_12_7_3_1(l_i3_offset,k_i3_offset,size_i3)
369      CALL TCE_FILENAME('eomccsdtq_x2_12_7_3_1_i3',filename)
370      CALL CREATEFILE(filename,d_i3,size_i3)
371      CALL eomccsdtq_x2_12_7_3_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i3,
372     &k_i3_offset)
373      CALL RECONCILEFILE(d_i3,size_i3)
374      CALL eomccsdtq_x2_12_7_3(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,k_
375     &i2_offset)
376      CALL DELETEFILE(d_i3)
377      IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('eomccsdtq_x2',-1
378     &,MA_ERR)
379      CALL RECONCILEFILE(d_i2,size_i2)
380      CALL eomccsdtq_x2_12_7(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k_i1
381     &_offset)
382      CALL DELETEFILE(d_i2)
383      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdtq_x2',-1
384     &,MA_ERR)
385      CALL OFFSET_eomccsdtq_x2_12_8_1(l_i2_offset,k_i2_offset,size_i2)
386      CALL TCE_FILENAME('eomccsdtq_x2_12_8_1_i2',filename)
387      CALL CREATEFILE(filename,d_i2,size_i2)
388      CALL eomccsdtq_x2_12_8_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2,k_
389     &i2_offset)
390      CALL RECONCILEFILE(d_i2,size_i2)
391      CALL eomccsdtq_x2_12_8(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k_i1
392     &_offset)
393      CALL DELETEFILE(d_i2)
394      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdtq_x2',-1
395     &,MA_ERR)
396      CALL OFFSET_eomccsdtq_x2_12_9_1(l_i2_offset,k_i2_offset,size_i2)
397      CALL TCE_FILENAME('eomccsdtq_x2_12_9_1_i2',filename)
398      CALL CREATEFILE(filename,d_i2,size_i2)
399      CALL eomccsdtq_x2_12_9_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2,k_
400     &i2_offset)
401      CALL RECONCILEFILE(d_i2,size_i2)
402      CALL eomccsdtq_x2_12_9(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1,k_i1
403     &_offset)
404      CALL DELETEFILE(d_i2)
405      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdtq_x2',-1
406     &,MA_ERR)
407      CALL OFFSET_eomccsdtq_x2_12_10_1(l_i2_offset,k_i2_offset,size_i2)
408      CALL TCE_FILENAME('eomccsdtq_x2_12_10_1_i2',filename)
409      CALL CREATEFILE(filename,d_i2,size_i2)
410      CALL eomccsdtq_x2_12_10_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2,k
411     &_i2_offset)
412      CALL RECONCILEFILE(d_i2,size_i2)
413      CALL eomccsdtq_x2_12_10(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1,k_i
414     &1_offset)
415      CALL DELETEFILE(d_i2)
416      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdtq_x2',-1
417     &,MA_ERR)
418      CALL RECONCILEFILE(d_i1,size_i1)
419      CALL eomccsdtq_x2_12(d_t1,k_t1_offset,d_i1,k_i1_offset,d_i0,k_i0_o
420     &ffset)
421      CALL DELETEFILE(d_i1)
422      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdtq_x2',-1
423     &,MA_ERR)
424      CALL OFFSET_eomccsdtq_x2_13_1(l_i1_offset,k_i1_offset,size_i1)
425      CALL TCE_FILENAME('eomccsdtq_x2_13_1_i1',filename)
426      CALL CREATEFILE(filename,d_i1,size_i1)
427      CALL eomccsdtq_x2_13_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i1,k_i1
428     &_offset)
429      CALL RECONCILEFILE(d_i1,size_i1)
430      CALL eomccsdtq_x2_13(d_t1,k_t1_offset,d_i1,k_i1_offset,d_i0,k_i0_o
431     &ffset)
432      CALL DELETEFILE(d_i1)
433      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdtq_x2',-1
434     &,MA_ERR)
435      CALL OFFSET_eomccsdtq_x2_14_1(l_i1_offset,k_i1_offset,size_i1)
436      CALL TCE_FILENAME('eomccsdtq_x2_14_1_i1',filename)
437      CALL CREATEFILE(filename,d_i1,size_i1)
438      CALL OFFSET_eomccsdtq_x2_14_1_1(l_i2_offset,k_i2_offset,size_i2)
439      CALL TCE_FILENAME('eomccsdtq_x2_14_1_1_i2',filename)
440      CALL CREATEFILE(filename,d_i2,size_i2)
441      CALL eomccsdtq_x2_14_1_1(d_f1,k_f1_offset,d_i2,k_i2_offset)
442      CALL eomccsdtq_x2_14_1_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2,k_
443     &i2_offset)
444      CALL RECONCILEFILE(d_i2,size_i2)
445      CALL eomccsdtq_x2_14_1(d_x1,k_x1_offset,d_i2,k_i2_offset,d_i1,k_i1
446     &_offset)
447      CALL DELETEFILE(d_i2)
448      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdtq_x2',-1
449     &,MA_ERR)
450      CALL eomccsdtq_x2_14_2(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i1,k_i1
451     &_offset)
452      CALL eomccsdtq_x2_14_3(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i1,k_i1
453     &_offset)
454      CALL OFFSET_eomccsdtq_x2_14_4_1(l_i2_offset,k_i2_offset,size_i2)
455      CALL TCE_FILENAME('eomccsdtq_x2_14_4_1_i2',filename)
456      CALL CREATEFILE(filename,d_i2,size_i2)
457      CALL eomccsdtq_x2_14_4_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2,k_
458     &i2_offset)
459      CALL RECONCILEFILE(d_i2,size_i2)
460      CALL eomccsdtq_x2_14_4(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k_i1
461     &_offset)
462      CALL DELETEFILE(d_i2)
463      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdtq_x2',-1
464     &,MA_ERR)
465      CALL RECONCILEFILE(d_i1,size_i1)
466      CALL eomccsdtq_x2_14(d_t2,k_t2_offset,d_i1,k_i1_offset,d_i0,k_i0_o
467     &ffset)
468      CALL DELETEFILE(d_i1)
469      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdtq_x2',-1
470     &,MA_ERR)
471      CALL OFFSET_eomccsdtq_x2_15_1(l_i1_offset,k_i1_offset,size_i1)
472      CALL TCE_FILENAME('eomccsdtq_x2_15_1_i1',filename)
473      CALL CREATEFILE(filename,d_i1,size_i1)
474      CALL eomccsdtq_x2_15_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i1,k_i1
475     &_offset)
476      CALL eomccsdtq_x2_15_2(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i1,k_i1
477     &_offset)
478      CALL OFFSET_eomccsdtq_x2_15_3_1(l_i2_offset,k_i2_offset,size_i2)
479      CALL TCE_FILENAME('eomccsdtq_x2_15_3_1_i2',filename)
480      CALL CREATEFILE(filename,d_i2,size_i2)
481      CALL eomccsdtq_x2_15_3_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2,k_
482     &i2_offset)
483      CALL RECONCILEFILE(d_i2,size_i2)
484      CALL eomccsdtq_x2_15_3(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k_i1
485     &_offset)
486      CALL DELETEFILE(d_i2)
487      IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdtq_x2',-1
488     &,MA_ERR)
489      CALL RECONCILEFILE(d_i1,size_i1)
490      CALL eomccsdtq_x2_15(d_t2,k_t2_offset,d_i1,k_i1_offset,d_i0,k_i0_o
491     &ffset)
492      CALL DELETEFILE(d_i1)
493      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdtq_x2',-1
494     &,MA_ERR)
495      CALL OFFSET_eomccsdtq_x2_16_1(l_i1_offset,k_i1_offset,size_i1)
496      CALL TCE_FILENAME('eomccsdtq_x2_16_1_i1',filename)
497      CALL CREATEFILE(filename,d_i1,size_i1)
498      CALL eomccsdtq_x2_16_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i1,k_i1
499     &_offset)
500      CALL eomccsdtq_x2_16_2(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i1,k_i1
501     &_offset)
502      CALL RECONCILEFILE(d_i1,size_i1)
503      CALL eomccsdtq_x2_16(d_t2,k_t2_offset,d_i1,k_i1_offset,d_i0,k_i0_o
504     &ffset)
505      CALL DELETEFILE(d_i1)
506      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdtq_x2',-1
507     &,MA_ERR)
508      CALL OFFSET_eomccsdtq_x2_17_1(l_i1_offset,k_i1_offset,size_i1)
509      CALL TCE_FILENAME('eomccsdtq_x2_17_1_i1',filename)
510      CALL CREATEFILE(filename,d_i1,size_i1)
511      CALL eomccsdtq_x2_17_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i1,k_i1
512     &_offset)
513      CALL eomccsdtq_x2_17_2(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i1,k_i1
514     &_offset)
515      CALL RECONCILEFILE(d_i1,size_i1)
516      CALL eomccsdtq_x2_17(d_t2,k_t2_offset,d_i1,k_i1_offset,d_i0,k_i0_o
517     &ffset)
518      CALL DELETEFILE(d_i1)
519      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdtq_x2',-1
520     &,MA_ERR)
521      CALL OFFSET_eomccsdtq_x2_18_1(l_i1_offset,k_i1_offset,size_i1)
522      CALL TCE_FILENAME('eomccsdtq_x2_18_1_i1',filename)
523      CALL CREATEFILE(filename,d_i1,size_i1)
524      CALL eomccsdtq_x2_18_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i1,k_i1
525     &_offset)
526      CALL RECONCILEFILE(d_i1,size_i1)
527      CALL eomccsdtq_x2_18(d_t3,k_t3_offset,d_i1,k_i1_offset,d_i0,k_i0_o
528     &ffset)
529      CALL DELETEFILE(d_i1)
530      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdtq_x2',-1
531     &,MA_ERR)
532      CALL OFFSET_eomccsdtq_x2_19_1(l_i1_offset,k_i1_offset,size_i1)
533      CALL TCE_FILENAME('eomccsdtq_x2_19_1_i1',filename)
534      CALL CREATEFILE(filename,d_i1,size_i1)
535      CALL eomccsdtq_x2_19_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i1,k_i1
536     &_offset)
537      CALL RECONCILEFILE(d_i1,size_i1)
538      CALL eomccsdtq_x2_19(d_t3,k_t3_offset,d_i1,k_i1_offset,d_i0,k_i0_o
539     &ffset)
540      CALL DELETEFILE(d_i1)
541      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdtq_x2',-1
542     &,MA_ERR)
543      RETURN
544      END
545c#endif
546