1 SUBROUTINE ccsdt_lr_beta_4(d_i0,d_t1,d_t2,d_tra1,d_tra2,d_tra3,d_t 2 &rb1,d_trb2,d_trb3,d_trc1,d_trc2,d_trc3,d_v2,d_y1,d_y2,d_y3,k_i0_of 3 &fset,k_t1_offset,k_t2_offset,k_tra1_offset,k_tra2_offset,k_tra3_of 4 &fset,k_trb1_offset,k_trb2_offset,k_trb3_offset,k_trc1_offset,k_trc 5 &2_offset,k_trc3_offset,k_v2_offset,k_y1_offset,k_y2_offset,k_y3_of 6 &fset) 7C $Id$ 8C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 9C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) 10C i0 ( )_vtrctratrby + = -1 * Sum ( p3 h2 ) * y ( h2 p3 )_y * i1 ( p3 h2 )_vtrctratrb 11C i1 ( p3 h2 )_vtrctratrb + = 1 * Sum ( h4 ) * trb ( p3 h4 )_trb * i2 ( h4 h2 )_vtrctra 12C i2 ( h4 h2 )_vtrctra + = 1 * Sum ( p1 ) * tra ( p1 h2 )_tra * i3 ( h4 p1 )_vtrc 13C i3 ( h4 p1 )_vtrc + = 1 * Sum ( h6 p5 ) * trc ( p5 h6 )_trc * v ( h4 h6 p1 p5 )_v 14C i2 ( h4 h2 )_vtratrc + = 1 * Sum ( p1 ) * trc ( p1 h2 )_trc * i3 ( h4 p1 )_vtra 15C i3 ( h4 p1 )_vtra + = 1 * Sum ( h6 p5 ) * tra ( p5 h6 )_tra * v ( h4 h6 p1 p5 )_v 16C i1 ( p3 h2 )_vtrbtrctra + = 1 * Sum ( h4 ) * tra ( p3 h4 )_tra * i2 ( h4 h2 )_vtrbtrc 17C i2 ( h4 h2 )_vtrbtrc + = 1 * Sum ( p1 ) * trc ( p1 h2 )_trc * i3 ( h4 p1 )_vtrb 18C i3 ( h4 p1 )_vtrb + = 1 * Sum ( h6 p5 ) * trb ( p5 h6 )_trb * v ( h4 h6 p1 p5 )_v 19C i2 ( h4 h2 )_vtrctrb + = 1 * Sum ( p1 ) * trb ( p1 h2 )_trb * i3 ( h4 p1 )_vtrc 20C i1 ( p3 h2 )_vtratrbtrc + = 1 * Sum ( h4 ) * trc ( p3 h4 )_trc * i2 ( h4 h2 )_vtratrb 21C i2 ( h4 h2 )_vtratrb + = 1 * Sum ( p1 ) * trb ( p1 h2 )_trb * i3 ( h4 p1 )_vtra 22C i2 ( h4 h2 )_vtrbtra + = 1 * Sum ( p1 ) * tra ( p1 h2 )_tra * i3 ( h4 p1 )_vtrb 23C i0 ( )_ytrctrbtrav + = 1/2 * Sum ( h4 p11 h12 h10 ) * i1 ( h4 p11 h10 h12 )_ytrctrbtra * v ( h10 h12 h4 p11 )_v 24C i1 ( h4 p11 h10 h12 )_ytrctrbtra + = 1 * Sum ( h2 ) * tra ( p11 h2 )_tra * i2 ( h2 h4 h10 h12 )_ytrctrb 25C i2 ( h2 h4 h10 h12 )_ytrctrb + = 1 * Sum ( p3 ) * trb ( p3 h12 )_trb * i3 ( h2 h4 h10 p3 )_ytrc 26C i3 ( h2 h4 h10 p3 )_ytrc + = 1 * Sum ( p5 ) * trc ( p5 h10 )_trc * y ( h2 h4 p3 p5 )_y 27C i3 ( h2 h4 h10 p3 )_ytrc + = -1 * Sum ( h7 p5 p6 ) * trc ( p5 p6 h7 h10 )_trc * y ( h2 h4 h7 p3 p5 p6 )_y 28C i2 ( h2 h4 h10 h12 )_ytrbtrc + = 1 * Sum ( p3 ) * trc ( p3 h12 )_trc * i3 ( h2 h4 h10 p3 )_ytrb 29C i3 ( h2 h4 h10 p3 )_ytrb + = 1 * Sum ( p5 ) * trb ( p5 h10 )_trb * y ( h2 h4 p3 p5 )_y 30C i3 ( h2 h4 h10 p3 )_ytrb + = -1 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h10 )_trb * y ( h2 h4 h7 p3 p5 p6 )_y 31C i1 ( h4 p11 h10 h12 )_ytrbtrctra + = -1/2 * Sum ( p1 ) * tra ( p1 h12 )_tra * i2 ( h4 p11 h10 p1 )_ytrbtrc 32C i2 ( h4 p11 h10 p1 )_ytrbtrc + = 1 * Sum ( h7 h8 p5 ) * trc ( p5 p11 h7 h8 )_trc * i3 ( h4 h7 h8 h10 p1 p5 )_ytrb 33C i3 ( h4 h7 h8 h10 p1 p5 )_ytrb + = -1 * Sum ( p3 ) * trb ( p3 h10 )_trb * y ( h4 h7 h8 p1 p3 p5 )_y 34C i2 ( h4 p11 h10 p1 )_ytrctrb + = 1 * Sum ( h7 h8 p5 ) * trb ( p5 p11 h7 h8 )_trb * i3 ( h4 h7 h8 h10 p1 p5 )_ytrc 35C i3 ( h4 h7 h8 h10 p1 p5 )_ytrc + = -1 * Sum ( p3 ) * trc ( p3 h10 )_trc * y ( h4 h7 h8 p1 p3 p5 )_y 36C i1 ( h4 p11 h10 h12 )_ytrbtratrc + = 1 * Sum ( h2 ) * trc ( p11 h2 )_trc * i2 ( h2 h4 h10 h12 )_ytrbtra 37C i2 ( h2 h4 h10 h12 )_ytrbtra + = 1 * Sum ( p3 ) * tra ( p3 h12 )_tra * i3 ( h2 h4 h10 p3 )_ytrb 38C i2 ( h2 h4 h10 h12 )_ytratrb + = 1 * Sum ( p3 ) * trb ( p3 h12 )_trb * i3 ( h2 h4 h10 p3 )_ytra 39C i3 ( h2 h4 h10 p3 )_ytra + = 1 * Sum ( p5 ) * tra ( p5 h10 )_tra * y ( h2 h4 p3 p5 )_y 40C i3 ( h2 h4 h10 p3 )_ytra + = -1 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h10 )_tra * y ( h2 h4 h7 p3 p5 p6 )_y 41C i1 ( h4 p11 h10 h12 )_ytratrbtrc + = -1/2 * Sum ( p1 ) * trc ( p1 h12 )_trc * i2 ( h4 p11 h10 p1 )_ytratrb 42C i2 ( h4 p11 h10 p1 )_ytratrb + = 1 * Sum ( h7 h8 p5 ) * trb ( p5 p11 h7 h8 )_trb * i3 ( h4 h7 h8 h10 p1 p5 )_ytra 43C i3 ( h4 h7 h8 h10 p1 p5 )_ytra + = -1 * Sum ( p3 ) * tra ( p3 h10 )_tra * y ( h4 h7 h8 p1 p3 p5 )_y 44C i2 ( h4 p11 h10 p1 )_ytrbtra + = 1 * Sum ( h7 h8 p5 ) * tra ( p5 p11 h7 h8 )_tra * i3 ( h4 h7 h8 h10 p1 p5 )_ytrb 45C i1 ( h4 p11 h10 h12 )_ytratrctrb + = 1 * Sum ( h2 ) * trb ( p11 h2 )_trb * i2 ( h2 h4 h10 h12 )_ytratrc 46C i2 ( h2 h4 h10 h12 )_ytratrc + = 1 * Sum ( p3 ) * trc ( p3 h12 )_trc * i3 ( h2 h4 h10 p3 )_ytra 47C i2 ( h2 h4 h10 h12 )_ytrctra + = 1 * Sum ( p3 ) * tra ( p3 h12 )_tra * i3 ( h2 h4 h10 p3 )_ytrc 48C i1 ( h4 p11 h10 h12 )_ytrctratrb + = -1/2 * Sum ( p1 ) * trb ( p1 h12 )_trb * i2 ( h4 p11 h10 p1 )_ytrctra 49C i2 ( h4 p11 h10 p1 )_ytrctra + = 1 * Sum ( h7 h8 p5 ) * tra ( p5 p11 h7 h8 )_tra * i3 ( h4 h7 h8 h10 p1 p5 )_ytrc 50C i2 ( h4 p11 h10 p1 )_ytratrc + = 1 * Sum ( h7 h8 p5 ) * trc ( p5 p11 h7 h8 )_trc * i3 ( h4 h7 h8 h10 p1 p5 )_ytra 51C i0 ( )_vtrbtratrcy + = 1/2 * Sum ( p11 p12 h9 h10 ) * y ( h9 h10 p11 p12 )_y * i1 ( p11 p12 h9 h10 )_vtrbtratrc 52C i1 ( p11 p12 h9 h10 )_vtrbtratrc + = 1 * Sum ( h2 ) * trc ( p11 h2 )_trc * i2 ( h2 p12 h9 h10 )_vtrbtra 53C i2 ( h2 p12 h9 h10 )_vtrbtra + = 1 * Sum ( p1 ) * tra ( p1 h9 )_tra * i3 ( h2 p12 h10 p1 )_vtrb 54C i3 ( h2 p12 h10 p1 )_vtrb + = -1 * Sum ( p3 ) * trb ( p3 h10 )_trb * v ( h2 p12 p1 p3 )_v 55C i2 ( h2 p12 h9 h10 )_vtrbtra + = -1/4 * Sum ( h4 ) * tra ( p12 h4 )_tra * i3 ( h2 h4 h9 h10 )_vtrb 56C i3 ( h2 h4 h9 h10 )_vtrb + = -1 * Sum ( p5 p6 ) * trb ( p5 p6 h9 h10 )_trb * v ( h2 h4 p5 p6 )_v 57C i2 ( h2 p12 h9 h10 )_vtratrb + = 1 * Sum ( p6 ) * trb ( p6 p12 h9 h10 )_trb * i3 ( h2 p6 )_vtra 58C i3 ( h2 p6 )_vtra + = 1 * Sum ( h4 p3 ) * tra ( p3 h4 )_tra * v ( h2 h4 p3 p6 )_v 59C i2 ( h2 p12 h9 h10 )_vtratrb + = 1 * Sum ( p1 ) * trb ( p1 h9 )_trb * i3 ( h2 p12 h10 p1 )_vtra 60C i3 ( h2 p12 h10 p1 )_vtra + = -1 * Sum ( p3 ) * tra ( p3 h10 )_tra * v ( h2 p12 p1 p3 )_v 61C i2 ( h2 p12 h9 h10 )_vtratrb + = -1/4 * Sum ( h4 ) * trb ( p12 h4 )_trb * i3 ( h2 h4 h9 h10 )_vtra 62C i3 ( h2 h4 h9 h10 )_vtra + = -1 * Sum ( p5 p6 ) * tra ( p5 p6 h9 h10 )_tra * v ( h2 h4 p5 p6 )_v 63C i2 ( h2 p12 h9 h10 )_vtrbtra + = 1 * Sum ( p6 ) * tra ( p6 p12 h9 h10 )_tra * i3 ( h2 p6 )_vtrb 64C i3 ( h2 p6 )_vtrb + = 1 * Sum ( h4 p3 ) * trb ( p3 h4 )_trb * v ( h2 h4 p3 p6 )_v 65C i1 ( p11 p12 h9 h10 )_vtrbtratrc + = 1 * Sum ( h8 ) * trc ( p11 p12 h8 h10 )_trc * i2 ( h8 h9 )_vtrbtra 66C i2 ( h8 h9 )_vtrbtra + = 1 * Sum ( p1 ) * tra ( p1 h9 )_tra * i3 ( h8 p1 )_vtrb 67C i3 ( h8 p1 )_vtrb + = 1 * Sum ( h4 p3 ) * trb ( p3 h4 )_trb * v ( h4 h8 p1 p3 )_v 68C i2 ( h8 h9 )_vtratrb + = 1 * Sum ( p1 ) * trb ( p1 h9 )_trb * i3 ( h8 p1 )_vtra 69C i3 ( h8 p1 )_vtra + = 1 * Sum ( h4 p3 ) * tra ( p3 h4 )_tra * v ( h4 h8 p1 p3 )_v 70C i1 ( p11 p12 h9 h10 )_vtrctrbtra + = -1/4 * Sum ( h2 ) * tra ( p11 h2 )_tra * i2 ( h2 p12 h9 h10 )_vtrctrb 71C i2 ( h2 p12 h9 h10 )_vtrctrb + = 1 * Sum ( h4 ) * trb ( p12 h4 )_trb * i3 ( h2 h4 h9 h10 )_vtrc 72C i3 ( h2 h4 h9 h10 )_vtrc + = -1 * Sum ( p5 p6 ) * trc ( p5 p6 h9 h10 )_trc * v ( h2 h4 p5 p6 )_v 73C i2 ( h2 p12 h9 h10 )_vtrbtrc + = -4 * Sum ( p6 ) * trc ( p6 p12 h9 h10 )_trc * i3 ( h2 p6 )_vtrb 74C i2 ( h2 p12 h9 h10 )_vtrctrb + = -4 * Sum ( p1 ) * trb ( p1 h9 )_trb * i3 ( h2 p12 h10 p1 )_vtrc 75C i3 ( h2 p12 h10 p1 )_vtrc + = -1 * Sum ( p3 ) * trc ( p3 h10 )_trc * v ( h2 p12 p1 p3 )_v 76C i2 ( h2 p12 h9 h10 )_vtrbtrc + = 1 * Sum ( h4 ) * trc ( p12 h4 )_trc * i3 ( h2 h4 h9 h10 )_vtrb 77C i2 ( h2 p12 h9 h10 )_vtrctrb + = -4 * Sum ( p6 ) * trb ( p6 p12 h9 h10 )_trb * i3 ( h2 p6 )_vtrc 78C i3 ( h2 p6 )_vtrc + = 1 * Sum ( h4 p3 ) * trc ( p3 h4 )_trc * v ( h2 h4 p3 p6 )_v 79C i2 ( h2 p12 h9 h10 )_vtrbtrc + = -4 * Sum ( p1 ) * trc ( p1 h9 )_trc * i3 ( h2 p12 h10 p1 )_vtrb 80C i1 ( p11 p12 h9 h10 )_vtratrctrb + = 1 * Sum ( h2 ) * trb ( p11 h2 )_trb * i2 ( h2 p12 h9 h10 )_vtratrc 81C i2 ( h2 p12 h9 h10 )_vtratrc + = 1 * Sum ( p1 ) * trc ( p1 h9 )_trc * i3 ( h2 p12 h10 p1 )_vtra 82C i2 ( h2 p12 h9 h10 )_vtratrc + = -1/4 * Sum ( h4 ) * trc ( p12 h4 )_trc * i3 ( h2 h4 h9 h10 )_vtra 83C i2 ( h2 p12 h9 h10 )_vtrctra + = 1 * Sum ( p6 ) * tra ( p6 p12 h9 h10 )_tra * i3 ( h2 p6 )_vtrc 84C i2 ( h2 p12 h9 h10 )_vtrctra + = 1 * Sum ( p1 ) * tra ( p1 h9 )_tra * i3 ( h2 p12 h10 p1 )_vtrc 85C i2 ( h2 p12 h9 h10 )_vtrctra + = -1/4 * Sum ( h4 ) * tra ( p12 h4 )_tra * i3 ( h2 h4 h9 h10 )_vtrc 86C i2 ( h2 p12 h9 h10 )_vtratrc + = 1 * Sum ( p6 ) * trc ( p6 p12 h9 h10 )_trc * i3 ( h2 p6 )_vtra 87C i1 ( p11 p12 h9 h10 )_vtratrctrb + = 1 * Sum ( h8 ) * trb ( p11 p12 h8 h10 )_trb * i2 ( h8 h9 )_vtratrc 88C i2 ( h8 h9 )_vtratrc + = 1 * Sum ( p1 ) * trc ( p1 h9 )_trc * i3 ( h8 p1 )_vtra 89C i2 ( h8 h9 )_vtrctra + = 1 * Sum ( p1 ) * tra ( p1 h9 )_tra * i3 ( h8 p1 )_vtrc 90C i3 ( h8 p1 )_vtrc + = 1 * Sum ( h4 p3 ) * trc ( p3 h4 )_trc * v ( h4 h8 p1 p3 )_v 91C i1 ( p11 p12 h9 h10 )_vtrctrbtra + = 1 * Sum ( h8 ) * tra ( p11 p12 h8 h10 )_tra * i2 ( h8 h9 )_vtrctrb 92C i2 ( h8 h9 )_vtrctrb + = 1 * Sum ( p1 ) * trb ( p1 h9 )_trb * i3 ( h8 p1 )_vtrc 93C i2 ( h8 h9 )_vtrbtrc + = 1 * Sum ( p1 ) * trc ( p1 h9 )_trc * i3 ( h8 p1 )_vtrb 94C i0 ( )_ytrctrbtrav + = -1/8 * Sum ( p13 p14 h12 h15 ) * i1 ( p13 p14 h12 h15 )_ytrctrbtra * v ( h12 h15 p13 p14 )_v 95C i1 ( p13 p14 h12 h15 )_ytrctrbtra + = 1 * Sum ( h2 ) * tra ( p13 h2 )_tra * i2 ( h2 p14 h12 h15 )_ytrctrb 96C i2 ( h2 p14 h12 h15 )_ytrctrb + = 1 * Sum ( h4 ) * trb ( p14 h4 )_trb * i3 ( h2 h4 h12 h15 )_ytrc 97C i3 ( h2 h4 h12 h15 )_ytrc + = -1 * Sum ( p5 p6 ) * trc ( p5 p6 h12 h15 )_trc * y ( h2 h4 p5 p6 )_y 98C i3 ( h2 h4 h12 h15 )_ytrc + = -1/3 * Sum ( h8 p5 p6 p7 ) * trc ( p5 p6 p7 h8 h12 h15 )_trc * i4 ( h2 h4 h8 p5 p6 p7 )_y 99C i4 ( h2 h4 h8 p5 p6 p7 )_y + = 1 * y ( h2 h4 h8 p5 p6 p7 )_y 100C i3 ( h2 h4 h12 h15 )_yttrc + = -2 * Sum ( p5 ) * trc ( p5 h12 )_trc * i4 ( h2 h4 h15 p5 )_yt 101C i4 ( h2 h4 h15 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h15 )_t * y ( h2 h4 p5 p7 )_y 102C i4 ( h2 h4 h15 p5 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h9 h15 )_t * y ( h2 h4 h9 p5 p7 p8 )_y 103C i3 ( h2 h4 h12 h15 )_ytrct + = -2 * Sum ( p5 ) * t ( p5 h12 )_t * i4 ( h2 h4 h15 p5 )_ytrc 104C i4 ( h2 h4 h15 p5 )_ytrc + = 1 * Sum ( p7 ) * trc ( p7 h15 )_trc * y ( h2 h4 p5 p7 )_y 105C i4 ( h2 h4 h15 p5 )_ytrc + = -1 * Sum ( h9 p7 p8 ) * trc ( p7 p8 h9 h15 )_trc * y ( h2 h4 h9 p5 p7 p8 )_y 106C i2 ( h2 p14 h12 h15 )_ytrbtrc + = 8 * Sum ( h7 p5 ) * trc ( p5 p14 h7 h15 )_trc * i3 ( h2 h7 h12 p5 )_ytrb 107C i3 ( h2 h7 h12 p5 )_ytrb + = 1 * Sum ( p3 ) * trb ( p3 h12 )_trb * y ( h2 h7 p3 p5 )_y 108C i2 ( h2 p14 h12 h15 )_ytrbtrc + = 2 * Sum ( h8 h9 p5 p6 ) * trc ( p5 p6 p14 h8 h9 h15 )_trc * i3 ( h2 h8 h9 h12 p5 p6 )_ytrb 109C i3 ( h2 h8 h9 h12 p5 p6 )_ytrb + = 1 * Sum ( p3 ) * trb ( p3 h12 )_trb * y ( h2 h8 h9 p3 p5 p6 )_y 110C i2 ( h2 p14 h12 h15 )_ytrbtrc + = 1 * Sum ( h4 ) * trc ( p14 h4 )_trc * i3 ( h2 h4 h12 h15 )_ytrb 111C i3 ( h2 h4 h12 h15 )_ytrb + = -1 * Sum ( p5 p6 ) * trb ( p5 p6 h12 h15 )_trb * y ( h2 h4 p5 p6 )_y 112C i3 ( h2 h4 h12 h15 )_ytrbt + = -2 * Sum ( p5 ) * t ( p5 h12 )_t * i4 ( h2 h4 h15 p5 )_ytrb 113C i4 ( h2 h4 h15 p5 )_ytrb + = 1 * Sum ( p7 ) * trb ( p7 h15 )_trb * y ( h2 h4 p5 p7 )_y 114C i4 ( h2 h4 h15 p5 )_ytrb + = -1 * Sum ( h9 p7 p8 ) * trb ( p7 p8 h9 h15 )_trb * y ( h2 h4 h9 p5 p7 p8 )_y 115C i3 ( h2 h4 h12 h15 )_yttrb + = -2 * Sum ( p5 ) * trb ( p5 h12 )_trb * i4 ( h2 h4 h15 p5 )_yt 116C i2 ( h2 p14 h12 h15 )_ytrctrb + = 8 * Sum ( h7 p5 ) * trb ( p5 p14 h7 h15 )_trb * i3 ( h2 h7 h12 p5 )_ytrc 117C i3 ( h2 h7 h12 p5 )_ytrc + = 1 * Sum ( p3 ) * trc ( p3 h12 )_trc * y ( h2 h7 p3 p5 )_y 118C i2 ( h2 p14 h12 h15 )_ytrctrb + = 2 * Sum ( h8 h9 p5 p6 ) * trb ( p5 p6 p14 h8 h9 h15 )_trb * i3 ( h2 h8 h9 h12 p5 p6 )_ytrc 119C i3 ( h2 h8 h9 h12 p5 p6 )_ytrc + = 1 * Sum ( p3 ) * trc ( p3 h12 )_trc * y ( h2 h8 h9 p3 p5 p6 )_y 120C i2 ( h2 p14 h12 h15 )_ytrcttrb + = -2 * Sum ( p3 ) * trb ( p3 h12 )_trb * i3 ( h2 p14 h15 p3 )_ytrct 121C i3 ( h2 p14 h15 p3 )_ytrct + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p14 h9 h10 )_t * i4 ( h2 h9 h10 h15 p3 p7 )_ytrc 122C i4 ( h2 h9 h10 h15 p3 p7 )_ytrc + = -1 * Sum ( p5 ) * trc ( p5 h15 )_trc * y ( h2 h9 h10 p3 p5 p7 )_y 123C i3 ( h2 p14 h15 p3 )_yttrc + = 1 * Sum ( h9 h10 p7 ) * trc ( p7 p14 h9 h10 )_trc * i4 ( h2 h9 h10 h15 p3 p7 )_yt 124C i4 ( h2 h9 h10 h15 p3 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h15 )_t * y ( h2 h9 h10 p3 p5 p7 )_y 125C i2 ( h2 p14 h12 h15 )_yttrbtrc + = -2 * Sum ( p3 ) * trc ( p3 h12 )_trc * i3 ( h2 p14 h15 p3 )_yttrb 126C i3 ( h2 p14 h15 p3 )_yttrb + = 1 * Sum ( h9 h10 p7 ) * trb ( p7 p14 h9 h10 )_trb * i4 ( h2 h9 h10 h15 p3 p7 )_yt 127C i3 ( h2 p14 h15 p3 )_ytrbt + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p14 h9 h10 )_t * i4 ( h2 h9 h10 h15 p3 p7 )_ytrb 128C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb + = -1 * Sum ( p5 ) * trb ( p5 h15 )_trb * y ( h2 h9 h10 p3 p5 p7 )_y 129C i2 ( h2 p14 h12 h15 )_ytrbtrct + = -2 * Sum ( h4 ) * t ( p14 h4 )_t * i3 ( h2 h4 h12 h15 )_ytrbtrc 130C i3 ( h2 h4 h12 h15 )_ytrbtrc + = 1 * Sum ( p5 ) * trc ( p5 h12 )_trc * i4 ( h2 h4 h15 p5 )_ytrb 131C i3 ( h2 h4 h12 h15 )_ytrctrb + = 1 * Sum ( p5 ) * trb ( p5 h12 )_trb * i4 ( h2 h4 h15 p5 )_ytrc 132C i2 ( h2 p14 h12 h15 )_ytrctrbt + = -2 * Sum ( p3 ) * t ( p3 h12 )_t * i3 ( h2 p14 h15 p3 )_ytrctrb 133C i3 ( h2 p14 h15 p3 )_ytrctrb + = 1 * Sum ( h9 h10 p7 ) * trb ( p7 p14 h9 h10 )_trb * i4 ( h2 h9 h10 h15 p3 p7 )_ytrc 134C i3 ( h2 p14 h15 p3 )_ytrbtrc + = 1 * Sum ( h9 h10 p7 ) * trc ( p7 p14 h9 h10 )_trc * i4 ( h2 h9 h10 h15 p3 p7 )_ytrb 135C i1 ( p13 p14 h12 h15 )_ytrctratrb + = -2/3 * trb ( p14 h12 )_trb * i2 ( p13 h15 )_ytrctra 136C i2 ( p13 h15 )_ytrctra + = 1 * Sum ( h2 ) * tra ( p13 h2 )_tra * i3 ( h2 h15 )_ytrc 137C i3 ( h2 h15 )_ytrc + = 1 * Sum ( h8 h9 p5 p6 p7 ) * trc ( p5 p6 p7 h8 h9 h15 )_trc * y ( h2 h8 h9 p5 p6 p7 )_y 138C i2 ( p13 h15 )_ytratrc + = 1 * Sum ( h2 ) * trc ( p13 h2 )_trc * i3 ( h2 h15 )_ytra 139C i3 ( h2 h15 )_ytra + = 1 * Sum ( h8 h9 p5 p6 p7 ) * tra ( p5 p6 p7 h8 h9 h15 )_tra * y ( h2 h8 h9 p5 p6 p7 )_y 140C i1 ( p13 p14 h12 h15 )_ytrbtratrc + = 1/3 * Sum ( h8 h9 h10 p5 ) * trc ( p5 p13 p14 h8 h9 h10 )_trc * i2 ( h8 h9 h10 h12 h15 p5 )_ytrbtra 141C i2 ( h8 h9 h10 h12 h15 p5 )_ytrbtra + = 1 * Sum ( p1 ) * tra ( p1 h12 )_tra * i3 ( h8 h9 h10 h15 p1 p5 )_ytrb 142C i3 ( h8 h9 h10 h15 p1 p5 )_ytrb + = -1 * Sum ( p3 ) * trb ( p3 h15 )_trb * y ( h8 h9 h10 p1 p3 p5 )_y 143C i2 ( h8 h9 h10 h12 h15 p5 )_ytratrb + = 1 * Sum ( p1 ) * trb ( p1 h12 )_trb * i3 ( h8 h9 h10 h15 p1 p5 )_ytra 144C i3 ( h8 h9 h10 h15 p1 p5 )_ytra + = -1 * Sum ( p3 ) * tra ( p3 h15 )_tra * y ( h8 h9 h10 p1 p3 p5 )_y 145C i1 ( p13 p14 h12 h15 )_ytratrctrb + = -2/3 * trb ( p13 h15 )_trb * i2 ( p14 h12 )_ytratrc 146C i2 ( p14 h12 )_ytratrc + = 1 * Sum ( h8 h9 h10 p5 p6 ) * trc ( p5 p6 p14 h8 h9 h10 )_trc * i3 ( h8 h9 h10 h12 p5 p6 )_ytra 147C i3 ( h8 h9 h10 h12 p5 p6 )_ytra + = 1 * Sum ( p1 ) * tra ( p1 h12 )_tra * y ( h8 h9 h10 p1 p5 p6 )_y 148C i2 ( p14 h12 )_ytrctra + = 1 * Sum ( h8 h9 h10 p5 p6 ) * tra ( p5 p6 p14 h8 h9 h10 )_tra * i3 ( h8 h9 h10 h12 p5 p6 )_ytrc 149C i3 ( h8 h9 h10 h12 p5 p6 )_ytrc + = 1 * Sum ( p1 ) * trc ( p1 h12 )_trc * y ( h8 h9 h10 p1 p5 p6 )_y 150C i1 ( p13 p14 h12 h15 )_ytratrbtrc + = -1 * Sum ( h10 ) * trc ( p14 h10 )_trc * i2 ( h10 p13 h12 h15 )_ytratrb 151C i2 ( h10 p13 h12 h15 )_ytratrb + = 1 * Sum ( p5 p6 ) * trb ( p5 p6 h12 h15 )_trb * i3 ( h10 p13 p5 p6 )_ytra 152C i3 ( h10 p13 p5 p6 )_ytra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p13 h3 h4 )_tra * y ( h3 h4 h10 p1 p5 p6 )_y 153C i2 ( h10 p13 h12 h15 )_ytratrb + = 4 * Sum ( h7 p5 ) * trb ( p5 p13 h7 h15 )_trb * i3 ( h7 h10 h12 p5 )_ytra 154C i3 ( h7 h10 h12 p5 )_ytra + = -1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h12 )_tra * y ( h3 h7 h10 p1 p2 p5 )_y 155C i2 ( h10 p13 h12 h15 )_ytrbtra + = 1 * Sum ( p5 p6 ) * tra ( p5 p6 h12 h15 )_tra * i3 ( h10 p13 p5 p6 )_ytrb 156C i3 ( h10 p13 p5 p6 )_ytrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p13 h3 h4 )_trb * y ( h3 h4 h10 p1 p5 p6 )_y 157C i2 ( h10 p13 h12 h15 )_ytrbtra + = 4 * Sum ( h7 p5 ) * tra ( p5 p13 h7 h15 )_tra * i3 ( h7 h10 h12 p5 )_ytrb 158C i3 ( h7 h10 h12 p5 )_ytrb + = -1 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h12 )_trb * y ( h3 h7 h10 p1 p2 p5 )_y 159C i1 ( p13 p14 h12 h15 )_ytrctratrb + = -4 * Sum ( h7 p5 ) * trb ( p5 p14 h7 h12 )_trb * i2 ( h7 p13 h15 p5 )_ytrctra 160C i2 ( h7 p13 h15 p5 )_ytrctra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p13 h3 h4 )_tra * i3 ( h3 h4 h7 h15 p1 p5 )_ytrc 161C i3 ( h3 h4 h7 h15 p1 p5 )_ytrc + = -1 * Sum ( p9 ) * trc ( p9 h15 )_trc * y ( h3 h4 h7 p1 p5 p9 )_y 162C i2 ( h7 p13 h15 p5 )_ytratrc + = 1 * Sum ( h3 h4 p1 ) * trc ( p1 p13 h3 h4 )_trc * i3 ( h3 h4 h7 h15 p1 p5 )_ytra 163C i3 ( h3 h4 h7 h15 p1 p5 )_ytra + = -1 * Sum ( p9 ) * tra ( p9 h15 )_tra * y ( h3 h4 h7 p1 p5 p9 )_y 164C i1 ( p13 p14 h12 h15 )_ytratrctrb + = -1 * Sum ( h7 h8 ) * trb ( p13 p14 h7 h8 )_trb * i2 ( h7 h8 h12 h15 )_ytratrc 165C i2 ( h7 h8 h12 h15 )_ytratrc + = 1 * Sum ( p9 ) * trc ( p9 h15 )_trc * i3 ( h7 h8 h12 p9 )_ytra 166C i3 ( h7 h8 h12 p9 )_ytra + = 1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h12 )_tra * y ( h3 h7 h8 p1 p2 p9 )_y 167C i2 ( h7 h8 h12 h15 )_ytrctra + = 1 * Sum ( p9 ) * tra ( p9 h15 )_tra * i3 ( h7 h8 h12 p9 )_ytrc 168C i3 ( h7 h8 h12 p9 )_ytrc + = 1 * Sum ( h3 p1 p2 ) * trc ( p1 p2 h3 h12 )_trc * y ( h3 h7 h8 p1 p2 p9 )_y 169C i1 ( p13 p14 h12 h15 )_ytrbtratrc + = -2 * trc ( p14 h15 )_trc * i2 ( p13 h12 )_ytrbtra 170C i2 ( p13 h12 )_ytrbtra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p13 h3 h4 )_tra * i3 ( h3 h4 h12 p1 )_ytrb 171C i3 ( h3 h4 h12 p1 )_ytrb + = 1 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h12 )_trb * y ( h3 h4 h7 p1 p5 p6 )_y 172C i2 ( p13 h12 )_ytratrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p13 h3 h4 )_trb * i3 ( h3 h4 h12 p1 )_ytra 173C i3 ( h3 h4 h12 p1 )_ytra + = 1 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h12 )_tra * y ( h3 h4 h7 p1 p5 p6 )_y 174C i1 ( p13 p14 h12 h15 )_ytrbtratrc + = 1 * Sum ( h2 ) * trc ( p13 h2 )_trc * i2 ( h2 p14 h12 h15 )_ytrbtra 175C i2 ( h2 p14 h12 h15 )_ytrbtra + = 1 * Sum ( h4 ) * tra ( p14 h4 )_tra * i3 ( h2 h4 h12 h15 )_ytrb 176C i3 ( h2 h4 h12 h15 )_ytrb + = -1/3 * Sum ( h8 p5 p6 p7 ) * trb ( p5 p6 p7 h8 h12 h15 )_trb * y ( h2 h4 h8 p5 p6 p7 )_y 177C i2 ( h2 p14 h12 h15 )_ytratrb + = 8 * Sum ( h7 p5 ) * trb ( p5 p14 h7 h15 )_trb * i3 ( h2 h7 h12 p5 )_ytra 178C i3 ( h2 h7 h12 p5 )_ytra + = 1 * Sum ( p3 ) * tra ( p3 h12 )_tra * y ( h2 h7 p3 p5 )_y 179C i2 ( h2 p14 h12 h15 )_ytratrb + = 2 * Sum ( h8 h9 p5 p6 ) * trb ( p5 p6 p14 h8 h9 h15 )_trb * i3 ( h2 h8 h9 h12 p5 p6 )_ytra 180C i3 ( h2 h8 h9 h12 p5 p6 )_ytra + = 1 * Sum ( p3 ) * tra ( p3 h12 )_tra * y ( h2 h8 h9 p3 p5 p6 )_y 181C i2 ( h2 p14 h12 h15 )_ytratrb + = 1 * Sum ( h4 ) * trb ( p14 h4 )_trb * i3 ( h2 h4 h12 h15 )_ytra 182C i3 ( h2 h4 h12 h15 )_ytra + = -1 * Sum ( p5 p6 ) * tra ( p5 p6 h12 h15 )_tra * y ( h2 h4 p5 p6 )_y 183C i3 ( h2 h4 h12 h15 )_ytra + = -1/3 * Sum ( h8 p5 p6 p7 ) * tra ( p5 p6 p7 h8 h12 h15 )_tra * y ( h2 h4 h8 p5 p6 p7 )_y 184C i3 ( h2 h4 h12 h15 )_yttra + = -2 * Sum ( p5 ) * tra ( p5 h12 )_tra * i4 ( h2 h4 h15 p5 )_yt 185C i3 ( h2 h4 h12 h15 )_ytrat + = -2 * Sum ( p5 ) * t ( p5 h12 )_t * i4 ( h2 h4 h15 p5 )_ytra 186C i4 ( h2 h4 h15 p5 )_ytra + = 1 * Sum ( p7 ) * tra ( p7 h15 )_tra * y ( h2 h4 p5 p7 )_y 187C i4 ( h2 h4 h15 p5 )_ytra + = -1 * Sum ( h9 p7 p8 ) * tra ( p7 p8 h9 h15 )_tra * y ( h2 h4 h9 p5 p7 p8 )_y 188C i2 ( h2 p14 h12 h15 )_ytrbtra + = 8 * Sum ( h7 p5 ) * tra ( p5 p14 h7 h15 )_tra * i3 ( h2 h7 h12 p5 )_ytrb 189C i2 ( h2 p14 h12 h15 )_ytrbtra + = 2 * Sum ( h8 h9 p5 p6 ) * tra ( p5 p6 p14 h8 h9 h15 )_tra * i3 ( h2 h8 h9 h12 p5 p6 )_ytrb 190C i2 ( h2 p14 h12 h15 )_ytrbttra + = -2 * Sum ( p3 ) * tra ( p3 h12 )_tra * i3 ( h2 p14 h15 p3 )_ytrbt 191C i2 ( h2 p14 h12 h15 )_ytrbtrat + = -2 * Sum ( h4 ) * t ( p14 h4 )_t * i3 ( h2 h4 h12 h15 )_ytrbtra 192C i3 ( h2 h4 h12 h15 )_ytrbtra + = 1 * Sum ( p5 ) * tra ( p5 h12 )_tra * i4 ( h2 h4 h15 p5 )_ytrb 193C i3 ( h2 h4 h12 h15 )_ytratrb + = 1 * Sum ( p5 ) * trb ( p5 h12 )_trb * i4 ( h2 h4 h15 p5 )_ytra 194C i2 ( h2 p14 h12 h15 )_ytratrbt + = -2 * Sum ( p3 ) * t ( p3 h12 )_t * i3 ( h2 p14 h15 p3 )_ytratrb 195C i3 ( h2 p14 h15 p3 )_ytratrb + = 1 * Sum ( h9 h10 p7 ) * trb ( p7 p14 h9 h10 )_trb * i4 ( h2 h9 h10 h15 p3 p7 )_ytra 196C i4 ( h2 h9 h10 h15 p3 p7 )_ytra + = -1 * Sum ( p5 ) * tra ( p5 h15 )_tra * y ( h2 h9 h10 p3 p5 p7 )_y 197C i3 ( h2 p14 h15 p3 )_ytrbtra + = 1 * Sum ( h9 h10 p7 ) * tra ( p7 p14 h9 h10 )_tra * i4 ( h2 h9 h10 h15 p3 p7 )_ytrb 198C i2 ( h2 p14 h12 h15 )_ytrattrb + = -2 * Sum ( p3 ) * trb ( p3 h12 )_trb * i3 ( h2 p14 h15 p3 )_ytrat 199C i3 ( h2 p14 h15 p3 )_ytrat + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p14 h9 h10 )_t * i4 ( h2 h9 h10 h15 p3 p7 )_ytra 200C i3 ( h2 p14 h15 p3 )_yttra + = 1 * Sum ( h9 h10 p7 ) * tra ( p7 p14 h9 h10 )_tra * i4 ( h2 h9 h10 h15 p3 p7 )_yt 201C i1 ( p13 p14 h12 h15 )_ytrbtrctra + = -2/3 * tra ( p14 h12 )_tra * i2 ( p13 h15 )_ytrbtrc 202C i2 ( p13 h15 )_ytrbtrc + = 1 * Sum ( h2 ) * trc ( p13 h2 )_trc * i3 ( h2 h15 )_ytrb 203C i3 ( h2 h15 )_ytrb + = 1 * Sum ( h8 h9 p5 p6 p7 ) * trb ( p5 p6 p7 h8 h9 h15 )_trb * y ( h2 h8 h9 p5 p6 p7 )_y 204C i2 ( p13 h15 )_ytrctrb + = 1 * Sum ( h2 ) * trb ( p13 h2 )_trb * i3 ( h2 h15 )_ytrc 205C i1 ( p13 p14 h12 h15 )_ytratrctrb + = 1/3 * Sum ( h8 h9 h10 p5 ) * trb ( p5 p13 p14 h8 h9 h10 )_trb * i2 ( h8 h9 h10 h12 h15 p5 )_ytratrc 206C i2 ( h8 h9 h10 h12 h15 p5 )_ytratrc + = 1 * Sum ( p1 ) * trc ( p1 h12 )_trc * i3 ( h8 h9 h10 h15 p1 p5 )_ytra 207C i2 ( h8 h9 h10 h12 h15 p5 )_ytrctra + = 1 * Sum ( p1 ) * tra ( p1 h12 )_tra * i3 ( h8 h9 h10 h15 p1 p5 )_ytrc 208C i3 ( h8 h9 h10 h15 p1 p5 )_ytrc + = -1 * Sum ( p3 ) * trc ( p3 h15 )_trc * y ( h8 h9 h10 p1 p3 p5 )_y 209C i1 ( p13 p14 h12 h15 )_ytrctrbtra + = -2/3 * tra ( p13 h15 )_tra * i2 ( p14 h12 )_ytrctrb 210C i2 ( p14 h12 )_ytrctrb + = 1 * Sum ( h8 h9 h10 p5 p6 ) * trb ( p5 p6 p14 h8 h9 h10 )_trb * i3 ( h8 h9 h10 h12 p5 p6 )_ytrc 211C i2 ( p14 h12 )_ytrbtrc + = 1 * Sum ( h8 h9 h10 p5 p6 ) * trc ( p5 p6 p14 h8 h9 h10 )_trc * i3 ( h8 h9 h10 h12 p5 p6 )_ytrb 212C i3 ( h8 h9 h10 h12 p5 p6 )_ytrb + = 1 * Sum ( p1 ) * trb ( p1 h12 )_trb * y ( h8 h9 h10 p1 p5 p6 )_y 213C i1 ( p13 p14 h12 h15 )_ytrctratrb + = -1 * Sum ( h10 ) * trb ( p14 h10 )_trb * i2 ( h10 p13 h12 h15 )_ytrctra 214C i2 ( h10 p13 h12 h15 )_ytrctra + = 1 * Sum ( p5 p6 ) * tra ( p5 p6 h12 h15 )_tra * i3 ( h10 p13 p5 p6 )_ytrc 215C i3 ( h10 p13 p5 p6 )_ytrc + = 1 * Sum ( h3 h4 p1 ) * trc ( p1 p13 h3 h4 )_trc * y ( h3 h4 h10 p1 p5 p6 )_y 216C i2 ( h10 p13 h12 h15 )_ytrctra + = 4 * Sum ( h7 p5 ) * tra ( p5 p13 h7 h15 )_tra * i3 ( h7 h10 h12 p5 )_ytrc 217C i3 ( h7 h10 h12 p5 )_ytrc + = -1 * Sum ( h3 p1 p2 ) * trc ( p1 p2 h3 h12 )_trc * y ( h3 h7 h10 p1 p2 p5 )_y 218C i2 ( h10 p13 h12 h15 )_ytratrc + = 1 * Sum ( p5 p6 ) * trc ( p5 p6 h12 h15 )_trc * i3 ( h10 p13 p5 p6 )_ytra 219C i2 ( h10 p13 h12 h15 )_ytratrc + = 4 * Sum ( h7 p5 ) * trc ( p5 p13 h7 h15 )_trc * i3 ( h7 h10 h12 p5 )_ytra 220C i1 ( p13 p14 h12 h15 )_ytrbtrctra + = -4 * Sum ( h7 p5 ) * tra ( p5 p14 h7 h12 )_tra * i2 ( h7 p13 h15 p5 )_ytrbtrc 221C i2 ( h7 p13 h15 p5 )_ytrbtrc + = 1 * Sum ( h3 h4 p1 ) * trc ( p1 p13 h3 h4 )_trc * i3 ( h3 h4 h7 h15 p1 p5 )_ytrb 222C i3 ( h3 h4 h7 h15 p1 p5 )_ytrb + = -1 * Sum ( p9 ) * trb ( p9 h15 )_trb * y ( h3 h4 h7 p1 p5 p9 )_y 223C i2 ( h7 p13 h15 p5 )_ytrctrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p13 h3 h4 )_trb * i3 ( h3 h4 h7 h15 p1 p5 )_ytrc 224C i1 ( p13 p14 h12 h15 )_ytrctrbtra + = -1 * Sum ( h7 h8 ) * tra ( p13 p14 h7 h8 )_tra * i2 ( h7 h8 h12 h15 )_ytrctrb 225C i2 ( h7 h8 h12 h15 )_ytrctrb + = 1 * Sum ( p9 ) * trb ( p9 h15 )_trb * i3 ( h7 h8 h12 p9 )_ytrc 226C i2 ( h7 h8 h12 h15 )_ytrbtrc + = 1 * Sum ( p9 ) * trc ( p9 h15 )_trc * i3 ( h7 h8 h12 p9 )_ytrb 227C i3 ( h7 h8 h12 p9 )_ytrb + = 1 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h12 )_trb * y ( h3 h7 h8 p1 p2 p9 )_y 228C i1 ( p13 p14 h12 h15 )_ytratrctrb + = -2 * trb ( p14 h15 )_trb * i2 ( p13 h12 )_ytratrc 229C i2 ( p13 h12 )_ytratrc + = 1 * Sum ( h3 h4 p1 ) * trc ( p1 p13 h3 h4 )_trc * i3 ( h3 h4 h12 p1 )_ytra 230C i2 ( p13 h12 )_ytrctra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p13 h3 h4 )_tra * i3 ( h3 h4 h12 p1 )_ytrc 231C i3 ( h3 h4 h12 p1 )_ytrc + = 1 * Sum ( h7 p5 p6 ) * trc ( p5 p6 h7 h12 )_trc * y ( h3 h4 h7 p1 p5 p6 )_y 232C i1 ( p13 p14 h12 h15 )_ytratrctrb + = 1 * Sum ( h2 ) * trb ( p13 h2 )_trb * i2 ( h2 p14 h12 h15 )_ytratrc 233C i2 ( h2 p14 h12 h15 )_ytratrc + = 1 * Sum ( h4 ) * trc ( p14 h4 )_trc * i3 ( h2 h4 h12 h15 )_ytra 234C i2 ( h2 p14 h12 h15 )_ytrctra + = 8 * Sum ( h7 p5 ) * tra ( p5 p14 h7 h15 )_tra * i3 ( h2 h7 h12 p5 )_ytrc 235C i2 ( h2 p14 h12 h15 )_ytrctra + = 2 * Sum ( h8 h9 p5 p6 ) * tra ( p5 p6 p14 h8 h9 h15 )_tra * i3 ( h2 h8 h9 h12 p5 p6 )_ytrc 236C i2 ( h2 p14 h12 h15 )_ytrctra + = 1 * Sum ( h4 ) * tra ( p14 h4 )_tra * i3 ( h2 h4 h12 h15 )_ytrc 237C i3 ( h2 h4 h12 h15 )_ytrc + = -1/3 * Sum ( h8 p5 p6 p7 ) * trc ( p5 p6 p7 h8 h12 h15 )_trc * y ( h2 h4 h8 p5 p6 p7 )_y 238C i2 ( h2 p14 h12 h15 )_ytratrc + = 8 * Sum ( h7 p5 ) * trc ( p5 p14 h7 h15 )_trc * i3 ( h2 h7 h12 p5 )_ytra 239C i2 ( h2 p14 h12 h15 )_ytratrc + = 2 * Sum ( h8 h9 p5 p6 ) * trc ( p5 p6 p14 h8 h9 h15 )_trc * i3 ( h2 h8 h9 h12 p5 p6 )_ytra 240C i2 ( h2 p14 h12 h15 )_yttratrc + = -2 * Sum ( p3 ) * trc ( p3 h12 )_trc * i3 ( h2 p14 h15 p3 )_yttra 241C i2 ( h2 p14 h12 h15 )_ytrcttra + = -2 * Sum ( p3 ) * tra ( p3 h12 )_tra * i3 ( h2 p14 h15 p3 )_ytrct 242C i2 ( h2 p14 h12 h15 )_ytratrct + = -2 * Sum ( h4 ) * t ( p14 h4 )_t * i3 ( h2 h4 h12 h15 )_ytratrc 243C i3 ( h2 h4 h12 h15 )_ytratrc + = 1 * Sum ( p5 ) * trc ( p5 h12 )_trc * i4 ( h2 h4 h15 p5 )_ytra 244C i3 ( h2 h4 h12 h15 )_ytrctra + = 1 * Sum ( p5 ) * tra ( p5 h12 )_tra * i4 ( h2 h4 h15 p5 )_ytrc 245C i2 ( h2 p14 h12 h15 )_ytrctrat + = -2 * Sum ( p3 ) * t ( p3 h12 )_t * i3 ( h2 p14 h15 p3 )_ytrctra 246C i3 ( h2 p14 h15 p3 )_ytrctra + = 1 * Sum ( h9 h10 p7 ) * tra ( p7 p14 h9 h10 )_tra * i4 ( h2 h9 h10 h15 p3 p7 )_ytrc 247C i3 ( h2 p14 h15 p3 )_ytratrc + = 1 * Sum ( h9 h10 p7 ) * trc ( p7 p14 h9 h10 )_trc * i4 ( h2 h9 h10 h15 p3 p7 )_ytra 248C i1 ( p13 p14 h12 h15 )_ytratrbtrc + = -2/3 * trc ( p14 h12 )_trc * i2 ( p13 h15 )_ytratrb 249C i2 ( p13 h15 )_ytratrb + = 1 * Sum ( h2 ) * trb ( p13 h2 )_trb * i3 ( h2 h15 )_ytra 250C i2 ( p13 h15 )_ytrbtra + = 1 * Sum ( h2 ) * tra ( p13 h2 )_tra * i3 ( h2 h15 )_ytrb 251C i1 ( p13 p14 h12 h15 )_ytrctrbtra + = 1/3 * Sum ( h8 h9 h10 p5 ) * tra ( p5 p13 p14 h8 h9 h10 )_tra * i2 ( h8 h9 h10 h12 h15 p5 )_ytrctrb 252C i2 ( h8 h9 h10 h12 h15 p5 )_ytrctrb + = 1 * Sum ( p1 ) * trb ( p1 h12 )_trb * i3 ( h8 h9 h10 h15 p1 p5 )_ytrc 253C i2 ( h8 h9 h10 h12 h15 p5 )_ytrbtrc + = 1 * Sum ( p1 ) * trc ( p1 h12 )_trc * i3 ( h8 h9 h10 h15 p1 p5 )_ytrb 254C i1 ( p13 p14 h12 h15 )_ytrbtratrc + = -2/3 * trc ( p13 h15 )_trc * i2 ( p14 h12 )_ytrbtra 255C i2 ( p14 h12 )_ytrbtra + = 1 * Sum ( h8 h9 h10 p5 p6 ) * tra ( p5 p6 p14 h8 h9 h10 )_tra * i3 ( h8 h9 h10 h12 p5 p6 )_ytrb 256C i2 ( p14 h12 )_ytratrb + = 1 * Sum ( h8 h9 h10 p5 p6 ) * trb ( p5 p6 p14 h8 h9 h10 )_trb * i3 ( h8 h9 h10 h12 p5 p6 )_ytra 257C i1 ( p13 p14 h12 h15 )_ytrbtrctra + = -1 * Sum ( h10 ) * tra ( p14 h10 )_tra * i2 ( h10 p13 h12 h15 )_ytrbtrc 258C i2 ( h10 p13 h12 h15 )_ytrbtrc + = 1 * Sum ( p5 p6 ) * trc ( p5 p6 h12 h15 )_trc * i3 ( h10 p13 p5 p6 )_ytrb 259C i2 ( h10 p13 h12 h15 )_ytrbtrc + = 4 * Sum ( h7 p5 ) * trc ( p5 p13 h7 h15 )_trc * i3 ( h7 h10 h12 p5 )_ytrb 260C i2 ( h10 p13 h12 h15 )_ytrctrb + = 1 * Sum ( p5 p6 ) * trb ( p5 p6 h12 h15 )_trb * i3 ( h10 p13 p5 p6 )_ytrc 261C i2 ( h10 p13 h12 h15 )_ytrctrb + = 4 * Sum ( h7 p5 ) * trb ( p5 p13 h7 h15 )_trb * i3 ( h7 h10 h12 p5 )_ytrc 262C i1 ( p13 p14 h12 h15 )_ytratrbtrc + = -4 * Sum ( h7 p5 ) * trc ( p5 p14 h7 h12 )_trc * i2 ( h7 p13 h15 p5 )_ytratrb 263C i2 ( h7 p13 h15 p5 )_ytratrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p13 h3 h4 )_trb * i3 ( h3 h4 h7 h15 p1 p5 )_ytra 264C i2 ( h7 p13 h15 p5 )_ytrbtra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p13 h3 h4 )_tra * i3 ( h3 h4 h7 h15 p1 p5 )_ytrb 265C i1 ( p13 p14 h12 h15 )_ytrbtratrc + = -1 * Sum ( h7 h8 ) * trc ( p13 p14 h7 h8 )_trc * i2 ( h7 h8 h12 h15 )_ytrbtra 266C i2 ( h7 h8 h12 h15 )_ytrbtra + = 1 * Sum ( p9 ) * tra ( p9 h15 )_tra * i3 ( h7 h8 h12 p9 )_ytrb 267C i2 ( h7 h8 h12 h15 )_ytratrb + = 1 * Sum ( p9 ) * trb ( p9 h15 )_trb * i3 ( h7 h8 h12 p9 )_ytra 268C i1 ( p13 p14 h12 h15 )_ytrctrbtra + = -2 * tra ( p14 h15 )_tra * i2 ( p13 h12 )_ytrctrb 269C i2 ( p13 h12 )_ytrctrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p13 h3 h4 )_trb * i3 ( h3 h4 h12 p1 )_ytrc 270C i2 ( p13 h12 )_ytrbtrc + = 1 * Sum ( h3 h4 p1 ) * trc ( p1 p13 h3 h4 )_trc * i3 ( h3 h4 h12 p1 )_ytrb 271C i1 ( p13 p14 h12 h15 )_ytrctrbtrat + = -2 * Sum ( h2 ) * t ( p13 h2 )_t * i2 ( h2 p14 h12 h15 )_ytrctrbtra 272C i2 ( h2 p14 h12 h15 )_ytrctrbtra + = 1 * Sum ( h4 ) * tra ( p14 h4 )_tra * i3 ( h2 h4 h12 h15 )_ytrctrb 273C i2 ( h2 p14 h12 h15 )_ytrbtrctra + = 1 * Sum ( p3 ) * tra ( p3 h12 )_tra * i3 ( h2 p14 h15 p3 )_ytrbtrc 274C i2 ( h2 p14 h12 h15 )_ytrbtratrc + = 1 * Sum ( h4 ) * trc ( p14 h4 )_trc * i3 ( h2 h4 h12 h15 )_ytrbtra 275C i2 ( h2 p14 h12 h15 )_ytratrbtrc + = 1 * Sum ( p3 ) * trc ( p3 h12 )_trc * i3 ( h2 p14 h15 p3 )_ytratrb 276C i2 ( h2 p14 h12 h15 )_ytrctratrb + = 1 * Sum ( h4 ) * trb ( p14 h4 )_trb * i3 ( h2 h4 h12 h15 )_ytrctra 277C i2 ( h2 p14 h12 h15 )_ytratrctrb + = 1 * Sum ( p3 ) * trb ( p3 h12 )_trb * i3 ( h2 p14 h15 p3 )_ytratrc 278C i0 ( )_ytrctrbtrav + = 1/4 * Sum ( p1 p10 h12 p9 ) * i1 ( p1 p10 h12 p9 )_ytrctrbtra * v ( h12 p9 p1 p10 )_v 279C i1 ( p1 p10 h12 p9 )_ytrctrbtra + = 1 * Sum ( h2 ) * tra ( p1 h2 )_tra * i2 ( h2 p10 h12 p9 )_ytrctrb 280C i2 ( h2 p10 h12 p9 )_ytrctrb + = 1 * Sum ( h4 ) * trb ( p10 h4 )_trb * i3 ( h2 h4 h12 p9 )_ytrc 281C i3 ( h2 h4 h12 p9 )_ytrc + = -1 * Sum ( h7 p5 p6 ) * trc ( p5 p6 h7 h12 )_trc * y ( h2 h4 h7 p5 p6 p9 )_y 282C i2 ( h2 p10 h12 p9 )_ytrbtrc + = 2 * Sum ( h7 h8 p5 ) * trc ( p5 p10 h7 h8 )_trc * i3 ( h2 h7 h8 h12 p5 p9 )_ytrb 283C i3 ( h2 h7 h8 h12 p5 p9 )_ytrb + = -1 * Sum ( p3 ) * trb ( p3 h12 )_trb * y ( h2 h7 h8 p3 p5 p9 )_y 284C i2 ( h2 p10 h12 p9 )_ytrbtrc + = 1 * Sum ( h4 ) * trc ( p10 h4 )_trc * i3 ( h2 h4 h12 p9 )_ytrb 285C i3 ( h2 h4 h12 p9 )_ytrb + = -1 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h12 )_trb * y ( h2 h4 h7 p5 p6 p9 )_y 286C i2 ( h2 p10 h12 p9 )_ytrctrb + = 2 * Sum ( h7 h8 p5 ) * trb ( p5 p10 h7 h8 )_trb * i3 ( h2 h7 h8 h12 p5 p9 )_ytrc 287C i3 ( h2 h7 h8 h12 p5 p9 )_ytrc + = -1 * Sum ( p3 ) * trc ( p3 h12 )_trc * y ( h2 h7 h8 p3 p5 p9 )_y 288C i1 ( p1 p10 h12 p9 )_ytrbtratrc + = 1 * Sum ( h2 ) * trc ( p1 h2 )_trc * i2 ( h2 p10 h12 p9 )_ytrbtra 289C i2 ( h2 p10 h12 p9 )_ytrbtra + = 1 * Sum ( h4 ) * tra ( p10 h4 )_tra * i3 ( h2 h4 h12 p9 )_ytrb 290C i2 ( h2 p10 h12 p9 )_ytratrb + = 2 * Sum ( h7 h8 p5 ) * trb ( p5 p10 h7 h8 )_trb * i3 ( h2 h7 h8 h12 p5 p9 )_ytra 291C i3 ( h2 h7 h8 h12 p5 p9 )_ytra + = -1 * Sum ( p3 ) * tra ( p3 h12 )_tra * y ( h2 h7 h8 p3 p5 p9 )_y 292C i2 ( h2 p10 h12 p9 )_ytratrb + = 1 * Sum ( h4 ) * trb ( p10 h4 )_trb * i3 ( h2 h4 h12 p9 )_ytra 293C i3 ( h2 h4 h12 p9 )_ytra + = -1 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h12 )_tra * y ( h2 h4 h7 p5 p6 p9 )_y 294C i2 ( h2 p10 h12 p9 )_ytrbtra + = 2 * Sum ( h7 h8 p5 ) * tra ( p5 p10 h7 h8 )_tra * i3 ( h2 h7 h8 h12 p5 p9 )_ytrb 295C i1 ( p1 p10 h12 p9 )_ytratrctrb + = 1 * Sum ( h2 ) * trb ( p1 h2 )_trb * i2 ( h2 p10 h12 p9 )_ytratrc 296C i2 ( h2 p10 h12 p9 )_ytratrc + = 1 * Sum ( h4 ) * trc ( p10 h4 )_trc * i3 ( h2 h4 h12 p9 )_ytra 297C i2 ( h2 p10 h12 p9 )_ytrctra + = 2 * Sum ( h7 h8 p5 ) * tra ( p5 p10 h7 h8 )_tra * i3 ( h2 h7 h8 h12 p5 p9 )_ytrc 298C i2 ( h2 p10 h12 p9 )_ytrctra + = 1 * Sum ( h4 ) * tra ( p10 h4 )_tra * i3 ( h2 h4 h12 p9 )_ytrc 299C i2 ( h2 p10 h12 p9 )_ytratrc + = 2 * Sum ( h7 h8 p5 ) * trc ( p5 p10 h7 h8 )_trc * i3 ( h2 h7 h8 h12 p5 p9 )_ytra 300 IMPLICIT NONE 301#include "global.fh" 302#include "mafdecls.fh" 303#include "util.fh" 304#include "errquit.fh" 305#include "tce.fh" 306 INTEGER d_i0 307 INTEGER k_i0_offset 308 INTEGER d_y1 309 INTEGER k_y1_offset 310 INTEGER d_i1 311 INTEGER k_i1_offset 312 INTEGER d_v2 313 INTEGER k_v2_offset 314 INTEGER d_y2 315 INTEGER k_y2_offset 316 INTEGER l_i1_offset 317 INTEGER d_trb1 318 INTEGER k_trb1_offset 319 INTEGER d_i2 320 INTEGER k_i2_offset 321 INTEGER size_i1 322 INTEGER d_tra1 323 INTEGER k_tra1_offset 324 INTEGER d_trc1 325 INTEGER k_trc1_offset 326 INTEGER l_i2_offset 327 INTEGER d_i3 328 INTEGER k_i3_offset 329 INTEGER size_i2 330 INTEGER l_i3_offset 331 INTEGER size_i3 332 INTEGER d_trc2 333 INTEGER k_trc2_offset 334 INTEGER d_y3 335 INTEGER k_y3_offset 336 INTEGER d_trb2 337 INTEGER k_trb2_offset 338 INTEGER d_tra2 339 INTEGER k_tra2_offset 340 INTEGER d_trc3 341 INTEGER k_trc3_offset 342 INTEGER d_trb3 343 INTEGER k_trb3_offset 344 INTEGER d_tra3 345 INTEGER k_tra3_offset 346 INTEGER d_t1 347 INTEGER k_t1_offset 348 INTEGER d_i4 349 INTEGER k_i4_offset 350 INTEGER l_i4_offset 351 INTEGER size_i4 352 INTEGER d_t2 353 INTEGER k_t2_offset 354 CHARACTER*255 filename 355#if !defined(CCSDTLR) 356 CALL ERRQUIT('CCSDTLR not compiled (ccsdt_lr_beta_4.F)', 357 & 0,CAPMIS_ERR) 358 RETURN 359 END 360#else 361 CALL OFFSET_ccsdt_lr_beta_4_1_1(l_i1_offset,k_i1_offset,size_i1) 362 CALL TCE_FILENAME('ccsdt_lr_beta_4_1_1_i1',filename) 363 CALL CREATEFILE(filename,d_i1,size_i1) 364 CALL OFFSET_ccsdt_lr_beta_4_1_1_1(l_i2_offset,k_i2_offset,size_i2) 365 CALL TCE_FILENAME('ccsdt_lr_beta_4_1_1_1_i2',filename) 366 CALL CREATEFILE(filename,d_i2,size_i2) 367 CALL OFFSET_ccsdt_lr_beta_4_1_1_1_1(l_i3_offset,k_i3_offset,size_i 368 &3) 369 CALL TCE_FILENAME('ccsdt_lr_beta_4_1_1_1_1_i3',filename) 370 CALL CREATEFILE(filename,d_i3,size_i3) 371 CALL ccsdt_lr_beta_4_1_1_1_1(d_trc1,k_trc1_offset,d_v2,k_v2_offset 372 &,d_i3,k_i3_offset) 373 CALL RECONCILEFILE(d_i3,size_i3) 374 CALL ccsdt_lr_beta_4_1_1_1(d_tra1,k_tra1_offset,d_i3,k_i3_offset,d 375 &_i2,k_i2_offset) 376 CALL DELETEFILE(d_i3) 377 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 378 &,-1,MA_ERR) 379 CALL OFFSET_ccsdt_lr_beta_4_1_1_2_1(l_i3_offset,k_i3_offset,size_i 380 &3) 381 CALL TCE_FILENAME('ccsdt_lr_beta_4_1_1_2_1_i3',filename) 382 CALL CREATEFILE(filename,d_i3,size_i3) 383 CALL ccsdt_lr_beta_4_1_1_2_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset 384 &,d_i3,k_i3_offset) 385 CALL RECONCILEFILE(d_i3,size_i3) 386 CALL ccsdt_lr_beta_4_1_1_2(d_trc1,k_trc1_offset,d_i3,k_i3_offset,d 387 &_i2,k_i2_offset) 388 CALL DELETEFILE(d_i3) 389 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 390 &,-1,MA_ERR) 391 CALL RECONCILEFILE(d_i2,size_i2) 392 CALL ccsdt_lr_beta_4_1_1(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_i 393 &1,k_i1_offset) 394 CALL DELETEFILE(d_i2) 395 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 396 &,-1,MA_ERR) 397 CALL OFFSET_ccsdt_lr_beta_4_1_2_1(l_i2_offset,k_i2_offset,size_i2) 398 CALL TCE_FILENAME('ccsdt_lr_beta_4_1_2_1_i2',filename) 399 CALL CREATEFILE(filename,d_i2,size_i2) 400 CALL OFFSET_ccsdt_lr_beta_4_1_2_1_1(l_i3_offset,k_i3_offset,size_i 401 &3) 402 CALL TCE_FILENAME('ccsdt_lr_beta_4_1_2_1_1_i3',filename) 403 CALL CREATEFILE(filename,d_i3,size_i3) 404 CALL ccsdt_lr_beta_4_1_2_1_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset 405 &,d_i3,k_i3_offset) 406 CALL RECONCILEFILE(d_i3,size_i3) 407 CALL ccsdt_lr_beta_4_1_2_1(d_trc1,k_trc1_offset,d_i3,k_i3_offset,d 408 &_i2,k_i2_offset) 409 CALL DELETEFILE(d_i3) 410 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 411 &,-1,MA_ERR) 412 CALL OFFSET_ccsdt_lr_beta_4_1_2_2_1(l_i3_offset,k_i3_offset,size_i 413 &3) 414 CALL TCE_FILENAME('ccsdt_lr_beta_4_1_2_2_1_i3',filename) 415 CALL CREATEFILE(filename,d_i3,size_i3) 416 CALL ccsdt_lr_beta_4_1_2_2_1(d_trc1,k_trc1_offset,d_v2,k_v2_offset 417 &,d_i3,k_i3_offset) 418 CALL RECONCILEFILE(d_i3,size_i3) 419 CALL ccsdt_lr_beta_4_1_2_2(d_trb1,k_trb1_offset,d_i3,k_i3_offset,d 420 &_i2,k_i2_offset) 421 CALL DELETEFILE(d_i3) 422 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 423 &,-1,MA_ERR) 424 CALL RECONCILEFILE(d_i2,size_i2) 425 CALL ccsdt_lr_beta_4_1_2(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_i 426 &1,k_i1_offset) 427 CALL DELETEFILE(d_i2) 428 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 429 &,-1,MA_ERR) 430 CALL OFFSET_ccsdt_lr_beta_4_1_3_1(l_i2_offset,k_i2_offset,size_i2) 431 CALL TCE_FILENAME('ccsdt_lr_beta_4_1_3_1_i2',filename) 432 CALL CREATEFILE(filename,d_i2,size_i2) 433 CALL OFFSET_ccsdt_lr_beta_4_1_3_1_1(l_i3_offset,k_i3_offset,size_i 434 &3) 435 CALL TCE_FILENAME('ccsdt_lr_beta_4_1_3_1_1_i3',filename) 436 CALL CREATEFILE(filename,d_i3,size_i3) 437 CALL ccsdt_lr_beta_4_1_3_1_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset 438 &,d_i3,k_i3_offset) 439 CALL RECONCILEFILE(d_i3,size_i3) 440 CALL ccsdt_lr_beta_4_1_3_1(d_trb1,k_trb1_offset,d_i3,k_i3_offset,d 441 &_i2,k_i2_offset) 442 CALL DELETEFILE(d_i3) 443 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 444 &,-1,MA_ERR) 445 CALL OFFSET_ccsdt_lr_beta_4_1_3_2_1(l_i3_offset,k_i3_offset,size_i 446 &3) 447 CALL TCE_FILENAME('ccsdt_lr_beta_4_1_3_2_1_i3',filename) 448 CALL CREATEFILE(filename,d_i3,size_i3) 449 CALL ccsdt_lr_beta_4_1_3_2_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset 450 &,d_i3,k_i3_offset) 451 CALL RECONCILEFILE(d_i3,size_i3) 452 CALL ccsdt_lr_beta_4_1_3_2(d_tra1,k_tra1_offset,d_i3,k_i3_offset,d 453 &_i2,k_i2_offset) 454 CALL DELETEFILE(d_i3) 455 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 456 &,-1,MA_ERR) 457 CALL RECONCILEFILE(d_i2,size_i2) 458 CALL ccsdt_lr_beta_4_1_3(d_trc1,k_trc1_offset,d_i2,k_i2_offset,d_i 459 &1,k_i1_offset) 460 CALL DELETEFILE(d_i2) 461 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 462 &,-1,MA_ERR) 463 CALL RECONCILEFILE(d_i1,size_i1) 464 CALL ccsdt_lr_beta_4_1(d_y1,k_y1_offset,d_i1,k_i1_offset,d_i0,k_i0 465 &_offset) 466 CALL DELETEFILE(d_i1) 467 IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 468 &,-1,MA_ERR) 469 CALL OFFSET_ccsdt_lr_beta_4_2_1(l_i1_offset,k_i1_offset,size_i1) 470 CALL TCE_FILENAME('ccsdt_lr_beta_4_2_1_i1',filename) 471 CALL CREATEFILE(filename,d_i1,size_i1) 472 CALL OFFSET_ccsdt_lr_beta_4_2_1_1(l_i2_offset,k_i2_offset,size_i2) 473 CALL TCE_FILENAME('ccsdt_lr_beta_4_2_1_1_i2',filename) 474 CALL CREATEFILE(filename,d_i2,size_i2) 475 CALL OFFSET_ccsdt_lr_beta_4_2_1_1_1(l_i3_offset,k_i3_offset,size_i 476 &3) 477 CALL TCE_FILENAME('ccsdt_lr_beta_4_2_1_1_1_i3',filename) 478 CALL CREATEFILE(filename,d_i3,size_i3) 479 CALL ccsdt_lr_beta_4_2_1_1_1(d_trc1,k_trc1_offset,d_y2,k_y2_offset 480 &,d_i3,k_i3_offset) 481 CALL ccsdt_lr_beta_4_2_1_1_2(d_trc2,k_trc2_offset,d_y3,k_y3_offset 482 &,d_i3,k_i3_offset) 483 CALL RECONCILEFILE(d_i3,size_i3) 484 CALL ccsdt_lr_beta_4_2_1_1(d_trb1,k_trb1_offset,d_i3,k_i3_offset,d 485 &_i2,k_i2_offset) 486 CALL DELETEFILE(d_i3) 487 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 488 &,-1,MA_ERR) 489 CALL OFFSET_ccsdt_lr_beta_4_2_1_2_1(l_i3_offset,k_i3_offset,size_i 490 &3) 491 CALL TCE_FILENAME('ccsdt_lr_beta_4_2_1_2_1_i3',filename) 492 CALL CREATEFILE(filename,d_i3,size_i3) 493 CALL ccsdt_lr_beta_4_2_1_2_1(d_trb1,k_trb1_offset,d_y2,k_y2_offset 494 &,d_i3,k_i3_offset) 495 CALL ccsdt_lr_beta_4_2_1_2_2(d_trb2,k_trb2_offset,d_y3,k_y3_offset 496 &,d_i3,k_i3_offset) 497 CALL RECONCILEFILE(d_i3,size_i3) 498 CALL ccsdt_lr_beta_4_2_1_2(d_trc1,k_trc1_offset,d_i3,k_i3_offset,d 499 &_i2,k_i2_offset) 500 CALL DELETEFILE(d_i3) 501 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 502 &,-1,MA_ERR) 503 CALL RECONCILEFILE(d_i2,size_i2) 504 CALL ccsdt_lr_beta_4_2_1(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_i 505 &1,k_i1_offset) 506 CALL DELETEFILE(d_i2) 507 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 508 &,-1,MA_ERR) 509 CALL OFFSET_ccsdt_lr_beta_4_2_2_1(l_i2_offset,k_i2_offset,size_i2) 510 CALL TCE_FILENAME('ccsdt_lr_beta_4_2_2_1_i2',filename) 511 CALL CREATEFILE(filename,d_i2,size_i2) 512 CALL OFFSET_ccsdt_lr_beta_4_2_2_1_1(l_i3_offset,k_i3_offset,size_i 513 &3) 514 CALL TCE_FILENAME('ccsdt_lr_beta_4_2_2_1_1_i3',filename) 515 CALL CREATEFILE(filename,d_i3,size_i3) 516 CALL ccsdt_lr_beta_4_2_2_1_1(d_trb1,k_trb1_offset,d_y3,k_y3_offset 517 &,d_i3,k_i3_offset) 518 CALL RECONCILEFILE(d_i3,size_i3) 519 CALL ccsdt_lr_beta_4_2_2_1(d_trc2,k_trc2_offset,d_i3,k_i3_offset,d 520 &_i2,k_i2_offset) 521 CALL DELETEFILE(d_i3) 522 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 523 &,-1,MA_ERR) 524 CALL OFFSET_ccsdt_lr_beta_4_2_2_2_1(l_i3_offset,k_i3_offset,size_i 525 &3) 526 CALL TCE_FILENAME('ccsdt_lr_beta_4_2_2_2_1_i3',filename) 527 CALL CREATEFILE(filename,d_i3,size_i3) 528 CALL ccsdt_lr_beta_4_2_2_2_1(d_trc1,k_trc1_offset,d_y3,k_y3_offset 529 &,d_i3,k_i3_offset) 530 CALL RECONCILEFILE(d_i3,size_i3) 531 CALL ccsdt_lr_beta_4_2_2_2(d_trb2,k_trb2_offset,d_i3,k_i3_offset,d 532 &_i2,k_i2_offset) 533 CALL DELETEFILE(d_i3) 534 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 535 &,-1,MA_ERR) 536 CALL RECONCILEFILE(d_i2,size_i2) 537 CALL ccsdt_lr_beta_4_2_2(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_i 538 &1,k_i1_offset) 539 CALL DELETEFILE(d_i2) 540 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 541 &,-1,MA_ERR) 542 CALL OFFSET_ccsdt_lr_beta_4_2_3_1(l_i2_offset,k_i2_offset,size_i2) 543 CALL TCE_FILENAME('ccsdt_lr_beta_4_2_3_1_i2',filename) 544 CALL CREATEFILE(filename,d_i2,size_i2) 545 CALL OFFSET_ccsdt_lr_beta_4_2_3_1_1(l_i3_offset,k_i3_offset,size_i 546 &3) 547 CALL TCE_FILENAME('ccsdt_lr_beta_4_2_3_1_1_i3',filename) 548 CALL CREATEFILE(filename,d_i3,size_i3) 549 CALL ccsdt_lr_beta_4_2_3_1_1(d_trb1,k_trb1_offset,d_y2,k_y2_offset 550 &,d_i3,k_i3_offset) 551 CALL ccsdt_lr_beta_4_2_3_1_2(d_trb2,k_trb2_offset,d_y3,k_y3_offset 552 &,d_i3,k_i3_offset) 553 CALL RECONCILEFILE(d_i3,size_i3) 554 CALL ccsdt_lr_beta_4_2_3_1(d_tra1,k_tra1_offset,d_i3,k_i3_offset,d 555 &_i2,k_i2_offset) 556 CALL DELETEFILE(d_i3) 557 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 558 &,-1,MA_ERR) 559 CALL OFFSET_ccsdt_lr_beta_4_2_3_2_1(l_i3_offset,k_i3_offset,size_i 560 &3) 561 CALL TCE_FILENAME('ccsdt_lr_beta_4_2_3_2_1_i3',filename) 562 CALL CREATEFILE(filename,d_i3,size_i3) 563 CALL ccsdt_lr_beta_4_2_3_2_1(d_tra1,k_tra1_offset,d_y2,k_y2_offset 564 &,d_i3,k_i3_offset) 565 CALL ccsdt_lr_beta_4_2_3_2_2(d_tra2,k_tra2_offset,d_y3,k_y3_offset 566 &,d_i3,k_i3_offset) 567 CALL RECONCILEFILE(d_i3,size_i3) 568 CALL ccsdt_lr_beta_4_2_3_2(d_trb1,k_trb1_offset,d_i3,k_i3_offset,d 569 &_i2,k_i2_offset) 570 CALL DELETEFILE(d_i3) 571 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 572 &,-1,MA_ERR) 573 CALL RECONCILEFILE(d_i2,size_i2) 574 CALL ccsdt_lr_beta_4_2_3(d_trc1,k_trc1_offset,d_i2,k_i2_offset,d_i 575 &1,k_i1_offset) 576 CALL DELETEFILE(d_i2) 577 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 578 &,-1,MA_ERR) 579 CALL OFFSET_ccsdt_lr_beta_4_2_4_1(l_i2_offset,k_i2_offset,size_i2) 580 CALL TCE_FILENAME('ccsdt_lr_beta_4_2_4_1_i2',filename) 581 CALL CREATEFILE(filename,d_i2,size_i2) 582 CALL OFFSET_ccsdt_lr_beta_4_2_4_1_1(l_i3_offset,k_i3_offset,size_i 583 &3) 584 CALL TCE_FILENAME('ccsdt_lr_beta_4_2_4_1_1_i3',filename) 585 CALL CREATEFILE(filename,d_i3,size_i3) 586 CALL ccsdt_lr_beta_4_2_4_1_1(d_tra1,k_tra1_offset,d_y3,k_y3_offset 587 &,d_i3,k_i3_offset) 588 CALL RECONCILEFILE(d_i3,size_i3) 589 CALL ccsdt_lr_beta_4_2_4_1(d_trb2,k_trb2_offset,d_i3,k_i3_offset,d 590 &_i2,k_i2_offset) 591 CALL DELETEFILE(d_i3) 592 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 593 &,-1,MA_ERR) 594 CALL OFFSET_ccsdt_lr_beta_4_2_4_2_1(l_i3_offset,k_i3_offset,size_i 595 &3) 596 CALL TCE_FILENAME('ccsdt_lr_beta_4_2_4_2_1_i3',filename) 597 CALL CREATEFILE(filename,d_i3,size_i3) 598 CALL ccsdt_lr_beta_4_2_4_2_1(d_trb1,k_trb1_offset,d_y3,k_y3_offset 599 &,d_i3,k_i3_offset) 600 CALL RECONCILEFILE(d_i3,size_i3) 601 CALL ccsdt_lr_beta_4_2_4_2(d_tra2,k_tra2_offset,d_i3,k_i3_offset,d 602 &_i2,k_i2_offset) 603 CALL DELETEFILE(d_i3) 604 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 605 &,-1,MA_ERR) 606 CALL RECONCILEFILE(d_i2,size_i2) 607 CALL ccsdt_lr_beta_4_2_4(d_trc1,k_trc1_offset,d_i2,k_i2_offset,d_i 608 &1,k_i1_offset) 609 CALL DELETEFILE(d_i2) 610 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 611 &,-1,MA_ERR) 612 CALL OFFSET_ccsdt_lr_beta_4_2_5_1(l_i2_offset,k_i2_offset,size_i2) 613 CALL TCE_FILENAME('ccsdt_lr_beta_4_2_5_1_i2',filename) 614 CALL CREATEFILE(filename,d_i2,size_i2) 615 CALL OFFSET_ccsdt_lr_beta_4_2_5_1_1(l_i3_offset,k_i3_offset,size_i 616 &3) 617 CALL TCE_FILENAME('ccsdt_lr_beta_4_2_5_1_1_i3',filename) 618 CALL CREATEFILE(filename,d_i3,size_i3) 619 CALL ccsdt_lr_beta_4_2_5_1_1(d_tra1,k_tra1_offset,d_y2,k_y2_offset 620 &,d_i3,k_i3_offset) 621 CALL ccsdt_lr_beta_4_2_5_1_2(d_tra2,k_tra2_offset,d_y3,k_y3_offset 622 &,d_i3,k_i3_offset) 623 CALL RECONCILEFILE(d_i3,size_i3) 624 CALL ccsdt_lr_beta_4_2_5_1(d_trc1,k_trc1_offset,d_i3,k_i3_offset,d 625 &_i2,k_i2_offset) 626 CALL DELETEFILE(d_i3) 627 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 628 &,-1,MA_ERR) 629 CALL OFFSET_ccsdt_lr_beta_4_2_5_2_1(l_i3_offset,k_i3_offset,size_i 630 &3) 631 CALL TCE_FILENAME('ccsdt_lr_beta_4_2_5_2_1_i3',filename) 632 CALL CREATEFILE(filename,d_i3,size_i3) 633 CALL ccsdt_lr_beta_4_2_5_2_1(d_trc1,k_trc1_offset,d_y2,k_y2_offset 634 &,d_i3,k_i3_offset) 635 CALL ccsdt_lr_beta_4_2_5_2_2(d_trc2,k_trc2_offset,d_y3,k_y3_offset 636 &,d_i3,k_i3_offset) 637 CALL RECONCILEFILE(d_i3,size_i3) 638 CALL ccsdt_lr_beta_4_2_5_2(d_tra1,k_tra1_offset,d_i3,k_i3_offset,d 639 &_i2,k_i2_offset) 640 CALL DELETEFILE(d_i3) 641 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 642 &,-1,MA_ERR) 643 CALL RECONCILEFILE(d_i2,size_i2) 644 CALL ccsdt_lr_beta_4_2_5(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_i 645 &1,k_i1_offset) 646 CALL DELETEFILE(d_i2) 647 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 648 &,-1,MA_ERR) 649 CALL OFFSET_ccsdt_lr_beta_4_2_6_1(l_i2_offset,k_i2_offset,size_i2) 650 CALL TCE_FILENAME('ccsdt_lr_beta_4_2_6_1_i2',filename) 651 CALL CREATEFILE(filename,d_i2,size_i2) 652 CALL OFFSET_ccsdt_lr_beta_4_2_6_1_1(l_i3_offset,k_i3_offset,size_i 653 &3) 654 CALL TCE_FILENAME('ccsdt_lr_beta_4_2_6_1_1_i3',filename) 655 CALL CREATEFILE(filename,d_i3,size_i3) 656 CALL ccsdt_lr_beta_4_2_6_1_1(d_trc1,k_trc1_offset,d_y3,k_y3_offset 657 &,d_i3,k_i3_offset) 658 CALL RECONCILEFILE(d_i3,size_i3) 659 CALL ccsdt_lr_beta_4_2_6_1(d_tra2,k_tra2_offset,d_i3,k_i3_offset,d 660 &_i2,k_i2_offset) 661 CALL DELETEFILE(d_i3) 662 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 663 &,-1,MA_ERR) 664 CALL OFFSET_ccsdt_lr_beta_4_2_6_2_1(l_i3_offset,k_i3_offset,size_i 665 &3) 666 CALL TCE_FILENAME('ccsdt_lr_beta_4_2_6_2_1_i3',filename) 667 CALL CREATEFILE(filename,d_i3,size_i3) 668 CALL ccsdt_lr_beta_4_2_6_2_1(d_tra1,k_tra1_offset,d_y3,k_y3_offset 669 &,d_i3,k_i3_offset) 670 CALL RECONCILEFILE(d_i3,size_i3) 671 CALL ccsdt_lr_beta_4_2_6_2(d_trc2,k_trc2_offset,d_i3,k_i3_offset,d 672 &_i2,k_i2_offset) 673 CALL DELETEFILE(d_i3) 674 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 675 &,-1,MA_ERR) 676 CALL RECONCILEFILE(d_i2,size_i2) 677 CALL ccsdt_lr_beta_4_2_6(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_i 678 &1,k_i1_offset) 679 CALL DELETEFILE(d_i2) 680 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 681 &,-1,MA_ERR) 682 CALL RECONCILEFILE(d_i1,size_i1) 683 CALL ccsdt_lr_beta_4_2(d_i1,k_i1_offset,d_v2,k_v2_offset,d_i0,k_i0 684 &_offset) 685 CALL DELETEFILE(d_i1) 686 IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 687 &,-1,MA_ERR) 688 CALL OFFSET_ccsdt_lr_beta_4_3_1(l_i1_offset,k_i1_offset,size_i1) 689 CALL TCE_FILENAME('ccsdt_lr_beta_4_3_1_i1',filename) 690 CALL CREATEFILE(filename,d_i1,size_i1) 691 CALL OFFSET_ccsdt_lr_beta_4_3_1_1(l_i2_offset,k_i2_offset,size_i2) 692 CALL TCE_FILENAME('ccsdt_lr_beta_4_3_1_1_i2',filename) 693 CALL CREATEFILE(filename,d_i2,size_i2) 694 CALL OFFSET_ccsdt_lr_beta_4_3_1_1_1(l_i3_offset,k_i3_offset,size_i 695 &3) 696 CALL TCE_FILENAME('ccsdt_lr_beta_4_3_1_1_1_i3',filename) 697 CALL CREATEFILE(filename,d_i3,size_i3) 698 CALL ccsdt_lr_beta_4_3_1_1_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset 699 &,d_i3,k_i3_offset) 700 CALL RECONCILEFILE(d_i3,size_i3) 701 CALL ccsdt_lr_beta_4_3_1_1(d_tra1,k_tra1_offset,d_i3,k_i3_offset,d 702 &_i2,k_i2_offset) 703 CALL DELETEFILE(d_i3) 704 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 705 &,-1,MA_ERR) 706 CALL OFFSET_ccsdt_lr_beta_4_3_1_2_1(l_i3_offset,k_i3_offset,size_i 707 &3) 708 CALL TCE_FILENAME('ccsdt_lr_beta_4_3_1_2_1_i3',filename) 709 CALL CREATEFILE(filename,d_i3,size_i3) 710 CALL ccsdt_lr_beta_4_3_1_2_1(d_trb2,k_trb2_offset,d_v2,k_v2_offset 711 &,d_i3,k_i3_offset) 712 CALL RECONCILEFILE(d_i3,size_i3) 713 CALL ccsdt_lr_beta_4_3_1_2(d_tra1,k_tra1_offset,d_i3,k_i3_offset,d 714 &_i2,k_i2_offset) 715 CALL DELETEFILE(d_i3) 716 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 717 &,-1,MA_ERR) 718 CALL OFFSET_ccsdt_lr_beta_4_3_1_3_1(l_i3_offset,k_i3_offset,size_i 719 &3) 720 CALL TCE_FILENAME('ccsdt_lr_beta_4_3_1_3_1_i3',filename) 721 CALL CREATEFILE(filename,d_i3,size_i3) 722 CALL ccsdt_lr_beta_4_3_1_3_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset 723 &,d_i3,k_i3_offset) 724 CALL RECONCILEFILE(d_i3,size_i3) 725 CALL ccsdt_lr_beta_4_3_1_3(d_trb2,k_trb2_offset,d_i3,k_i3_offset,d 726 &_i2,k_i2_offset) 727 CALL DELETEFILE(d_i3) 728 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 729 &,-1,MA_ERR) 730 CALL OFFSET_ccsdt_lr_beta_4_3_1_4_1(l_i3_offset,k_i3_offset,size_i 731 &3) 732 CALL TCE_FILENAME('ccsdt_lr_beta_4_3_1_4_1_i3',filename) 733 CALL CREATEFILE(filename,d_i3,size_i3) 734 CALL ccsdt_lr_beta_4_3_1_4_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset 735 &,d_i3,k_i3_offset) 736 CALL RECONCILEFILE(d_i3,size_i3) 737 CALL ccsdt_lr_beta_4_3_1_4(d_trb1,k_trb1_offset,d_i3,k_i3_offset,d 738 &_i2,k_i2_offset) 739 CALL DELETEFILE(d_i3) 740 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 741 &,-1,MA_ERR) 742 CALL OFFSET_ccsdt_lr_beta_4_3_1_5_1(l_i3_offset,k_i3_offset,size_i 743 &3) 744 CALL TCE_FILENAME('ccsdt_lr_beta_4_3_1_5_1_i3',filename) 745 CALL CREATEFILE(filename,d_i3,size_i3) 746 CALL ccsdt_lr_beta_4_3_1_5_1(d_tra2,k_tra2_offset,d_v2,k_v2_offset 747 &,d_i3,k_i3_offset) 748 CALL RECONCILEFILE(d_i3,size_i3) 749 CALL ccsdt_lr_beta_4_3_1_5(d_trb1,k_trb1_offset,d_i3,k_i3_offset,d 750 &_i2,k_i2_offset) 751 CALL DELETEFILE(d_i3) 752 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 753 &,-1,MA_ERR) 754 CALL OFFSET_ccsdt_lr_beta_4_3_1_6_1(l_i3_offset,k_i3_offset,size_i 755 &3) 756 CALL TCE_FILENAME('ccsdt_lr_beta_4_3_1_6_1_i3',filename) 757 CALL CREATEFILE(filename,d_i3,size_i3) 758 CALL ccsdt_lr_beta_4_3_1_6_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset 759 &,d_i3,k_i3_offset) 760 CALL RECONCILEFILE(d_i3,size_i3) 761 CALL ccsdt_lr_beta_4_3_1_6(d_tra2,k_tra2_offset,d_i3,k_i3_offset,d 762 &_i2,k_i2_offset) 763 CALL DELETEFILE(d_i3) 764 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 765 &,-1,MA_ERR) 766 CALL RECONCILEFILE(d_i2,size_i2) 767 CALL ccsdt_lr_beta_4_3_1(d_trc1,k_trc1_offset,d_i2,k_i2_offset,d_i 768 &1,k_i1_offset) 769 CALL DELETEFILE(d_i2) 770 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 771 &,-1,MA_ERR) 772 CALL OFFSET_ccsdt_lr_beta_4_3_2_1(l_i2_offset,k_i2_offset,size_i2) 773 CALL TCE_FILENAME('ccsdt_lr_beta_4_3_2_1_i2',filename) 774 CALL CREATEFILE(filename,d_i2,size_i2) 775 CALL OFFSET_ccsdt_lr_beta_4_3_2_1_1(l_i3_offset,k_i3_offset,size_i 776 &3) 777 CALL TCE_FILENAME('ccsdt_lr_beta_4_3_2_1_1_i3',filename) 778 CALL CREATEFILE(filename,d_i3,size_i3) 779 CALL ccsdt_lr_beta_4_3_2_1_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset 780 &,d_i3,k_i3_offset) 781 CALL RECONCILEFILE(d_i3,size_i3) 782 CALL ccsdt_lr_beta_4_3_2_1(d_tra1,k_tra1_offset,d_i3,k_i3_offset,d 783 &_i2,k_i2_offset) 784 CALL DELETEFILE(d_i3) 785 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 786 &,-1,MA_ERR) 787 CALL OFFSET_ccsdt_lr_beta_4_3_2_2_1(l_i3_offset,k_i3_offset,size_i 788 &3) 789 CALL TCE_FILENAME('ccsdt_lr_beta_4_3_2_2_1_i3',filename) 790 CALL CREATEFILE(filename,d_i3,size_i3) 791 CALL ccsdt_lr_beta_4_3_2_2_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset 792 &,d_i3,k_i3_offset) 793 CALL RECONCILEFILE(d_i3,size_i3) 794 CALL ccsdt_lr_beta_4_3_2_2(d_trb1,k_trb1_offset,d_i3,k_i3_offset,d 795 &_i2,k_i2_offset) 796 CALL DELETEFILE(d_i3) 797 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 798 &,-1,MA_ERR) 799 CALL RECONCILEFILE(d_i2,size_i2) 800 CALL ccsdt_lr_beta_4_3_2(d_trc2,k_trc2_offset,d_i2,k_i2_offset,d_i 801 &1,k_i1_offset) 802 CALL DELETEFILE(d_i2) 803 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 804 &,-1,MA_ERR) 805 CALL OFFSET_ccsdt_lr_beta_4_3_3_1(l_i2_offset,k_i2_offset,size_i2) 806 CALL TCE_FILENAME('ccsdt_lr_beta_4_3_3_1_i2',filename) 807 CALL CREATEFILE(filename,d_i2,size_i2) 808 CALL OFFSET_ccsdt_lr_beta_4_3_3_1_1(l_i3_offset,k_i3_offset,size_i 809 &3) 810 CALL TCE_FILENAME('ccsdt_lr_beta_4_3_3_1_1_i3',filename) 811 CALL CREATEFILE(filename,d_i3,size_i3) 812 CALL ccsdt_lr_beta_4_3_3_1_1(d_trc2,k_trc2_offset,d_v2,k_v2_offset 813 &,d_i3,k_i3_offset) 814 CALL RECONCILEFILE(d_i3,size_i3) 815 CALL ccsdt_lr_beta_4_3_3_1(d_trb1,k_trb1_offset,d_i3,k_i3_offset,d 816 &_i2,k_i2_offset) 817 CALL DELETEFILE(d_i3) 818 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 819 &,-1,MA_ERR) 820 CALL OFFSET_ccsdt_lr_beta_4_3_3_2_1(l_i3_offset,k_i3_offset,size_i 821 &3) 822 CALL TCE_FILENAME('ccsdt_lr_beta_4_3_3_2_1_i3',filename) 823 CALL CREATEFILE(filename,d_i3,size_i3) 824 CALL ccsdt_lr_beta_4_3_3_2_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset 825 &,d_i3,k_i3_offset) 826 CALL RECONCILEFILE(d_i3,size_i3) 827 CALL ccsdt_lr_beta_4_3_3_2(d_trc2,k_trc2_offset,d_i3,k_i3_offset,d 828 &_i2,k_i2_offset) 829 CALL DELETEFILE(d_i3) 830 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 831 &,-1,MA_ERR) 832 CALL OFFSET_ccsdt_lr_beta_4_3_3_3_1(l_i3_offset,k_i3_offset,size_i 833 &3) 834 CALL TCE_FILENAME('ccsdt_lr_beta_4_3_3_3_1_i3',filename) 835 CALL CREATEFILE(filename,d_i3,size_i3) 836 CALL ccsdt_lr_beta_4_3_3_3_1(d_trc1,k_trc1_offset,d_v2,k_v2_offset 837 &,d_i3,k_i3_offset) 838 CALL RECONCILEFILE(d_i3,size_i3) 839 CALL ccsdt_lr_beta_4_3_3_3(d_trb1,k_trb1_offset,d_i3,k_i3_offset,d 840 &_i2,k_i2_offset) 841 CALL DELETEFILE(d_i3) 842 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 843 &,-1,MA_ERR) 844 CALL OFFSET_ccsdt_lr_beta_4_3_3_4_1(l_i3_offset,k_i3_offset,size_i 845 &3) 846 CALL TCE_FILENAME('ccsdt_lr_beta_4_3_3_4_1_i3',filename) 847 CALL CREATEFILE(filename,d_i3,size_i3) 848 CALL ccsdt_lr_beta_4_3_3_4_1(d_trb2,k_trb2_offset,d_v2,k_v2_offset 849 &,d_i3,k_i3_offset) 850 CALL RECONCILEFILE(d_i3,size_i3) 851 CALL ccsdt_lr_beta_4_3_3_4(d_trc1,k_trc1_offset,d_i3,k_i3_offset,d 852 &_i2,k_i2_offset) 853 CALL DELETEFILE(d_i3) 854 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 855 &,-1,MA_ERR) 856 CALL OFFSET_ccsdt_lr_beta_4_3_3_5_1(l_i3_offset,k_i3_offset,size_i 857 &3) 858 CALL TCE_FILENAME('ccsdt_lr_beta_4_3_3_5_1_i3',filename) 859 CALL CREATEFILE(filename,d_i3,size_i3) 860 CALL ccsdt_lr_beta_4_3_3_5_1(d_trc1,k_trc1_offset,d_v2,k_v2_offset 861 &,d_i3,k_i3_offset) 862 CALL RECONCILEFILE(d_i3,size_i3) 863 CALL ccsdt_lr_beta_4_3_3_5(d_trb2,k_trb2_offset,d_i3,k_i3_offset,d 864 &_i2,k_i2_offset) 865 CALL DELETEFILE(d_i3) 866 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 867 &,-1,MA_ERR) 868 CALL OFFSET_ccsdt_lr_beta_4_3_3_6_1(l_i3_offset,k_i3_offset,size_i 869 &3) 870 CALL TCE_FILENAME('ccsdt_lr_beta_4_3_3_6_1_i3',filename) 871 CALL CREATEFILE(filename,d_i3,size_i3) 872 CALL ccsdt_lr_beta_4_3_3_6_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset 873 &,d_i3,k_i3_offset) 874 CALL RECONCILEFILE(d_i3,size_i3) 875 CALL ccsdt_lr_beta_4_3_3_6(d_trc1,k_trc1_offset,d_i3,k_i3_offset,d 876 &_i2,k_i2_offset) 877 CALL DELETEFILE(d_i3) 878 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 879 &,-1,MA_ERR) 880 CALL RECONCILEFILE(d_i2,size_i2) 881 CALL ccsdt_lr_beta_4_3_3(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_i 882 &1,k_i1_offset) 883 CALL DELETEFILE(d_i2) 884 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 885 &,-1,MA_ERR) 886 CALL OFFSET_ccsdt_lr_beta_4_3_4_1(l_i2_offset,k_i2_offset,size_i2) 887 CALL TCE_FILENAME('ccsdt_lr_beta_4_3_4_1_i2',filename) 888 CALL CREATEFILE(filename,d_i2,size_i2) 889 CALL OFFSET_ccsdt_lr_beta_4_3_4_1_1(l_i3_offset,k_i3_offset,size_i 890 &3) 891 CALL TCE_FILENAME('ccsdt_lr_beta_4_3_4_1_1_i3',filename) 892 CALL CREATEFILE(filename,d_i3,size_i3) 893 CALL ccsdt_lr_beta_4_3_4_1_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset 894 &,d_i3,k_i3_offset) 895 CALL RECONCILEFILE(d_i3,size_i3) 896 CALL ccsdt_lr_beta_4_3_4_1(d_trc1,k_trc1_offset,d_i3,k_i3_offset,d 897 &_i2,k_i2_offset) 898 CALL DELETEFILE(d_i3) 899 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 900 &,-1,MA_ERR) 901 CALL OFFSET_ccsdt_lr_beta_4_3_4_2_1(l_i3_offset,k_i3_offset,size_i 902 &3) 903 CALL TCE_FILENAME('ccsdt_lr_beta_4_3_4_2_1_i3',filename) 904 CALL CREATEFILE(filename,d_i3,size_i3) 905 CALL ccsdt_lr_beta_4_3_4_2_1(d_tra2,k_tra2_offset,d_v2,k_v2_offset 906 &,d_i3,k_i3_offset) 907 CALL RECONCILEFILE(d_i3,size_i3) 908 CALL ccsdt_lr_beta_4_3_4_2(d_trc1,k_trc1_offset,d_i3,k_i3_offset,d 909 &_i2,k_i2_offset) 910 CALL DELETEFILE(d_i3) 911 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 912 &,-1,MA_ERR) 913 CALL OFFSET_ccsdt_lr_beta_4_3_4_3_1(l_i3_offset,k_i3_offset,size_i 914 &3) 915 CALL TCE_FILENAME('ccsdt_lr_beta_4_3_4_3_1_i3',filename) 916 CALL CREATEFILE(filename,d_i3,size_i3) 917 CALL ccsdt_lr_beta_4_3_4_3_1(d_trc1,k_trc1_offset,d_v2,k_v2_offset 918 &,d_i3,k_i3_offset) 919 CALL RECONCILEFILE(d_i3,size_i3) 920 CALL ccsdt_lr_beta_4_3_4_3(d_tra2,k_tra2_offset,d_i3,k_i3_offset,d 921 &_i2,k_i2_offset) 922 CALL DELETEFILE(d_i3) 923 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 924 &,-1,MA_ERR) 925 CALL OFFSET_ccsdt_lr_beta_4_3_4_4_1(l_i3_offset,k_i3_offset,size_i 926 &3) 927 CALL TCE_FILENAME('ccsdt_lr_beta_4_3_4_4_1_i3',filename) 928 CALL CREATEFILE(filename,d_i3,size_i3) 929 CALL ccsdt_lr_beta_4_3_4_4_1(d_trc1,k_trc1_offset,d_v2,k_v2_offset 930 &,d_i3,k_i3_offset) 931 CALL RECONCILEFILE(d_i3,size_i3) 932 CALL ccsdt_lr_beta_4_3_4_4(d_tra1,k_tra1_offset,d_i3,k_i3_offset,d 933 &_i2,k_i2_offset) 934 CALL DELETEFILE(d_i3) 935 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 936 &,-1,MA_ERR) 937 CALL OFFSET_ccsdt_lr_beta_4_3_4_5_1(l_i3_offset,k_i3_offset,size_i 938 &3) 939 CALL TCE_FILENAME('ccsdt_lr_beta_4_3_4_5_1_i3',filename) 940 CALL CREATEFILE(filename,d_i3,size_i3) 941 CALL ccsdt_lr_beta_4_3_4_5_1(d_trc2,k_trc2_offset,d_v2,k_v2_offset 942 &,d_i3,k_i3_offset) 943 CALL RECONCILEFILE(d_i3,size_i3) 944 CALL ccsdt_lr_beta_4_3_4_5(d_tra1,k_tra1_offset,d_i3,k_i3_offset,d 945 &_i2,k_i2_offset) 946 CALL DELETEFILE(d_i3) 947 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 948 &,-1,MA_ERR) 949 CALL OFFSET_ccsdt_lr_beta_4_3_4_6_1(l_i3_offset,k_i3_offset,size_i 950 &3) 951 CALL TCE_FILENAME('ccsdt_lr_beta_4_3_4_6_1_i3',filename) 952 CALL CREATEFILE(filename,d_i3,size_i3) 953 CALL ccsdt_lr_beta_4_3_4_6_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset 954 &,d_i3,k_i3_offset) 955 CALL RECONCILEFILE(d_i3,size_i3) 956 CALL ccsdt_lr_beta_4_3_4_6(d_trc2,k_trc2_offset,d_i3,k_i3_offset,d 957 &_i2,k_i2_offset) 958 CALL DELETEFILE(d_i3) 959 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 960 &,-1,MA_ERR) 961 CALL RECONCILEFILE(d_i2,size_i2) 962 CALL ccsdt_lr_beta_4_3_4(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_i 963 &1,k_i1_offset) 964 CALL DELETEFILE(d_i2) 965 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 966 &,-1,MA_ERR) 967 CALL OFFSET_ccsdt_lr_beta_4_3_5_1(l_i2_offset,k_i2_offset,size_i2) 968 CALL TCE_FILENAME('ccsdt_lr_beta_4_3_5_1_i2',filename) 969 CALL CREATEFILE(filename,d_i2,size_i2) 970 CALL OFFSET_ccsdt_lr_beta_4_3_5_1_1(l_i3_offset,k_i3_offset,size_i 971 &3) 972 CALL TCE_FILENAME('ccsdt_lr_beta_4_3_5_1_1_i3',filename) 973 CALL CREATEFILE(filename,d_i3,size_i3) 974 CALL ccsdt_lr_beta_4_3_5_1_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset 975 &,d_i3,k_i3_offset) 976 CALL RECONCILEFILE(d_i3,size_i3) 977 CALL ccsdt_lr_beta_4_3_5_1(d_trc1,k_trc1_offset,d_i3,k_i3_offset,d 978 &_i2,k_i2_offset) 979 CALL DELETEFILE(d_i3) 980 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 981 &,-1,MA_ERR) 982 CALL OFFSET_ccsdt_lr_beta_4_3_5_2_1(l_i3_offset,k_i3_offset,size_i 983 &3) 984 CALL TCE_FILENAME('ccsdt_lr_beta_4_3_5_2_1_i3',filename) 985 CALL CREATEFILE(filename,d_i3,size_i3) 986 CALL ccsdt_lr_beta_4_3_5_2_1(d_trc1,k_trc1_offset,d_v2,k_v2_offset 987 &,d_i3,k_i3_offset) 988 CALL RECONCILEFILE(d_i3,size_i3) 989 CALL ccsdt_lr_beta_4_3_5_2(d_tra1,k_tra1_offset,d_i3,k_i3_offset,d 990 &_i2,k_i2_offset) 991 CALL DELETEFILE(d_i3) 992 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 993 &,-1,MA_ERR) 994 CALL RECONCILEFILE(d_i2,size_i2) 995 CALL ccsdt_lr_beta_4_3_5(d_trb2,k_trb2_offset,d_i2,k_i2_offset,d_i 996 &1,k_i1_offset) 997 CALL DELETEFILE(d_i2) 998 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 999 &,-1,MA_ERR) 1000 CALL OFFSET_ccsdt_lr_beta_4_3_6_1(l_i2_offset,k_i2_offset,size_i2) 1001 CALL TCE_FILENAME('ccsdt_lr_beta_4_3_6_1_i2',filename) 1002 CALL CREATEFILE(filename,d_i2,size_i2) 1003 CALL OFFSET_ccsdt_lr_beta_4_3_6_1_1(l_i3_offset,k_i3_offset,size_i 1004 &3) 1005 CALL TCE_FILENAME('ccsdt_lr_beta_4_3_6_1_1_i3',filename) 1006 CALL CREATEFILE(filename,d_i3,size_i3) 1007 CALL ccsdt_lr_beta_4_3_6_1_1(d_trc1,k_trc1_offset,d_v2,k_v2_offset 1008 &,d_i3,k_i3_offset) 1009 CALL RECONCILEFILE(d_i3,size_i3) 1010 CALL ccsdt_lr_beta_4_3_6_1(d_trb1,k_trb1_offset,d_i3,k_i3_offset,d 1011 &_i2,k_i2_offset) 1012 CALL DELETEFILE(d_i3) 1013 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1014 &,-1,MA_ERR) 1015 CALL OFFSET_ccsdt_lr_beta_4_3_6_2_1(l_i3_offset,k_i3_offset,size_i 1016 &3) 1017 CALL TCE_FILENAME('ccsdt_lr_beta_4_3_6_2_1_i3',filename) 1018 CALL CREATEFILE(filename,d_i3,size_i3) 1019 CALL ccsdt_lr_beta_4_3_6_2_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset 1020 &,d_i3,k_i3_offset) 1021 CALL RECONCILEFILE(d_i3,size_i3) 1022 CALL ccsdt_lr_beta_4_3_6_2(d_trc1,k_trc1_offset,d_i3,k_i3_offset,d 1023 &_i2,k_i2_offset) 1024 CALL DELETEFILE(d_i3) 1025 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1026 &,-1,MA_ERR) 1027 CALL RECONCILEFILE(d_i2,size_i2) 1028 CALL ccsdt_lr_beta_4_3_6(d_tra2,k_tra2_offset,d_i2,k_i2_offset,d_i 1029 &1,k_i1_offset) 1030 CALL DELETEFILE(d_i2) 1031 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1032 &,-1,MA_ERR) 1033 CALL RECONCILEFILE(d_i1,size_i1) 1034 CALL ccsdt_lr_beta_4_3(d_y2,k_y2_offset,d_i1,k_i1_offset,d_i0,k_i0 1035 &_offset) 1036 CALL DELETEFILE(d_i1) 1037 IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1038 &,-1,MA_ERR) 1039 CALL OFFSET_ccsdt_lr_beta_4_4_1(l_i1_offset,k_i1_offset,size_i1) 1040 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_1_i1',filename) 1041 CALL CREATEFILE(filename,d_i1,size_i1) 1042 CALL OFFSET_ccsdt_lr_beta_4_4_1_1(l_i2_offset,k_i2_offset,size_i2) 1043 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_1_1_i2',filename) 1044 CALL CREATEFILE(filename,d_i2,size_i2) 1045 CALL OFFSET_ccsdt_lr_beta_4_4_1_1_1(l_i3_offset,k_i3_offset,size_i 1046 &3) 1047 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_1_1_1_i3',filename) 1048 CALL CREATEFILE(filename,d_i3,size_i3) 1049 CALL ccsdt_lr_beta_4_4_1_1_1(d_trc2,k_trc2_offset,d_y2,k_y2_offset 1050 &,d_i3,k_i3_offset) 1051 CALL OFFSET_ccsdt_lr_beta_4_4_1_1_2_1(l_i4_offset,k_i4_offset,size 1052 &_i4) 1053 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_1_1_2_1_i4',filename) 1054 CALL CREATEFILE(filename,d_i4,size_i4) 1055 CALL ccsdt_lr_beta_4_4_1_1_2_1(d_y3,k_y3_offset,d_i4,k_i4_offset) 1056 CALL ccsdt_lr_beta_4_4_1_1_2_2(d_y3,k_y3_offset,d_i4,k_i4_offset) 1057 CALL RECONCILEFILE(d_i4,size_i4) 1058 CALL ccsdt_lr_beta_4_4_1_1_2(d_trc3,k_trc3_offset,d_i4,k_i4_offset 1059 &,d_i3,k_i3_offset) 1060 CALL DELETEFILE(d_i4) 1061 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1062 &,-1,MA_ERR) 1063 CALL OFFSET_ccsdt_lr_beta_4_4_1_1_3_1(l_i4_offset,k_i4_offset,size 1064 &_i4) 1065 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_1_1_3_1_i4',filename) 1066 CALL CREATEFILE(filename,d_i4,size_i4) 1067 CALL ccsdt_lr_beta_4_4_1_1_3_1(d_t1,k_t1_offset,d_y2,k_y2_offset,d 1068 &_i4,k_i4_offset) 1069 CALL ccsdt_lr_beta_4_4_1_1_3_2(d_t2,k_t2_offset,d_y3,k_y3_offset,d 1070 &_i4,k_i4_offset) 1071 CALL RECONCILEFILE(d_i4,size_i4) 1072 CALL ccsdt_lr_beta_4_4_1_1_3(d_trc1,k_trc1_offset,d_i4,k_i4_offset 1073 &,d_i3,k_i3_offset) 1074 CALL DELETEFILE(d_i4) 1075 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1076 &,-1,MA_ERR) 1077 CALL OFFSET_ccsdt_lr_beta_4_4_1_1_4_1(l_i4_offset,k_i4_offset,size 1078 &_i4) 1079 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_1_1_4_1_i4',filename) 1080 CALL CREATEFILE(filename,d_i4,size_i4) 1081 CALL ccsdt_lr_beta_4_4_1_1_4_1(d_trc1,k_trc1_offset,d_y2,k_y2_offs 1082 &et,d_i4,k_i4_offset) 1083 CALL ccsdt_lr_beta_4_4_1_1_4_2(d_trc2,k_trc2_offset,d_y3,k_y3_offs 1084 &et,d_i4,k_i4_offset) 1085 CALL RECONCILEFILE(d_i4,size_i4) 1086 CALL ccsdt_lr_beta_4_4_1_1_4(d_t1,k_t1_offset,d_i4,k_i4_offset,d_i 1087 &3,k_i3_offset) 1088 CALL DELETEFILE(d_i4) 1089 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1090 &,-1,MA_ERR) 1091 CALL RECONCILEFILE(d_i3,size_i3) 1092 CALL ccsdt_lr_beta_4_4_1_1(d_trb1,k_trb1_offset,d_i3,k_i3_offset,d 1093 &_i2,k_i2_offset) 1094 CALL DELETEFILE(d_i3) 1095 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1096 &,-1,MA_ERR) 1097 CALL OFFSET_ccsdt_lr_beta_4_4_1_2_1(l_i3_offset,k_i3_offset,size_i 1098 &3) 1099 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_1_2_1_i3',filename) 1100 CALL CREATEFILE(filename,d_i3,size_i3) 1101 CALL ccsdt_lr_beta_4_4_1_2_1(d_trb1,k_trb1_offset,d_y2,k_y2_offset 1102 &,d_i3,k_i3_offset) 1103 CALL RECONCILEFILE(d_i3,size_i3) 1104 CALL ccsdt_lr_beta_4_4_1_2(d_trc2,k_trc2_offset,d_i3,k_i3_offset,d 1105 &_i2,k_i2_offset) 1106 CALL DELETEFILE(d_i3) 1107 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1108 &,-1,MA_ERR) 1109 CALL OFFSET_ccsdt_lr_beta_4_4_1_3_1(l_i3_offset,k_i3_offset,size_i 1110 &3) 1111 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_1_3_1_i3',filename) 1112 CALL CREATEFILE(filename,d_i3,size_i3) 1113 CALL ccsdt_lr_beta_4_4_1_3_1(d_trb1,k_trb1_offset,d_y3,k_y3_offset 1114 &,d_i3,k_i3_offset) 1115 CALL RECONCILEFILE(d_i3,size_i3) 1116 CALL ccsdt_lr_beta_4_4_1_3(d_trc3,k_trc3_offset,d_i3,k_i3_offset,d 1117 &_i2,k_i2_offset) 1118 CALL DELETEFILE(d_i3) 1119 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1120 &,-1,MA_ERR) 1121 CALL OFFSET_ccsdt_lr_beta_4_4_1_4_1(l_i3_offset,k_i3_offset,size_i 1122 &3) 1123 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_1_4_1_i3',filename) 1124 CALL CREATEFILE(filename,d_i3,size_i3) 1125 CALL ccsdt_lr_beta_4_4_1_4_1(d_trb2,k_trb2_offset,d_y2,k_y2_offset 1126 &,d_i3,k_i3_offset) 1127 CALL OFFSET_ccsdt_lr_beta_4_4_1_4_2_1(l_i4_offset,k_i4_offset,size 1128 &_i4) 1129 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_1_4_2_1_i4',filename) 1130 CALL CREATEFILE(filename,d_i4,size_i4) 1131 CALL ccsdt_lr_beta_4_4_1_4_2_1(d_trb1,k_trb1_offset,d_y2,k_y2_offs 1132 &et,d_i4,k_i4_offset) 1133 CALL ccsdt_lr_beta_4_4_1_4_2_2(d_trb2,k_trb2_offset,d_y3,k_y3_offs 1134 &et,d_i4,k_i4_offset) 1135 CALL RECONCILEFILE(d_i4,size_i4) 1136 CALL ccsdt_lr_beta_4_4_1_4_2(d_t1,k_t1_offset,d_i4,k_i4_offset,d_i 1137 &3,k_i3_offset) 1138 CALL DELETEFILE(d_i4) 1139 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1140 &,-1,MA_ERR) 1141 CALL OFFSET_ccsdt_lr_beta_4_4_1_4_3_1(l_i4_offset,k_i4_offset,size 1142 &_i4) 1143 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_1_4_3_1_i4',filename) 1144 CALL CREATEFILE(filename,d_i4,size_i4) 1145 CALL ccsdt_lr_beta_4_4_1_4_3_1(d_t1,k_t1_offset,d_y2,k_y2_offset,d 1146 &_i4,k_i4_offset) 1147 CALL ccsdt_lr_beta_4_4_1_4_3_2(d_t2,k_t2_offset,d_y3,k_y3_offset,d 1148 &_i4,k_i4_offset) 1149 CALL RECONCILEFILE(d_i4,size_i4) 1150 CALL ccsdt_lr_beta_4_4_1_4_3(d_trb1,k_trb1_offset,d_i4,k_i4_offset 1151 &,d_i3,k_i3_offset) 1152 CALL DELETEFILE(d_i4) 1153 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1154 &,-1,MA_ERR) 1155 CALL RECONCILEFILE(d_i3,size_i3) 1156 CALL ccsdt_lr_beta_4_4_1_4(d_trc1,k_trc1_offset,d_i3,k_i3_offset,d 1157 &_i2,k_i2_offset) 1158 CALL DELETEFILE(d_i3) 1159 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1160 &,-1,MA_ERR) 1161 CALL OFFSET_ccsdt_lr_beta_4_4_1_5_1(l_i3_offset,k_i3_offset,size_i 1162 &3) 1163 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_1_5_1_i3',filename) 1164 CALL CREATEFILE(filename,d_i3,size_i3) 1165 CALL ccsdt_lr_beta_4_4_1_5_1(d_trc1,k_trc1_offset,d_y2,k_y2_offset 1166 &,d_i3,k_i3_offset) 1167 CALL RECONCILEFILE(d_i3,size_i3) 1168 CALL ccsdt_lr_beta_4_4_1_5(d_trb2,k_trb2_offset,d_i3,k_i3_offset,d 1169 &_i2,k_i2_offset) 1170 CALL DELETEFILE(d_i3) 1171 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1172 &,-1,MA_ERR) 1173 CALL OFFSET_ccsdt_lr_beta_4_4_1_6_1(l_i3_offset,k_i3_offset,size_i 1174 &3) 1175 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_1_6_1_i3',filename) 1176 CALL CREATEFILE(filename,d_i3,size_i3) 1177 CALL ccsdt_lr_beta_4_4_1_6_1(d_trc1,k_trc1_offset,d_y3,k_y3_offset 1178 &,d_i3,k_i3_offset) 1179 CALL RECONCILEFILE(d_i3,size_i3) 1180 CALL ccsdt_lr_beta_4_4_1_6(d_trb3,k_trb3_offset,d_i3,k_i3_offset,d 1181 &_i2,k_i2_offset) 1182 CALL DELETEFILE(d_i3) 1183 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1184 &,-1,MA_ERR) 1185 CALL OFFSET_ccsdt_lr_beta_4_4_1_7_1(l_i3_offset,k_i3_offset,size_i 1186 &3) 1187 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_1_7_1_i3',filename) 1188 CALL CREATEFILE(filename,d_i3,size_i3) 1189 CALL OFFSET_ccsdt_lr_beta_4_4_1_7_1_1(l_i4_offset,k_i4_offset,size 1190 &_i4) 1191 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_1_7_1_1_i4',filename) 1192 CALL CREATEFILE(filename,d_i4,size_i4) 1193 CALL ccsdt_lr_beta_4_4_1_7_1_1(d_trc1,k_trc1_offset,d_y3,k_y3_offs 1194 &et,d_i4,k_i4_offset) 1195 CALL RECONCILEFILE(d_i4,size_i4) 1196 CALL ccsdt_lr_beta_4_4_1_7_1(d_t2,k_t2_offset,d_i4,k_i4_offset,d_i 1197 &3,k_i3_offset) 1198 CALL DELETEFILE(d_i4) 1199 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1200 &,-1,MA_ERR) 1201 CALL OFFSET_ccsdt_lr_beta_4_4_1_7_2_1(l_i4_offset,k_i4_offset,size 1202 &_i4) 1203 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_1_7_2_1_i4',filename) 1204 CALL CREATEFILE(filename,d_i4,size_i4) 1205 CALL ccsdt_lr_beta_4_4_1_7_2_1(d_t1,k_t1_offset,d_y3,k_y3_offset,d 1206 &_i4,k_i4_offset) 1207 CALL RECONCILEFILE(d_i4,size_i4) 1208 CALL ccsdt_lr_beta_4_4_1_7_2(d_trc2,k_trc2_offset,d_i4,k_i4_offset 1209 &,d_i3,k_i3_offset) 1210 CALL DELETEFILE(d_i4) 1211 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1212 &,-1,MA_ERR) 1213 CALL RECONCILEFILE(d_i3,size_i3) 1214 CALL ccsdt_lr_beta_4_4_1_7(d_trb1,k_trb1_offset,d_i3,k_i3_offset,d 1215 &_i2,k_i2_offset) 1216 CALL DELETEFILE(d_i3) 1217 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1218 &,-1,MA_ERR) 1219 CALL OFFSET_ccsdt_lr_beta_4_4_1_8_1(l_i3_offset,k_i3_offset,size_i 1220 &3) 1221 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_1_8_1_i3',filename) 1222 CALL CREATEFILE(filename,d_i3,size_i3) 1223 CALL OFFSET_ccsdt_lr_beta_4_4_1_8_1_1(l_i4_offset,k_i4_offset,size 1224 &_i4) 1225 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_1_8_1_1_i4',filename) 1226 CALL CREATEFILE(filename,d_i4,size_i4) 1227 CALL ccsdt_lr_beta_4_4_1_8_1_1(d_t1,k_t1_offset,d_y3,k_y3_offset,d 1228 &_i4,k_i4_offset) 1229 CALL RECONCILEFILE(d_i4,size_i4) 1230 CALL ccsdt_lr_beta_4_4_1_8_1(d_trb2,k_trb2_offset,d_i4,k_i4_offset 1231 &,d_i3,k_i3_offset) 1232 CALL DELETEFILE(d_i4) 1233 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1234 &,-1,MA_ERR) 1235 CALL OFFSET_ccsdt_lr_beta_4_4_1_8_2_1(l_i4_offset,k_i4_offset,size 1236 &_i4) 1237 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_1_8_2_1_i4',filename) 1238 CALL CREATEFILE(filename,d_i4,size_i4) 1239 CALL ccsdt_lr_beta_4_4_1_8_2_1(d_trb1,k_trb1_offset,d_y3,k_y3_offs 1240 &et,d_i4,k_i4_offset) 1241 CALL RECONCILEFILE(d_i4,size_i4) 1242 CALL ccsdt_lr_beta_4_4_1_8_2(d_t2,k_t2_offset,d_i4,k_i4_offset,d_i 1243 &3,k_i3_offset) 1244 CALL DELETEFILE(d_i4) 1245 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1246 &,-1,MA_ERR) 1247 CALL RECONCILEFILE(d_i3,size_i3) 1248 CALL ccsdt_lr_beta_4_4_1_8(d_trc1,k_trc1_offset,d_i3,k_i3_offset,d 1249 &_i2,k_i2_offset) 1250 CALL DELETEFILE(d_i3) 1251 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1252 &,-1,MA_ERR) 1253 CALL OFFSET_ccsdt_lr_beta_4_4_1_9_1(l_i3_offset,k_i3_offset,size_i 1254 &3) 1255 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_1_9_1_i3',filename) 1256 CALL CREATEFILE(filename,d_i3,size_i3) 1257 CALL OFFSET_ccsdt_lr_beta_4_4_1_9_1_1(l_i4_offset,k_i4_offset,size 1258 &_i4) 1259 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_1_9_1_1_i4',filename) 1260 CALL CREATEFILE(filename,d_i4,size_i4) 1261 CALL ccsdt_lr_beta_4_4_1_9_1_1(d_trb1,k_trb1_offset,d_y2,k_y2_offs 1262 &et,d_i4,k_i4_offset) 1263 CALL ccsdt_lr_beta_4_4_1_9_1_2(d_trb2,k_trb2_offset,d_y3,k_y3_offs 1264 &et,d_i4,k_i4_offset) 1265 CALL RECONCILEFILE(d_i4,size_i4) 1266 CALL ccsdt_lr_beta_4_4_1_9_1(d_trc1,k_trc1_offset,d_i4,k_i4_offset 1267 &,d_i3,k_i3_offset) 1268 CALL DELETEFILE(d_i4) 1269 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1270 &,-1,MA_ERR) 1271 CALL OFFSET_ccsdt_lr_beta_4_4_1_9_2_1(l_i4_offset,k_i4_offset,size 1272 &_i4) 1273 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_1_9_2_1_i4',filename) 1274 CALL CREATEFILE(filename,d_i4,size_i4) 1275 CALL ccsdt_lr_beta_4_4_1_9_2_1(d_trc1,k_trc1_offset,d_y2,k_y2_offs 1276 &et,d_i4,k_i4_offset) 1277 CALL ccsdt_lr_beta_4_4_1_9_2_2(d_trc2,k_trc2_offset,d_y3,k_y3_offs 1278 &et,d_i4,k_i4_offset) 1279 CALL RECONCILEFILE(d_i4,size_i4) 1280 CALL ccsdt_lr_beta_4_4_1_9_2(d_trb1,k_trb1_offset,d_i4,k_i4_offset 1281 &,d_i3,k_i3_offset) 1282 CALL DELETEFILE(d_i4) 1283 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1284 &,-1,MA_ERR) 1285 CALL RECONCILEFILE(d_i3,size_i3) 1286 CALL ccsdt_lr_beta_4_4_1_9(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2, 1287 &k_i2_offset) 1288 CALL DELETEFILE(d_i3) 1289 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1290 &,-1,MA_ERR) 1291 CALL OFFSET_ccsdt_lr_beta_4_4_1_10_1(l_i3_offset,k_i3_offset,size_ 1292 &i3) 1293 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_1_10_1_i3',filename) 1294 CALL CREATEFILE(filename,d_i3,size_i3) 1295 CALL OFFSET_ccsdt_lr_beta_4_4_1_10_1_1(l_i4_offset,k_i4_offset,siz 1296 &e_i4) 1297 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_1_10_1_1_i4',filename) 1298 CALL CREATEFILE(filename,d_i4,size_i4) 1299 CALL ccsdt_lr_beta_4_4_1_10_1_1(d_trc1,k_trc1_offset,d_y3,k_y3_off 1300 &set,d_i4,k_i4_offset) 1301 CALL RECONCILEFILE(d_i4,size_i4) 1302 CALL ccsdt_lr_beta_4_4_1_10_1(d_trb2,k_trb2_offset,d_i4,k_i4_offse 1303 &t,d_i3,k_i3_offset) 1304 CALL DELETEFILE(d_i4) 1305 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1306 &,-1,MA_ERR) 1307 CALL OFFSET_ccsdt_lr_beta_4_4_1_10_2_1(l_i4_offset,k_i4_offset,siz 1308 &e_i4) 1309 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_1_10_2_1_i4',filename) 1310 CALL CREATEFILE(filename,d_i4,size_i4) 1311 CALL ccsdt_lr_beta_4_4_1_10_2_1(d_trb1,k_trb1_offset,d_y3,k_y3_off 1312 &set,d_i4,k_i4_offset) 1313 CALL RECONCILEFILE(d_i4,size_i4) 1314 CALL ccsdt_lr_beta_4_4_1_10_2(d_trc2,k_trc2_offset,d_i4,k_i4_offse 1315 &t,d_i3,k_i3_offset) 1316 CALL DELETEFILE(d_i4) 1317 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1318 &,-1,MA_ERR) 1319 CALL RECONCILEFILE(d_i3,size_i3) 1320 CALL ccsdt_lr_beta_4_4_1_10(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2 1321 &,k_i2_offset) 1322 CALL DELETEFILE(d_i3) 1323 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1324 &,-1,MA_ERR) 1325 CALL RECONCILEFILE(d_i2,size_i2) 1326 CALL ccsdt_lr_beta_4_4_1(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_i 1327 &1,k_i1_offset) 1328 CALL DELETEFILE(d_i2) 1329 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1330 &,-1,MA_ERR) 1331 CALL OFFSET_ccsdt_lr_beta_4_4_2_1(l_i2_offset,k_i2_offset,size_i2) 1332 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_2_1_i2',filename) 1333 CALL CREATEFILE(filename,d_i2,size_i2) 1334 CALL OFFSET_ccsdt_lr_beta_4_4_2_1_1(l_i3_offset,k_i3_offset,size_i 1335 &3) 1336 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_2_1_1_i3',filename) 1337 CALL CREATEFILE(filename,d_i3,size_i3) 1338 CALL ccsdt_lr_beta_4_4_2_1_1(d_trc3,k_trc3_offset,d_y3,k_y3_offset 1339 &,d_i3,k_i3_offset) 1340 CALL RECONCILEFILE(d_i3,size_i3) 1341 CALL ccsdt_lr_beta_4_4_2_1(d_tra1,k_tra1_offset,d_i3,k_i3_offset,d 1342 &_i2,k_i2_offset) 1343 CALL DELETEFILE(d_i3) 1344 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1345 &,-1,MA_ERR) 1346 CALL OFFSET_ccsdt_lr_beta_4_4_2_2_1(l_i3_offset,k_i3_offset,size_i 1347 &3) 1348 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_2_2_1_i3',filename) 1349 CALL CREATEFILE(filename,d_i3,size_i3) 1350 CALL ccsdt_lr_beta_4_4_2_2_1(d_tra3,k_tra3_offset,d_y3,k_y3_offset 1351 &,d_i3,k_i3_offset) 1352 CALL RECONCILEFILE(d_i3,size_i3) 1353 CALL ccsdt_lr_beta_4_4_2_2(d_trc1,k_trc1_offset,d_i3,k_i3_offset,d 1354 &_i2,k_i2_offset) 1355 CALL DELETEFILE(d_i3) 1356 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1357 &,-1,MA_ERR) 1358 CALL RECONCILEFILE(d_i2,size_i2) 1359 CALL ccsdt_lr_beta_4_4_2(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_i 1360 &1,k_i1_offset) 1361 CALL DELETEFILE(d_i2) 1362 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1363 &,-1,MA_ERR) 1364 CALL OFFSET_ccsdt_lr_beta_4_4_3_1(l_i2_offset,k_i2_offset,size_i2) 1365 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_3_1_i2',filename) 1366 CALL CREATEFILE(filename,d_i2,size_i2) 1367 CALL OFFSET_ccsdt_lr_beta_4_4_3_1_1(l_i3_offset,k_i3_offset,size_i 1368 &3) 1369 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_3_1_1_i3',filename) 1370 CALL CREATEFILE(filename,d_i3,size_i3) 1371 CALL ccsdt_lr_beta_4_4_3_1_1(d_trb1,k_trb1_offset,d_y3,k_y3_offset 1372 &,d_i3,k_i3_offset) 1373 CALL RECONCILEFILE(d_i3,size_i3) 1374 CALL ccsdt_lr_beta_4_4_3_1(d_tra1,k_tra1_offset,d_i3,k_i3_offset,d 1375 &_i2,k_i2_offset) 1376 CALL DELETEFILE(d_i3) 1377 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1378 &,-1,MA_ERR) 1379 CALL OFFSET_ccsdt_lr_beta_4_4_3_2_1(l_i3_offset,k_i3_offset,size_i 1380 &3) 1381 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_3_2_1_i3',filename) 1382 CALL CREATEFILE(filename,d_i3,size_i3) 1383 CALL ccsdt_lr_beta_4_4_3_2_1(d_tra1,k_tra1_offset,d_y3,k_y3_offset 1384 &,d_i3,k_i3_offset) 1385 CALL RECONCILEFILE(d_i3,size_i3) 1386 CALL ccsdt_lr_beta_4_4_3_2(d_trb1,k_trb1_offset,d_i3,k_i3_offset,d 1387 &_i2,k_i2_offset) 1388 CALL DELETEFILE(d_i3) 1389 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1390 &,-1,MA_ERR) 1391 CALL RECONCILEFILE(d_i2,size_i2) 1392 CALL ccsdt_lr_beta_4_4_3(d_trc3,k_trc3_offset,d_i2,k_i2_offset,d_i 1393 &1,k_i1_offset) 1394 CALL DELETEFILE(d_i2) 1395 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1396 &,-1,MA_ERR) 1397 CALL OFFSET_ccsdt_lr_beta_4_4_4_1(l_i2_offset,k_i2_offset,size_i2) 1398 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_4_1_i2',filename) 1399 CALL CREATEFILE(filename,d_i2,size_i2) 1400 CALL OFFSET_ccsdt_lr_beta_4_4_4_1_1(l_i3_offset,k_i3_offset,size_i 1401 &3) 1402 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_4_1_1_i3',filename) 1403 CALL CREATEFILE(filename,d_i3,size_i3) 1404 CALL ccsdt_lr_beta_4_4_4_1_1(d_tra1,k_tra1_offset,d_y3,k_y3_offset 1405 &,d_i3,k_i3_offset) 1406 CALL RECONCILEFILE(d_i3,size_i3) 1407 CALL ccsdt_lr_beta_4_4_4_1(d_trc3,k_trc3_offset,d_i3,k_i3_offset,d 1408 &_i2,k_i2_offset) 1409 CALL DELETEFILE(d_i3) 1410 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1411 &,-1,MA_ERR) 1412 CALL OFFSET_ccsdt_lr_beta_4_4_4_2_1(l_i3_offset,k_i3_offset,size_i 1413 &3) 1414 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_4_2_1_i3',filename) 1415 CALL CREATEFILE(filename,d_i3,size_i3) 1416 CALL ccsdt_lr_beta_4_4_4_2_1(d_trc1,k_trc1_offset,d_y3,k_y3_offset 1417 &,d_i3,k_i3_offset) 1418 CALL RECONCILEFILE(d_i3,size_i3) 1419 CALL ccsdt_lr_beta_4_4_4_2(d_tra3,k_tra3_offset,d_i3,k_i3_offset,d 1420 &_i2,k_i2_offset) 1421 CALL DELETEFILE(d_i3) 1422 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1423 &,-1,MA_ERR) 1424 CALL RECONCILEFILE(d_i2,size_i2) 1425 CALL ccsdt_lr_beta_4_4_4(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_i 1426 &1,k_i1_offset) 1427 CALL DELETEFILE(d_i2) 1428 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1429 &,-1,MA_ERR) 1430 CALL OFFSET_ccsdt_lr_beta_4_4_5_1(l_i2_offset,k_i2_offset,size_i2) 1431 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_5_1_i2',filename) 1432 CALL CREATEFILE(filename,d_i2,size_i2) 1433 CALL OFFSET_ccsdt_lr_beta_4_4_5_1_1(l_i3_offset,k_i3_offset,size_i 1434 &3) 1435 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_5_1_1_i3',filename) 1436 CALL CREATEFILE(filename,d_i3,size_i3) 1437 CALL ccsdt_lr_beta_4_4_5_1_1(d_tra2,k_tra2_offset,d_y3,k_y3_offset 1438 &,d_i3,k_i3_offset) 1439 CALL RECONCILEFILE(d_i3,size_i3) 1440 CALL ccsdt_lr_beta_4_4_5_1(d_trb2,k_trb2_offset,d_i3,k_i3_offset,d 1441 &_i2,k_i2_offset) 1442 CALL DELETEFILE(d_i3) 1443 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1444 &,-1,MA_ERR) 1445 CALL OFFSET_ccsdt_lr_beta_4_4_5_2_1(l_i3_offset,k_i3_offset,size_i 1446 &3) 1447 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_5_2_1_i3',filename) 1448 CALL CREATEFILE(filename,d_i3,size_i3) 1449 CALL ccsdt_lr_beta_4_4_5_2_1(d_tra2,k_tra2_offset,d_y3,k_y3_offset 1450 &,d_i3,k_i3_offset) 1451 CALL RECONCILEFILE(d_i3,size_i3) 1452 CALL ccsdt_lr_beta_4_4_5_2(d_trb2,k_trb2_offset,d_i3,k_i3_offset,d 1453 &_i2,k_i2_offset) 1454 CALL DELETEFILE(d_i3) 1455 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1456 &,-1,MA_ERR) 1457 CALL OFFSET_ccsdt_lr_beta_4_4_5_3_1(l_i3_offset,k_i3_offset,size_i 1458 &3) 1459 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_5_3_1_i3',filename) 1460 CALL CREATEFILE(filename,d_i3,size_i3) 1461 CALL ccsdt_lr_beta_4_4_5_3_1(d_trb2,k_trb2_offset,d_y3,k_y3_offset 1462 &,d_i3,k_i3_offset) 1463 CALL RECONCILEFILE(d_i3,size_i3) 1464 CALL ccsdt_lr_beta_4_4_5_3(d_tra2,k_tra2_offset,d_i3,k_i3_offset,d 1465 &_i2,k_i2_offset) 1466 CALL DELETEFILE(d_i3) 1467 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1468 &,-1,MA_ERR) 1469 CALL OFFSET_ccsdt_lr_beta_4_4_5_4_1(l_i3_offset,k_i3_offset,size_i 1470 &3) 1471 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_5_4_1_i3',filename) 1472 CALL CREATEFILE(filename,d_i3,size_i3) 1473 CALL ccsdt_lr_beta_4_4_5_4_1(d_trb2,k_trb2_offset,d_y3,k_y3_offset 1474 &,d_i3,k_i3_offset) 1475 CALL RECONCILEFILE(d_i3,size_i3) 1476 CALL ccsdt_lr_beta_4_4_5_4(d_tra2,k_tra2_offset,d_i3,k_i3_offset,d 1477 &_i2,k_i2_offset) 1478 CALL DELETEFILE(d_i3) 1479 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1480 &,-1,MA_ERR) 1481 CALL RECONCILEFILE(d_i2,size_i2) 1482 CALL ccsdt_lr_beta_4_4_5(d_trc1,k_trc1_offset,d_i2,k_i2_offset,d_i 1483 &1,k_i1_offset) 1484 CALL DELETEFILE(d_i2) 1485 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1486 &,-1,MA_ERR) 1487 CALL OFFSET_ccsdt_lr_beta_4_4_6_1(l_i2_offset,k_i2_offset,size_i2) 1488 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_6_1_i2',filename) 1489 CALL CREATEFILE(filename,d_i2,size_i2) 1490 CALL OFFSET_ccsdt_lr_beta_4_4_6_1_1(l_i3_offset,k_i3_offset,size_i 1491 &3) 1492 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_6_1_1_i3',filename) 1493 CALL CREATEFILE(filename,d_i3,size_i3) 1494 CALL ccsdt_lr_beta_4_4_6_1_1(d_trc1,k_trc1_offset,d_y3,k_y3_offset 1495 &,d_i3,k_i3_offset) 1496 CALL RECONCILEFILE(d_i3,size_i3) 1497 CALL ccsdt_lr_beta_4_4_6_1(d_tra2,k_tra2_offset,d_i3,k_i3_offset,d 1498 &_i2,k_i2_offset) 1499 CALL DELETEFILE(d_i3) 1500 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1501 &,-1,MA_ERR) 1502 CALL OFFSET_ccsdt_lr_beta_4_4_6_2_1(l_i3_offset,k_i3_offset,size_i 1503 &3) 1504 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_6_2_1_i3',filename) 1505 CALL CREATEFILE(filename,d_i3,size_i3) 1506 CALL ccsdt_lr_beta_4_4_6_2_1(d_tra1,k_tra1_offset,d_y3,k_y3_offset 1507 &,d_i3,k_i3_offset) 1508 CALL RECONCILEFILE(d_i3,size_i3) 1509 CALL ccsdt_lr_beta_4_4_6_2(d_trc2,k_trc2_offset,d_i3,k_i3_offset,d 1510 &_i2,k_i2_offset) 1511 CALL DELETEFILE(d_i3) 1512 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1513 &,-1,MA_ERR) 1514 CALL RECONCILEFILE(d_i2,size_i2) 1515 CALL ccsdt_lr_beta_4_4_6(d_trb2,k_trb2_offset,d_i2,k_i2_offset,d_i 1516 &1,k_i1_offset) 1517 CALL DELETEFILE(d_i2) 1518 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1519 &,-1,MA_ERR) 1520 CALL OFFSET_ccsdt_lr_beta_4_4_7_1(l_i2_offset,k_i2_offset,size_i2) 1521 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_7_1_i2',filename) 1522 CALL CREATEFILE(filename,d_i2,size_i2) 1523 CALL OFFSET_ccsdt_lr_beta_4_4_7_1_1(l_i3_offset,k_i3_offset,size_i 1524 &3) 1525 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_7_1_1_i3',filename) 1526 CALL CREATEFILE(filename,d_i3,size_i3) 1527 CALL ccsdt_lr_beta_4_4_7_1_1(d_tra2,k_tra2_offset,d_y3,k_y3_offset 1528 &,d_i3,k_i3_offset) 1529 CALL RECONCILEFILE(d_i3,size_i3) 1530 CALL ccsdt_lr_beta_4_4_7_1(d_trc1,k_trc1_offset,d_i3,k_i3_offset,d 1531 &_i2,k_i2_offset) 1532 CALL DELETEFILE(d_i3) 1533 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1534 &,-1,MA_ERR) 1535 CALL OFFSET_ccsdt_lr_beta_4_4_7_2_1(l_i3_offset,k_i3_offset,size_i 1536 &3) 1537 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_7_2_1_i3',filename) 1538 CALL CREATEFILE(filename,d_i3,size_i3) 1539 CALL ccsdt_lr_beta_4_4_7_2_1(d_trc2,k_trc2_offset,d_y3,k_y3_offset 1540 &,d_i3,k_i3_offset) 1541 CALL RECONCILEFILE(d_i3,size_i3) 1542 CALL ccsdt_lr_beta_4_4_7_2(d_tra1,k_tra1_offset,d_i3,k_i3_offset,d 1543 &_i2,k_i2_offset) 1544 CALL DELETEFILE(d_i3) 1545 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1546 &,-1,MA_ERR) 1547 CALL RECONCILEFILE(d_i2,size_i2) 1548 CALL ccsdt_lr_beta_4_4_7(d_trb2,k_trb2_offset,d_i2,k_i2_offset,d_i 1549 &1,k_i1_offset) 1550 CALL DELETEFILE(d_i2) 1551 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1552 &,-1,MA_ERR) 1553 CALL OFFSET_ccsdt_lr_beta_4_4_8_1(l_i2_offset,k_i2_offset,size_i2) 1554 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_8_1_i2',filename) 1555 CALL CREATEFILE(filename,d_i2,size_i2) 1556 CALL OFFSET_ccsdt_lr_beta_4_4_8_1_1(l_i3_offset,k_i3_offset,size_i 1557 &3) 1558 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_8_1_1_i3',filename) 1559 CALL CREATEFILE(filename,d_i3,size_i3) 1560 CALL ccsdt_lr_beta_4_4_8_1_1(d_trb2,k_trb2_offset,d_y3,k_y3_offset 1561 &,d_i3,k_i3_offset) 1562 CALL RECONCILEFILE(d_i3,size_i3) 1563 CALL ccsdt_lr_beta_4_4_8_1(d_tra2,k_tra2_offset,d_i3,k_i3_offset,d 1564 &_i2,k_i2_offset) 1565 CALL DELETEFILE(d_i3) 1566 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1567 &,-1,MA_ERR) 1568 CALL OFFSET_ccsdt_lr_beta_4_4_8_2_1(l_i3_offset,k_i3_offset,size_i 1569 &3) 1570 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_8_2_1_i3',filename) 1571 CALL CREATEFILE(filename,d_i3,size_i3) 1572 CALL ccsdt_lr_beta_4_4_8_2_1(d_tra2,k_tra2_offset,d_y3,k_y3_offset 1573 &,d_i3,k_i3_offset) 1574 CALL RECONCILEFILE(d_i3,size_i3) 1575 CALL ccsdt_lr_beta_4_4_8_2(d_trb2,k_trb2_offset,d_i3,k_i3_offset,d 1576 &_i2,k_i2_offset) 1577 CALL DELETEFILE(d_i3) 1578 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1579 &,-1,MA_ERR) 1580 CALL RECONCILEFILE(d_i2,size_i2) 1581 CALL ccsdt_lr_beta_4_4_8(d_trc1,k_trc1_offset,d_i2,k_i2_offset,d_i 1582 &1,k_i1_offset) 1583 CALL DELETEFILE(d_i2) 1584 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1585 &,-1,MA_ERR) 1586 CALL OFFSET_ccsdt_lr_beta_4_4_9_1(l_i2_offset,k_i2_offset,size_i2) 1587 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_9_1_i2',filename) 1588 CALL CREATEFILE(filename,d_i2,size_i2) 1589 CALL OFFSET_ccsdt_lr_beta_4_4_9_1_1(l_i3_offset,k_i3_offset,size_i 1590 &3) 1591 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_9_1_1_i3',filename) 1592 CALL CREATEFILE(filename,d_i3,size_i3) 1593 CALL ccsdt_lr_beta_4_4_9_1_1(d_trb2,k_trb2_offset,d_y2,k_y2_offset 1594 &,d_i3,k_i3_offset) 1595 CALL ccsdt_lr_beta_4_4_9_1_2(d_trb3,k_trb3_offset,d_y3,k_y3_offset 1596 &,d_i3,k_i3_offset) 1597 CALL OFFSET_ccsdt_lr_beta_4_4_9_1_3_1(l_i4_offset,k_i4_offset,size 1598 &_i4) 1599 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_9_1_3_1_i4',filename) 1600 CALL CREATEFILE(filename,d_i4,size_i4) 1601 CALL ccsdt_lr_beta_4_4_9_1_3_1(d_t1,k_t1_offset,d_y2,k_y2_offset,d 1602 &_i4,k_i4_offset) 1603 CALL ccsdt_lr_beta_4_4_9_1_3_2(d_t2,k_t2_offset,d_y3,k_y3_offset,d 1604 &_i4,k_i4_offset) 1605 CALL RECONCILEFILE(d_i4,size_i4) 1606 CALL ccsdt_lr_beta_4_4_9_1_3(d_trb1,k_trb1_offset,d_i4,k_i4_offset 1607 &,d_i3,k_i3_offset) 1608 CALL DELETEFILE(d_i4) 1609 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1610 &,-1,MA_ERR) 1611 CALL OFFSET_ccsdt_lr_beta_4_4_9_1_4_1(l_i4_offset,k_i4_offset,size 1612 &_i4) 1613 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_9_1_4_1_i4',filename) 1614 CALL CREATEFILE(filename,d_i4,size_i4) 1615 CALL ccsdt_lr_beta_4_4_9_1_4_1(d_trb1,k_trb1_offset,d_y2,k_y2_offs 1616 &et,d_i4,k_i4_offset) 1617 CALL ccsdt_lr_beta_4_4_9_1_4_2(d_trb2,k_trb2_offset,d_y3,k_y3_offs 1618 &et,d_i4,k_i4_offset) 1619 CALL RECONCILEFILE(d_i4,size_i4) 1620 CALL ccsdt_lr_beta_4_4_9_1_4(d_t1,k_t1_offset,d_i4,k_i4_offset,d_i 1621 &3,k_i3_offset) 1622 CALL DELETEFILE(d_i4) 1623 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1624 &,-1,MA_ERR) 1625 CALL RECONCILEFILE(d_i3,size_i3) 1626 CALL ccsdt_lr_beta_4_4_9_1(d_tra1,k_tra1_offset,d_i3,k_i3_offset,d 1627 &_i2,k_i2_offset) 1628 CALL DELETEFILE(d_i3) 1629 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1630 &,-1,MA_ERR) 1631 CALL OFFSET_ccsdt_lr_beta_4_4_9_2_1(l_i3_offset,k_i3_offset,size_i 1632 &3) 1633 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_9_2_1_i3',filename) 1634 CALL CREATEFILE(filename,d_i3,size_i3) 1635 CALL ccsdt_lr_beta_4_4_9_2_1(d_tra1,k_tra1_offset,d_y2,k_y2_offset 1636 &,d_i3,k_i3_offset) 1637 CALL RECONCILEFILE(d_i3,size_i3) 1638 CALL ccsdt_lr_beta_4_4_9_2(d_trb2,k_trb2_offset,d_i3,k_i3_offset,d 1639 &_i2,k_i2_offset) 1640 CALL DELETEFILE(d_i3) 1641 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1642 &,-1,MA_ERR) 1643 CALL OFFSET_ccsdt_lr_beta_4_4_9_3_1(l_i3_offset,k_i3_offset,size_i 1644 &3) 1645 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_9_3_1_i3',filename) 1646 CALL CREATEFILE(filename,d_i3,size_i3) 1647 CALL ccsdt_lr_beta_4_4_9_3_1(d_tra1,k_tra1_offset,d_y3,k_y3_offset 1648 &,d_i3,k_i3_offset) 1649 CALL RECONCILEFILE(d_i3,size_i3) 1650 CALL ccsdt_lr_beta_4_4_9_3(d_trb3,k_trb3_offset,d_i3,k_i3_offset,d 1651 &_i2,k_i2_offset) 1652 CALL DELETEFILE(d_i3) 1653 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1654 &,-1,MA_ERR) 1655 CALL OFFSET_ccsdt_lr_beta_4_4_9_4_1(l_i3_offset,k_i3_offset,size_i 1656 &3) 1657 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_9_4_1_i3',filename) 1658 CALL CREATEFILE(filename,d_i3,size_i3) 1659 CALL ccsdt_lr_beta_4_4_9_4_1(d_tra2,k_tra2_offset,d_y2,k_y2_offset 1660 &,d_i3,k_i3_offset) 1661 CALL ccsdt_lr_beta_4_4_9_4_2(d_tra3,k_tra3_offset,d_y3,k_y3_offset 1662 &,d_i3,k_i3_offset) 1663 CALL OFFSET_ccsdt_lr_beta_4_4_9_4_3_1(l_i4_offset,k_i4_offset,size 1664 &_i4) 1665 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_9_4_3_1_i4',filename) 1666 CALL CREATEFILE(filename,d_i4,size_i4) 1667 CALL ccsdt_lr_beta_4_4_9_4_3_1(d_t1,k_t1_offset,d_y2,k_y2_offset,d 1668 &_i4,k_i4_offset) 1669 CALL ccsdt_lr_beta_4_4_9_4_3_2(d_t2,k_t2_offset,d_y3,k_y3_offset,d 1670 &_i4,k_i4_offset) 1671 CALL RECONCILEFILE(d_i4,size_i4) 1672 CALL ccsdt_lr_beta_4_4_9_4_3(d_tra1,k_tra1_offset,d_i4,k_i4_offset 1673 &,d_i3,k_i3_offset) 1674 CALL DELETEFILE(d_i4) 1675 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1676 &,-1,MA_ERR) 1677 CALL OFFSET_ccsdt_lr_beta_4_4_9_4_4_1(l_i4_offset,k_i4_offset,size 1678 &_i4) 1679 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_9_4_4_1_i4',filename) 1680 CALL CREATEFILE(filename,d_i4,size_i4) 1681 CALL ccsdt_lr_beta_4_4_9_4_4_1(d_tra1,k_tra1_offset,d_y2,k_y2_offs 1682 &et,d_i4,k_i4_offset) 1683 CALL ccsdt_lr_beta_4_4_9_4_4_2(d_tra2,k_tra2_offset,d_y3,k_y3_offs 1684 &et,d_i4,k_i4_offset) 1685 CALL RECONCILEFILE(d_i4,size_i4) 1686 CALL ccsdt_lr_beta_4_4_9_4_4(d_t1,k_t1_offset,d_i4,k_i4_offset,d_i 1687 &3,k_i3_offset) 1688 CALL DELETEFILE(d_i4) 1689 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1690 &,-1,MA_ERR) 1691 CALL RECONCILEFILE(d_i3,size_i3) 1692 CALL ccsdt_lr_beta_4_4_9_4(d_trb1,k_trb1_offset,d_i3,k_i3_offset,d 1693 &_i2,k_i2_offset) 1694 CALL DELETEFILE(d_i3) 1695 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1696 &,-1,MA_ERR) 1697 CALL OFFSET_ccsdt_lr_beta_4_4_9_5_1(l_i3_offset,k_i3_offset,size_i 1698 &3) 1699 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_9_5_1_i3',filename) 1700 CALL CREATEFILE(filename,d_i3,size_i3) 1701 CALL ccsdt_lr_beta_4_4_9_5_1(d_trb1,k_trb1_offset,d_y2,k_y2_offset 1702 &,d_i3,k_i3_offset) 1703 CALL RECONCILEFILE(d_i3,size_i3) 1704 CALL ccsdt_lr_beta_4_4_9_5(d_tra2,k_tra2_offset,d_i3,k_i3_offset,d 1705 &_i2,k_i2_offset) 1706 CALL DELETEFILE(d_i3) 1707 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1708 &,-1,MA_ERR) 1709 CALL OFFSET_ccsdt_lr_beta_4_4_9_6_1(l_i3_offset,k_i3_offset,size_i 1710 &3) 1711 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_9_6_1_i3',filename) 1712 CALL CREATEFILE(filename,d_i3,size_i3) 1713 CALL ccsdt_lr_beta_4_4_9_6_1(d_trb1,k_trb1_offset,d_y3,k_y3_offset 1714 &,d_i3,k_i3_offset) 1715 CALL RECONCILEFILE(d_i3,size_i3) 1716 CALL ccsdt_lr_beta_4_4_9_6(d_tra3,k_tra3_offset,d_i3,k_i3_offset,d 1717 &_i2,k_i2_offset) 1718 CALL DELETEFILE(d_i3) 1719 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1720 &,-1,MA_ERR) 1721 CALL OFFSET_ccsdt_lr_beta_4_4_9_7_1(l_i3_offset,k_i3_offset,size_i 1722 &3) 1723 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_9_7_1_i3',filename) 1724 CALL CREATEFILE(filename,d_i3,size_i3) 1725 CALL OFFSET_ccsdt_lr_beta_4_4_9_7_1_1(l_i4_offset,k_i4_offset,size 1726 &_i4) 1727 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_9_7_1_1_i4',filename) 1728 CALL CREATEFILE(filename,d_i4,size_i4) 1729 CALL ccsdt_lr_beta_4_4_9_7_1_1(d_trb1,k_trb1_offset,d_y3,k_y3_offs 1730 &et,d_i4,k_i4_offset) 1731 CALL RECONCILEFILE(d_i4,size_i4) 1732 CALL ccsdt_lr_beta_4_4_9_7_1(d_t2,k_t2_offset,d_i4,k_i4_offset,d_i 1733 &3,k_i3_offset) 1734 CALL DELETEFILE(d_i4) 1735 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1736 &,-1,MA_ERR) 1737 CALL OFFSET_ccsdt_lr_beta_4_4_9_7_2_1(l_i4_offset,k_i4_offset,size 1738 &_i4) 1739 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_9_7_2_1_i4',filename) 1740 CALL CREATEFILE(filename,d_i4,size_i4) 1741 CALL ccsdt_lr_beta_4_4_9_7_2_1(d_t1,k_t1_offset,d_y3,k_y3_offset,d 1742 &_i4,k_i4_offset) 1743 CALL RECONCILEFILE(d_i4,size_i4) 1744 CALL ccsdt_lr_beta_4_4_9_7_2(d_trb2,k_trb2_offset,d_i4,k_i4_offset 1745 &,d_i3,k_i3_offset) 1746 CALL DELETEFILE(d_i4) 1747 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1748 &,-1,MA_ERR) 1749 CALL RECONCILEFILE(d_i3,size_i3) 1750 CALL ccsdt_lr_beta_4_4_9_7(d_tra1,k_tra1_offset,d_i3,k_i3_offset,d 1751 &_i2,k_i2_offset) 1752 CALL DELETEFILE(d_i3) 1753 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1754 &,-1,MA_ERR) 1755 CALL OFFSET_ccsdt_lr_beta_4_4_9_8_1(l_i3_offset,k_i3_offset,size_i 1756 &3) 1757 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_9_8_1_i3',filename) 1758 CALL CREATEFILE(filename,d_i3,size_i3) 1759 CALL OFFSET_ccsdt_lr_beta_4_4_9_8_1_1(l_i4_offset,k_i4_offset,size 1760 &_i4) 1761 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_9_8_1_1_i4',filename) 1762 CALL CREATEFILE(filename,d_i4,size_i4) 1763 CALL ccsdt_lr_beta_4_4_9_8_1_1(d_trb1,k_trb1_offset,d_y2,k_y2_offs 1764 &et,d_i4,k_i4_offset) 1765 CALL ccsdt_lr_beta_4_4_9_8_1_2(d_trb2,k_trb2_offset,d_y3,k_y3_offs 1766 &et,d_i4,k_i4_offset) 1767 CALL RECONCILEFILE(d_i4,size_i4) 1768 CALL ccsdt_lr_beta_4_4_9_8_1(d_tra1,k_tra1_offset,d_i4,k_i4_offset 1769 &,d_i3,k_i3_offset) 1770 CALL DELETEFILE(d_i4) 1771 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1772 &,-1,MA_ERR) 1773 CALL OFFSET_ccsdt_lr_beta_4_4_9_8_2_1(l_i4_offset,k_i4_offset,size 1774 &_i4) 1775 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_9_8_2_1_i4',filename) 1776 CALL CREATEFILE(filename,d_i4,size_i4) 1777 CALL ccsdt_lr_beta_4_4_9_8_2_1(d_tra1,k_tra1_offset,d_y2,k_y2_offs 1778 &et,d_i4,k_i4_offset) 1779 CALL ccsdt_lr_beta_4_4_9_8_2_2(d_tra2,k_tra2_offset,d_y3,k_y3_offs 1780 &et,d_i4,k_i4_offset) 1781 CALL RECONCILEFILE(d_i4,size_i4) 1782 CALL ccsdt_lr_beta_4_4_9_8_2(d_trb1,k_trb1_offset,d_i4,k_i4_offset 1783 &,d_i3,k_i3_offset) 1784 CALL DELETEFILE(d_i4) 1785 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1786 &,-1,MA_ERR) 1787 CALL RECONCILEFILE(d_i3,size_i3) 1788 CALL ccsdt_lr_beta_4_4_9_8(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2, 1789 &k_i2_offset) 1790 CALL DELETEFILE(d_i3) 1791 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1792 &,-1,MA_ERR) 1793 CALL OFFSET_ccsdt_lr_beta_4_4_9_9_1(l_i3_offset,k_i3_offset,size_i 1794 &3) 1795 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_9_9_1_i3',filename) 1796 CALL CREATEFILE(filename,d_i3,size_i3) 1797 CALL OFFSET_ccsdt_lr_beta_4_4_9_9_1_1(l_i4_offset,k_i4_offset,size 1798 &_i4) 1799 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_9_9_1_1_i4',filename) 1800 CALL CREATEFILE(filename,d_i4,size_i4) 1801 CALL ccsdt_lr_beta_4_4_9_9_1_1(d_tra1,k_tra1_offset,d_y3,k_y3_offs 1802 &et,d_i4,k_i4_offset) 1803 CALL RECONCILEFILE(d_i4,size_i4) 1804 CALL ccsdt_lr_beta_4_4_9_9_1(d_trb2,k_trb2_offset,d_i4,k_i4_offset 1805 &,d_i3,k_i3_offset) 1806 CALL DELETEFILE(d_i4) 1807 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1808 &,-1,MA_ERR) 1809 CALL OFFSET_ccsdt_lr_beta_4_4_9_9_2_1(l_i4_offset,k_i4_offset,size 1810 &_i4) 1811 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_9_9_2_1_i4',filename) 1812 CALL CREATEFILE(filename,d_i4,size_i4) 1813 CALL ccsdt_lr_beta_4_4_9_9_2_1(d_trb1,k_trb1_offset,d_y3,k_y3_offs 1814 &et,d_i4,k_i4_offset) 1815 CALL RECONCILEFILE(d_i4,size_i4) 1816 CALL ccsdt_lr_beta_4_4_9_9_2(d_tra2,k_tra2_offset,d_i4,k_i4_offset 1817 &,d_i3,k_i3_offset) 1818 CALL DELETEFILE(d_i4) 1819 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1820 &,-1,MA_ERR) 1821 CALL RECONCILEFILE(d_i3,size_i3) 1822 CALL ccsdt_lr_beta_4_4_9_9(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2, 1823 &k_i2_offset) 1824 CALL DELETEFILE(d_i3) 1825 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1826 &,-1,MA_ERR) 1827 CALL OFFSET_ccsdt_lr_beta_4_4_9_10_1(l_i3_offset,k_i3_offset,size_ 1828 &i3) 1829 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_9_10_1_i3',filename) 1830 CALL CREATEFILE(filename,d_i3,size_i3) 1831 CALL OFFSET_ccsdt_lr_beta_4_4_9_10_1_1(l_i4_offset,k_i4_offset,siz 1832 &e_i4) 1833 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_9_10_1_1_i4',filename) 1834 CALL CREATEFILE(filename,d_i4,size_i4) 1835 CALL ccsdt_lr_beta_4_4_9_10_1_1(d_tra1,k_tra1_offset,d_y3,k_y3_off 1836 &set,d_i4,k_i4_offset) 1837 CALL RECONCILEFILE(d_i4,size_i4) 1838 CALL ccsdt_lr_beta_4_4_9_10_1(d_t2,k_t2_offset,d_i4,k_i4_offset,d_ 1839 &i3,k_i3_offset) 1840 CALL DELETEFILE(d_i4) 1841 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1842 &,-1,MA_ERR) 1843 CALL OFFSET_ccsdt_lr_beta_4_4_9_10_2_1(l_i4_offset,k_i4_offset,siz 1844 &e_i4) 1845 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_9_10_2_1_i4',filename) 1846 CALL CREATEFILE(filename,d_i4,size_i4) 1847 CALL ccsdt_lr_beta_4_4_9_10_2_1(d_t1,k_t1_offset,d_y3,k_y3_offset, 1848 &d_i4,k_i4_offset) 1849 CALL RECONCILEFILE(d_i4,size_i4) 1850 CALL ccsdt_lr_beta_4_4_9_10_2(d_tra2,k_tra2_offset,d_i4,k_i4_offse 1851 &t,d_i3,k_i3_offset) 1852 CALL DELETEFILE(d_i4) 1853 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1854 &,-1,MA_ERR) 1855 CALL RECONCILEFILE(d_i3,size_i3) 1856 CALL ccsdt_lr_beta_4_4_9_10(d_trb1,k_trb1_offset,d_i3,k_i3_offset, 1857 &d_i2,k_i2_offset) 1858 CALL DELETEFILE(d_i3) 1859 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1860 &,-1,MA_ERR) 1861 CALL RECONCILEFILE(d_i2,size_i2) 1862 CALL ccsdt_lr_beta_4_4_9(d_trc1,k_trc1_offset,d_i2,k_i2_offset,d_i 1863 &1,k_i1_offset) 1864 CALL DELETEFILE(d_i2) 1865 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1866 &,-1,MA_ERR) 1867 CALL OFFSET_ccsdt_lr_beta_4_4_10_1(l_i2_offset,k_i2_offset,size_i2 1868 &) 1869 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_10_1_i2',filename) 1870 CALL CREATEFILE(filename,d_i2,size_i2) 1871 CALL OFFSET_ccsdt_lr_beta_4_4_10_1_1(l_i3_offset,k_i3_offset,size_ 1872 &i3) 1873 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_10_1_1_i3',filename) 1874 CALL CREATEFILE(filename,d_i3,size_i3) 1875 CALL ccsdt_lr_beta_4_4_10_1_1(d_trb3,k_trb3_offset,d_y3,k_y3_offse 1876 &t,d_i3,k_i3_offset) 1877 CALL RECONCILEFILE(d_i3,size_i3) 1878 CALL ccsdt_lr_beta_4_4_10_1(d_trc1,k_trc1_offset,d_i3,k_i3_offset, 1879 &d_i2,k_i2_offset) 1880 CALL DELETEFILE(d_i3) 1881 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1882 &,-1,MA_ERR) 1883 CALL OFFSET_ccsdt_lr_beta_4_4_10_2_1(l_i3_offset,k_i3_offset,size_ 1884 &i3) 1885 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_10_2_1_i3',filename) 1886 CALL CREATEFILE(filename,d_i3,size_i3) 1887 CALL ccsdt_lr_beta_4_4_10_2_1(d_trc3,k_trc3_offset,d_y3,k_y3_offse 1888 &t,d_i3,k_i3_offset) 1889 CALL RECONCILEFILE(d_i3,size_i3) 1890 CALL ccsdt_lr_beta_4_4_10_2(d_trb1,k_trb1_offset,d_i3,k_i3_offset, 1891 &d_i2,k_i2_offset) 1892 CALL DELETEFILE(d_i3) 1893 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1894 &,-1,MA_ERR) 1895 CALL RECONCILEFILE(d_i2,size_i2) 1896 CALL ccsdt_lr_beta_4_4_10(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_ 1897 &i1,k_i1_offset) 1898 CALL DELETEFILE(d_i2) 1899 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1900 &,-1,MA_ERR) 1901 CALL OFFSET_ccsdt_lr_beta_4_4_11_1(l_i2_offset,k_i2_offset,size_i2 1902 &) 1903 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_11_1_i2',filename) 1904 CALL CREATEFILE(filename,d_i2,size_i2) 1905 CALL OFFSET_ccsdt_lr_beta_4_4_11_1_1(l_i3_offset,k_i3_offset,size_ 1906 &i3) 1907 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_11_1_1_i3',filename) 1908 CALL CREATEFILE(filename,d_i3,size_i3) 1909 CALL ccsdt_lr_beta_4_4_11_1_1(d_tra1,k_tra1_offset,d_y3,k_y3_offse 1910 &t,d_i3,k_i3_offset) 1911 CALL RECONCILEFILE(d_i3,size_i3) 1912 CALL ccsdt_lr_beta_4_4_11_1(d_trc1,k_trc1_offset,d_i3,k_i3_offset, 1913 &d_i2,k_i2_offset) 1914 CALL DELETEFILE(d_i3) 1915 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1916 &,-1,MA_ERR) 1917 CALL OFFSET_ccsdt_lr_beta_4_4_11_2_1(l_i3_offset,k_i3_offset,size_ 1918 &i3) 1919 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_11_2_1_i3',filename) 1920 CALL CREATEFILE(filename,d_i3,size_i3) 1921 CALL ccsdt_lr_beta_4_4_11_2_1(d_trc1,k_trc1_offset,d_y3,k_y3_offse 1922 &t,d_i3,k_i3_offset) 1923 CALL RECONCILEFILE(d_i3,size_i3) 1924 CALL ccsdt_lr_beta_4_4_11_2(d_tra1,k_tra1_offset,d_i3,k_i3_offset, 1925 &d_i2,k_i2_offset) 1926 CALL DELETEFILE(d_i3) 1927 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1928 &,-1,MA_ERR) 1929 CALL RECONCILEFILE(d_i2,size_i2) 1930 CALL ccsdt_lr_beta_4_4_11(d_trb3,k_trb3_offset,d_i2,k_i2_offset,d_ 1931 &i1,k_i1_offset) 1932 CALL DELETEFILE(d_i2) 1933 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1934 &,-1,MA_ERR) 1935 CALL OFFSET_ccsdt_lr_beta_4_4_12_1(l_i2_offset,k_i2_offset,size_i2 1936 &) 1937 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_12_1_i2',filename) 1938 CALL CREATEFILE(filename,d_i2,size_i2) 1939 CALL OFFSET_ccsdt_lr_beta_4_4_12_1_1(l_i3_offset,k_i3_offset,size_ 1940 &i3) 1941 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_12_1_1_i3',filename) 1942 CALL CREATEFILE(filename,d_i3,size_i3) 1943 CALL ccsdt_lr_beta_4_4_12_1_1(d_trc1,k_trc1_offset,d_y3,k_y3_offse 1944 &t,d_i3,k_i3_offset) 1945 CALL RECONCILEFILE(d_i3,size_i3) 1946 CALL ccsdt_lr_beta_4_4_12_1(d_trb3,k_trb3_offset,d_i3,k_i3_offset, 1947 &d_i2,k_i2_offset) 1948 CALL DELETEFILE(d_i3) 1949 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1950 &,-1,MA_ERR) 1951 CALL OFFSET_ccsdt_lr_beta_4_4_12_2_1(l_i3_offset,k_i3_offset,size_ 1952 &i3) 1953 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_12_2_1_i3',filename) 1954 CALL CREATEFILE(filename,d_i3,size_i3) 1955 CALL ccsdt_lr_beta_4_4_12_2_1(d_trb1,k_trb1_offset,d_y3,k_y3_offse 1956 &t,d_i3,k_i3_offset) 1957 CALL RECONCILEFILE(d_i3,size_i3) 1958 CALL ccsdt_lr_beta_4_4_12_2(d_trc3,k_trc3_offset,d_i3,k_i3_offset, 1959 &d_i2,k_i2_offset) 1960 CALL DELETEFILE(d_i3) 1961 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1962 &,-1,MA_ERR) 1963 CALL RECONCILEFILE(d_i2,size_i2) 1964 CALL ccsdt_lr_beta_4_4_12(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_ 1965 &i1,k_i1_offset) 1966 CALL DELETEFILE(d_i2) 1967 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1968 &,-1,MA_ERR) 1969 CALL OFFSET_ccsdt_lr_beta_4_4_13_1(l_i2_offset,k_i2_offset,size_i2 1970 &) 1971 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_13_1_i2',filename) 1972 CALL CREATEFILE(filename,d_i2,size_i2) 1973 CALL OFFSET_ccsdt_lr_beta_4_4_13_1_1(l_i3_offset,k_i3_offset,size_ 1974 &i3) 1975 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_13_1_1_i3',filename) 1976 CALL CREATEFILE(filename,d_i3,size_i3) 1977 CALL ccsdt_lr_beta_4_4_13_1_1(d_trc2,k_trc2_offset,d_y3,k_y3_offse 1978 &t,d_i3,k_i3_offset) 1979 CALL RECONCILEFILE(d_i3,size_i3) 1980 CALL ccsdt_lr_beta_4_4_13_1(d_tra2,k_tra2_offset,d_i3,k_i3_offset, 1981 &d_i2,k_i2_offset) 1982 CALL DELETEFILE(d_i3) 1983 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1984 &,-1,MA_ERR) 1985 CALL OFFSET_ccsdt_lr_beta_4_4_13_2_1(l_i3_offset,k_i3_offset,size_ 1986 &i3) 1987 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_13_2_1_i3',filename) 1988 CALL CREATEFILE(filename,d_i3,size_i3) 1989 CALL ccsdt_lr_beta_4_4_13_2_1(d_trc2,k_trc2_offset,d_y3,k_y3_offse 1990 &t,d_i3,k_i3_offset) 1991 CALL RECONCILEFILE(d_i3,size_i3) 1992 CALL ccsdt_lr_beta_4_4_13_2(d_tra2,k_tra2_offset,d_i3,k_i3_offset, 1993 &d_i2,k_i2_offset) 1994 CALL DELETEFILE(d_i3) 1995 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 1996 &,-1,MA_ERR) 1997 CALL OFFSET_ccsdt_lr_beta_4_4_13_3_1(l_i3_offset,k_i3_offset,size_ 1998 &i3) 1999 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_13_3_1_i3',filename) 2000 CALL CREATEFILE(filename,d_i3,size_i3) 2001 CALL ccsdt_lr_beta_4_4_13_3_1(d_tra2,k_tra2_offset,d_y3,k_y3_offse 2002 &t,d_i3,k_i3_offset) 2003 CALL RECONCILEFILE(d_i3,size_i3) 2004 CALL ccsdt_lr_beta_4_4_13_3(d_trc2,k_trc2_offset,d_i3,k_i3_offset, 2005 &d_i2,k_i2_offset) 2006 CALL DELETEFILE(d_i3) 2007 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2008 &,-1,MA_ERR) 2009 CALL OFFSET_ccsdt_lr_beta_4_4_13_4_1(l_i3_offset,k_i3_offset,size_ 2010 &i3) 2011 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_13_4_1_i3',filename) 2012 CALL CREATEFILE(filename,d_i3,size_i3) 2013 CALL ccsdt_lr_beta_4_4_13_4_1(d_tra2,k_tra2_offset,d_y3,k_y3_offse 2014 &t,d_i3,k_i3_offset) 2015 CALL RECONCILEFILE(d_i3,size_i3) 2016 CALL ccsdt_lr_beta_4_4_13_4(d_trc2,k_trc2_offset,d_i3,k_i3_offset, 2017 &d_i2,k_i2_offset) 2018 CALL DELETEFILE(d_i3) 2019 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2020 &,-1,MA_ERR) 2021 CALL RECONCILEFILE(d_i2,size_i2) 2022 CALL ccsdt_lr_beta_4_4_13(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_ 2023 &i1,k_i1_offset) 2024 CALL DELETEFILE(d_i2) 2025 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2026 &,-1,MA_ERR) 2027 CALL OFFSET_ccsdt_lr_beta_4_4_14_1(l_i2_offset,k_i2_offset,size_i2 2028 &) 2029 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_14_1_i2',filename) 2030 CALL CREATEFILE(filename,d_i2,size_i2) 2031 CALL OFFSET_ccsdt_lr_beta_4_4_14_1_1(l_i3_offset,k_i3_offset,size_ 2032 &i3) 2033 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_14_1_1_i3',filename) 2034 CALL CREATEFILE(filename,d_i3,size_i3) 2035 CALL ccsdt_lr_beta_4_4_14_1_1(d_trb1,k_trb1_offset,d_y3,k_y3_offse 2036 &t,d_i3,k_i3_offset) 2037 CALL RECONCILEFILE(d_i3,size_i3) 2038 CALL ccsdt_lr_beta_4_4_14_1(d_trc2,k_trc2_offset,d_i3,k_i3_offset, 2039 &d_i2,k_i2_offset) 2040 CALL DELETEFILE(d_i3) 2041 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2042 &,-1,MA_ERR) 2043 CALL OFFSET_ccsdt_lr_beta_4_4_14_2_1(l_i3_offset,k_i3_offset,size_ 2044 &i3) 2045 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_14_2_1_i3',filename) 2046 CALL CREATEFILE(filename,d_i3,size_i3) 2047 CALL ccsdt_lr_beta_4_4_14_2_1(d_trc1,k_trc1_offset,d_y3,k_y3_offse 2048 &t,d_i3,k_i3_offset) 2049 CALL RECONCILEFILE(d_i3,size_i3) 2050 CALL ccsdt_lr_beta_4_4_14_2(d_trb2,k_trb2_offset,d_i3,k_i3_offset, 2051 &d_i2,k_i2_offset) 2052 CALL DELETEFILE(d_i3) 2053 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2054 &,-1,MA_ERR) 2055 CALL RECONCILEFILE(d_i2,size_i2) 2056 CALL ccsdt_lr_beta_4_4_14(d_tra2,k_tra2_offset,d_i2,k_i2_offset,d_ 2057 &i1,k_i1_offset) 2058 CALL DELETEFILE(d_i2) 2059 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2060 &,-1,MA_ERR) 2061 CALL OFFSET_ccsdt_lr_beta_4_4_15_1(l_i2_offset,k_i2_offset,size_i2 2062 &) 2063 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_15_1_i2',filename) 2064 CALL CREATEFILE(filename,d_i2,size_i2) 2065 CALL OFFSET_ccsdt_lr_beta_4_4_15_1_1(l_i3_offset,k_i3_offset,size_ 2066 &i3) 2067 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_15_1_1_i3',filename) 2068 CALL CREATEFILE(filename,d_i3,size_i3) 2069 CALL ccsdt_lr_beta_4_4_15_1_1(d_trc2,k_trc2_offset,d_y3,k_y3_offse 2070 &t,d_i3,k_i3_offset) 2071 CALL RECONCILEFILE(d_i3,size_i3) 2072 CALL ccsdt_lr_beta_4_4_15_1(d_trb1,k_trb1_offset,d_i3,k_i3_offset, 2073 &d_i2,k_i2_offset) 2074 CALL DELETEFILE(d_i3) 2075 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2076 &,-1,MA_ERR) 2077 CALL OFFSET_ccsdt_lr_beta_4_4_15_2_1(l_i3_offset,k_i3_offset,size_ 2078 &i3) 2079 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_15_2_1_i3',filename) 2080 CALL CREATEFILE(filename,d_i3,size_i3) 2081 CALL ccsdt_lr_beta_4_4_15_2_1(d_trb2,k_trb2_offset,d_y3,k_y3_offse 2082 &t,d_i3,k_i3_offset) 2083 CALL RECONCILEFILE(d_i3,size_i3) 2084 CALL ccsdt_lr_beta_4_4_15_2(d_trc1,k_trc1_offset,d_i3,k_i3_offset, 2085 &d_i2,k_i2_offset) 2086 CALL DELETEFILE(d_i3) 2087 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2088 &,-1,MA_ERR) 2089 CALL RECONCILEFILE(d_i2,size_i2) 2090 CALL ccsdt_lr_beta_4_4_15(d_tra2,k_tra2_offset,d_i2,k_i2_offset,d_ 2091 &i1,k_i1_offset) 2092 CALL DELETEFILE(d_i2) 2093 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2094 &,-1,MA_ERR) 2095 CALL OFFSET_ccsdt_lr_beta_4_4_16_1(l_i2_offset,k_i2_offset,size_i2 2096 &) 2097 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_16_1_i2',filename) 2098 CALL CREATEFILE(filename,d_i2,size_i2) 2099 CALL OFFSET_ccsdt_lr_beta_4_4_16_1_1(l_i3_offset,k_i3_offset,size_ 2100 &i3) 2101 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_16_1_1_i3',filename) 2102 CALL CREATEFILE(filename,d_i3,size_i3) 2103 CALL ccsdt_lr_beta_4_4_16_1_1(d_tra2,k_tra2_offset,d_y3,k_y3_offse 2104 &t,d_i3,k_i3_offset) 2105 CALL RECONCILEFILE(d_i3,size_i3) 2106 CALL ccsdt_lr_beta_4_4_16_1(d_trc2,k_trc2_offset,d_i3,k_i3_offset, 2107 &d_i2,k_i2_offset) 2108 CALL DELETEFILE(d_i3) 2109 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2110 &,-1,MA_ERR) 2111 CALL OFFSET_ccsdt_lr_beta_4_4_16_2_1(l_i3_offset,k_i3_offset,size_ 2112 &i3) 2113 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_16_2_1_i3',filename) 2114 CALL CREATEFILE(filename,d_i3,size_i3) 2115 CALL ccsdt_lr_beta_4_4_16_2_1(d_trc2,k_trc2_offset,d_y3,k_y3_offse 2116 &t,d_i3,k_i3_offset) 2117 CALL RECONCILEFILE(d_i3,size_i3) 2118 CALL ccsdt_lr_beta_4_4_16_2(d_tra2,k_tra2_offset,d_i3,k_i3_offset, 2119 &d_i2,k_i2_offset) 2120 CALL DELETEFILE(d_i3) 2121 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2122 &,-1,MA_ERR) 2123 CALL RECONCILEFILE(d_i2,size_i2) 2124 CALL ccsdt_lr_beta_4_4_16(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_ 2125 &i1,k_i1_offset) 2126 CALL DELETEFILE(d_i2) 2127 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2128 &,-1,MA_ERR) 2129 CALL OFFSET_ccsdt_lr_beta_4_4_17_1(l_i2_offset,k_i2_offset,size_i2 2130 &) 2131 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_17_1_i2',filename) 2132 CALL CREATEFILE(filename,d_i2,size_i2) 2133 CALL OFFSET_ccsdt_lr_beta_4_4_17_1_1(l_i3_offset,k_i3_offset,size_ 2134 &i3) 2135 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_17_1_1_i3',filename) 2136 CALL CREATEFILE(filename,d_i3,size_i3) 2137 CALL ccsdt_lr_beta_4_4_17_1_1(d_tra2,k_tra2_offset,d_y2,k_y2_offse 2138 &t,d_i3,k_i3_offset) 2139 CALL ccsdt_lr_beta_4_4_17_1_2(d_tra3,k_tra3_offset,d_y3,k_y3_offse 2140 &t,d_i3,k_i3_offset) 2141 CALL OFFSET_ccsdt_lr_beta_4_4_17_1_3_1(l_i4_offset,k_i4_offset,siz 2142 &e_i4) 2143 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_17_1_3_1_i4',filename) 2144 CALL CREATEFILE(filename,d_i4,size_i4) 2145 CALL ccsdt_lr_beta_4_4_17_1_3_1(d_tra1,k_tra1_offset,d_y2,k_y2_off 2146 &set,d_i4,k_i4_offset) 2147 CALL ccsdt_lr_beta_4_4_17_1_3_2(d_tra2,k_tra2_offset,d_y3,k_y3_off 2148 &set,d_i4,k_i4_offset) 2149 CALL RECONCILEFILE(d_i4,size_i4) 2150 CALL ccsdt_lr_beta_4_4_17_1_3(d_t1,k_t1_offset,d_i4,k_i4_offset,d_ 2151 &i3,k_i3_offset) 2152 CALL DELETEFILE(d_i4) 2153 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2154 &,-1,MA_ERR) 2155 CALL OFFSET_ccsdt_lr_beta_4_4_17_1_4_1(l_i4_offset,k_i4_offset,siz 2156 &e_i4) 2157 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_17_1_4_1_i4',filename) 2158 CALL CREATEFILE(filename,d_i4,size_i4) 2159 CALL ccsdt_lr_beta_4_4_17_1_4_1(d_t1,k_t1_offset,d_y2,k_y2_offset, 2160 &d_i4,k_i4_offset) 2161 CALL ccsdt_lr_beta_4_4_17_1_4_2(d_t2,k_t2_offset,d_y3,k_y3_offset, 2162 &d_i4,k_i4_offset) 2163 CALL RECONCILEFILE(d_i4,size_i4) 2164 CALL ccsdt_lr_beta_4_4_17_1_4(d_tra1,k_tra1_offset,d_i4,k_i4_offse 2165 &t,d_i3,k_i3_offset) 2166 CALL DELETEFILE(d_i4) 2167 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2168 &,-1,MA_ERR) 2169 CALL RECONCILEFILE(d_i3,size_i3) 2170 CALL ccsdt_lr_beta_4_4_17_1(d_trc1,k_trc1_offset,d_i3,k_i3_offset, 2171 &d_i2,k_i2_offset) 2172 CALL DELETEFILE(d_i3) 2173 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2174 &,-1,MA_ERR) 2175 CALL OFFSET_ccsdt_lr_beta_4_4_17_2_1(l_i3_offset,k_i3_offset,size_ 2176 &i3) 2177 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_17_2_1_i3',filename) 2178 CALL CREATEFILE(filename,d_i3,size_i3) 2179 CALL ccsdt_lr_beta_4_4_17_2_1(d_trc1,k_trc1_offset,d_y2,k_y2_offse 2180 &t,d_i3,k_i3_offset) 2181 CALL RECONCILEFILE(d_i3,size_i3) 2182 CALL ccsdt_lr_beta_4_4_17_2(d_tra2,k_tra2_offset,d_i3,k_i3_offset, 2183 &d_i2,k_i2_offset) 2184 CALL DELETEFILE(d_i3) 2185 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2186 &,-1,MA_ERR) 2187 CALL OFFSET_ccsdt_lr_beta_4_4_17_3_1(l_i3_offset,k_i3_offset,size_ 2188 &i3) 2189 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_17_3_1_i3',filename) 2190 CALL CREATEFILE(filename,d_i3,size_i3) 2191 CALL ccsdt_lr_beta_4_4_17_3_1(d_trc1,k_trc1_offset,d_y3,k_y3_offse 2192 &t,d_i3,k_i3_offset) 2193 CALL RECONCILEFILE(d_i3,size_i3) 2194 CALL ccsdt_lr_beta_4_4_17_3(d_tra3,k_tra3_offset,d_i3,k_i3_offset, 2195 &d_i2,k_i2_offset) 2196 CALL DELETEFILE(d_i3) 2197 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2198 &,-1,MA_ERR) 2199 CALL OFFSET_ccsdt_lr_beta_4_4_17_4_1(l_i3_offset,k_i3_offset,size_ 2200 &i3) 2201 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_17_4_1_i3',filename) 2202 CALL CREATEFILE(filename,d_i3,size_i3) 2203 CALL ccsdt_lr_beta_4_4_17_4_1(d_trc2,k_trc2_offset,d_y2,k_y2_offse 2204 &t,d_i3,k_i3_offset) 2205 CALL ccsdt_lr_beta_4_4_17_4_2(d_trc3,k_trc3_offset,d_y3,k_y3_offse 2206 &t,d_i3,k_i3_offset) 2207 CALL OFFSET_ccsdt_lr_beta_4_4_17_4_3_1(l_i4_offset,k_i4_offset,siz 2208 &e_i4) 2209 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_17_4_3_1_i4',filename) 2210 CALL CREATEFILE(filename,d_i4,size_i4) 2211 CALL ccsdt_lr_beta_4_4_17_4_3_1(d_t1,k_t1_offset,d_y2,k_y2_offset, 2212 &d_i4,k_i4_offset) 2213 CALL ccsdt_lr_beta_4_4_17_4_3_2(d_t2,k_t2_offset,d_y3,k_y3_offset, 2214 &d_i4,k_i4_offset) 2215 CALL RECONCILEFILE(d_i4,size_i4) 2216 CALL ccsdt_lr_beta_4_4_17_4_3(d_trc1,k_trc1_offset,d_i4,k_i4_offse 2217 &t,d_i3,k_i3_offset) 2218 CALL DELETEFILE(d_i4) 2219 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2220 &,-1,MA_ERR) 2221 CALL OFFSET_ccsdt_lr_beta_4_4_17_4_4_1(l_i4_offset,k_i4_offset,siz 2222 &e_i4) 2223 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_17_4_4_1_i4',filename) 2224 CALL CREATEFILE(filename,d_i4,size_i4) 2225 CALL ccsdt_lr_beta_4_4_17_4_4_1(d_trc1,k_trc1_offset,d_y2,k_y2_off 2226 &set,d_i4,k_i4_offset) 2227 CALL ccsdt_lr_beta_4_4_17_4_4_2(d_trc2,k_trc2_offset,d_y3,k_y3_off 2228 &set,d_i4,k_i4_offset) 2229 CALL RECONCILEFILE(d_i4,size_i4) 2230 CALL ccsdt_lr_beta_4_4_17_4_4(d_t1,k_t1_offset,d_i4,k_i4_offset,d_ 2231 &i3,k_i3_offset) 2232 CALL DELETEFILE(d_i4) 2233 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2234 &,-1,MA_ERR) 2235 CALL RECONCILEFILE(d_i3,size_i3) 2236 CALL ccsdt_lr_beta_4_4_17_4(d_tra1,k_tra1_offset,d_i3,k_i3_offset, 2237 &d_i2,k_i2_offset) 2238 CALL DELETEFILE(d_i3) 2239 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2240 &,-1,MA_ERR) 2241 CALL OFFSET_ccsdt_lr_beta_4_4_17_5_1(l_i3_offset,k_i3_offset,size_ 2242 &i3) 2243 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_17_5_1_i3',filename) 2244 CALL CREATEFILE(filename,d_i3,size_i3) 2245 CALL ccsdt_lr_beta_4_4_17_5_1(d_tra1,k_tra1_offset,d_y2,k_y2_offse 2246 &t,d_i3,k_i3_offset) 2247 CALL RECONCILEFILE(d_i3,size_i3) 2248 CALL ccsdt_lr_beta_4_4_17_5(d_trc2,k_trc2_offset,d_i3,k_i3_offset, 2249 &d_i2,k_i2_offset) 2250 CALL DELETEFILE(d_i3) 2251 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2252 &,-1,MA_ERR) 2253 CALL OFFSET_ccsdt_lr_beta_4_4_17_6_1(l_i3_offset,k_i3_offset,size_ 2254 &i3) 2255 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_17_6_1_i3',filename) 2256 CALL CREATEFILE(filename,d_i3,size_i3) 2257 CALL ccsdt_lr_beta_4_4_17_6_1(d_tra1,k_tra1_offset,d_y3,k_y3_offse 2258 &t,d_i3,k_i3_offset) 2259 CALL RECONCILEFILE(d_i3,size_i3) 2260 CALL ccsdt_lr_beta_4_4_17_6(d_trc3,k_trc3_offset,d_i3,k_i3_offset, 2261 &d_i2,k_i2_offset) 2262 CALL DELETEFILE(d_i3) 2263 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2264 &,-1,MA_ERR) 2265 CALL OFFSET_ccsdt_lr_beta_4_4_17_7_1(l_i3_offset,k_i3_offset,size_ 2266 &i3) 2267 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_17_7_1_i3',filename) 2268 CALL CREATEFILE(filename,d_i3,size_i3) 2269 CALL OFFSET_ccsdt_lr_beta_4_4_17_7_1_1(l_i4_offset,k_i4_offset,siz 2270 &e_i4) 2271 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_17_7_1_1_i4',filename) 2272 CALL CREATEFILE(filename,d_i4,size_i4) 2273 CALL ccsdt_lr_beta_4_4_17_7_1_1(d_t1,k_t1_offset,d_y3,k_y3_offset, 2274 &d_i4,k_i4_offset) 2275 CALL RECONCILEFILE(d_i4,size_i4) 2276 CALL ccsdt_lr_beta_4_4_17_7_1(d_tra2,k_tra2_offset,d_i4,k_i4_offse 2277 &t,d_i3,k_i3_offset) 2278 CALL DELETEFILE(d_i4) 2279 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2280 &,-1,MA_ERR) 2281 CALL OFFSET_ccsdt_lr_beta_4_4_17_7_2_1(l_i4_offset,k_i4_offset,siz 2282 &e_i4) 2283 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_17_7_2_1_i4',filename) 2284 CALL CREATEFILE(filename,d_i4,size_i4) 2285 CALL ccsdt_lr_beta_4_4_17_7_2_1(d_tra1,k_tra1_offset,d_y3,k_y3_off 2286 &set,d_i4,k_i4_offset) 2287 CALL RECONCILEFILE(d_i4,size_i4) 2288 CALL ccsdt_lr_beta_4_4_17_7_2(d_t2,k_t2_offset,d_i4,k_i4_offset,d_ 2289 &i3,k_i3_offset) 2290 CALL DELETEFILE(d_i4) 2291 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2292 &,-1,MA_ERR) 2293 CALL RECONCILEFILE(d_i3,size_i3) 2294 CALL ccsdt_lr_beta_4_4_17_7(d_trc1,k_trc1_offset,d_i3,k_i3_offset, 2295 &d_i2,k_i2_offset) 2296 CALL DELETEFILE(d_i3) 2297 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2298 &,-1,MA_ERR) 2299 CALL OFFSET_ccsdt_lr_beta_4_4_17_8_1(l_i3_offset,k_i3_offset,size_ 2300 &i3) 2301 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_17_8_1_i3',filename) 2302 CALL CREATEFILE(filename,d_i3,size_i3) 2303 CALL OFFSET_ccsdt_lr_beta_4_4_17_8_1_1(l_i4_offset,k_i4_offset,siz 2304 &e_i4) 2305 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_17_8_1_1_i4',filename) 2306 CALL CREATEFILE(filename,d_i4,size_i4) 2307 CALL ccsdt_lr_beta_4_4_17_8_1_1(d_trc1,k_trc1_offset,d_y3,k_y3_off 2308 &set,d_i4,k_i4_offset) 2309 CALL RECONCILEFILE(d_i4,size_i4) 2310 CALL ccsdt_lr_beta_4_4_17_8_1(d_t2,k_t2_offset,d_i4,k_i4_offset,d_ 2311 &i3,k_i3_offset) 2312 CALL DELETEFILE(d_i4) 2313 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2314 &,-1,MA_ERR) 2315 CALL OFFSET_ccsdt_lr_beta_4_4_17_8_2_1(l_i4_offset,k_i4_offset,siz 2316 &e_i4) 2317 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_17_8_2_1_i4',filename) 2318 CALL CREATEFILE(filename,d_i4,size_i4) 2319 CALL ccsdt_lr_beta_4_4_17_8_2_1(d_t1,k_t1_offset,d_y3,k_y3_offset, 2320 &d_i4,k_i4_offset) 2321 CALL RECONCILEFILE(d_i4,size_i4) 2322 CALL ccsdt_lr_beta_4_4_17_8_2(d_trc2,k_trc2_offset,d_i4,k_i4_offse 2323 &t,d_i3,k_i3_offset) 2324 CALL DELETEFILE(d_i4) 2325 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2326 &,-1,MA_ERR) 2327 CALL RECONCILEFILE(d_i3,size_i3) 2328 CALL ccsdt_lr_beta_4_4_17_8(d_tra1,k_tra1_offset,d_i3,k_i3_offset, 2329 &d_i2,k_i2_offset) 2330 CALL DELETEFILE(d_i3) 2331 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2332 &,-1,MA_ERR) 2333 CALL OFFSET_ccsdt_lr_beta_4_4_17_9_1(l_i3_offset,k_i3_offset,size_ 2334 &i3) 2335 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_17_9_1_i3',filename) 2336 CALL CREATEFILE(filename,d_i3,size_i3) 2337 CALL OFFSET_ccsdt_lr_beta_4_4_17_9_1_1(l_i4_offset,k_i4_offset,siz 2338 &e_i4) 2339 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_17_9_1_1_i4',filename) 2340 CALL CREATEFILE(filename,d_i4,size_i4) 2341 CALL ccsdt_lr_beta_4_4_17_9_1_1(d_tra1,k_tra1_offset,d_y2,k_y2_off 2342 &set,d_i4,k_i4_offset) 2343 CALL ccsdt_lr_beta_4_4_17_9_1_2(d_tra2,k_tra2_offset,d_y3,k_y3_off 2344 &set,d_i4,k_i4_offset) 2345 CALL RECONCILEFILE(d_i4,size_i4) 2346 CALL ccsdt_lr_beta_4_4_17_9_1(d_trc1,k_trc1_offset,d_i4,k_i4_offse 2347 &t,d_i3,k_i3_offset) 2348 CALL DELETEFILE(d_i4) 2349 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2350 &,-1,MA_ERR) 2351 CALL OFFSET_ccsdt_lr_beta_4_4_17_9_2_1(l_i4_offset,k_i4_offset,siz 2352 &e_i4) 2353 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_17_9_2_1_i4',filename) 2354 CALL CREATEFILE(filename,d_i4,size_i4) 2355 CALL ccsdt_lr_beta_4_4_17_9_2_1(d_trc1,k_trc1_offset,d_y2,k_y2_off 2356 &set,d_i4,k_i4_offset) 2357 CALL ccsdt_lr_beta_4_4_17_9_2_2(d_trc2,k_trc2_offset,d_y3,k_y3_off 2358 &set,d_i4,k_i4_offset) 2359 CALL RECONCILEFILE(d_i4,size_i4) 2360 CALL ccsdt_lr_beta_4_4_17_9_2(d_tra1,k_tra1_offset,d_i4,k_i4_offse 2361 &t,d_i3,k_i3_offset) 2362 CALL DELETEFILE(d_i4) 2363 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2364 &,-1,MA_ERR) 2365 CALL RECONCILEFILE(d_i3,size_i3) 2366 CALL ccsdt_lr_beta_4_4_17_9(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2 2367 &,k_i2_offset) 2368 CALL DELETEFILE(d_i3) 2369 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2370 &,-1,MA_ERR) 2371 CALL OFFSET_ccsdt_lr_beta_4_4_17_10_1(l_i3_offset,k_i3_offset,size 2372 &_i3) 2373 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_17_10_1_i3',filename) 2374 CALL CREATEFILE(filename,d_i3,size_i3) 2375 CALL OFFSET_ccsdt_lr_beta_4_4_17_10_1_1(l_i4_offset,k_i4_offset,si 2376 &ze_i4) 2377 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_17_10_1_1_i4',filename) 2378 CALL CREATEFILE(filename,d_i4,size_i4) 2379 CALL ccsdt_lr_beta_4_4_17_10_1_1(d_trc1,k_trc1_offset,d_y3,k_y3_of 2380 &fset,d_i4,k_i4_offset) 2381 CALL RECONCILEFILE(d_i4,size_i4) 2382 CALL ccsdt_lr_beta_4_4_17_10_1(d_tra2,k_tra2_offset,d_i4,k_i4_offs 2383 &et,d_i3,k_i3_offset) 2384 CALL DELETEFILE(d_i4) 2385 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2386 &,-1,MA_ERR) 2387 CALL OFFSET_ccsdt_lr_beta_4_4_17_10_2_1(l_i4_offset,k_i4_offset,si 2388 &ze_i4) 2389 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_17_10_2_1_i4',filename) 2390 CALL CREATEFILE(filename,d_i4,size_i4) 2391 CALL ccsdt_lr_beta_4_4_17_10_2_1(d_tra1,k_tra1_offset,d_y3,k_y3_of 2392 &fset,d_i4,k_i4_offset) 2393 CALL RECONCILEFILE(d_i4,size_i4) 2394 CALL ccsdt_lr_beta_4_4_17_10_2(d_trc2,k_trc2_offset,d_i4,k_i4_offs 2395 &et,d_i3,k_i3_offset) 2396 CALL DELETEFILE(d_i4) 2397 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2398 &,-1,MA_ERR) 2399 CALL RECONCILEFILE(d_i3,size_i3) 2400 CALL ccsdt_lr_beta_4_4_17_10(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i 2401 &2,k_i2_offset) 2402 CALL DELETEFILE(d_i3) 2403 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2404 &,-1,MA_ERR) 2405 CALL RECONCILEFILE(d_i2,size_i2) 2406 CALL ccsdt_lr_beta_4_4_17(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_ 2407 &i1,k_i1_offset) 2408 CALL DELETEFILE(d_i2) 2409 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2410 &,-1,MA_ERR) 2411 CALL OFFSET_ccsdt_lr_beta_4_4_18_1(l_i2_offset,k_i2_offset,size_i2 2412 &) 2413 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_18_1_i2',filename) 2414 CALL CREATEFILE(filename,d_i2,size_i2) 2415 CALL OFFSET_ccsdt_lr_beta_4_4_18_1_1(l_i3_offset,k_i3_offset,size_ 2416 &i3) 2417 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_18_1_1_i3',filename) 2418 CALL CREATEFILE(filename,d_i3,size_i3) 2419 CALL ccsdt_lr_beta_4_4_18_1_1(d_tra3,k_tra3_offset,d_y3,k_y3_offse 2420 &t,d_i3,k_i3_offset) 2421 CALL RECONCILEFILE(d_i3,size_i3) 2422 CALL ccsdt_lr_beta_4_4_18_1(d_trb1,k_trb1_offset,d_i3,k_i3_offset, 2423 &d_i2,k_i2_offset) 2424 CALL DELETEFILE(d_i3) 2425 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2426 &,-1,MA_ERR) 2427 CALL OFFSET_ccsdt_lr_beta_4_4_18_2_1(l_i3_offset,k_i3_offset,size_ 2428 &i3) 2429 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_18_2_1_i3',filename) 2430 CALL CREATEFILE(filename,d_i3,size_i3) 2431 CALL ccsdt_lr_beta_4_4_18_2_1(d_trb3,k_trb3_offset,d_y3,k_y3_offse 2432 &t,d_i3,k_i3_offset) 2433 CALL RECONCILEFILE(d_i3,size_i3) 2434 CALL ccsdt_lr_beta_4_4_18_2(d_tra1,k_tra1_offset,d_i3,k_i3_offset, 2435 &d_i2,k_i2_offset) 2436 CALL DELETEFILE(d_i3) 2437 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2438 &,-1,MA_ERR) 2439 CALL RECONCILEFILE(d_i2,size_i2) 2440 CALL ccsdt_lr_beta_4_4_18(d_trc1,k_trc1_offset,d_i2,k_i2_offset,d_ 2441 &i1,k_i1_offset) 2442 CALL DELETEFILE(d_i2) 2443 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2444 &,-1,MA_ERR) 2445 CALL OFFSET_ccsdt_lr_beta_4_4_19_1(l_i2_offset,k_i2_offset,size_i2 2446 &) 2447 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_19_1_i2',filename) 2448 CALL CREATEFILE(filename,d_i2,size_i2) 2449 CALL OFFSET_ccsdt_lr_beta_4_4_19_1_1(l_i3_offset,k_i3_offset,size_ 2450 &i3) 2451 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_19_1_1_i3',filename) 2452 CALL CREATEFILE(filename,d_i3,size_i3) 2453 CALL ccsdt_lr_beta_4_4_19_1_1(d_trc1,k_trc1_offset,d_y3,k_y3_offse 2454 &t,d_i3,k_i3_offset) 2455 CALL RECONCILEFILE(d_i3,size_i3) 2456 CALL ccsdt_lr_beta_4_4_19_1(d_trb1,k_trb1_offset,d_i3,k_i3_offset, 2457 &d_i2,k_i2_offset) 2458 CALL DELETEFILE(d_i3) 2459 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2460 &,-1,MA_ERR) 2461 CALL OFFSET_ccsdt_lr_beta_4_4_19_2_1(l_i3_offset,k_i3_offset,size_ 2462 &i3) 2463 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_19_2_1_i3',filename) 2464 CALL CREATEFILE(filename,d_i3,size_i3) 2465 CALL ccsdt_lr_beta_4_4_19_2_1(d_trb1,k_trb1_offset,d_y3,k_y3_offse 2466 &t,d_i3,k_i3_offset) 2467 CALL RECONCILEFILE(d_i3,size_i3) 2468 CALL ccsdt_lr_beta_4_4_19_2(d_trc1,k_trc1_offset,d_i3,k_i3_offset, 2469 &d_i2,k_i2_offset) 2470 CALL DELETEFILE(d_i3) 2471 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2472 &,-1,MA_ERR) 2473 CALL RECONCILEFILE(d_i2,size_i2) 2474 CALL ccsdt_lr_beta_4_4_19(d_tra3,k_tra3_offset,d_i2,k_i2_offset,d_ 2475 &i1,k_i1_offset) 2476 CALL DELETEFILE(d_i2) 2477 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2478 &,-1,MA_ERR) 2479 CALL OFFSET_ccsdt_lr_beta_4_4_20_1(l_i2_offset,k_i2_offset,size_i2 2480 &) 2481 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_20_1_i2',filename) 2482 CALL CREATEFILE(filename,d_i2,size_i2) 2483 CALL OFFSET_ccsdt_lr_beta_4_4_20_1_1(l_i3_offset,k_i3_offset,size_ 2484 &i3) 2485 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_20_1_1_i3',filename) 2486 CALL CREATEFILE(filename,d_i3,size_i3) 2487 CALL ccsdt_lr_beta_4_4_20_1_1(d_trb1,k_trb1_offset,d_y3,k_y3_offse 2488 &t,d_i3,k_i3_offset) 2489 CALL RECONCILEFILE(d_i3,size_i3) 2490 CALL ccsdt_lr_beta_4_4_20_1(d_tra3,k_tra3_offset,d_i3,k_i3_offset, 2491 &d_i2,k_i2_offset) 2492 CALL DELETEFILE(d_i3) 2493 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2494 &,-1,MA_ERR) 2495 CALL OFFSET_ccsdt_lr_beta_4_4_20_2_1(l_i3_offset,k_i3_offset,size_ 2496 &i3) 2497 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_20_2_1_i3',filename) 2498 CALL CREATEFILE(filename,d_i3,size_i3) 2499 CALL ccsdt_lr_beta_4_4_20_2_1(d_tra1,k_tra1_offset,d_y3,k_y3_offse 2500 &t,d_i3,k_i3_offset) 2501 CALL RECONCILEFILE(d_i3,size_i3) 2502 CALL ccsdt_lr_beta_4_4_20_2(d_trb3,k_trb3_offset,d_i3,k_i3_offset, 2503 &d_i2,k_i2_offset) 2504 CALL DELETEFILE(d_i3) 2505 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2506 &,-1,MA_ERR) 2507 CALL RECONCILEFILE(d_i2,size_i2) 2508 CALL ccsdt_lr_beta_4_4_20(d_trc1,k_trc1_offset,d_i2,k_i2_offset,d_ 2509 &i1,k_i1_offset) 2510 CALL DELETEFILE(d_i2) 2511 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2512 &,-1,MA_ERR) 2513 CALL OFFSET_ccsdt_lr_beta_4_4_21_1(l_i2_offset,k_i2_offset,size_i2 2514 &) 2515 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_21_1_i2',filename) 2516 CALL CREATEFILE(filename,d_i2,size_i2) 2517 CALL OFFSET_ccsdt_lr_beta_4_4_21_1_1(l_i3_offset,k_i3_offset,size_ 2518 &i3) 2519 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_21_1_1_i3',filename) 2520 CALL CREATEFILE(filename,d_i3,size_i3) 2521 CALL ccsdt_lr_beta_4_4_21_1_1(d_trb2,k_trb2_offset,d_y3,k_y3_offse 2522 &t,d_i3,k_i3_offset) 2523 CALL RECONCILEFILE(d_i3,size_i3) 2524 CALL ccsdt_lr_beta_4_4_21_1(d_trc2,k_trc2_offset,d_i3,k_i3_offset, 2525 &d_i2,k_i2_offset) 2526 CALL DELETEFILE(d_i3) 2527 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2528 &,-1,MA_ERR) 2529 CALL OFFSET_ccsdt_lr_beta_4_4_21_2_1(l_i3_offset,k_i3_offset,size_ 2530 &i3) 2531 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_21_2_1_i3',filename) 2532 CALL CREATEFILE(filename,d_i3,size_i3) 2533 CALL ccsdt_lr_beta_4_4_21_2_1(d_trb2,k_trb2_offset,d_y3,k_y3_offse 2534 &t,d_i3,k_i3_offset) 2535 CALL RECONCILEFILE(d_i3,size_i3) 2536 CALL ccsdt_lr_beta_4_4_21_2(d_trc2,k_trc2_offset,d_i3,k_i3_offset, 2537 &d_i2,k_i2_offset) 2538 CALL DELETEFILE(d_i3) 2539 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2540 &,-1,MA_ERR) 2541 CALL OFFSET_ccsdt_lr_beta_4_4_21_3_1(l_i3_offset,k_i3_offset,size_ 2542 &i3) 2543 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_21_3_1_i3',filename) 2544 CALL CREATEFILE(filename,d_i3,size_i3) 2545 CALL ccsdt_lr_beta_4_4_21_3_1(d_trc2,k_trc2_offset,d_y3,k_y3_offse 2546 &t,d_i3,k_i3_offset) 2547 CALL RECONCILEFILE(d_i3,size_i3) 2548 CALL ccsdt_lr_beta_4_4_21_3(d_trb2,k_trb2_offset,d_i3,k_i3_offset, 2549 &d_i2,k_i2_offset) 2550 CALL DELETEFILE(d_i3) 2551 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2552 &,-1,MA_ERR) 2553 CALL OFFSET_ccsdt_lr_beta_4_4_21_4_1(l_i3_offset,k_i3_offset,size_ 2554 &i3) 2555 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_21_4_1_i3',filename) 2556 CALL CREATEFILE(filename,d_i3,size_i3) 2557 CALL ccsdt_lr_beta_4_4_21_4_1(d_trc2,k_trc2_offset,d_y3,k_y3_offse 2558 &t,d_i3,k_i3_offset) 2559 CALL RECONCILEFILE(d_i3,size_i3) 2560 CALL ccsdt_lr_beta_4_4_21_4(d_trb2,k_trb2_offset,d_i3,k_i3_offset, 2561 &d_i2,k_i2_offset) 2562 CALL DELETEFILE(d_i3) 2563 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2564 &,-1,MA_ERR) 2565 CALL RECONCILEFILE(d_i2,size_i2) 2566 CALL ccsdt_lr_beta_4_4_21(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_ 2567 &i1,k_i1_offset) 2568 CALL DELETEFILE(d_i2) 2569 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2570 &,-1,MA_ERR) 2571 CALL OFFSET_ccsdt_lr_beta_4_4_22_1(l_i2_offset,k_i2_offset,size_i2 2572 &) 2573 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_22_1_i2',filename) 2574 CALL CREATEFILE(filename,d_i2,size_i2) 2575 CALL OFFSET_ccsdt_lr_beta_4_4_22_1_1(l_i3_offset,k_i3_offset,size_ 2576 &i3) 2577 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_22_1_1_i3',filename) 2578 CALL CREATEFILE(filename,d_i3,size_i3) 2579 CALL ccsdt_lr_beta_4_4_22_1_1(d_tra1,k_tra1_offset,d_y3,k_y3_offse 2580 &t,d_i3,k_i3_offset) 2581 CALL RECONCILEFILE(d_i3,size_i3) 2582 CALL ccsdt_lr_beta_4_4_22_1(d_trb2,k_trb2_offset,d_i3,k_i3_offset, 2583 &d_i2,k_i2_offset) 2584 CALL DELETEFILE(d_i3) 2585 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2586 &,-1,MA_ERR) 2587 CALL OFFSET_ccsdt_lr_beta_4_4_22_2_1(l_i3_offset,k_i3_offset,size_ 2588 &i3) 2589 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_22_2_1_i3',filename) 2590 CALL CREATEFILE(filename,d_i3,size_i3) 2591 CALL ccsdt_lr_beta_4_4_22_2_1(d_trb1,k_trb1_offset,d_y3,k_y3_offse 2592 &t,d_i3,k_i3_offset) 2593 CALL RECONCILEFILE(d_i3,size_i3) 2594 CALL ccsdt_lr_beta_4_4_22_2(d_tra2,k_tra2_offset,d_i3,k_i3_offset, 2595 &d_i2,k_i2_offset) 2596 CALL DELETEFILE(d_i3) 2597 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2598 &,-1,MA_ERR) 2599 CALL RECONCILEFILE(d_i2,size_i2) 2600 CALL ccsdt_lr_beta_4_4_22(d_trc2,k_trc2_offset,d_i2,k_i2_offset,d_ 2601 &i1,k_i1_offset) 2602 CALL DELETEFILE(d_i2) 2603 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2604 &,-1,MA_ERR) 2605 CALL OFFSET_ccsdt_lr_beta_4_4_23_1(l_i2_offset,k_i2_offset,size_i2 2606 &) 2607 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_23_1_i2',filename) 2608 CALL CREATEFILE(filename,d_i2,size_i2) 2609 CALL OFFSET_ccsdt_lr_beta_4_4_23_1_1(l_i3_offset,k_i3_offset,size_ 2610 &i3) 2611 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_23_1_1_i3',filename) 2612 CALL CREATEFILE(filename,d_i3,size_i3) 2613 CALL ccsdt_lr_beta_4_4_23_1_1(d_trb2,k_trb2_offset,d_y3,k_y3_offse 2614 &t,d_i3,k_i3_offset) 2615 CALL RECONCILEFILE(d_i3,size_i3) 2616 CALL ccsdt_lr_beta_4_4_23_1(d_tra1,k_tra1_offset,d_i3,k_i3_offset, 2617 &d_i2,k_i2_offset) 2618 CALL DELETEFILE(d_i3) 2619 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2620 &,-1,MA_ERR) 2621 CALL OFFSET_ccsdt_lr_beta_4_4_23_2_1(l_i3_offset,k_i3_offset,size_ 2622 &i3) 2623 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_23_2_1_i3',filename) 2624 CALL CREATEFILE(filename,d_i3,size_i3) 2625 CALL ccsdt_lr_beta_4_4_23_2_1(d_tra2,k_tra2_offset,d_y3,k_y3_offse 2626 &t,d_i3,k_i3_offset) 2627 CALL RECONCILEFILE(d_i3,size_i3) 2628 CALL ccsdt_lr_beta_4_4_23_2(d_trb1,k_trb1_offset,d_i3,k_i3_offset, 2629 &d_i2,k_i2_offset) 2630 CALL DELETEFILE(d_i3) 2631 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2632 &,-1,MA_ERR) 2633 CALL RECONCILEFILE(d_i2,size_i2) 2634 CALL ccsdt_lr_beta_4_4_23(d_trc2,k_trc2_offset,d_i2,k_i2_offset,d_ 2635 &i1,k_i1_offset) 2636 CALL DELETEFILE(d_i2) 2637 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2638 &,-1,MA_ERR) 2639 CALL OFFSET_ccsdt_lr_beta_4_4_24_1(l_i2_offset,k_i2_offset,size_i2 2640 &) 2641 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_24_1_i2',filename) 2642 CALL CREATEFILE(filename,d_i2,size_i2) 2643 CALL OFFSET_ccsdt_lr_beta_4_4_24_1_1(l_i3_offset,k_i3_offset,size_ 2644 &i3) 2645 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_24_1_1_i3',filename) 2646 CALL CREATEFILE(filename,d_i3,size_i3) 2647 CALL ccsdt_lr_beta_4_4_24_1_1(d_trc2,k_trc2_offset,d_y3,k_y3_offse 2648 &t,d_i3,k_i3_offset) 2649 CALL RECONCILEFILE(d_i3,size_i3) 2650 CALL ccsdt_lr_beta_4_4_24_1(d_trb2,k_trb2_offset,d_i3,k_i3_offset, 2651 &d_i2,k_i2_offset) 2652 CALL DELETEFILE(d_i3) 2653 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2654 &,-1,MA_ERR) 2655 CALL OFFSET_ccsdt_lr_beta_4_4_24_2_1(l_i3_offset,k_i3_offset,size_ 2656 &i3) 2657 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_24_2_1_i3',filename) 2658 CALL CREATEFILE(filename,d_i3,size_i3) 2659 CALL ccsdt_lr_beta_4_4_24_2_1(d_trb2,k_trb2_offset,d_y3,k_y3_offse 2660 &t,d_i3,k_i3_offset) 2661 CALL RECONCILEFILE(d_i3,size_i3) 2662 CALL ccsdt_lr_beta_4_4_24_2(d_trc2,k_trc2_offset,d_i3,k_i3_offset, 2663 &d_i2,k_i2_offset) 2664 CALL DELETEFILE(d_i3) 2665 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2666 &,-1,MA_ERR) 2667 CALL RECONCILEFILE(d_i2,size_i2) 2668 CALL ccsdt_lr_beta_4_4_24(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_ 2669 &i1,k_i1_offset) 2670 CALL DELETEFILE(d_i2) 2671 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2672 &,-1,MA_ERR) 2673 CALL OFFSET_ccsdt_lr_beta_4_4_25_1(l_i2_offset,k_i2_offset,size_i2 2674 &) 2675 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_25_1_i2',filename) 2676 CALL CREATEFILE(filename,d_i2,size_i2) 2677 CALL OFFSET_ccsdt_lr_beta_4_4_25_1_1(l_i3_offset,k_i3_offset,size_ 2678 &i3) 2679 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_25_1_1_i3',filename) 2680 CALL CREATEFILE(filename,d_i3,size_i3) 2681 CALL OFFSET_ccsdt_lr_beta_4_4_25_1_1_1(l_i4_offset,k_i4_offset,siz 2682 &e_i4) 2683 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_25_1_1_1_i4',filename) 2684 CALL CREATEFILE(filename,d_i4,size_i4) 2685 CALL ccsdt_lr_beta_4_4_25_1_1_1(d_trc1,k_trc1_offset,d_y2,k_y2_off 2686 &set,d_i4,k_i4_offset) 2687 CALL ccsdt_lr_beta_4_4_25_1_1_2(d_trc2,k_trc2_offset,d_y3,k_y3_off 2688 &set,d_i4,k_i4_offset) 2689 CALL RECONCILEFILE(d_i4,size_i4) 2690 CALL ccsdt_lr_beta_4_4_25_1_1(d_trb1,k_trb1_offset,d_i4,k_i4_offse 2691 &t,d_i3,k_i3_offset) 2692 CALL DELETEFILE(d_i4) 2693 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2694 &,-1,MA_ERR) 2695 CALL OFFSET_ccsdt_lr_beta_4_4_25_1_2_1(l_i4_offset,k_i4_offset,siz 2696 &e_i4) 2697 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_25_1_2_1_i4',filename) 2698 CALL CREATEFILE(filename,d_i4,size_i4) 2699 CALL ccsdt_lr_beta_4_4_25_1_2_1(d_trb1,k_trb1_offset,d_y2,k_y2_off 2700 &set,d_i4,k_i4_offset) 2701 CALL ccsdt_lr_beta_4_4_25_1_2_2(d_trb2,k_trb2_offset,d_y3,k_y3_off 2702 &set,d_i4,k_i4_offset) 2703 CALL RECONCILEFILE(d_i4,size_i4) 2704 CALL ccsdt_lr_beta_4_4_25_1_2(d_trc1,k_trc1_offset,d_i4,k_i4_offse 2705 &t,d_i3,k_i3_offset) 2706 CALL DELETEFILE(d_i4) 2707 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2708 &,-1,MA_ERR) 2709 CALL RECONCILEFILE(d_i3,size_i3) 2710 CALL ccsdt_lr_beta_4_4_25_1(d_tra1,k_tra1_offset,d_i3,k_i3_offset, 2711 &d_i2,k_i2_offset) 2712 CALL DELETEFILE(d_i3) 2713 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2714 &,-1,MA_ERR) 2715 CALL OFFSET_ccsdt_lr_beta_4_4_25_2_1(l_i3_offset,k_i3_offset,size_ 2716 &i3) 2717 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_25_2_1_i3',filename) 2718 CALL CREATEFILE(filename,d_i3,size_i3) 2719 CALL OFFSET_ccsdt_lr_beta_4_4_25_2_1_1(l_i4_offset,k_i4_offset,siz 2720 &e_i4) 2721 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_25_2_1_1_i4',filename) 2722 CALL CREATEFILE(filename,d_i4,size_i4) 2723 CALL ccsdt_lr_beta_4_4_25_2_1_1(d_trb1,k_trb1_offset,d_y3,k_y3_off 2724 &set,d_i4,k_i4_offset) 2725 CALL RECONCILEFILE(d_i4,size_i4) 2726 CALL ccsdt_lr_beta_4_4_25_2_1(d_trc2,k_trc2_offset,d_i4,k_i4_offse 2727 &t,d_i3,k_i3_offset) 2728 CALL DELETEFILE(d_i4) 2729 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2730 &,-1,MA_ERR) 2731 CALL OFFSET_ccsdt_lr_beta_4_4_25_2_2_1(l_i4_offset,k_i4_offset,siz 2732 &e_i4) 2733 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_25_2_2_1_i4',filename) 2734 CALL CREATEFILE(filename,d_i4,size_i4) 2735 CALL ccsdt_lr_beta_4_4_25_2_2_1(d_trc1,k_trc1_offset,d_y3,k_y3_off 2736 &set,d_i4,k_i4_offset) 2737 CALL RECONCILEFILE(d_i4,size_i4) 2738 CALL ccsdt_lr_beta_4_4_25_2_2(d_trb2,k_trb2_offset,d_i4,k_i4_offse 2739 &t,d_i3,k_i3_offset) 2740 CALL DELETEFILE(d_i4) 2741 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2742 &,-1,MA_ERR) 2743 CALL RECONCILEFILE(d_i3,size_i3) 2744 CALL ccsdt_lr_beta_4_4_25_2(d_tra1,k_tra1_offset,d_i3,k_i3_offset, 2745 &d_i2,k_i2_offset) 2746 CALL DELETEFILE(d_i3) 2747 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2748 &,-1,MA_ERR) 2749 CALL OFFSET_ccsdt_lr_beta_4_4_25_3_1(l_i3_offset,k_i3_offset,size_ 2750 &i3) 2751 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_25_3_1_i3',filename) 2752 CALL CREATEFILE(filename,d_i3,size_i3) 2753 CALL OFFSET_ccsdt_lr_beta_4_4_25_3_1_1(l_i4_offset,k_i4_offset,siz 2754 &e_i4) 2755 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_25_3_1_1_i4',filename) 2756 CALL CREATEFILE(filename,d_i4,size_i4) 2757 CALL ccsdt_lr_beta_4_4_25_3_1_1(d_trb1,k_trb1_offset,d_y2,k_y2_off 2758 &set,d_i4,k_i4_offset) 2759 CALL ccsdt_lr_beta_4_4_25_3_1_2(d_trb2,k_trb2_offset,d_y3,k_y3_off 2760 &set,d_i4,k_i4_offset) 2761 CALL RECONCILEFILE(d_i4,size_i4) 2762 CALL ccsdt_lr_beta_4_4_25_3_1(d_tra1,k_tra1_offset,d_i4,k_i4_offse 2763 &t,d_i3,k_i3_offset) 2764 CALL DELETEFILE(d_i4) 2765 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2766 &,-1,MA_ERR) 2767 CALL OFFSET_ccsdt_lr_beta_4_4_25_3_2_1(l_i4_offset,k_i4_offset,siz 2768 &e_i4) 2769 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_25_3_2_1_i4',filename) 2770 CALL CREATEFILE(filename,d_i4,size_i4) 2771 CALL ccsdt_lr_beta_4_4_25_3_2_1(d_tra1,k_tra1_offset,d_y2,k_y2_off 2772 &set,d_i4,k_i4_offset) 2773 CALL ccsdt_lr_beta_4_4_25_3_2_2(d_tra2,k_tra2_offset,d_y3,k_y3_off 2774 &set,d_i4,k_i4_offset) 2775 CALL RECONCILEFILE(d_i4,size_i4) 2776 CALL ccsdt_lr_beta_4_4_25_3_2(d_trb1,k_trb1_offset,d_i4,k_i4_offse 2777 &t,d_i3,k_i3_offset) 2778 CALL DELETEFILE(d_i4) 2779 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2780 &,-1,MA_ERR) 2781 CALL RECONCILEFILE(d_i3,size_i3) 2782 CALL ccsdt_lr_beta_4_4_25_3(d_trc1,k_trc1_offset,d_i3,k_i3_offset, 2783 &d_i2,k_i2_offset) 2784 CALL DELETEFILE(d_i3) 2785 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2786 &,-1,MA_ERR) 2787 CALL OFFSET_ccsdt_lr_beta_4_4_25_4_1(l_i3_offset,k_i3_offset,size_ 2788 &i3) 2789 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_25_4_1_i3',filename) 2790 CALL CREATEFILE(filename,d_i3,size_i3) 2791 CALL OFFSET_ccsdt_lr_beta_4_4_25_4_1_1(l_i4_offset,k_i4_offset,siz 2792 &e_i4) 2793 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_25_4_1_1_i4',filename) 2794 CALL CREATEFILE(filename,d_i4,size_i4) 2795 CALL ccsdt_lr_beta_4_4_25_4_1_1(d_tra1,k_tra1_offset,d_y3,k_y3_off 2796 &set,d_i4,k_i4_offset) 2797 CALL RECONCILEFILE(d_i4,size_i4) 2798 CALL ccsdt_lr_beta_4_4_25_4_1(d_trb2,k_trb2_offset,d_i4,k_i4_offse 2799 &t,d_i3,k_i3_offset) 2800 CALL DELETEFILE(d_i4) 2801 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2802 &,-1,MA_ERR) 2803 CALL OFFSET_ccsdt_lr_beta_4_4_25_4_2_1(l_i4_offset,k_i4_offset,siz 2804 &e_i4) 2805 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_25_4_2_1_i4',filename) 2806 CALL CREATEFILE(filename,d_i4,size_i4) 2807 CALL ccsdt_lr_beta_4_4_25_4_2_1(d_trb1,k_trb1_offset,d_y3,k_y3_off 2808 &set,d_i4,k_i4_offset) 2809 CALL RECONCILEFILE(d_i4,size_i4) 2810 CALL ccsdt_lr_beta_4_4_25_4_2(d_tra2,k_tra2_offset,d_i4,k_i4_offse 2811 &t,d_i3,k_i3_offset) 2812 CALL DELETEFILE(d_i4) 2813 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2814 &,-1,MA_ERR) 2815 CALL RECONCILEFILE(d_i3,size_i3) 2816 CALL ccsdt_lr_beta_4_4_25_4(d_trc1,k_trc1_offset,d_i3,k_i3_offset, 2817 &d_i2,k_i2_offset) 2818 CALL DELETEFILE(d_i3) 2819 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2820 &,-1,MA_ERR) 2821 CALL OFFSET_ccsdt_lr_beta_4_4_25_5_1(l_i3_offset,k_i3_offset,size_ 2822 &i3) 2823 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_25_5_1_i3',filename) 2824 CALL CREATEFILE(filename,d_i3,size_i3) 2825 CALL OFFSET_ccsdt_lr_beta_4_4_25_5_1_1(l_i4_offset,k_i4_offset,siz 2826 &e_i4) 2827 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_25_5_1_1_i4',filename) 2828 CALL CREATEFILE(filename,d_i4,size_i4) 2829 CALL ccsdt_lr_beta_4_4_25_5_1_1(d_trc1,k_trc1_offset,d_y2,k_y2_off 2830 &set,d_i4,k_i4_offset) 2831 CALL ccsdt_lr_beta_4_4_25_5_1_2(d_trc2,k_trc2_offset,d_y3,k_y3_off 2832 &set,d_i4,k_i4_offset) 2833 CALL RECONCILEFILE(d_i4,size_i4) 2834 CALL ccsdt_lr_beta_4_4_25_5_1(d_tra1,k_tra1_offset,d_i4,k_i4_offse 2835 &t,d_i3,k_i3_offset) 2836 CALL DELETEFILE(d_i4) 2837 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2838 &,-1,MA_ERR) 2839 CALL OFFSET_ccsdt_lr_beta_4_4_25_5_2_1(l_i4_offset,k_i4_offset,siz 2840 &e_i4) 2841 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_25_5_2_1_i4',filename) 2842 CALL CREATEFILE(filename,d_i4,size_i4) 2843 CALL ccsdt_lr_beta_4_4_25_5_2_1(d_tra1,k_tra1_offset,d_y2,k_y2_off 2844 &set,d_i4,k_i4_offset) 2845 CALL ccsdt_lr_beta_4_4_25_5_2_2(d_tra2,k_tra2_offset,d_y3,k_y3_off 2846 &set,d_i4,k_i4_offset) 2847 CALL RECONCILEFILE(d_i4,size_i4) 2848 CALL ccsdt_lr_beta_4_4_25_5_2(d_trc1,k_trc1_offset,d_i4,k_i4_offse 2849 &t,d_i3,k_i3_offset) 2850 CALL DELETEFILE(d_i4) 2851 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2852 &,-1,MA_ERR) 2853 CALL RECONCILEFILE(d_i3,size_i3) 2854 CALL ccsdt_lr_beta_4_4_25_5(d_trb1,k_trb1_offset,d_i3,k_i3_offset, 2855 &d_i2,k_i2_offset) 2856 CALL DELETEFILE(d_i3) 2857 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2858 &,-1,MA_ERR) 2859 CALL OFFSET_ccsdt_lr_beta_4_4_25_6_1(l_i3_offset,k_i3_offset,size_ 2860 &i3) 2861 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_25_6_1_i3',filename) 2862 CALL CREATEFILE(filename,d_i3,size_i3) 2863 CALL OFFSET_ccsdt_lr_beta_4_4_25_6_1_1(l_i4_offset,k_i4_offset,siz 2864 &e_i4) 2865 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_25_6_1_1_i4',filename) 2866 CALL CREATEFILE(filename,d_i4,size_i4) 2867 CALL ccsdt_lr_beta_4_4_25_6_1_1(d_tra1,k_tra1_offset,d_y3,k_y3_off 2868 &set,d_i4,k_i4_offset) 2869 CALL RECONCILEFILE(d_i4,size_i4) 2870 CALL ccsdt_lr_beta_4_4_25_6_1(d_trc2,k_trc2_offset,d_i4,k_i4_offse 2871 &t,d_i3,k_i3_offset) 2872 CALL DELETEFILE(d_i4) 2873 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2874 &,-1,MA_ERR) 2875 CALL OFFSET_ccsdt_lr_beta_4_4_25_6_2_1(l_i4_offset,k_i4_offset,siz 2876 &e_i4) 2877 CALL TCE_FILENAME('ccsdt_lr_beta_4_4_25_6_2_1_i4',filename) 2878 CALL CREATEFILE(filename,d_i4,size_i4) 2879 CALL ccsdt_lr_beta_4_4_25_6_2_1(d_trc1,k_trc1_offset,d_y3,k_y3_off 2880 &set,d_i4,k_i4_offset) 2881 CALL RECONCILEFILE(d_i4,size_i4) 2882 CALL ccsdt_lr_beta_4_4_25_6_2(d_tra2,k_tra2_offset,d_i4,k_i4_offse 2883 &t,d_i3,k_i3_offset) 2884 CALL DELETEFILE(d_i4) 2885 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2886 &,-1,MA_ERR) 2887 CALL RECONCILEFILE(d_i3,size_i3) 2888 CALL ccsdt_lr_beta_4_4_25_6(d_trb1,k_trb1_offset,d_i3,k_i3_offset, 2889 &d_i2,k_i2_offset) 2890 CALL DELETEFILE(d_i3) 2891 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2892 &,-1,MA_ERR) 2893 CALL RECONCILEFILE(d_i2,size_i2) 2894 CALL ccsdt_lr_beta_4_4_25(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k 2895 &_i1_offset) 2896 CALL DELETEFILE(d_i2) 2897 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2898 &,-1,MA_ERR) 2899 CALL RECONCILEFILE(d_i1,size_i1) 2900 CALL ccsdt_lr_beta_4_4(d_i1,k_i1_offset,d_v2,k_v2_offset,d_i0,k_i0 2901 &_offset) 2902 CALL DELETEFILE(d_i1) 2903 IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2904 &,-1,MA_ERR) 2905 CALL OFFSET_ccsdt_lr_beta_4_5_1(l_i1_offset,k_i1_offset,size_i1) 2906 CALL TCE_FILENAME('ccsdt_lr_beta_4_5_1_i1',filename) 2907 CALL CREATEFILE(filename,d_i1,size_i1) 2908 CALL OFFSET_ccsdt_lr_beta_4_5_1_1(l_i2_offset,k_i2_offset,size_i2) 2909 CALL TCE_FILENAME('ccsdt_lr_beta_4_5_1_1_i2',filename) 2910 CALL CREATEFILE(filename,d_i2,size_i2) 2911 CALL OFFSET_ccsdt_lr_beta_4_5_1_1_1(l_i3_offset,k_i3_offset,size_i 2912 &3) 2913 CALL TCE_FILENAME('ccsdt_lr_beta_4_5_1_1_1_i3',filename) 2914 CALL CREATEFILE(filename,d_i3,size_i3) 2915 CALL ccsdt_lr_beta_4_5_1_1_1(d_trc2,k_trc2_offset,d_y3,k_y3_offset 2916 &,d_i3,k_i3_offset) 2917 CALL RECONCILEFILE(d_i3,size_i3) 2918 CALL ccsdt_lr_beta_4_5_1_1(d_trb1,k_trb1_offset,d_i3,k_i3_offset,d 2919 &_i2,k_i2_offset) 2920 CALL DELETEFILE(d_i3) 2921 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2922 &,-1,MA_ERR) 2923 CALL OFFSET_ccsdt_lr_beta_4_5_1_2_1(l_i3_offset,k_i3_offset,size_i 2924 &3) 2925 CALL TCE_FILENAME('ccsdt_lr_beta_4_5_1_2_1_i3',filename) 2926 CALL CREATEFILE(filename,d_i3,size_i3) 2927 CALL ccsdt_lr_beta_4_5_1_2_1(d_trb1,k_trb1_offset,d_y3,k_y3_offset 2928 &,d_i3,k_i3_offset) 2929 CALL RECONCILEFILE(d_i3,size_i3) 2930 CALL ccsdt_lr_beta_4_5_1_2(d_trc2,k_trc2_offset,d_i3,k_i3_offset,d 2931 &_i2,k_i2_offset) 2932 CALL DELETEFILE(d_i3) 2933 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2934 &,-1,MA_ERR) 2935 CALL OFFSET_ccsdt_lr_beta_4_5_1_3_1(l_i3_offset,k_i3_offset,size_i 2936 &3) 2937 CALL TCE_FILENAME('ccsdt_lr_beta_4_5_1_3_1_i3',filename) 2938 CALL CREATEFILE(filename,d_i3,size_i3) 2939 CALL ccsdt_lr_beta_4_5_1_3_1(d_trb2,k_trb2_offset,d_y3,k_y3_offset 2940 &,d_i3,k_i3_offset) 2941 CALL RECONCILEFILE(d_i3,size_i3) 2942 CALL ccsdt_lr_beta_4_5_1_3(d_trc1,k_trc1_offset,d_i3,k_i3_offset,d 2943 &_i2,k_i2_offset) 2944 CALL DELETEFILE(d_i3) 2945 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2946 &,-1,MA_ERR) 2947 CALL OFFSET_ccsdt_lr_beta_4_5_1_4_1(l_i3_offset,k_i3_offset,size_i 2948 &3) 2949 CALL TCE_FILENAME('ccsdt_lr_beta_4_5_1_4_1_i3',filename) 2950 CALL CREATEFILE(filename,d_i3,size_i3) 2951 CALL ccsdt_lr_beta_4_5_1_4_1(d_trc1,k_trc1_offset,d_y3,k_y3_offset 2952 &,d_i3,k_i3_offset) 2953 CALL RECONCILEFILE(d_i3,size_i3) 2954 CALL ccsdt_lr_beta_4_5_1_4(d_trb2,k_trb2_offset,d_i3,k_i3_offset,d 2955 &_i2,k_i2_offset) 2956 CALL DELETEFILE(d_i3) 2957 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2958 &,-1,MA_ERR) 2959 CALL RECONCILEFILE(d_i2,size_i2) 2960 CALL ccsdt_lr_beta_4_5_1(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_i 2961 &1,k_i1_offset) 2962 CALL DELETEFILE(d_i2) 2963 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2964 &,-1,MA_ERR) 2965 CALL OFFSET_ccsdt_lr_beta_4_5_2_1(l_i2_offset,k_i2_offset,size_i2) 2966 CALL TCE_FILENAME('ccsdt_lr_beta_4_5_2_1_i2',filename) 2967 CALL CREATEFILE(filename,d_i2,size_i2) 2968 CALL OFFSET_ccsdt_lr_beta_4_5_2_1_1(l_i3_offset,k_i3_offset,size_i 2969 &3) 2970 CALL TCE_FILENAME('ccsdt_lr_beta_4_5_2_1_1_i3',filename) 2971 CALL CREATEFILE(filename,d_i3,size_i3) 2972 CALL ccsdt_lr_beta_4_5_2_1_1(d_trb2,k_trb2_offset,d_y3,k_y3_offset 2973 &,d_i3,k_i3_offset) 2974 CALL RECONCILEFILE(d_i3,size_i3) 2975 CALL ccsdt_lr_beta_4_5_2_1(d_tra1,k_tra1_offset,d_i3,k_i3_offset,d 2976 &_i2,k_i2_offset) 2977 CALL DELETEFILE(d_i3) 2978 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2979 &,-1,MA_ERR) 2980 CALL OFFSET_ccsdt_lr_beta_4_5_2_2_1(l_i3_offset,k_i3_offset,size_i 2981 &3) 2982 CALL TCE_FILENAME('ccsdt_lr_beta_4_5_2_2_1_i3',filename) 2983 CALL CREATEFILE(filename,d_i3,size_i3) 2984 CALL ccsdt_lr_beta_4_5_2_2_1(d_tra1,k_tra1_offset,d_y3,k_y3_offset 2985 &,d_i3,k_i3_offset) 2986 CALL RECONCILEFILE(d_i3,size_i3) 2987 CALL ccsdt_lr_beta_4_5_2_2(d_trb2,k_trb2_offset,d_i3,k_i3_offset,d 2988 &_i2,k_i2_offset) 2989 CALL DELETEFILE(d_i3) 2990 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 2991 &,-1,MA_ERR) 2992 CALL OFFSET_ccsdt_lr_beta_4_5_2_3_1(l_i3_offset,k_i3_offset,size_i 2993 &3) 2994 CALL TCE_FILENAME('ccsdt_lr_beta_4_5_2_3_1_i3',filename) 2995 CALL CREATEFILE(filename,d_i3,size_i3) 2996 CALL ccsdt_lr_beta_4_5_2_3_1(d_tra2,k_tra2_offset,d_y3,k_y3_offset 2997 &,d_i3,k_i3_offset) 2998 CALL RECONCILEFILE(d_i3,size_i3) 2999 CALL ccsdt_lr_beta_4_5_2_3(d_trb1,k_trb1_offset,d_i3,k_i3_offset,d 3000 &_i2,k_i2_offset) 3001 CALL DELETEFILE(d_i3) 3002 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 3003 &,-1,MA_ERR) 3004 CALL OFFSET_ccsdt_lr_beta_4_5_2_4_1(l_i3_offset,k_i3_offset,size_i 3005 &3) 3006 CALL TCE_FILENAME('ccsdt_lr_beta_4_5_2_4_1_i3',filename) 3007 CALL CREATEFILE(filename,d_i3,size_i3) 3008 CALL ccsdt_lr_beta_4_5_2_4_1(d_trb1,k_trb1_offset,d_y3,k_y3_offset 3009 &,d_i3,k_i3_offset) 3010 CALL RECONCILEFILE(d_i3,size_i3) 3011 CALL ccsdt_lr_beta_4_5_2_4(d_tra2,k_tra2_offset,d_i3,k_i3_offset,d 3012 &_i2,k_i2_offset) 3013 CALL DELETEFILE(d_i3) 3014 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 3015 &,-1,MA_ERR) 3016 CALL RECONCILEFILE(d_i2,size_i2) 3017 CALL ccsdt_lr_beta_4_5_2(d_trc1,k_trc1_offset,d_i2,k_i2_offset,d_i 3018 &1,k_i1_offset) 3019 CALL DELETEFILE(d_i2) 3020 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 3021 &,-1,MA_ERR) 3022 CALL OFFSET_ccsdt_lr_beta_4_5_3_1(l_i2_offset,k_i2_offset,size_i2) 3023 CALL TCE_FILENAME('ccsdt_lr_beta_4_5_3_1_i2',filename) 3024 CALL CREATEFILE(filename,d_i2,size_i2) 3025 CALL OFFSET_ccsdt_lr_beta_4_5_3_1_1(l_i3_offset,k_i3_offset,size_i 3026 &3) 3027 CALL TCE_FILENAME('ccsdt_lr_beta_4_5_3_1_1_i3',filename) 3028 CALL CREATEFILE(filename,d_i3,size_i3) 3029 CALL ccsdt_lr_beta_4_5_3_1_1(d_tra2,k_tra2_offset,d_y3,k_y3_offset 3030 &,d_i3,k_i3_offset) 3031 CALL RECONCILEFILE(d_i3,size_i3) 3032 CALL ccsdt_lr_beta_4_5_3_1(d_trc1,k_trc1_offset,d_i3,k_i3_offset,d 3033 &_i2,k_i2_offset) 3034 CALL DELETEFILE(d_i3) 3035 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 3036 &,-1,MA_ERR) 3037 CALL OFFSET_ccsdt_lr_beta_4_5_3_2_1(l_i3_offset,k_i3_offset,size_i 3038 &3) 3039 CALL TCE_FILENAME('ccsdt_lr_beta_4_5_3_2_1_i3',filename) 3040 CALL CREATEFILE(filename,d_i3,size_i3) 3041 CALL ccsdt_lr_beta_4_5_3_2_1(d_trc1,k_trc1_offset,d_y3,k_y3_offset 3042 &,d_i3,k_i3_offset) 3043 CALL RECONCILEFILE(d_i3,size_i3) 3044 CALL ccsdt_lr_beta_4_5_3_2(d_tra2,k_tra2_offset,d_i3,k_i3_offset,d 3045 &_i2,k_i2_offset) 3046 CALL DELETEFILE(d_i3) 3047 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 3048 &,-1,MA_ERR) 3049 CALL OFFSET_ccsdt_lr_beta_4_5_3_3_1(l_i3_offset,k_i3_offset,size_i 3050 &3) 3051 CALL TCE_FILENAME('ccsdt_lr_beta_4_5_3_3_1_i3',filename) 3052 CALL CREATEFILE(filename,d_i3,size_i3) 3053 CALL ccsdt_lr_beta_4_5_3_3_1(d_trc2,k_trc2_offset,d_y3,k_y3_offset 3054 &,d_i3,k_i3_offset) 3055 CALL RECONCILEFILE(d_i3,size_i3) 3056 CALL ccsdt_lr_beta_4_5_3_3(d_tra1,k_tra1_offset,d_i3,k_i3_offset,d 3057 &_i2,k_i2_offset) 3058 CALL DELETEFILE(d_i3) 3059 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 3060 &,-1,MA_ERR) 3061 CALL OFFSET_ccsdt_lr_beta_4_5_3_4_1(l_i3_offset,k_i3_offset,size_i 3062 &3) 3063 CALL TCE_FILENAME('ccsdt_lr_beta_4_5_3_4_1_i3',filename) 3064 CALL CREATEFILE(filename,d_i3,size_i3) 3065 CALL ccsdt_lr_beta_4_5_3_4_1(d_tra1,k_tra1_offset,d_y3,k_y3_offset 3066 &,d_i3,k_i3_offset) 3067 CALL RECONCILEFILE(d_i3,size_i3) 3068 CALL ccsdt_lr_beta_4_5_3_4(d_trc2,k_trc2_offset,d_i3,k_i3_offset,d 3069 &_i2,k_i2_offset) 3070 CALL DELETEFILE(d_i3) 3071 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 3072 &,-1,MA_ERR) 3073 CALL RECONCILEFILE(d_i2,size_i2) 3074 CALL ccsdt_lr_beta_4_5_3(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_i 3075 &1,k_i1_offset) 3076 CALL DELETEFILE(d_i2) 3077 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 3078 &,-1,MA_ERR) 3079 CALL RECONCILEFILE(d_i1,size_i1) 3080 CALL ccsdt_lr_beta_4_5(d_i1,k_i1_offset,d_v2,k_v2_offset,d_i0,k_i0 3081 &_offset) 3082 CALL DELETEFILE(d_i1) 3083 IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('ccsdt_lr_beta_4' 3084 &,-1,MA_ERR) 3085 RETURN 3086 END 3087#endif 3088