1 SUBROUTINE eomccsdt_x3a(d_f1,d_i0,d_t1,d_t2,d_t3,d_v2,d_x1, 2 &d_x2,d_x3, 3 &k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_v2 4 &_offset,k_x1_offset,k_x2_offset,k_x3_offset) 5C $Id$ 6C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 7C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) 8C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( h11 ) * x ( p4 p5 h1 h11 )_x * i1 ( h11 p6 h2 h3 )_v 9C i1 ( h11 p4 h1 h2 )_v + = 1 * v ( h11 p4 h1 h2 )_v 10C i1 ( h11 p4 h1 h2 )_vt + = 1 * Sum ( h12 ) * t ( p4 h12 )_t * i2 ( h11 h12 h1 h2 )_v 11C i2 ( h11 h12 h1 h2 )_v + = -1 * v ( h11 h12 h1 h2 )_v 12C i2 ( h11 h12 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 ( h11 h12 h2 p8 )_v 13C i3 ( h11 h12 h1 p8 )_v + = 1 * v ( h11 h12 h1 p8 )_v 14C i3 ( h11 h12 h1 p8 )_vt + = -1/2 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h11 h12 p8 p9 )_v 15C i2 ( h11 h12 h1 h2 )_vt + = -1/2 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( h11 h12 p7 p8 )_v 16C i1 ( h11 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h11 p4 h2 p7 )_v 17C i2 ( h11 p4 h1 p7 )_v + = 1 * v ( h11 p4 h1 p7 )_v 18C i2 ( h11 p4 h1 p7 )_vt + = -1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 p4 p7 p8 )_v 19C i1 ( h11 p4 h1 h2 )_ft + = -1 * Sum ( p10 ) * t ( p4 p10 h1 h2 )_t * i2 ( h11 p10 )_f 20C i2 ( h11 p10 )_f + = 1 * f ( h11 p10 )_f 21C i2 ( h11 p10 )_vt + = 1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h11 p8 p10 )_v 22C i1 ( h11 p4 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * i2 ( h8 h11 h2 p7 )_v 23C i2 ( h8 h11 h1 p7 )_v + = 1 * v ( h8 h11 h1 p7 )_v 24C i2 ( h8 h11 h1 p7 )_vt + = -1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h11 p7 p9 )_v 25C i1 ( h11 p4 h1 h2 )_vt + = 1/2 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( h11 p4 p7 p8 )_v 26C i1 ( h11 p4 h1 h2 )_vt + = 1/2 * Sum ( h9 p7 p8 ) * t ( p4 p7 p8 h1 h2 h9 )_t * v ( h9 h11 p7 p8 )_v 27C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( p12 ) * x ( p4 p12 h1 h2 )_x * i1 ( p5 p6 h3 p12 )_v 28C i1 ( p4 p5 h1 p12 )_v + = 1 * v ( p4 p5 h1 p12 )_v 29C i1 ( p4 p5 h1 p12 )_vt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * v ( p4 p5 p7 p12 )_v 30C i1 ( p4 p5 h1 p12 )_vt + = 1/2 * Sum ( h7 h8 ) * t ( p4 p5 h7 h8 )_t * i2 ( h7 h8 h1 p12 )_v 31C i2 ( h7 h8 h1 p12 )_v + = 1 * v ( h7 h8 h1 p12 )_v 32C i2 ( h7 h8 h1 p12 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h7 h8 p9 p12 )_v 33C i1 ( p4 p5 h1 p12 )_vt + = 1 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * v ( h8 p5 p7 p12 )_v 34C i1 ( p4 p5 h1 p12 )_vt + = 1/2 * Sum ( h8 h9 p7 ) * t ( p4 p5 p7 h1 h8 h9 )_t * v ( h8 h9 p7 p12 )_v 35C i0 ( p4 p5 p6 h1 h2 h3 )_xf + = -1 * P( 3 ) * Sum ( h10 ) * x ( p4 p5 p6 h1 h2 h10 )_x * i1 ( h10 h3 )_f 36C i1 ( h10 h1 )_f + = 1 * f ( h10 h1 )_f 37C i1 ( h10 h1 )_ft + = 1 * Sum ( p11 ) * t ( p11 h1 )_t * i2 ( h10 p11 )_f 38C i2 ( h10 p11 )_f + = 1 * f ( h10 p11 )_f 39C i2 ( h10 p11 )_vt + = 1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h10 p8 p11 )_v 40C i1 ( h10 h1 )_vt + = -1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 h10 h1 p7 )_v 41C i1 ( h10 h1 )_vt + = -1/2 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t * v ( h9 h10 p7 p8 )_v 42C i0 ( p4 p5 p6 h1 h2 h3 )_xf + = 1 * P( 3 ) * Sum ( p10 ) * x ( p4 p5 p10 h1 h2 h3 )_x * i1 ( p6 p10 )_f 43C i1 ( p4 p10 )_f + = 1 * f ( p4 p10 )_f 44C i1 ( p4 p10 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 p4 p7 p10 )_v 45C i1 ( p4 p10 )_vt + = 1/2 * Sum ( h8 h9 p7 ) * t ( p4 p7 h8 h9 )_t * v ( h8 h9 p7 p10 )_v 46C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = 1/2 * P( 3 ) * Sum ( h12 h11 ) * x ( p4 p5 p6 h1 h11 h12 )_x * i1 ( h11 h12 h2 h3 )_v 47C i1 ( h11 h12 h1 h2 )_v + = 1 * v ( h11 h12 h1 h2 )_v 48C i1 ( h11 h12 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h11 h12 h2 p7 )_v 49C i2 ( h11 h12 h1 p7 )_v + = 1 * v ( h11 h12 h1 p7 )_v 50C i2 ( h11 h12 h1 p7 )_vt + = -1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 h12 p7 p8 )_v 51C i1 ( h11 h12 h1 h2 )_vt + = 1/2 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( h11 h12 p7 p8 )_v 52C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( p10 h9 ) * x ( p4 p5 p10 h1 h2 h9 )_x * i1 ( h9 p6 h3 p10 )_v 53C i1 ( h9 p4 h1 p10 )_v + = 1 * v ( h9 p4 h1 p10 )_v 54C i1 ( h9 p4 h1 p10 )_vt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * v ( h9 p4 p7 p10 )_v 55C i1 ( h9 p4 h1 p10 )_vt + = -1 * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * v ( h8 h9 p7 p10 )_v 56C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = 1/2 * P( 3 ) * Sum ( p8 p7 ) * x ( p4 p7 p8 h1 h2 h3 )_x * v ( p5 p6 p7 p8 )_v 57C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = 6 * P( 3 ) * Sum ( h11 ) * t ( p4 h11 )_t * i1 ( h11 p5 p6 h1 h2 h3 )_vx 58C i1 ( h11 p4 p5 h1 h2 h3 )_vx + = -1/6 * P( 6 ) * Sum ( p10 ) * x ( p4 p10 h1 h2 )_x * i2 ( h11 p5 h3 p10 )_v 59C i2 ( h11 p4 h1 p10 )_v + = 1 * v ( h11 p4 h1 p10 )_v 60C i2 ( h11 p4 h1 p10 )_vt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h8 h11 h1 p10 )_v 61C i3 ( h8 h11 h1 p10 )_v + = 1 * v ( h8 h11 h1 p10 )_v 62C i3 ( h8 h11 h1 p10 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h11 p9 p10 )_v 63C i2 ( h11 p4 h1 p10 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 p4 p8 p10 )_v 64C i2 ( h11 p4 h1 p10 )_vt + = -1 * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * v ( h8 h11 p7 p10 )_v 65C i1 ( h11 p4 p5 h1 h2 h3 )_fx + = -1/6 * Sum ( p7 ) * x ( p4 p5 p7 h1 h2 h3 )_x * i2 ( h11 p7 )_f 66C i2 ( h11 p7 )_f + = 1 * f ( h11 p7 )_f 67C i2 ( h11 p7 )_vt + = -1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h11 p7 p8 )_v 68C i1 ( h11 p4 p5 h1 h2 h3 )_vx + = 1/6 * P( 3 ) * Sum ( h10 p7 ) * x ( p4 p5 p7 h1 h2 h10 )_x * i2 ( h10 h11 h3 p7 )_v 69C i2 ( h10 h11 h1 p7 )_v + = 1 * v ( h10 h11 h1 p7 )_v 70C i2 ( h10 h11 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h11 p7 p8 )_v 71C i1 ( h11 p4 p5 h1 h2 h3 )_vx + = 1/12 * P( 2 ) * Sum ( p8 p9 ) * x ( p4 p8 p9 h1 h2 h3 )_x * v ( h11 p5 p8 p9 )_v 72C i1 ( h11 p4 p5 h1 h2 h3 )_vxt + = 1/24 * P( 2 ) * Sum ( h8 ) * t ( p4 h8 )_t * i2 ( h8 h11 p5 h1 h2 h3 )_vx 73C i2 ( h8 h11 p4 h1 h2 h3 )_vx + = -1 * Sum ( p9 p10 ) * x ( p4 p9 p10 h1 h2 h3 )_x * v ( h8 h11 p9 p10 )_v 74C i1 ( h11 p4 p5 h1 h2 h3 )_vxt + = -1/6 * P( 6 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i2 ( h11 p5 h3 p7 )_vx 75C i2 ( h11 p4 h1 p7 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h11 p4 p7 p9 )_v 76C i2 ( h11 p4 h1 p7 )_vx + = 1 * Sum ( h9 p10 ) * x ( p4 p10 h1 h9 )_x * v ( h9 h11 p7 p10 )_v 77C i2 ( h11 p4 h1 p7 )_vtx + = -1 * Sum ( h10 ) * x ( p4 h10 )_x * i3 ( h10 h11 h1 p7 )_vt 78C i3 ( h10 h11 h1 p7 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h11 p7 p8 )_v 79C i2 ( h11 p4 h1 p7 )_vxt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h8 h11 h1 p7 )_vx 80C i3 ( h8 h11 h1 p7 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h8 h11 p7 p10 )_v 81C i1 ( h11 p4 p5 h1 h2 h3 )_vxt + = -1/6 * Sum ( p7 ) * t ( p4 p5 p7 h1 h2 h3 )_t * i2 ( h11 p7 )_vx 82C i2 ( h11 p7 )_vx + = -1 * Sum ( h9 p10 ) * x ( p10 h9 )_x * v ( h9 h11 p7 p10 )_v 83C i1 ( h11 p4 p5 h1 h2 h3 )_vtx + = -1/12 * P( 2 ) * Sum ( h10 ) * x ( p4 h10 )_x * i2 ( h10 h11 p5 h1 h2 h3 )_vt 84C i2 ( h10 h11 p4 h1 h2 h3 )_vt + = 1 * Sum ( p7 p8 ) * t ( p4 p7 p8 h1 h2 h3 )_t * v ( h10 h11 p7 p8 )_v 85C i1 ( h11 p4 p5 h1 h2 h3 )_vxt + = -1/6 * P( 3 ) * Sum ( h8 p7 ) * t ( p4 p5 p7 h1 h2 h8 )_t * i2 ( h8 h11 h3 p7 )_vx 86C i2 ( h8 h11 h1 p7 )_vx + = 1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h8 h11 p7 p10 )_v 87C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( h12 ) * t ( p4 p5 h1 h12 )_t * i1 ( h12 p6 h2 h3 )_vx 88C i1 ( h12 p4 h1 h2 )_vx + = 1 * Sum ( h13 ) * x ( p4 h13 )_x * i2 ( h12 h13 h1 h2 )_v 89C i2 ( h12 h13 h1 h2 )_v + = -1 * v ( h12 h13 h1 h2 )_v 90C i2 ( h12 h13 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( p9 ) * t ( p9 h1 )_t * i3 ( h12 h13 h2 p9 )_v 91C i3 ( h12 h13 h1 p9 )_v + = 1 * v ( h12 h13 h1 p9 )_v 92C i3 ( h12 h13 h1 p9 )_vt + = 1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 h13 p8 p9 )_v 93C i2 ( h12 h13 h1 h2 )_vt + = -1/2 * Sum ( p8 p9 ) * t ( p8 p9 h1 h2 )_t * v ( h12 h13 p8 p9 )_v 94C i1 ( h12 p4 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( p8 ) * x ( p8 h1 )_x * v ( h12 p4 h2 p8 )_v 95C i1 ( h12 p4 h1 h2 )_fx + = -1 * Sum ( p7 ) * x ( p4 p7 h1 h2 )_x * i2 ( h12 p7 )_f 96C i2 ( h12 p7 )_f + = 1 * f ( h12 p7 )_f 97C i2 ( h12 p7 )_vt + = -1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h12 p7 p8 )_v 98C i1 ( h12 p4 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( h10 p7 ) * x ( p4 p7 h1 h10 )_x * i2 ( h10 h12 h2 p7 )_v 99C i2 ( h10 h12 h1 p7 )_v + = 1 * v ( h10 h12 h1 p7 )_v 100C i2 ( h10 h12 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h12 p7 p8 )_v 101C i1 ( h12 p4 h1 h2 )_vx + = 1/2 * Sum ( p8 p9 ) * x ( p8 p9 h1 h2 )_x * v ( h12 p4 p8 p9 )_v 102C i1 ( h12 p4 h1 h2 )_vx + = 1/2 * Sum ( h8 p9 p10 ) * x ( p4 p9 p10 h1 h2 h8 )_x * v ( h8 h12 p9 p10 )_v 103C i1 ( h12 p4 h1 h2 )_vxt + = 2 * Sum ( h11 ) * t ( p4 h11 )_t * i2 ( h11 h12 h1 h2 )_vx 104C i2 ( h11 h12 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p9 ) * x ( p9 h1 )_x * v ( h11 h12 h2 p9 )_v 105C i2 ( h11 h12 h1 h2 )_vx + = 1/4 * Sum ( p9 p10 ) * x ( p9 p10 h1 h2 )_x * v ( h11 h12 p9 p10 )_v 106C i2 ( h11 h12 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 ( h11 h12 h2 p8 )_vx 107C i3 ( h11 h12 h1 p8 )_vx + = 1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h11 h12 p8 p10 )_v 108C i1 ( h12 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i2 ( h12 p4 h2 p8 )_vx 109C i2 ( h12 p4 h1 p8 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h12 p4 p8 p9 )_v 110C i1 ( h12 p4 h1 h2 )_vxt + = -1 * Sum ( p8 ) * t ( p4 p8 h1 h2 )_t * i2 ( h12 p8 )_vx 111C i2 ( h12 p8 )_vx + = -1 * Sum ( h9 p10 ) * x ( p10 h9 )_x * v ( h9 h12 p8 p10 )_v 112C i1 ( h12 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * i2 ( h9 h12 h2 p8 )_vx 113C i2 ( h9 h12 h1 p8 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h9 h12 p8 p10 )_v 114C i0 ( p4 p5 p6 h1 h2 h3 )_vtx + = 6 * P( 3 ) * Sum ( h11 ) * x ( p4 h11 )_x * i1 ( h11 p5 p6 h1 h2 h3 )_vt 115C i1 ( h11 p4 p5 h1 h2 h3 )_vt + = -1/6 * P( 6 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i2 ( h11 p5 h3 p7 )_v 116C i2 ( h11 p4 h1 p7 )_vt + = 1 * Sum ( h8 ) * t ( p4 h8 )_t * v ( h8 h11 h1 p7 )_v 117C i2 ( h11 p4 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 p4 p7 p8 )_v 118C i2 ( h11 p4 h1 p7 )_vt + = 1 * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * v ( h9 h11 p7 p8 )_v 119C i1 ( h11 p4 p5 h1 h2 h3 )_ft + = -1/6 * Sum ( p10 ) * t ( p4 p5 p10 h1 h2 h3 )_t * i2 ( h11 p10 )_f 120C i1 ( h11 p4 p5 h1 h2 h3 )_vt + = 1/6 * P( 3 ) * Sum ( h8 p7 ) * t ( p4 p5 p7 h1 h2 h8 )_t * i2 ( h8 h11 h3 p7 )_v 121C i1 ( h11 p4 p5 h1 h2 h3 )_vt + = 1/12 * P( 2 ) * Sum ( p7 p8 ) * t ( p4 p7 p8 h1 h2 h3 )_t * v ( h11 p5 p7 p8 )_v 122C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i1 ( p5 p6 h3 p7 )_vx 123C i1 ( p4 p5 h1 p7 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( p4 p5 p7 p8 )_v 124C i1 ( p4 p5 h1 p7 )_vx + = 1/2 * Sum ( h11 h12 ) * x ( p4 p5 h11 h12 )_x * i2 ( h11 h12 h1 p7 )_v 125C i2 ( h11 h12 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 h12 p7 p8 )_v 126C i1 ( p4 p5 h1 p7 )_vx + = -1 * P( 2 ) * Sum ( h8 p9 ) * x ( p4 p9 h1 h8 )_x * v ( h8 p5 p7 p9 )_v 127C i1 ( p4 p5 h1 p7 )_vx + = -1/2 * Sum ( h8 h9 p10 ) * x ( p4 p5 p10 h1 h8 h9 )_x * v ( h8 h9 p7 p10 )_v 128C i1 ( p4 p5 h1 p7 )_vxt + = 1/2 * Sum ( h8 h9 ) * t ( p4 p5 h8 h9 )_t * i2 ( h8 h9 h1 p7 )_vx 129C i2 ( h8 h9 h1 p7 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h8 h9 p7 p10 )_v 130C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1/4 * P( 3 ) * Sum ( h7 h8 ) * t ( p4 p5 h7 h8 )_t * i1 ( h7 h8 p6 h1 h2 h3 )_vx 131C i1 ( h7 h8 p4 h1 h2 h3 )_vx + = -1 * Sum ( p9 p10 ) * x ( p4 p9 p10 h1 h2 h3 )_x * v ( h7 h8 p9 p10 )_v 132C i0 ( p4 p5 p6 h1 h2 h3 )_fxt + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 h2 h7 )_t * i1 ( h7 h3 )_fx 133C i1 ( h7 h1 )_fx + = 1 * Sum ( p11 ) * x ( p11 h1 )_x * i2 ( h7 p11 )_f 134C i2 ( h7 p11 )_f + = 1 * f ( h7 p11 )_f 135C i2 ( h7 p11 )_vt + = -1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h7 h9 p8 p11 )_v 136C i1 ( h7 h1 )_vx + = 1 * Sum ( h8 p9 ) * x ( p9 h8 )_x * v ( h7 h8 h1 p9 )_v 137C i1 ( h7 h1 )_vx + = 1/2 * Sum ( h8 p9 p10 ) * x ( p9 p10 h1 h8 )_x * v ( h7 h8 p9 p10 )_v 138C i1 ( h7 h1 )_vxt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * i2 ( h7 p8 )_vx 139C i2 ( h7 p8 )_vx + = 1 * Sum ( h9 p10 ) * x ( p10 h9 )_x * v ( h7 h9 p8 p10 )_v 140C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = 1 * P( 3 ) * Sum ( h7 h8 ) * t ( p4 p5 p6 h1 h7 h8 )_t * i1 ( h7 h8 h2 h3 )_vx 141C i1 ( h7 h8 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p9 ) * x ( p9 h1 )_x * v ( h7 h8 h2 p9 )_v 142C i1 ( h7 h8 h1 h2 )_vx + = 1/4 * Sum ( p9 p10 ) * x ( p9 p10 h1 h2 )_x * v ( h7 h8 p9 p10 )_v 143C i1 ( h7 h8 h1 h2 )_vxt + = -1/2 * P( 2 ) * Sum ( p9 ) * t ( p9 h1 )_t * i2 ( h7 h8 h2 p9 )_vx 144C i2 ( h7 h8 h1 p9 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h7 h8 p9 p10 )_v 145C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = 1 * P( 3 ) * Sum ( p7 ) * t ( p4 p5 p7 h1 h2 h3 )_t * i1 ( p6 p7 )_vx 146C i1 ( p4 p7 )_vx + = -1 * Sum ( h8 p9 ) * x ( p9 h8 )_x * v ( h8 p4 p7 p9 )_v 147C i1 ( p4 p7 )_vx + = -1/2 * Sum ( h8 h9 p10 ) * x ( p4 p10 h8 h9 )_x * v ( h8 h9 p7 p10 )_v 148C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( h8 p7 ) * t ( p4 p5 p7 h1 h2 h8 )_t * i1 ( h8 p6 h3 p7 )_vx 149C i1 ( h8 p4 h1 p7 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h8 p4 p7 p9 )_v 150C i1 ( h8 p4 h1 p7 )_vx + = -1 * Sum ( h9 p10 ) * x ( p4 p10 h1 h9 )_x * v ( h8 h9 p7 p10 )_v 151C i0 ( p4 p5 p6 h1 h2 h3 )_vtx + = 1/4 * P( 3 ) * Sum ( h9 h10 ) * x ( p4 p5 h9 h10 )_x * i1 ( h9 h10 p6 h1 h2 h3 )_vt 152C i1 ( h9 h10 p4 h1 h2 h3 )_vt + = 1 * Sum ( p7 p8 ) * t ( p4 p7 p8 h1 h2 h3 )_t * v ( h9 h10 p7 p8 )_v 153 IMPLICIT NONE 154#include "global.fh" 155#include "mafdecls.fh" 156#include "util.fh" 157#include "errquit.fh" 158#include "tce.fh" 159 INTEGER d_i0 160 INTEGER k_i0_offset 161 INTEGER d_x2 162 INTEGER k_x2_offset 163 INTEGER d_i1 164 INTEGER k_i1_offset 165 INTEGER d_x3 166 INTEGER k_x3_offset 167 INTEGER d_v2 168 INTEGER k_v2_offset 169 INTEGER d_t1 170 INTEGER k_t1_offset 171 INTEGER d_t2 172 INTEGER k_t2_offset 173 INTEGER d_x1 174 INTEGER k_x1_offset 175 INTEGER d_t3 176 INTEGER k_t3_offset 177 INTEGER l_i1_offset 178 INTEGER size_i1 179 INTEGER d_i2 180 INTEGER k_i2_offset 181 INTEGER l_i2_offset 182 INTEGER size_i2 183 INTEGER d_i3 184 INTEGER k_i3_offset 185 INTEGER l_i3_offset 186 INTEGER size_i3 187 INTEGER d_f1 188 INTEGER k_f1_offset 189 CHARACTER*255 filename 190 CALL OFFSET_eomccsdt_x3a_1_1(l_i1_offset,k_i1_offset,size_i1) 191 CALL TCE_FILENAME('eomccsdt_x3_1_1_i1',filename) 192 CALL CREATEFILE(filename,d_i1,size_i1) 193 CALL eomccsdt_x3a_1_1(d_v2,k_v2_offset,d_i1,k_i1_offset) 194 CALL OFFSET_eomccsdt_x3a_1_2_1(l_i2_offset,k_i2_offset,size_i2) 195 CALL TCE_FILENAME('eomccsdt_x3_1_2_1_i2',filename) 196 CALL CREATEFILE(filename,d_i2,size_i2) 197 CALL eomccsdt_x3a_1_2_1(d_v2,k_v2_offset,d_i2,k_i2_offset) 198 CALL OFFSET_eomccsdt_x3a_1_2_2_1(l_i3_offset,k_i3_offset,size_i3) 199 CALL TCE_FILENAME('eomccsdt_x3_1_2_2_1_i3',filename) 200 CALL CREATEFILE(filename,d_i3,size_i3) 201 CALL eomccsdt_x3a_1_2_2_1(d_v2,k_v2_offset,d_i3,k_i3_offset) 202 CALL eomccsdt_x3a_1_2_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i3, 203 &k_i3_offset) 204 CALL RECONCILEFILE(d_i3,size_i3) 205 CALL eomccsdt_x3a_1_2_2(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2, 206 &k_i2_offset) 207 CALL DELETEFILE(d_i3) 208 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 209 &MA_ERR) 210 CALL eomccsdt_x3a_1_2_3(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i2, 211 &k_i2_offset) 212 CALL RECONCILEFILE(d_i2,size_i2) 213 CALL eomccsdt_x3a_1_2(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1, 214 &k_i1_offset) 215 CALL DELETEFILE(d_i2) 216 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 217 &MA_ERR) 218 CALL OFFSET_eomccsdt_x3a_1_3_1(l_i2_offset,k_i2_offset,size_i2) 219 CALL TCE_FILENAME('eomccsdt_x3_1_3_1_i2',filename) 220 CALL CREATEFILE(filename,d_i2,size_i2) 221 CALL eomccsdt_x3a_1_3_1(d_v2,k_v2_offset,d_i2,k_i2_offset) 222 CALL eomccsdt_x3a_1_3_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2, 223 &k_i2_offset) 224 CALL RECONCILEFILE(d_i2,size_i2) 225 CALL eomccsdt_x3a_1_3(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1, 226 &k_i1_offset) 227 CALL DELETEFILE(d_i2) 228 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 229 &MA_ERR) 230 CALL OFFSET_eomccsdt_x3a_1_4_1(l_i2_offset,k_i2_offset,size_i2) 231 CALL TCE_FILENAME('eomccsdt_x3_1_4_1_i2',filename) 232 CALL CREATEFILE(filename,d_i2,size_i2) 233 CALL eomccsdt_x3a_1_4_1(d_f1,k_f1_offset,d_i2,k_i2_offset) 234 CALL eomccsdt_x3a_1_4_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2, 235 &k_i2_offset) 236 CALL RECONCILEFILE(d_i2,size_i2) 237 CALL eomccsdt_x3a_1_4(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1, 238 &k_i1_offset) 239 CALL DELETEFILE(d_i2) 240 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 241 &MA_ERR) 242 CALL OFFSET_eomccsdt_x3a_1_5_1(l_i2_offset,k_i2_offset,size_i2) 243 CALL TCE_FILENAME('eomccsdt_x3_1_5_1_i2',filename) 244 CALL CREATEFILE(filename,d_i2,size_i2) 245 CALL eomccsdt_x3a_1_5_1(d_v2,k_v2_offset,d_i2,k_i2_offset) 246 CALL eomccsdt_x3a_1_5_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2, 247 &k_i2_offset) 248 CALL RECONCILEFILE(d_i2,size_i2) 249 CALL eomccsdt_x3a_1_5(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1, 250 &k_i1_offset) 251 CALL DELETEFILE(d_i2) 252 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 253 &MA_ERR) 254 CALL eomccsdt_x3a_1_6(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1, 255 &k_i1_offset) 256 CALL eomccsdt_x3a_1_7(d_t3,k_t3_offset,d_v2,k_v2_offset,d_i1, 257 &k_i1_offset) 258 CALL RECONCILEFILE(d_i1,size_i1) 259 CALL eomccsdt_x3a_1(d_x2,k_x2_offset,d_i1,k_i1_offset,d_i0, 260 &k_i0_offset) 261 CALL DELETEFILE(d_i1) 262 IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 263 &MA_ERR) 264 CALL OFFSET_eomccsdt_x3a_2_1(l_i1_offset,k_i1_offset,size_i1) 265 CALL TCE_FILENAME('eomccsdt_x3_2_1_i1',filename) 266 CALL CREATEFILE(filename,d_i1,size_i1) 267 CALL eomccsdt_x3a_2_1(d_v2,k_v2_offset,d_i1,k_i1_offset) 268 CALL eomccsdt_x3a_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i1, 269 &k_i1_offset) 270 CALL OFFSET_eomccsdt_x3a_2_3_1(l_i2_offset,k_i2_offset,size_i2) 271 CALL TCE_FILENAME('eomccsdt_x3_2_3_1_i2',filename) 272 CALL CREATEFILE(filename,d_i2,size_i2) 273 CALL eomccsdt_x3a_2_3_1(d_v2,k_v2_offset,d_i2,k_i2_offset) 274 CALL eomccsdt_x3a_2_3_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2, 275 &k_i2_offset) 276 CALL RECONCILEFILE(d_i2,size_i2) 277 CALL eomccsdt_x3a_2_3(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1, 278 &k_i1_offset) 279 CALL DELETEFILE(d_i2) 280 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 281 &MA_ERR) 282 CALL eomccsdt_x3a_2_4(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1, 283 &k_i1_offset) 284 CALL eomccsdt_x3a_2_5(d_t3,k_t3_offset,d_v2,k_v2_offset,d_i1, 285 &k_i1_offset) 286 CALL RECONCILEFILE(d_i1,size_i1) 287 CALL eomccsdt_x3a_2(d_x2,k_x2_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_x3',-1, 291 &MA_ERR) 292 CALL OFFSET_eomccsdt_x3a_3_1(l_i1_offset,k_i1_offset,size_i1) 293 CALL TCE_FILENAME('eomccsdt_x3_3_1_i1',filename) 294 CALL CREATEFILE(filename,d_i1,size_i1) 295 CALL eomccsdt_x3a_3_1(d_f1,k_f1_offset,d_i1,k_i1_offset) 296 CALL OFFSET_eomccsdt_x3a_3_2_1(l_i2_offset,k_i2_offset,size_i2) 297 CALL TCE_FILENAME('eomccsdt_x3_3_2_1_i2',filename) 298 CALL CREATEFILE(filename,d_i2,size_i2) 299 CALL eomccsdt_x3a_3_2_1(d_f1,k_f1_offset,d_i2,k_i2_offset) 300 CALL eomccsdt_x3a_3_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2, 301 &k_i2_offset) 302 CALL RECONCILEFILE(d_i2,size_i2) 303 CALL eomccsdt_x3a_3_2(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1, 304 &k_i1_offset) 305 CALL DELETEFILE(d_i2) 306 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 307 &MA_ERR) 308 CALL eomccsdt_x3a_3_3(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i1, 309 &k_i1_offset) 310 CALL eomccsdt_x3a_3_4(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1, 311 &k_i1_offset) 312 CALL RECONCILEFILE(d_i1,size_i1) 313 CALL eomccsdt_x3a_3(d_x3,k_x3_offset,d_i1,k_i1_offset,d_i0, 314 &k_i0_offset) 315 CALL DELETEFILE(d_i1) 316 IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 317 &MA_ERR) 318 CALL OFFSET_eomccsdt_x3a_4_1(l_i1_offset,k_i1_offset,size_i1) 319 CALL TCE_FILENAME('eomccsdt_x3_4_1_i1',filename) 320 CALL CREATEFILE(filename,d_i1,size_i1) 321 CALL eomccsdt_x3a_4_1(d_f1,k_f1_offset,d_i1,k_i1_offset) 322 CALL eomccsdt_x3a_4_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i1, 323 &k_i1_offset) 324 CALL eomccsdt_x3a_4_3(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1, 325 &k_i1_offset) 326 CALL RECONCILEFILE(d_i1,size_i1) 327 CALL eomccsdt_x3a_4(d_x3,k_x3_offset,d_i1,k_i1_offset,d_i0, 328 &k_i0_offset) 329 CALL DELETEFILE(d_i1) 330 IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 331 &MA_ERR) 332 CALL OFFSET_eomccsdt_x3a_5_1(l_i1_offset,k_i1_offset,size_i1) 333 CALL TCE_FILENAME('eomccsdt_x3_5_1_i1',filename) 334 CALL CREATEFILE(filename,d_i1,size_i1) 335 CALL eomccsdt_x3a_5_1(d_v2,k_v2_offset,d_i1,k_i1_offset) 336 CALL OFFSET_eomccsdt_x3a_5_2_1(l_i2_offset,k_i2_offset,size_i2) 337 CALL TCE_FILENAME('eomccsdt_x3_5_2_1_i2',filename) 338 CALL CREATEFILE(filename,d_i2,size_i2) 339 CALL eomccsdt_x3a_5_2_1(d_v2,k_v2_offset,d_i2,k_i2_offset) 340 CALL eomccsdt_x3a_5_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2, 341 &k_i2_offset) 342 CALL RECONCILEFILE(d_i2,size_i2) 343 CALL eomccsdt_x3a_5_2(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1, 344 &k_i1_offset) 345 CALL DELETEFILE(d_i2) 346 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 347 &MA_ERR) 348 CALL eomccsdt_x3a_5_3(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1, 349 &k_i1_offset) 350 CALL RECONCILEFILE(d_i1,size_i1) 351 CALL eomccsdt_x3a_5(d_x3,k_x3_offset,d_i1,k_i1_offset,d_i0, 352 &k_i0_offset) 353 CALL DELETEFILE(d_i1) 354 IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 355 &MA_ERR) 356 CALL OFFSET_eomccsdt_x3a_6_1(l_i1_offset,k_i1_offset,size_i1) 357 CALL TCE_FILENAME('eomccsdt_x3_6_1_i1',filename) 358 CALL CREATEFILE(filename,d_i1,size_i1) 359 CALL eomccsdt_x3a_6_1(d_v2,k_v2_offset,d_i1,k_i1_offset) 360 CALL eomccsdt_x3a_6_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i1, 361 &k_i1_offset) 362 CALL eomccsdt_x3a_6_3(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i1, 363 &k_i1_offset) 364 CALL RECONCILEFILE(d_i1,size_i1) 365 CALL eomccsdt_x3a_6(d_x3,k_x3_offset,d_i1,k_i1_offset,d_i0, 366 &k_i0_offset) 367 CALL DELETEFILE(d_i1) 368 IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 369 &MA_ERR) 370 CALL eomccsdt_x3a_7(d_x3,k_x3_offset,d_v2,k_v2_offset,d_i0, 371 &k_i0_offset) 372 CALL OFFSET_eomccsdt_x3a_8_1(l_i1_offset,k_i1_offset,size_i1) 373 CALL TCE_FILENAME('eomccsdt_x3_8_1_i1',filename) 374 CALL CREATEFILE(filename,d_i1,size_i1) 375 CALL OFFSET_eomccsdt_x3a_8_1_1(l_i2_offset,k_i2_offset,size_i2) 376 CALL TCE_FILENAME('eomccsdt_x3_8_1_1_i2',filename) 377 CALL CREATEFILE(filename,d_i2,size_i2) 378 CALL eomccsdt_x3a_8_1_1(d_v2,k_v2_offset,d_i2,k_i2_offset) 379 CALL OFFSET_eomccsdt_x3a_8_1_2_1(l_i3_offset,k_i3_offset,size_i3) 380 CALL TCE_FILENAME('eomccsdt_x3_8_1_2_1_i3',filename) 381 CALL CREATEFILE(filename,d_i3,size_i3) 382 CALL eomccsdt_x3a_8_1_2_1(d_v2,k_v2_offset,d_i3,k_i3_offset) 383 CALL eomccsdt_x3a_8_1_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i3, 384 &k_i3_offset) 385 CALL RECONCILEFILE(d_i3,size_i3) 386 CALL eomccsdt_x3a_8_1_2(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2, 387 &k_i2_offset) 388 CALL DELETEFILE(d_i3) 389 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 390 &MA_ERR) 391 CALL eomccsdt_x3a_8_1_3(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2, 392 &k_i2_offset) 393 CALL eomccsdt_x3a_8_1_4(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i2, 394 &k_i2_offset) 395 CALL RECONCILEFILE(d_i2,size_i2) 396 CALL eomccsdt_x3a_8_1(d_x2,k_x2_offset,d_i2,k_i2_offset,d_i1, 397 &k_i1_offset) 398 CALL DELETEFILE(d_i2) 399 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 400 &MA_ERR) 401 CALL OFFSET_eomccsdt_x3a_8_2_1(l_i2_offset,k_i2_offset,size_i2) 402 CALL TCE_FILENAME('eomccsdt_x3_8_2_1_i2',filename) 403 CALL CREATEFILE(filename,d_i2,size_i2) 404 CALL eomccsdt_x3a_8_2_1(d_f1,k_f1_offset,d_i2,k_i2_offset) 405 CALL eomccsdt_x3a_8_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2, 406 &k_i2_offset) 407 CALL RECONCILEFILE(d_i2,size_i2) 408 CALL eomccsdt_x3a_8_2(d_x3,k_x3_offset,d_i2,k_i2_offset,d_i1, 409 &k_i1_offset) 410 CALL DELETEFILE(d_i2) 411 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 412 &MA_ERR) 413 CALL OFFSET_eomccsdt_x3a_8_3_1(l_i2_offset,k_i2_offset,size_i2) 414 CALL TCE_FILENAME('eomccsdt_x3_8_3_1_i2',filename) 415 CALL CREATEFILE(filename,d_i2,size_i2) 416 CALL eomccsdt_x3a_8_3_1(d_v2,k_v2_offset,d_i2,k_i2_offset) 417 CALL eomccsdt_x3a_8_3_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2, 418 &k_i2_offset) 419 CALL RECONCILEFILE(d_i2,size_i2) 420 CALL eomccsdt_x3a_8_3(d_x3,k_x3_offset,d_i2,k_i2_offset,d_i1, 421 &k_i1_offset) 422 CALL DELETEFILE(d_i2) 423 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 424 &MA_ERR) 425 CALL eomccsdt_x3a_8_4(d_x3,k_x3_offset,d_v2,k_v2_offset,d_i1, 426 &k_i1_offset) 427 CALL OFFSET_eomccsdt_x3a_8_5_1(l_i2_offset,k_i2_offset,size_i2) 428 CALL TCE_FILENAME('eomccsdt_x3_8_5_1_i2',filename) 429 CALL CREATEFILE(filename,d_i2,size_i2) 430 CALL eomccsdt_x3a_8_5_1(d_x3,k_x3_offset,d_v2,k_v2_offset,d_i2, 431 &k_i2_offset) 432 CALL RECONCILEFILE(d_i2,size_i2) 433 CALL eomccsdt_x3a_8_5(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1, 434 &k_i1_offset) 435 CALL DELETEFILE(d_i2) 436 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 437 &MA_ERR) 438 CALL OFFSET_eomccsdt_x3a_8_6_1(l_i2_offset,k_i2_offset,size_i2) 439 CALL TCE_FILENAME('eomccsdt_x3_8_6_1_i2',filename) 440 CALL CREATEFILE(filename,d_i2,size_i2) 441 CALL eomccsdt_x3a_8_6_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2, 442 &k_i2_offset) 443 CALL eomccsdt_x3a_8_6_2(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i2, 444 &k_i2_offset) 445 CALL OFFSET_eomccsdt_x3a_8_6_3_1(l_i3_offset,k_i3_offset,size_i3) 446 CALL TCE_FILENAME('eomccsdt_x3_8_6_3_1_i3',filename) 447 CALL CREATEFILE(filename,d_i3,size_i3) 448 CALL eomccsdt_x3a_8_6_3_1(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i3, 449 &k_i3_offset) 450 CALL RECONCILEFILE(d_i3,size_i3) 451 CALL eomccsdt_x3a_8_6_3(d_x1,k_x1_offset,d_i3,k_i3_offset,d_i2, 452 &k_i2_offset) 453 CALL DELETEFILE(d_i3) 454 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 455 &MA_ERR) 456 CALL OFFSET_eomccsdt_x3a_8_6_4_1(l_i3_offset,k_i3_offset,size_i3) 457 CALL TCE_FILENAME('eomccsdt_x3_8_6_4_1_i3',filename) 458 CALL CREATEFILE(filename,d_i3,size_i3) 459 CALL eomccsdt_x3a_8_6_4_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i3, 460 &k_i3_offset) 461 CALL RECONCILEFILE(d_i3,size_i3) 462 CALL eomccsdt_x3a_8_6_4(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2, 463 &k_i2_offset) 464 CALL DELETEFILE(d_i3) 465 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 466 &MA_ERR) 467 CALL RECONCILEFILE(d_i2,size_i2) 468 CALL eomccsdt_x3a_8_6(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1, 469 &k_i1_offset) 470 CALL DELETEFILE(d_i2) 471 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 472 &MA_ERR) 473 CALL OFFSET_eomccsdt_x3a_8_7_1(l_i2_offset,k_i2_offset,size_i2) 474 CALL TCE_FILENAME('eomccsdt_x3_8_7_1_i2',filename) 475 CALL CREATEFILE(filename,d_i2,size_i2) 476 CALL eomccsdt_x3a_8_7_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2, 477 &k_i2_offset) 478 CALL RECONCILEFILE(d_i2,size_i2) 479 CALL eomccsdt_x3a_8_7(d_t3,k_t3_offset,d_i2,k_i2_offset,d_i1, 480 &k_i1_offset) 481 CALL DELETEFILE(d_i2) 482 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 483 &MA_ERR) 484 CALL OFFSET_eomccsdt_x3a_8_8_1(l_i2_offset,k_i2_offset,size_i2) 485 CALL TCE_FILENAME('eomccsdt_x3_8_8_1_i2',filename) 486 CALL CREATEFILE(filename,d_i2,size_i2) 487 CALL eomccsdt_x3a_8_8_1(d_t3,k_t3_offset,d_v2,k_v2_offset,d_i2, 488 &k_i2_offset) 489 CALL RECONCILEFILE(d_i2,size_i2) 490 CALL eomccsdt_x3a_8_8(d_x1,k_x1_offset,d_i2,k_i2_offset,d_i1, 491 &k_i1_offset) 492 CALL DELETEFILE(d_i2) 493 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 494 &MA_ERR) 495 CALL OFFSET_eomccsdt_x3a_8_9_1(l_i2_offset,k_i2_offset,size_i2) 496 CALL TCE_FILENAME('eomccsdt_x3_8_9_1_i2',filename) 497 CALL CREATEFILE(filename,d_i2,size_i2) 498 CALL eomccsdt_x3a_8_9_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2, 499 &k_i2_offset) 500 CALL RECONCILEFILE(d_i2,size_i2) 501 CALL eomccsdt_x3a_8_9(d_t3,k_t3_offset,d_i2,k_i2_offset,d_i1, 502 &k_i1_offset) 503 CALL DELETEFILE(d_i2) 504 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 505 &MA_ERR) 506 CALL RECONCILEFILE(d_i1,size_i1) 507 CALL eomccsdt_x3a_8(d_t1,k_t1_offset,d_i1,k_i1_offset,d_i0, 508 &k_i0_offset) 509 CALL DELETEFILE(d_i1) 510 IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 511 &MA_ERR) 512 CALL OFFSET_eomccsdt_x3a_9_1(l_i1_offset,k_i1_offset,size_i1) 513 CALL TCE_FILENAME('eomccsdt_x3_9_1_i1',filename) 514 CALL CREATEFILE(filename,d_i1,size_i1) 515 CALL OFFSET_eomccsdt_x3a_9_1_1(l_i2_offset,k_i2_offset,size_i2) 516 CALL TCE_FILENAME('eomccsdt_x3_9_1_1_i2',filename) 517 CALL CREATEFILE(filename,d_i2,size_i2) 518 CALL eomccsdt_x3a_9_1_1(d_v2,k_v2_offset,d_i2,k_i2_offset) 519 CALL OFFSET_eomccsdt_x3a_9_1_2_1(l_i3_offset,k_i3_offset,size_i3) 520 CALL TCE_FILENAME('eomccsdt_x3_9_1_2_1_i3',filename) 521 CALL CREATEFILE(filename,d_i3,size_i3) 522 CALL eomccsdt_x3a_9_1_2_1(d_v2,k_v2_offset,d_i3,k_i3_offset) 523 CALL eomccsdt_x3a_9_1_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i3, 524 &k_i3_offset) 525 CALL RECONCILEFILE(d_i3,size_i3) 526 CALL eomccsdt_x3a_9_1_2(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2, 527 &k_i2_offset) 528 CALL DELETEFILE(d_i3) 529 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 530 &MA_ERR) 531 CALL eomccsdt_x3a_9_1_3(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i2, 532 &k_i2_offset) 533 CALL RECONCILEFILE(d_i2,size_i2) 534 CALL eomccsdt_x3a_9_1(d_x1,k_x1_offset,d_i2,k_i2_offset,d_i1, 535 &k_i1_offset) 536 CALL DELETEFILE(d_i2) 537 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 538 &MA_ERR) 539 CALL eomccsdt_x3a_9_2(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i1, 540 &k_i1_offset) 541 CALL OFFSET_eomccsdt_x3a_9_3_1(l_i2_offset,k_i2_offset,size_i2) 542 CALL TCE_FILENAME('eomccsdt_x3_9_3_1_i2',filename) 543 CALL CREATEFILE(filename,d_i2,size_i2) 544 CALL eomccsdt_x3a_9_3_1(d_f1,k_f1_offset,d_i2,k_i2_offset) 545 CALL eomccsdt_x3a_9_3_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2, 546 &k_i2_offset) 547 CALL RECONCILEFILE(d_i2,size_i2) 548 CALL eomccsdt_x3a_9_3(d_x2,k_x2_offset,d_i2,k_i2_offset,d_i1, 549 &k_i1_offset) 550 CALL DELETEFILE(d_i2) 551 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 552 &MA_ERR) 553 CALL OFFSET_eomccsdt_x3a_9_4_1(l_i2_offset,k_i2_offset,size_i2) 554 CALL TCE_FILENAME('eomccsdt_x3_9_4_1_i2',filename) 555 CALL CREATEFILE(filename,d_i2,size_i2) 556 CALL eomccsdt_x3a_9_4_1(d_v2,k_v2_offset,d_i2,k_i2_offset) 557 CALL eomccsdt_x3a_9_4_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2, 558 &k_i2_offset) 559 CALL RECONCILEFILE(d_i2,size_i2) 560 CALL eomccsdt_x3a_9_4(d_x2,k_x2_offset,d_i2,k_i2_offset,d_i1, 561 &k_i1_offset) 562 CALL DELETEFILE(d_i2) 563 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 564 &MA_ERR) 565 CALL eomccsdt_x3a_9_5(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i1, 566 &k_i1_offset) 567 CALL eomccsdt_x3a_9_6(d_x3,k_x3_offset,d_v2,k_v2_offset,d_i1, 568 &k_i1_offset) 569 CALL OFFSET_eomccsdt_x3a_9_7_1(l_i2_offset,k_i2_offset,size_i2) 570 CALL TCE_FILENAME('eomccsdt_x3_9_7_1_i2',filename) 571 CALL CREATEFILE(filename,d_i2,size_i2) 572 CALL eomccsdt_x3a_9_7_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2, 573 &k_i2_offset) 574 CALL eomccsdt_x3a_9_7_2(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i2, 575 &k_i2_offset) 576 CALL OFFSET_eomccsdt_x3a_9_7_3_1(l_i3_offset,k_i3_offset,size_i3) 577 CALL TCE_FILENAME('eomccsdt_x3_9_7_3_1_i3',filename) 578 CALL CREATEFILE(filename,d_i3,size_i3) 579 CALL eomccsdt_x3a_9_7_3_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i3, 580 &k_i3_offset) 581 CALL RECONCILEFILE(d_i3,size_i3) 582 CALL eomccsdt_x3a_9_7_3(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2, 583 &k_i2_offset) 584 CALL DELETEFILE(d_i3) 585 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 586 &MA_ERR) 587 CALL RECONCILEFILE(d_i2,size_i2) 588 CALL eomccsdt_x3a_9_7(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1, 589 &k_i1_offset) 590 CALL DELETEFILE(d_i2) 591 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 592 &MA_ERR) 593 CALL OFFSET_eomccsdt_x3a_9_8_1(l_i2_offset,k_i2_offset,size_i2) 594 CALL TCE_FILENAME('eomccsdt_x3_9_8_1_i2',filename) 595 CALL CREATEFILE(filename,d_i2,size_i2) 596 CALL eomccsdt_x3a_9_8_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2, 597 &k_i2_offset) 598 CALL RECONCILEFILE(d_i2,size_i2) 599 CALL eomccsdt_x3a_9_8(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1, 600 &k_i1_offset) 601 CALL DELETEFILE(d_i2) 602 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 603 &MA_ERR) 604 CALL OFFSET_eomccsdt_x3a_9_9_1(l_i2_offset,k_i2_offset,size_i2) 605 CALL TCE_FILENAME('eomccsdt_x3_9_9_1_i2',filename) 606 CALL CREATEFILE(filename,d_i2,size_i2) 607 CALL eomccsdt_x3a_9_9_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2, 608 &k_i2_offset) 609 CALL RECONCILEFILE(d_i2,size_i2) 610 CALL eomccsdt_x3a_9_9(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1, 611 &k_i1_offset) 612 CALL DELETEFILE(d_i2) 613 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 614 &MA_ERR) 615 CALL OFFSET_eomccsdt_x3a_9_10_1(l_i2_offset,k_i2_offset,size_i2) 616 CALL TCE_FILENAME('eomccsdt_x3_9_10_1_i2',filename) 617 CALL CREATEFILE(filename,d_i2,size_i2) 618 CALL eomccsdt_x3a_9_10_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2, 619 &k_i2_offset) 620 CALL RECONCILEFILE(d_i2,size_i2) 621 CALL eomccsdt_x3a_9_10(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1, 622 &k_i1_offset) 623 CALL DELETEFILE(d_i2) 624 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 625 &MA_ERR) 626 CALL RECONCILEFILE(d_i1,size_i1) 627 CALL eomccsdt_x3a_9(d_t2,k_t2_offset,d_i1,k_i1_offset,d_i0, 628 &k_i0_offset) 629 CALL DELETEFILE(d_i1) 630 IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 631 &MA_ERR) 632 CALL OFFSET_eomccsdt_x3a_10_1(l_i1_offset,k_i1_offset,size_i1) 633 CALL TCE_FILENAME('eomccsdt_x3_10_1_i1',filename) 634 CALL CREATEFILE(filename,d_i1,size_i1) 635 CALL OFFSET_eomccsdt_x3a_10_1_1(l_i2_offset,k_i2_offset,size_i2) 636 CALL TCE_FILENAME('eomccsdt_x3_10_1_1_i2',filename) 637 CALL CREATEFILE(filename,d_i2,size_i2) 638 CALL eomccsdt_x3a_10_1_1(d_v2,k_v2_offset,d_i2,k_i2_offset) 639 CALL eomccsdt_x3a_10_1_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2, 640 &k_i2_offset) 641 CALL eomccsdt_x3a_10_1_3(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2, 642 &k_i2_offset) 643 CALL eomccsdt_x3a_10_1_4(d_t2,k_t2_offset,d_v2,k_v2_offset,d_i2, 644 &k_i2_offset) 645 CALL RECONCILEFILE(d_i2,size_i2) 646 CALL eomccsdt_x3a_10_1(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1, 647 &k_i1_offset) 648 CALL DELETEFILE(d_i2) 649 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 650 &MA_ERR) 651 CALL OFFSET_eomccsdt_x3a_10_2_1(l_i2_offset,k_i2_offset,size_i2) 652 CALL TCE_FILENAME('eomccsdt_x3_10_2_1_i2',filename) 653 CALL CREATEFILE(filename,d_i2,size_i2) 654 CALL eomccsdt_x3a_10_2_1(d_f1,k_f1_offset,d_i2,k_i2_offset) 655 CALL eomccsdt_x3a_10_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2, 656 &k_i2_offset) 657 CALL RECONCILEFILE(d_i2,size_i2) 658 CALL eomccsdt_x3a_10_2(d_t3,k_t3_offset,d_i2,k_i2_offset,d_i1, 659 &k_i1_offset) 660 CALL DELETEFILE(d_i2) 661 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 662 &MA_ERR) 663 CALL OFFSET_eomccsdt_x3a_10_3_1(l_i2_offset,k_i2_offset,size_i2) 664 CALL TCE_FILENAME('eomccsdt_x3_10_3_1_i2',filename) 665 CALL CREATEFILE(filename,d_i2,size_i2) 666 CALL eomccsdt_x3a_10_3_1(d_v2,k_v2_offset,d_i2,k_i2_offset) 667 CALL eomccsdt_x3a_10_3_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2, 668 &k_i2_offset) 669 CALL RECONCILEFILE(d_i2,size_i2) 670 CALL eomccsdt_x3a_10_3(d_t3,k_t3_offset,d_i2,k_i2_offset,d_i1, 671 &k_i1_offset) 672 CALL DELETEFILE(d_i2) 673 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 674 &MA_ERR) 675 CALL eomccsdt_x3a_10_4(d_t3,k_t3_offset,d_v2,k_v2_offset,d_i1, 676 &k_i1_offset) 677 CALL RECONCILEFILE(d_i1,size_i1) 678 CALL eomccsdt_x3a_10(d_x1,k_x1_offset,d_i1,k_i1_offset,d_i0, 679 &k_i0_offset) 680 CALL DELETEFILE(d_i1) 681 IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 682 &MA_ERR) 683 CALL OFFSET_eomccsdt_x3a_11_1(l_i1_offset,k_i1_offset,size_i1) 684 CALL TCE_FILENAME('eomccsdt_x3_11_1_i1',filename) 685 CALL CREATEFILE(filename,d_i1,size_i1) 686 CALL eomccsdt_x3a_11_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i1, 687 &k_i1_offset) 688 CALL OFFSET_eomccsdt_x3a_11_2_1(l_i2_offset,k_i2_offset,size_i2) 689 CALL TCE_FILENAME('eomccsdt_x3_11_2_1_i2',filename) 690 CALL CREATEFILE(filename,d_i2,size_i2) 691 CALL eomccsdt_x3a_11_2_1(d_v2,k_v2_offset,d_i2,k_i2_offset) 692 CALL eomccsdt_x3a_11_2_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2, 693 &k_i2_offset) 694 CALL RECONCILEFILE(d_i2,size_i2) 695 CALL eomccsdt_x3a_11_2(d_x2,k_x2_offset,d_i2,k_i2_offset,d_i1, 696 &k_i1_offset) 697 CALL DELETEFILE(d_i2) 698 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 699 &MA_ERR) 700 CALL eomccsdt_x3a_11_3(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i1, 701 &k_i1_offset) 702 CALL eomccsdt_x3a_11_4(d_x3,k_x3_offset,d_v2,k_v2_offset,d_i1, 703 &k_i1_offset) 704 CALL OFFSET_eomccsdt_x3a_11_5_1(l_i2_offset,k_i2_offset,size_i2) 705 CALL TCE_FILENAME('eomccsdt_x3_11_5_1_i2',filename) 706 CALL CREATEFILE(filename,d_i2,size_i2) 707 CALL eomccsdt_x3a_11_5_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2, 708 &k_i2_offset) 709 CALL RECONCILEFILE(d_i2,size_i2) 710 CALL eomccsdt_x3a_11_5(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1, 711 &k_i1_offset) 712 CALL DELETEFILE(d_i2) 713 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 714 &MA_ERR) 715 CALL RECONCILEFILE(d_i1,size_i1) 716 CALL eomccsdt_x3a_11(d_t2,k_t2_offset,d_i1,k_i1_offset,d_i0, 717 &k_i0_offset) 718 CALL DELETEFILE(d_i1) 719 IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 720 &MA_ERR) 721 CALL OFFSET_eomccsdt_x3a_12_1(l_i1_offset,k_i1_offset,size_i1) 722 CALL TCE_FILENAME('eomccsdt_x3_12_1_i1',filename) 723 CALL CREATEFILE(filename,d_i1,size_i1) 724 CALL eomccsdt_x3a_12_1(d_x3,k_x3_offset,d_v2,k_v2_offset,d_i1, 725 &k_i1_offset) 726 CALL RECONCILEFILE(d_i1,size_i1) 727 CALL eomccsdt_x3a_12(d_t2,k_t2_offset,d_i1,k_i1_offset,d_i0, 728 &k_i0_offset) 729 CALL DELETEFILE(d_i1) 730 IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 731 &MA_ERR) 732 CALL OFFSET_eomccsdt_x3a_13_1(l_i1_offset,k_i1_offset,size_i1) 733 CALL TCE_FILENAME('eomccsdt_x3_13_1_i1',filename) 734 CALL CREATEFILE(filename,d_i1,size_i1) 735 CALL OFFSET_eomccsdt_x3a_13_1_1(l_i2_offset,k_i2_offset,size_i2) 736 CALL TCE_FILENAME('eomccsdt_x3_13_1_1_i2',filename) 737 CALL CREATEFILE(filename,d_i2,size_i2) 738 CALL eomccsdt_x3a_13_1_1(d_f1,k_f1_offset,d_i2,k_i2_offset) 739 CALL eomccsdt_x3a_13_1_2(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i2, 740 &k_i2_offset) 741 CALL RECONCILEFILE(d_i2,size_i2) 742 CALL eomccsdt_x3a_13_1(d_x1,k_x1_offset,d_i2,k_i2_offset,d_i1, 743 &k_i1_offset) 744 CALL DELETEFILE(d_i2) 745 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 746 &MA_ERR) 747 CALL eomccsdt_x3a_13_2(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i1, 748 &k_i1_offset) 749 CALL eomccsdt_x3a_13_3(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i1, 750 &k_i1_offset) 751 CALL OFFSET_eomccsdt_x3a_13_4_1(l_i2_offset,k_i2_offset,size_i2) 752 CALL TCE_FILENAME('eomccsdt_x3_13_4_1_i2',filename) 753 CALL CREATEFILE(filename,d_i2,size_i2) 754 CALL eomccsdt_x3a_13_4_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2, 755 &k_i2_offset) 756 CALL RECONCILEFILE(d_i2,size_i2) 757 CALL eomccsdt_x3a_13_4(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1, 758 &k_i1_offset) 759 CALL DELETEFILE(d_i2) 760 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 761 &MA_ERR) 762 CALL RECONCILEFILE(d_i1,size_i1) 763 CALL eomccsdt_x3a_13(d_t3,k_t3_offset,d_i1,k_i1_offset,d_i0, 764 &k_i0_offset) 765 CALL DELETEFILE(d_i1) 766 IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 767 &MA_ERR) 768 CALL OFFSET_eomccsdt_x3a_14_1(l_i1_offset,k_i1_offset,size_i1) 769 CALL TCE_FILENAME('eomccsdt_x3_14_1_i1',filename) 770 CALL CREATEFILE(filename,d_i1,size_i1) 771 CALL eomccsdt_x3a_14_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i1, 772 &k_i1_offset) 773 CALL eomccsdt_x3a_14_2(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i1, 774 &k_i1_offset) 775 CALL OFFSET_eomccsdt_x3a_14_3_1(l_i2_offset,k_i2_offset,size_i2) 776 CALL TCE_FILENAME('eomccsdt_x3_14_3_1_i2',filename) 777 CALL CREATEFILE(filename,d_i2,size_i2) 778 CALL eomccsdt_x3a_14_3_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i2, 779 &k_i2_offset) 780 CALL RECONCILEFILE(d_i2,size_i2) 781 CALL eomccsdt_x3a_14_3(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1, 782 &k_i1_offset) 783 CALL DELETEFILE(d_i2) 784 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 785 &MA_ERR) 786 CALL RECONCILEFILE(d_i1,size_i1) 787 CALL eomccsdt_x3a_14(d_t3,k_t3_offset,d_i1,k_i1_offset,d_i0, 788 &k_i0_offset) 789 CALL DELETEFILE(d_i1) 790 IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 791 &MA_ERR) 792 CALL OFFSET_eomccsdt_x3a_15_1(l_i1_offset,k_i1_offset,size_i1) 793 CALL TCE_FILENAME('eomccsdt_x3_15_1_i1',filename) 794 CALL CREATEFILE(filename,d_i1,size_i1) 795 CALL eomccsdt_x3a_15_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i1, 796 &k_i1_offset) 797 CALL eomccsdt_x3a_15_2(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i1, 798 &k_i1_offset) 799 CALL RECONCILEFILE(d_i1,size_i1) 800 CALL eomccsdt_x3a_15(d_t3,k_t3_offset,d_i1,k_i1_offset,d_i0, 801 &k_i0_offset) 802 CALL DELETEFILE(d_i1) 803 IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 804 &MA_ERR) 805 CALL OFFSET_eomccsdt_x3a_16_1(l_i1_offset,k_i1_offset,size_i1) 806 CALL TCE_FILENAME('eomccsdt_x3_16_1_i1',filename) 807 CALL CREATEFILE(filename,d_i1,size_i1) 808 CALL eomccsdt_x3a_16_1(d_x1,k_x1_offset,d_v2,k_v2_offset,d_i1, 809 &k_i1_offset) 810 CALL eomccsdt_x3a_16_2(d_x2,k_x2_offset,d_v2,k_v2_offset,d_i1, 811 &k_i1_offset) 812 CALL RECONCILEFILE(d_i1,size_i1) 813 CALL eomccsdt_x3a_16(d_t3,k_t3_offset,d_i1,k_i1_offset,d_i0, 814 &k_i0_offset) 815 CALL DELETEFILE(d_i1) 816 IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 817 &MA_ERR) 818 CALL OFFSET_eomccsdt_x3a_17_1(l_i1_offset,k_i1_offset,size_i1) 819 CALL TCE_FILENAME('eomccsdt_x3_17_1_i1',filename) 820 CALL CREATEFILE(filename,d_i1,size_i1) 821 CALL eomccsdt_x3a_17_1(d_t3,k_t3_offset,d_v2,k_v2_offset,d_i1, 822 &k_i1_offset) 823 CALL RECONCILEFILE(d_i1,size_i1) 824 CALL eomccsdt_x3a_17(d_x2,k_x2_offset,d_i1,k_i1_offset,d_i0, 825 &k_i0_offset) 826 CALL DELETEFILE(d_i1) 827 IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('eomccsdt_x3',-1, 828 &MA_ERR) 829 RETURN 830 END 831