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