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