1c     =====================================================
2c               CC-T(0) Amplitudes
3c     =====================================================
4      integer d_t1             ! SF handle for t1 amplitudes
5      integer l_t1_offset      ! Offset for t1 file
6      integer k_t1_offset      ! Offset for t1 file
7      integer size_t1          ! File size in doubles
8      integer d_t2             ! SF handle for t2 amplitudes
9      integer l_t2_offset      ! Offset for t2 file
10      integer k_t2_offset      ! Offset for t2 file
11      integer size_t2          ! File size in doubles
12      integer d_t3             ! SF handle for t3 amplitudes
13      integer l_t3_offset      ! Offset for t3 file
14      integer k_t3_offset      ! Offset for t3 file
15      integer size_t3          ! File size in doubles
16      integer d_t4             ! SF handle for t4 amplitudes
17      integer l_t4_offset      ! Offset for t4 file
18      integer k_t4_offset      ! Offset for t4 file
19      integer size_t4          ! File size in doubles
20c     =====================================================
21c               CC-T(0) Residual Amplitudes
22c     =====================================================
23      integer d_r1             ! SF handle for r1 amplitudes
24      integer d_r2             ! SF handle for r2 amplitudes
25      integer d_r3             ! SF handle for r3 amplitudes
26      integer d_r4             ! SF handle for r4 amplitudes
27c     =====================================================
28c               MBPT Amplitudes
29c     =====================================================
30      integer d_u1             ! SF handle for u1 file
31      integer l_u1_offset      ! Offset for u1 file
32      integer k_u1_offset      ! Offset for u1 file
33      integer size_u1          ! File size in doubles
34      integer d_u2             ! SF handle for u2 file
35      integer l_u2_offset      ! Offset for u2 file
36      integer k_u2_offset      ! Offset for u2 file
37      integer size_u2          ! File size in doubles
38      integer d_w1             ! SF handle for w1 file
39      integer l_w1_offset      ! Offset for w1 file
40      integer k_w1_offset      ! Offset for w1 file
41      integer size_w1          ! File size in doubles
42      integer d_w2             ! SF handle for w2 file
43      integer l_w2_offset      ! Offset for w2 file
44      integer k_w2_offset      ! Offset for w2 file
45      integer size_w2          ! File size in doubles
46      integer d_w3             ! SF handle for w3 file
47      integer l_w3_offset      ! Offset for w3 file
48      integer k_w3_offset      ! Offset for w3 file
49      integer size_w3          ! File size in doubles
50      integer d_w4             ! SF handle for w4 file
51      integer l_w4_offset      ! Offset for w4 file
52      integer k_w4_offset      ! Offset for w4 file
53      integer size_w4          ! File size in doubles
54      integer d_e2             ! SF handle for e2 file
55      integer l_e2_offset      ! Offset for e2 file
56      integer k_e2_offset      ! Offset for e2 file
57      integer size_e2          ! File size in doubles
58c     =====================================================
59c               Amplitude Logicals
60c     =====================================================
61      logical needt1
62      logical needt2
63      logical needt3
64      logical needt3a
65      logical needt4
66      logical needu1
67      logical needu2
68      logical needw1
69      logical needw2
70      logical needw3
71      logical needw4
72      logical neede2
73c     =====================================================
74c               CC-Lambda(0) Amplitudes
75c     =====================================================
76      integer d_lambda1        ! Lambda 1 file
77      integer d_lambda2        ! Lambda 2 file
78      integer d_lambda3        ! Lambda 3 file
79      integer d_lambda4        ! Lambda 4 file
80      integer d_lr1            ! Lambda 1 residual file
81      integer d_lr2            ! Lambda 2 residual file
82      integer d_lr3            ! Lambda 3 residual file
83      integer d_lr4            ! Lambda 4 residual file
84      integer l_l1_offset      ! Offset for Lambda 1 file
85      integer k_l1_offset      ! Offset for Lambda 1 file
86      integer size_l1          ! File size in doubles
87      integer l_l2_offset      ! Offset for Lambda 2 file
88      integer k_l2_offset      ! Offset for Lambda 2 file
89      integer size_l2          ! File size in doubles
90      integer l_l3_offset      ! Offset for Lambda 3 file
91      integer k_l3_offset      ! Offset for Lambda 3 file
92      integer size_l3          ! File size in doubles
93      integer l_l4_offset      ! Offset for Lambda 4 file
94      integer k_l4_offset      ! Offset for Lambda 4 file
95      integer size_l4          ! File size in doubles
96c     =====================================================
97c               EOM-CC-Right(0) Amplitudes
98c     =====================================================
99      integer d_x1             ! Right 1 file
100      integer d_x2             ! Right 2 file
101      integer d_x3             ! Right 3 file
102      integer d_x4             ! Right 4 file
103      integer l_x1_offset      ! Offset for  1 file
104      integer k_x1_offset      ! Offset for  1 file
105      integer size_x1          ! File size in doubles
106      integer l_x2_offset      ! Offset for  2 file
107      integer k_x2_offset      ! Offset for  2 file
108      integer size_x2          ! File size in doubles
109      integer l_x3_offset      ! Offset for  3 file
110      integer k_x3_offset      ! Offset for  3 file
111      integer size_x3          ! File size in doubles
112      integer l_x4_offset      ! Offset for  4 file
113      integer k_x4_offset      ! Offset for  4 file
114      integer size_x4          ! File size in doubles
115c     =====================================================
116c               EOM-CC-Left(0) Amplitudes
117c     =====================================================
118      integer d_y1             ! Left 1 file
119      integer d_y2             ! Left 2 file
120      integer d_y3             ! Left 3 file
121      integer d_y4             ! Left 4 file
122      integer l_y1_offset      ! Offset for  1 file
123      integer k_y1_offset      ! Offset for  1 file
124      integer size_y1          ! File size in doubles
125      integer l_y2_offset      ! Offset for  2 file
126      integer k_y2_offset      ! Offset for  2 file
127      integer size_y2          ! File size in doubles
128      integer l_y3_offset      ! Offset for  3 file
129      integer k_y3_offset      ! Offset for  3 file
130      integer size_y3          ! File size in doubles
131      integer l_y4_offset      ! Offset for  4 file
132      integer k_y4_offset      ! Offset for  4 file
133      integer size_y4          ! File size in doubles
134c     =====================================================
135c     FILE NAMES
136c          Conventions (Y = Lambda):
137c          rrN  -  T(1) residual amplitudes
138c          trN  -  T(1) amplitudes
139c          yrrN -  Y(1) residual amplitudes
140c          yrN  -  Y(1) amplitudes
141c          tqrN -  T(2) residual amplitudes
142c          tqN  -  T(2) amplitudes
143c     =====================================================
144c               CC-T(1) Amplitudes and Residual Amplitudes
145c     =====================================================
146      integer d_tr1(12)            ! SF handle for tr1 amplitudes
147      integer l_tr1_offset(3)      ! Offset for tr1 file
148      integer k_tr1_offset(3)      ! Offset for tr1 file
149      integer size_tr1(3)          ! File size in doubles
150      integer d_tr2(12)            ! SF handle for tr2 amplitudes
151      integer l_tr2_offset(3)      ! Offset for tr2 file
152      integer k_tr2_offset(3)      ! Offset for tr2 file
153      integer size_tr2(3)          ! File size in doubles
154      integer d_tr3(12)            ! SF handle for tr3 amplitudes
155      integer l_tr3_offset(3)      ! Offset for tr3 file
156      integer k_tr3_offset(3)      ! Offset for tr3 file
157      integer size_tr3(3)          ! File size in doubles
158      integer d_tr4(12)            ! SF handle for tr4 amplitudes
159      integer l_tr4_offset(3)      ! Offset for tr4 file
160      integer k_tr4_offset(3)      ! Offset for tr4 file
161      integer size_tr4(3)          ! File size in doubles
162      integer d_rr1(3)             ! SF handle for rr1 amplitudes
163      integer d_rr2(3)             ! SF handle for rr2 amplitudes
164      integer d_rr3(3)             ! SF handle for rr3 amplitudes
165      integer d_rr4(3)             ! SF handle for rr4 amplitudes
166      character*6 rr1filename(3) ! File name stub
167      data rr1filename/'rr1x  ','rr1y  ','rr1z  '/
168      character*6 rr2filename(3) ! File name stub
169      data rr2filename/'rr2x  ','rr2y  ','rr2z  '/
170      character*6 rr3filename(3) ! File name stub
171      data rr3filename/'rr3x  ','rr3y  ','rr3z  '/
172      character*6 rr4filename(3) ! File name stub
173      data rr4filename/'rr4x  ','rr4y  ','rr4z  '/
174      character*8 tr1filename(12) ! File name stub
175      data tr1filename/'tr1x+ ','tr1y+ ','tr1z+ ',
176     &                 'tr1x- ','tr1y- ','tr1z- ',
177     &                 'tr1x++','tr1y++','tr1z++',
178     &                 'tr1x--','tr1y--','tr1z--'/
179      character*8 tr2filename(12) ! File name stub
180      data tr2filename/'tr2x+ ','tr2y+ ','tr1z+ ',
181     &                 'tr2x- ','tr2y- ','tr2z- ',
182     &                 'tr2x++','tr2y++','tr2z++',
183     &                 'tr2x--','tr2y--','tr2z--'/
184      character*8 tr3filename(12) ! File name stub
185      data tr3filename/'tr3x+ ','tr3y+ ','tr3z+ ',
186     &                 'tr3x- ','tr3y- ','tr3z- ',
187     &                 'tr3x++','tr3y++','tr3z++',
188     &                 'tr3x--','tr3y--','tr3z--'/
189      character*8 tr4filename(12) ! File name stub
190      data tr4filename/'tr4x+ ','tr4y+ ','tr4z+ ',
191     &                 'tr4x- ','tr4y- ','tr4z- ',
192     &                 'tr4x++','tr4y++','tr4z++',
193     &                 'tr4x--','tr4y--','tr4z--'/
194c     =====================================================
195c               CC-T(1) Imaginary Auxilary Amplitudes
196c               Use: ir = A*x, rr = A*ir (rr=A*A*x)
197c     =====================================================
198      integer d_ir1(3)             ! SF handle for ir1 amplitudes
199      integer d_ir2(3)             ! SF handle for ir2 amplitudes
200      integer d_ir3(3)             ! SF handle for ir3 amplitudes
201      integer d_ir4(3)             ! SF handle for ir4 amplitudes
202      character*8 ir1filename(6) ! File name stub
203      data ir1filename/'ir1x+ ','ir1y+ ','ir1z+ ',
204     &                 'ir1x- ','ir1y- ','ir1z- '/
205      character*8 ir2filename(6) ! File name stub
206      data ir2filename/'ir2x+ ','ir2y+ ','ir1z+ ',
207     &                 'ir2x- ','ir2y- ','ir2z- '/
208c     =====================================================
209c               CC-Lambda(1) Amplitudes and Residual Amplitudes
210c     =====================================================
211      integer d_yr1(12)            ! SF handle for yr1 amplitudes
212      integer l_yr1_offset(3)      ! Offset for yr1 file
213      integer k_yr1_offset(3)      ! Offset for yr1 file
214      integer size_yr1(3)          ! File size in doubles
215      integer d_yr2(12)            ! SF handle for yr2 amplitudes
216      integer l_yr2_offset(3)      ! Offset for yr2 file
217      integer k_yr2_offset(3)      ! Offset for yr2 file
218      integer size_yr2(3)          ! File size in doubles
219      integer d_yr3(12)            ! SF handle for yr3 amplitudes
220      integer l_yr3_offset(3)      ! Offset for yr3 file
221      integer k_yr3_offset(3)      ! Offset for yr3 file
222      integer size_yr3(3)          ! File size in doubles
223      integer d_yr4(12)            ! SF handle for yr4 amplitudes
224      integer l_yr4_offset(3)      ! Offset for yr4 file
225      integer k_yr4_offset(3)      ! Offset for yr4 file
226      integer size_yr4(3)          ! File size in doubles
227      integer d_yrr1(3)            ! SF handle for yrr1 amplitudes
228      integer d_yrr2(3)            ! SF handle for yrr2 amplitudes
229      integer d_yrr3(3)            ! SF handle for yrr3 amplitudes
230      integer d_yrr4(3)            ! SF handle for yrr4 amplitudes
231      character*8 yrr1filename(3) ! File name stub
232      data yrr1filename/'yrr1x ','yrr1y ','yrr1z '/
233      character*8 yrr2filename(3) ! File name stub
234      data yrr2filename/'yrr2x ','yrr2y ','yrr2z '/
235      character*8 yrr3filename(3) ! File name stub
236      data yrr3filename/'yrr3x ','yrr3y ','yrr3z '/
237      character*8 yrr4filename(3) ! File name stub
238      data yrr4filename/'yrr4x ','yrr4y ','yrr4z '/
239      character*8 yr1filename(12) ! File name stub
240      data yr1filename/'yr1x+ ','yr1y+ ','yr1z+ ',
241     &                 'yr1x- ','yr1y- ','yr1z- ',
242     &                 'yr1x++','yr1y++','yr1z++',
243     &                 'yr1x--','yr1y--','yr1z--'/
244      character*8 yr2filename(12) ! File name stub
245      data yr2filename/'yr2x+ ','yr2y+ ','yr2z+ ',
246     &                 'yr2x- ','yr2y- ','yr2z- ',
247     &                 'yr2x++','yr2y++','yr2z++',
248     &                 'yr2x--','yr2y--','yr2z--'/
249      character*8 yr3filename(12) ! File name stub
250      data yr3filename/'yr3x+ ','yr3y+ ','yr3z+ ',
251     &                 'yr3x- ','yr3y- ','yr3z- ',
252     &                 'yr3x++','yr3y++','yr3z++',
253     &                 'yr3x--','yr3y--','yr3z--'/
254      character*8 yr4filename(12) ! File name stub
255      data yr4filename/'yr4x+ ','yr4y+ ','yr4z+ ',
256     &                 'yr4x- ','yr4y- ','yr4z- ',
257     &                 'yr4x++','yr4y++','yr4z++',
258     &                 'yr4x--','yr4y--','yr4z--'/
259c     =====================================================
260c               CC-T(2) Amplitudes and Residual Amplitudes
261c     =====================================================
262      integer d_tq1(36)            ! SF handle for tr1 amplitudes
263      integer l_tq1_offset(3)      ! Offset for tr1 file
264      integer k_tq1_offset(3)      ! Offset for tr1 file
265      integer size_tq1(3)          ! File size in doubles
266      integer d_tq2(36)            ! SF handle for tr2 amplitudes
267      integer l_tq2_offset(3)      ! Offset for tr2 file
268      integer k_tq2_offset(3)      ! Offset for tr2 file
269      integer size_tq2(3)          ! File size in doubles
270      integer d_tq3(36)            ! SF handle for tr3 amplitudes
271      integer l_tq3_offset(3)      ! Offset for tr3 file
272      integer k_tq3_offset(3)      ! Offset for tr3 file
273      integer size_tq3(3)          ! File size in doubles
274      integer d_tq4(36)            ! SF handle for tr4 amplitudes
275      integer l_tq4_offset(3)      ! Offset for tr4 file
276      integer k_tq4_offset(3)      ! Offset for tr4 file
277      integer size_tq4(3)          ! File size in doubles
278      character*8 tqr1filename(36) ! File name stub
279      data tqr1filename/'tqr1xx+ ','tqr1yx+ ','tqr1zx+ ',
280     &                  'tqr1xy+ ','tqr1yy+ ','tqr1zy+ ',
281     &                  'tqr1xz+ ','tqr1yz+ ','tqr1zz+ ',
282     &                  'tqr1xx- ','tqr1yx- ','tqr1zx- ',
283     &                  'tqr1xy- ','tqr1yy- ','tqr1zy- ',
284     &                  'tqr1xz- ','tqr1yz- ','tqr1zz- ',
285     &                  'tqr1xx++','tqr1yx++','tqr1zx++',
286     &                  'tqr1xy++','tqr1yy++','tqr1zy++',
287     &                  'tqr1xz++','tqr1yz++','tqr1zz++',
288     &                  'tqr1xx--','tqr1yx--','tqr1zx--',
289     &                  'tqr1xy--','tqr1yy--','tqr1zy--',
290     &                  'tqr1xz--','tqr1yz--','tqr1zz--'/
291      character*8 tqr2filename(36) ! File name stub
292      data tqr2filename/'tqr2xx+ ','tqr2yx+ ','tqr2zx+ ',
293     &                  'tqr2xy+ ','tqr2yy+ ','tqr2zy+ ',
294     &                  'tqr2xz+ ','tqr2yz+ ','tqr2zz+ ',
295     &                  'tqr2xx- ','tqr2yx- ','tqr2zx- ',
296     &                  'tqr2xy- ','tqr2yy- ','tqr2zy- ',
297     &                  'tqr2xz- ','tqr2yz- ','tqr2zz- ',
298     &                  'tqr2xx++','tqr2yx++','tqr2zx++',
299     &                  'tqr2xy++','tqr2yy++','tqr2zy++',
300     &                  'tqr2xz++','tqr2yz++','tqr2zz++',
301     &                  'tqr2xx--','tqr2yx--','tqr2zx--',
302     &                  'tqr2xy--','tqr2yy--','tqr2zy--',
303     &                  'tqr2xz--','tqr2yz--','tqr2zz--'/
304c     =====================================================
305c                 Excited-State Amplitudes
306c     =====================================================
307      integer d_rx1            ! RHS residual file
308      integer d_rx2            ! RHS residual file
309      integer d_rx3            ! RHS residual file
310      integer d_rx4            ! RHS residual file
311      integer d_ry1            ! LHS residual file
312      integer d_ry2            ! LHS residual file
313      integer d_ry3            ! LHS residual file
314      integer d_ry4            ! LHS residual file
315      integer d_x0             ! Offset for x0 file
316      integer l_x0_offset      ! Offset for x0 file
317      integer k_x0_offset      ! Offset for x0 file
318      integer size_x0          ! File size in doubles
319      integer d_y0             ! Offset for y0 file
320      integer l_y0_offset      ! Offset for y0 file
321      integer k_y0_offset      ! Offset for y0 file
322      integer size_y0          ! File size in doubles
323c $Id$
324