1 SUBROUTINE beta_3(d_f1,d_i0,d_t1,d_t2,d_tra1,d_tra2,d_trb1,d_trb2, 2 &d_v2,d_y1,d_y2,k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_t 3 &ra1_offset,k_tra2_offset,k_trb1_offset,k_trb2_offset,k_v2_offset,k 4 &_y1_offset,k_y2_offset) 5C $Id$ 6C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 7C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) 8C i0 ( )_ytratrbf + = -1 * Sum ( p2 h1 ) * i1 ( p2 h1 )_ytratrb * f ( h1 p2 )_f 9C i1 ( p2 h1 )_ytratrb + = 1 * Sum ( h7 ) * trb ( p2 h7 )_trb * i2 ( h7 h1 )_ytra 10C i2 ( h7 h1 )_ytra + = 1 * Sum ( p3 ) * tra ( p3 h1 )_tra * y ( h7 p3 )_y 11C i2 ( h7 h1 )_ytra + = -1/2 * Sum ( h5 p3 p4 ) * tra ( p3 p4 h1 h5 )_tra * y ( h5 h7 p3 p4 )_y 12C i1 ( p2 h1 )_ytrbtra + = 1 * Sum ( h3 ) * tra ( p2 h3 )_tra * i2 ( h3 h1 )_ytrb 13C i2 ( h3 h1 )_ytrb + = 1 * Sum ( p4 ) * trb ( p4 h1 )_trb * y ( h3 p4 )_y 14C i2 ( h3 h1 )_ytrb + = 1/2 * Sum ( h6 p4 p5 ) * trb ( p4 p5 h1 h6 )_trb * y ( h3 h6 p4 p5 )_y 15C i1 ( p2 h1 )_ytrbtra + = 1/2 * Sum ( h4 h5 p3 ) * tra ( p2 p3 h4 h5 )_tra * i2 ( h4 h5 h1 p3 )_ytrb 16C i2 ( h4 h5 h1 p3 )_ytrb + = -1 * Sum ( p6 ) * trb ( p6 h1 )_trb * y ( h4 h5 p3 p6 )_y 17C i1 ( p2 h1 )_ytratrb + = -1/2 * Sum ( h5 h6 p4 ) * trb ( p2 p4 h5 h6 )_trb * i2 ( h5 h6 h1 p4 )_ytra 18C i2 ( h5 h6 h1 p4 )_ytra + = -1 * Sum ( p3 ) * tra ( p3 h1 )_tra * y ( h5 h6 p3 p4 )_y 19C i0 ( )_vtratrby + = -1 * Sum ( p7 h8 ) * y ( h8 p7 )_y * i1 ( p7 h8 )_vtratrb 20C i1 ( p7 h8 )_vtratrb + = 1 * Sum ( h9 ) * trb ( p7 h9 )_trb * i2 ( h9 h8 )_vtra 21C i2 ( h9 h8 )_vtra + = -1 * Sum ( h2 p1 ) * tra ( p1 h2 )_tra * v ( h2 h9 h8 p1 )_v 22C i2 ( h9 h8 )_vtra + = 1/2 * Sum ( h4 p1 p2 ) * tra ( p1 p2 h4 h8 )_tra * v ( h4 h9 p1 p2 )_v 23C i2 ( h9 h8 )_vttra + = 1 * Sum ( p3 ) * tra ( p3 h8 )_tra * i3 ( h9 p3 )_vt 24C i3 ( h9 p3 )_vt + = 1 * Sum ( h2 p1 ) * t ( p1 h2 )_t * v ( h2 h9 p1 p3 )_v 25C i2 ( h9 h8 )_vtrat + = -1 * Sum ( p1 ) * t ( p1 h8 )_t * i3 ( h9 p1 )_vtra 26C i3 ( h9 p1 )_vtra + = 1 * Sum ( h4 p3 ) * tra ( p3 h4 )_tra * v ( h4 h9 p1 p3 )_v 27C i1 ( p7 h8 )_vtrbtra + = -1 * Sum ( h10 ) * tra ( p7 h10 )_tra * i2 ( h10 h8 )_vtrb 28C i2 ( h10 h8 )_vtrb + = 1 * Sum ( h4 p3 ) * trb ( p3 h4 )_trb * v ( h4 h10 h8 p3 )_v 29C i2 ( h10 h8 )_vtrb + = -1/2 * Sum ( h6 p3 p4 ) * trb ( p3 p4 h6 h8 )_trb * v ( h6 h10 p3 p4 )_v 30C i2 ( h10 h8 )_vttrb + = -1 * Sum ( p5 ) * trb ( p5 h8 )_trb * i3 ( h10 p5 )_vt 31C i3 ( h10 p5 )_vt + = 1 * Sum ( h2 p1 ) * t ( p1 h2 )_t * v ( h2 h10 p1 p5 )_v 32C i2 ( h10 h8 )_vtrbt + = -1 * Sum ( p1 ) * t ( p1 h8 )_t * i3 ( h10 p1 )_vtrb 33C i3 ( h10 p1 )_vtrb + = -1 * Sum ( h6 p5 ) * trb ( p5 h6 )_trb * v ( h6 h10 p1 p5 )_v 34C i1 ( p7 h8 )_vtratrb + = 1 * Sum ( p3 ) * trb ( p3 h8 )_trb * i2 ( p7 p3 )_vtra 35C i2 ( p7 p3 )_vtra + = -1 * Sum ( h2 p1 ) * tra ( p1 h2 )_tra * v ( h2 p7 p1 p3 )_v 36C i1 ( p7 h8 )_vtrbtra + = -1 * Sum ( p1 ) * tra ( p1 h8 )_tra * i2 ( p7 p1 )_vtrb 37C i2 ( p7 p1 )_vtrb + = -1 * Sum ( h4 p3 ) * trb ( p3 h4 )_trb * v ( h4 p7 p1 p3 )_v 38C i1 ( p7 h8 )_vtrbtra + = -1/2 * Sum ( h3 h4 p2 ) * tra ( p2 p7 h3 h4 )_tra * i2 ( h3 h4 h8 p2 )_vtrb 39C i2 ( h3 h4 h8 p2 )_vtrb + = -1 * Sum ( p5 ) * trb ( p5 h8 )_trb * v ( h3 h4 p2 p5 )_v 40C i1 ( p7 h8 )_vtrbtra + = -1 * Sum ( h4 p2 ) * tra ( p2 p7 h4 h8 )_tra * i2 ( h4 p2 )_vtrb 41C i2 ( h4 p2 )_vtrb + = 1 * Sum ( h6 p5 ) * trb ( p5 h6 )_trb * v ( h4 h6 p2 p5 )_v 42C i1 ( p7 h8 )_vtratrb + = 1/2 * Sum ( h5 h6 p4 ) * trb ( p4 p7 h5 h6 )_trb * i2 ( h5 h6 h8 p4 )_vtra 43C i2 ( h5 h6 h8 p4 )_vtra + = -1 * Sum ( p1 ) * tra ( p1 h8 )_tra * v ( h5 h6 p1 p4 )_v 44C i1 ( p7 h8 )_vtratrb + = -1 * Sum ( h6 p4 ) * trb ( p4 p7 h6 h8 )_trb * i2 ( h6 p4 )_vtra 45C i2 ( h6 p4 )_vtra + = 1 * Sum ( h2 p1 ) * tra ( p1 h2 )_tra * v ( h2 h6 p1 p4 )_v 46C i1 ( p7 h8 )_vtratrbt + = -1 * Sum ( h2 ) * t ( p7 h2 )_t * i2 ( h2 h8 )_vtratrb 47C i2 ( h2 h8 )_vtratrb + = 1 * Sum ( p5 ) * trb ( p5 h8 )_trb * i3 ( h2 p5 )_vtra 48C i3 ( h2 p5 )_vtra + = 1 * Sum ( h4 p3 ) * tra ( p3 h4 )_tra * v ( h2 h4 p3 p5 )_v 49C i2 ( h2 h8 )_vtrbtra + = -1 * Sum ( p3 ) * tra ( p3 h8 )_tra * i3 ( h2 p3 )_vtrb 50C i3 ( h2 p3 )_vtrb + = 1 * Sum ( h6 p5 ) * trb ( p5 h6 )_trb * v ( h2 h6 p3 p5 )_v 51C i0 ( )_ytrbtrav + = -1/2 * Sum ( h5 h6 h2 h4 ) * i1 ( h5 h6 h2 h4 )_ytrbtra * v ( h2 h4 h5 h6 )_v 52C i1 ( h5 h6 h2 h4 )_ytrbtra + = 1 * Sum ( p1 ) * tra ( p1 h2 )_tra * i2 ( h5 h6 h4 p1 )_ytrb 53C i2 ( h5 h6 h4 p1 )_ytrb + = -1 * Sum ( p3 ) * trb ( p3 h4 )_trb * y ( h5 h6 p1 p3 )_y 54C i0 ( )_vtrbtray + = 1 * Sum ( p11 p13 h9 h10 ) * y ( h9 h10 p11 p13 )_y * i1 ( p11 p13 h9 h10 )_vtrbtra 55C i1 ( p11 p13 h9 h10 )_vtrbtra + = 1 * Sum ( h6 ) * tra ( p11 h6 )_tra * i2 ( h6 p13 h9 h10 )_vtrb 56C i2 ( h6 p13 h9 h10 )_vtrb + = 1 * Sum ( p3 ) * trb ( p3 h9 )_trb * v ( h6 p13 h10 p3 )_v 57C i2 ( h6 p13 h9 h10 )_vtrb + = -1/4 * Sum ( p3 p4 ) * trb ( p3 p4 h9 h10 )_trb * v ( h6 p13 p3 p4 )_v 58C i2 ( h6 p13 h9 h10 )_vtrbt + = 1 * Sum ( p1 ) * t ( p1 h9 )_t * i3 ( h6 p13 h10 p1 )_vtrb 59C i3 ( h6 p13 h10 p1 )_vtrb + = -1 * Sum ( p5 ) * trb ( p5 h10 )_trb * v ( h6 p13 p1 p5 )_v 60C i1 ( p11 p13 h9 h10 )_vtrbtra + = -1/2 * Sum ( p1 ) * tra ( p1 h9 )_tra * i2 ( p11 p13 h10 p1 )_vtrb 61C i2 ( p11 p13 h10 p1 )_vtrb + = -1 * Sum ( p3 ) * trb ( p3 h10 )_trb * v ( p11 p13 p1 p3 )_v 62C i1 ( p11 p13 h9 h10 )_vtrbtra + = -1 * Sum ( h4 p2 ) * tra ( p2 p11 h4 h9 )_tra * i2 ( h4 p13 h10 p2 )_vtrb 63C i2 ( h4 p13 h10 p2 )_vtrb + = -1 * Sum ( p5 ) * trb ( p5 h10 )_trb * v ( h4 p13 p2 p5 )_v 64C i2 ( h4 p13 h10 p2 )_vtrb + = -1 * Sum ( h8 p6 ) * trb ( p6 p13 h8 h10 )_trb * v ( h4 h8 p2 p6 )_v 65C i1 ( p11 p13 h9 h10 )_vtratrb + = -1/4 * Sum ( h6 ) * trb ( p11 h6 )_trb * i2 ( h6 p13 h9 h10 )_vtra 66C i2 ( h6 p13 h9 h10 )_vtra + = 1 * Sum ( p1 p2 ) * tra ( p1 p2 h9 h10 )_tra * v ( h6 p13 p1 p2 )_v 67C i2 ( h6 p13 h9 h10 )_vtrat + = -4 * Sum ( p1 ) * t ( p1 h9 )_t * i3 ( h6 p13 h10 p1 )_vtra 68C i3 ( h6 p13 h10 p1 )_vtra + = -1 * Sum ( p3 ) * tra ( p3 h10 )_tra * v ( h6 p13 p1 p3 )_v 69C i1 ( p11 p13 h9 h10 )_vtrbtra + = -1/2 * Sum ( p2 ) * tra ( p2 p11 h9 h10 )_tra * i2 ( p13 p2 )_vtrb 70C i2 ( p13 p2 )_vtrb + = -1 * Sum ( h6 p5 ) * trb ( p5 h6 )_trb * v ( h6 p13 p2 p5 )_v 71C i2 ( p13 p2 )_vtrb + = 1/2 * Sum ( h7 h8 p6 ) * trb ( p6 p13 h7 h8 )_trb * v ( h7 h8 p2 p6 )_v 72C i1 ( p11 p13 h9 h10 )_vtratrb + = -1 * Sum ( h6 p4 ) * trb ( p4 p11 h6 h10 )_trb * i2 ( h6 p13 h9 p4 )_vtra 73C i2 ( h6 p13 h9 p4 )_vtra + = -1 * Sum ( p1 ) * tra ( p1 h9 )_tra * v ( h6 p13 p1 p4 )_v 74C i1 ( p11 p13 h9 h10 )_vtratrb + = 1/2 * Sum ( p4 ) * trb ( p4 p11 h9 h10 )_trb * i2 ( p13 p4 )_vtra 75C i2 ( p13 p4 )_vtra + = -1 * Sum ( h2 p1 ) * tra ( p1 h2 )_tra * v ( h2 p13 p1 p4 )_v 76C i1 ( p11 p13 h9 h10 )_vtrbtra + = 1/16 * Sum ( h3 h4 ) * tra ( p11 p13 h3 h4 )_tra * i2 ( h3 h4 h9 h10 )_vtrb 77C i2 ( h3 h4 h9 h10 )_vtrb + = 1 * Sum ( p5 p6 ) * trb ( p5 p6 h9 h10 )_trb * v ( h3 h4 p5 p6 )_v 78C i1 ( p11 p13 h9 h10 )_vtrbtra + = -1/4 * Sum ( h4 ) * tra ( p11 p13 h4 h9 )_tra * i2 ( h4 h10 )_vtrb 79C i2 ( h4 h10 )_vtrb + = 1 * Sum ( h8 p5 p6 ) * trb ( p5 p6 h8 h10 )_trb * v ( h4 h8 p5 p6 )_v 80C i1 ( p11 p13 h9 h10 )_vtrbtrat + = 1 * Sum ( h2 ) * t ( p11 h2 )_t * i2 ( h2 p13 h9 h10 )_vtrbtra 81C i2 ( h2 p13 h9 h10 )_vtrbtra + = 1 * Sum ( p3 ) * tra ( p3 h9 )_tra * i3 ( h2 p13 h10 p3 )_vtrb 82C i3 ( h2 p13 h10 p3 )_vtrb + = -1 * Sum ( p5 ) * trb ( p5 h10 )_trb * v ( h2 p13 p3 p5 )_v 83C i2 ( h2 p13 h9 h10 )_vtrbtra + = -1 * Sum ( h6 p4 ) * tra ( p4 p13 h6 h9 )_tra * i3 ( h2 h6 h10 p4 )_vtrb 84C i3 ( h2 h6 h10 p4 )_vtrb + = 1 * Sum ( p7 ) * trb ( p7 h10 )_trb * v ( h2 h6 p4 p7 )_v 85C i2 ( h2 p13 h9 h10 )_vtratrb + = -1/4 * Sum ( h8 ) * trb ( p13 h8 )_trb * i3 ( h2 h8 h9 h10 )_vtra 86C i3 ( h2 h8 h9 h10 )_vtra + = -1 * Sum ( p3 p4 ) * tra ( p3 p4 h9 h10 )_tra * v ( h2 h8 p3 p4 )_v 87C i2 ( h2 p13 h9 h10 )_vtrbtra + = -1/2 * Sum ( p4 ) * tra ( p4 p13 h9 h10 )_tra * i3 ( h2 p4 )_vtrb 88C i3 ( h2 p4 )_vtrb + = 1 * Sum ( h8 p7 ) * trb ( p7 h8 )_trb * v ( h2 h8 p4 p7 )_v 89C i2 ( h2 p13 h9 h10 )_vtratrb + = -1 * Sum ( h8 p6 ) * trb ( p6 p13 h8 h10 )_trb * i3 ( h2 h8 h9 p6 )_vtra 90C i3 ( h2 h8 h9 p6 )_vtra + = 1 * Sum ( p3 ) * tra ( p3 h9 )_tra * v ( h2 h8 p3 p6 )_v 91C i2 ( h2 p13 h9 h10 )_vtrbtra + = -1/4 * Sum ( h4 ) * tra ( p13 h4 )_tra * i3 ( h2 h4 h9 h10 )_vtrb 92C i3 ( h2 h4 h9 h10 )_vtrb + = -1 * Sum ( p5 p6 ) * trb ( p5 p6 h9 h10 )_trb * v ( h2 h4 p5 p6 )_v 93C i2 ( h2 p13 h9 h10 )_vtratrb + = 1/2 * Sum ( p6 ) * trb ( p6 p13 h9 h10 )_trb * i3 ( h2 p6 )_vtra 94C i3 ( h2 p6 )_vtra + = 1 * Sum ( h4 p3 ) * tra ( p3 h4 )_tra * v ( h2 h4 p3 p6 )_v 95C i2 ( h2 p13 h9 h10 )_vtrbtrat + = 1/2 * Sum ( h4 ) * t ( p13 h4 )_t * i3 ( h2 h4 h9 h10 )_vtrbtra 96C i3 ( h2 h4 h9 h10 )_vtrbtra + = 1 * Sum ( p5 ) * tra ( p5 h9 )_tra * i4 ( h2 h4 h10 p5 )_vtrb 97C i4 ( h2 h4 h10 p5 )_vtrb + = 1 * Sum ( p7 ) * trb ( p7 h10 )_trb * v ( h2 h4 p5 p7 )_v 98C i1 ( p11 p13 h9 h10 )_vtrattrb + = 1/2 * Sum ( h8 ) * trb ( p11 p13 h8 h10 )_trb * i2 ( h8 h9 )_vtrat 99C i2 ( h8 h9 )_vtrat + = 1 * Sum ( p1 ) * t ( p1 h9 )_t * i3 ( h8 p1 )_vtra 100C i3 ( h8 p1 )_vtra + = 1 * Sum ( h4 p3 ) * tra ( p3 h4 )_tra * v ( h4 h8 p1 p3 )_v 101C i1 ( p11 p13 h9 h10 )_vtrbtrat + = -1/4 * Sum ( h3 h4 ) * t ( p11 p13 h3 h4 )_t * i2 ( h3 h4 h9 h10 )_vtrbtra 102C i2 ( h3 h4 h9 h10 )_vtrbtra + = 1 * Sum ( p5 ) * tra ( p5 h9 )_tra * i3 ( h3 h4 h10 p5 )_vtrb 103C i3 ( h3 h4 h10 p5 )_vtrb + = -1 * Sum ( p7 ) * trb ( p7 h10 )_trb * v ( h3 h4 p5 p7 )_v 104C i1 ( p11 p13 h9 h10 )_vtrattrb + = -1 * Sum ( h8 ) * trb ( p13 h8 )_trb * i2 ( h8 p11 h9 h10 )_vtrat 105C i2 ( h8 p11 h9 h10 )_vtrat + = 1 * Sum ( h4 p2 ) * t ( p2 p11 h4 h9 )_t * i3 ( h4 h8 h10 p2 )_vtra 106C i3 ( h4 h8 h10 p2 )_vtra + = 1 * Sum ( p5 ) * tra ( p5 h10 )_tra * v ( h4 h8 p2 p5 )_v 107C i2 ( h8 p11 h9 h10 )_vtrat + = 1/2 * Sum ( p2 ) * t ( p2 p11 h9 h10 )_t * i3 ( h8 p2 )_vtra 108C i3 ( h8 p2 )_vtra + = 1 * Sum ( h6 p5 ) * tra ( p5 h6 )_tra * v ( h6 h8 p2 p5 )_v 109C i1 ( p11 p13 h9 h10 )_vtrbtrat + = 1/2 * Sum ( h4 ) * t ( p11 p13 h4 h9 )_t * i2 ( h4 h10 )_vtrbtra 110C i2 ( h4 h10 )_vtrbtra + = 1 * Sum ( p5 ) * tra ( p5 h10 )_tra * i3 ( h4 p5 )_vtrb 111C i3 ( h4 p5 )_vtrb + = 1 * Sum ( h8 p7 ) * trb ( p7 h8 )_trb * v ( h4 h8 p5 p7 )_v 112C i2 ( h4 h10 )_vtratrb + = -1 * Sum ( p7 ) * trb ( p7 h10 )_trb * i3 ( h4 p7 )_vtra 113C i3 ( h4 p7 )_vtra + = 1 * Sum ( h6 p5 ) * tra ( p5 h6 )_tra * v ( h4 h6 p5 p7 )_v 114C i0 ( )_ytrbtrav + = 1 * Sum ( h6 p1 h4 p5 ) * i1 ( h6 p1 h4 p5 )_ytrbtra * v ( h4 p5 h6 p1 )_v 115C i1 ( h6 p1 h4 p5 )_ytrbtra + = 1 * Sum ( h2 ) * tra ( p1 h2 )_tra * i2 ( h2 h6 h4 p5 )_ytrb 116C i2 ( h2 h6 h4 p5 )_ytrb + = 1 * Sum ( p3 ) * trb ( p3 h4 )_trb * y ( h2 h6 p3 p5 )_y 117C i0 ( )_ytratrbv + = 1/4 * Sum ( h7 p10 h9 h11 ) * i1 ( h7 p10 h9 h11 )_ytratrb * v ( h9 h11 h7 p10 )_v 118C i1 ( h7 p10 h9 h11 )_ytratrb + = 1 * Sum ( h6 ) * trb ( p10 h6 )_trb * i2 ( h6 h7 h9 h11 )_ytra 119C i2 ( h6 h7 h9 h11 )_ytra + = -1 * Sum ( p1 p2 ) * tra ( p1 p2 h9 h11 )_tra * y ( h6 h7 p1 p2 )_y 120C i2 ( h6 h7 h9 h11 )_ytrat + = -4 * Sum ( p1 ) * t ( p1 h9 )_t * i3 ( h6 h7 h11 p1 )_ytra 121C i3 ( h6 h7 h11 p1 )_ytra + = 1 * Sum ( p3 ) * tra ( p3 h11 )_tra * y ( h6 h7 p1 p3 )_y 122C i1 ( h7 p10 h9 h11 )_ytrbtra + = 4 * Sum ( h3 p1 ) * tra ( p1 p10 h3 h9 )_tra * i2 ( h3 h7 h11 p1 )_ytrb 123C i2 ( h3 h7 h11 p1 )_ytrb + = 1 * Sum ( p5 ) * trb ( p5 h11 )_trb * y ( h3 h7 p1 p5 )_y 124C i1 ( h7 p10 h9 h11 )_ytratrb + = 2 * trb ( p10 h11 )_trb * i2 ( h7 h9 )_ytra 125C i2 ( h7 h9 )_ytra + = -1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h9 )_tra * y ( h3 h7 p1 p2 )_y 126C i1 ( h7 p10 h9 h11 )_ytrbtra + = 1 * Sum ( h6 ) * tra ( p10 h6 )_tra * i2 ( h6 h7 h9 h11 )_ytrb 127C i2 ( h6 h7 h9 h11 )_ytrb + = -1 * Sum ( p3 p4 ) * trb ( p3 p4 h9 h11 )_trb * y ( h6 h7 p3 p4 )_y 128C i2 ( h6 h7 h9 h11 )_ytrbt + = -4 * Sum ( p1 ) * t ( p1 h9 )_t * i3 ( h6 h7 h11 p1 )_ytrb 129C i3 ( h6 h7 h11 p1 )_ytrb + = 1 * Sum ( p5 ) * trb ( p5 h11 )_trb * y ( h6 h7 p1 p5 )_y 130C i1 ( h7 p10 h9 h11 )_ytratrb + = 4 * Sum ( h5 p3 ) * trb ( p3 p10 h5 h11 )_trb * i2 ( h5 h7 h9 p3 )_ytra 131C i2 ( h5 h7 h9 p3 )_ytra + = 1 * Sum ( p1 ) * tra ( p1 h9 )_tra * y ( h5 h7 p1 p3 )_y 132C i1 ( h7 p10 h9 h11 )_ytrbtra + = -2 * tra ( p10 h9 )_tra * i2 ( h7 h11 )_ytrb 133C i2 ( h7 h11 )_ytrb + = -1 * Sum ( h5 p3 p4 ) * trb ( p3 p4 h5 h11 )_trb * y ( h5 h7 p3 p4 )_y 134C i1 ( h7 p10 h9 h11 )_ytrbtrat + = -4 * Sum ( h2 ) * t ( p10 h2 )_t * i2 ( h2 h7 h9 h11 )_ytrbtra 135C i2 ( h2 h7 h9 h11 )_ytrbtra + = 1 * Sum ( p3 ) * tra ( p3 h9 )_tra * i3 ( h2 h7 h11 p3 )_ytrb 136C i3 ( h2 h7 h11 p3 )_ytrb + = 1 * Sum ( p5 ) * trb ( p5 h11 )_trb * y ( h2 h7 p3 p5 )_y 137C i0 ( )_ytrbtrav + = -1/4 * Sum ( p10 p13 h12 h9 ) * i1 ( p10 p13 h9 h12 )_ytrbtra * v ( h9 h12 p10 p13 )_v 138C i1 ( p10 p13 h9 h12 )_ytrbtra + = -1 * Sum ( p1 ) * tra ( p1 p10 h9 h12 )_tra * i2 ( p13 p1 )_ytrb 139C i2 ( p13 p1 )_ytrb + = -1 * Sum ( h7 h8 p5 ) * trb ( p5 p13 h7 h8 )_trb * y ( h7 h8 p1 p5 )_y 140C i1 ( p10 p13 h9 h12 )_ytrbtra + = 1 * Sum ( h3 ) * tra ( p10 p13 h3 h12 )_tra * i2 ( h3 h9 )_ytrb 141C i2 ( h3 h9 )_ytrb + = -1 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h9 )_trb * y ( h3 h7 p5 p6 )_y 142C i1 ( p10 p13 h9 h12 )_ytrbtra + = 1/4 * Sum ( h3 h4 ) * tra ( p10 p13 h3 h4 )_tra * i2 ( h3 h4 h9 h12 )_ytrb 143C i2 ( h3 h4 h9 h12 )_ytrb + = -1 * Sum ( p5 p6 ) * trb ( p5 p6 h9 h12 )_trb * y ( h3 h4 p5 p6 )_y 144C i1 ( p10 p13 h9 h12 )_ytratrbt + = -1 * Sum ( h2 ) * t ( p10 h2 )_t * i2 ( h2 p13 h9 h12 )_ytratrb 145C i2 ( h2 p13 h9 h12 )_ytratrb + = 1 * Sum ( h8 ) * trb ( p13 h8 )_trb * i3 ( h2 h8 h9 h12 )_ytra 146C i3 ( h2 h8 h9 h12 )_ytra + = 1 * Sum ( p3 p4 ) * tra ( p3 p4 h9 h12 )_tra * y ( h2 h8 p3 p4 )_y 147C i3 ( h2 h8 h9 h12 )_ytrat + = -4 * Sum ( p3 ) * t ( p3 h12 )_t * i4 ( h2 h8 h9 p3 )_ytra 148C i4 ( h2 h8 h9 p3 )_ytra + = 1 * Sum ( p5 ) * tra ( p5 h9 )_tra * y ( h2 h8 p3 p5 )_y 149C i2 ( h2 p13 h9 h12 )_ytrbtra + = 4 * Sum ( h5 p3 ) * tra ( p3 p13 h5 h12 )_tra * i3 ( h2 h5 h9 p3 )_ytrb 150C i3 ( h2 h5 h9 p3 )_ytrb + = 1 * Sum ( p7 ) * trb ( p7 h9 )_trb * y ( h2 h5 p3 p7 )_y 151C i2 ( h2 p13 h9 h12 )_ytrbtra + = 1 * Sum ( h1 ) * tra ( p13 h1 )_tra * i3 ( h1 h2 h9 h12 )_ytrb 152C i3 ( h1 h2 h9 h12 )_ytrb + = -1 * Sum ( p5 p6 ) * trb ( p5 p6 h9 h12 )_trb * y ( h1 h2 p5 p6 )_y 153C i3 ( h1 h2 h9 h12 )_ytrbt + = -4 * Sum ( p3 ) * t ( p3 h12 )_t * i4 ( h1 h2 h9 p3 )_ytrb 154C i4 ( h1 h2 h9 p3 )_ytrb + = -1 * Sum ( p7 ) * trb ( p7 h9 )_trb * y ( h1 h2 p3 p7 )_y 155C i2 ( h2 p13 h9 h12 )_ytratrb + = 4 * Sum ( h7 p5 ) * trb ( p5 p13 h7 h9 )_trb * i3 ( h2 h7 h12 p5 )_ytra 156C i3 ( h2 h7 h12 p5 )_ytra + = 1 * Sum ( p3 ) * tra ( p3 h12 )_tra * y ( h2 h7 p3 p5 )_y 157C i2 ( h2 p13 h9 h12 )_ytrbtrat + = -2 * Sum ( h4 ) * t ( p13 h4 )_t * i3 ( h2 h4 h9 h12 )_ytrbtra 158C i3 ( h2 h4 h9 h12 )_ytrbtra + = 1 * Sum ( p5 ) * tra ( p5 h12 )_tra * i4 ( h2 h4 h9 p5 )_ytrb 159C i4 ( h2 h4 h9 p5 )_ytrb + = 1 * Sum ( p7 ) * trb ( p7 h9 )_trb * y ( h2 h4 p5 p7 )_y 160C i1 ( p10 p13 h9 h12 )_ytrattrb + = -2 * trb ( p13 h9 )_trb * i2 ( p10 h12 )_ytrat 161C i2 ( p10 h12 )_ytrat + = 1 * Sum ( h2 ) * t ( p10 h2 )_t * i3 ( h2 h12 )_ytra 162C i3 ( h2 h12 )_ytra + = -1 * Sum ( h5 p3 p4 ) * tra ( p3 p4 h5 h12 )_tra * y ( h2 h5 p3 p4 )_y 163C i2 ( p10 h12 )_ytrat + = -1 * Sum ( h3 h4 p1 ) * t ( p1 p10 h3 h4 )_t * i3 ( h3 h4 h12 p1 )_ytra 164C i3 ( h3 h4 h12 p1 )_ytra + = -1 * Sum ( p5 ) * tra ( p5 h12 )_tra * y ( h3 h4 p1 p5 )_y 165C i1 ( p10 p13 h9 h12 )_ytratrbt + = 2 * t ( p10 h12 )_t * i2 ( p13 h9 )_ytratrb 166C i2 ( p13 h9 )_ytratrb + = 1 * Sum ( h8 ) * trb ( p13 h8 )_trb * i3 ( h8 h9 )_ytra 167C i3 ( h8 h9 )_ytra + = -1 * Sum ( h5 p3 p4 ) * tra ( p3 p4 h5 h9 )_tra * y ( h5 h8 p3 p4 )_y 168C i2 ( p13 h9 )_ytrbtra + = 1 * Sum ( h5 h6 p3 ) * tra ( p3 p13 h5 h6 )_tra * i3 ( h5 h6 h9 p3 )_ytrb 169C i3 ( h5 h6 h9 p3 )_ytrb + = -1 * Sum ( p7 ) * trb ( p7 h9 )_trb * y ( h5 h6 p3 p7 )_y 170C i2 ( p13 h9 )_ytrbtra + = -1 * Sum ( h4 ) * tra ( p13 h4 )_tra * i3 ( h4 h9 )_ytrb 171C i3 ( h4 h9 )_ytrb + = -1 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h9 )_trb * y ( h4 h7 p5 p6 )_y 172C i2 ( p13 h9 )_ytratrb + = -1 * Sum ( h7 h8 p5 ) * trb ( p5 p13 h7 h8 )_trb * i3 ( h7 h8 h9 p5 )_ytra 173C i3 ( h7 h8 h9 p5 )_ytra + = -1 * Sum ( p3 ) * tra ( p3 h9 )_tra * y ( h7 h8 p3 p5 )_y 174C i1 ( p10 p13 h9 h12 )_ytrattrb + = -4 * Sum ( h8 ) * trb ( p13 h8 )_trb * i2 ( h8 p10 h9 h12 )_ytrat 175C i2 ( h8 p10 h9 h12 )_ytrat + = 1 * Sum ( h3 p1 ) * t ( p1 p10 h3 h12 )_t * i3 ( h3 h8 h9 p1 )_ytra 176C i3 ( h3 h8 h9 p1 )_ytra + = 1 * Sum ( p5 ) * tra ( p5 h9 )_tra * y ( h3 h8 p1 p5 )_y 177C i1 ( p10 p13 h9 h12 )_ytrbtrat + = -1 * Sum ( h3 h4 ) * t ( p10 p13 h3 h4 )_t * i2 ( h3 h4 h9 h12 )_ytrbtra 178C i2 ( h3 h4 h9 h12 )_ytrbtra + = 1 * Sum ( p5 ) * tra ( p5 h12 )_tra * i3 ( h3 h4 h9 p5 )_ytrb 179C i3 ( h3 h4 h9 p5 )_ytrb + = -1 * Sum ( p7 ) * trb ( p7 h9 )_trb * y ( h3 h4 p5 p7 )_y 180 IMPLICIT NONE 181#include "global.fh" 182#include "mafdecls.fh" 183#include "util.fh" 184#include "errquit.fh" 185#include "tce.fh" 186 INTEGER d_i0 187 INTEGER k_i0_offset 188 INTEGER d_i1 189 INTEGER k_i1_offset 190 INTEGER d_f1 191 INTEGER k_f1_offset 192 INTEGER d_y1 193 INTEGER k_y1_offset 194 INTEGER d_v2 195 INTEGER k_v2_offset 196 INTEGER d_y2 197 INTEGER k_y2_offset 198 INTEGER l_i1_offset 199 INTEGER d_trb1 200 INTEGER k_trb1_offset 201 INTEGER d_i2 202 INTEGER k_i2_offset 203 INTEGER size_i1 204 INTEGER d_tra1 205 INTEGER k_tra1_offset 206 INTEGER d_tra2 207 INTEGER k_tra2_offset 208 INTEGER d_trb2 209 INTEGER k_trb2_offset 210 INTEGER l_i2_offset 211 INTEGER size_i2 212 INTEGER d_t1 213 INTEGER k_t1_offset 214 INTEGER d_i3 215 INTEGER k_i3_offset 216 INTEGER l_i3_offset 217 INTEGER size_i3 218 INTEGER d_t2 219 INTEGER k_t2_offset 220 INTEGER d_i4 221 INTEGER k_i4_offset 222 INTEGER l_i4_offset 223 INTEGER size_i4 224 CHARACTER*255 filename 225 CALL OFFSET_beta_3_1_1(l_i1_offset,k_i1_offset,size_i1) 226 CALL TCE_FILENAME('beta_3_1_1_i1',filename) 227 CALL CREATEFILE(filename,d_i1,size_i1) 228 CALL OFFSET_beta_3_1_1_1(l_i2_offset,k_i2_offset,size_i2) 229 CALL TCE_FILENAME('beta_3_1_1_1_i2',filename) 230 CALL CREATEFILE(filename,d_i2,size_i2) 231 CALL beta_3_1_1_1(d_tra1,k_tra1_offset,d_y1,k_y1_offset,d_i2,k_i2_ 232 &offset) 233 CALL beta_3_1_1_2(d_tra2,k_tra2_offset,d_y2,k_y2_offset,d_i2,k_i2_ 234 &offset) 235 CALL RECONCILEFILE(d_i2,size_i2) 236 CALL beta_3_1_1(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_i1,k_i1_of 237 &fset) 238 CALL DELETEFILE(d_i2) 239 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 240 &R) 241 CALL OFFSET_beta_3_1_2_1(l_i2_offset,k_i2_offset,size_i2) 242 CALL TCE_FILENAME('beta_3_1_2_1_i2',filename) 243 CALL CREATEFILE(filename,d_i2,size_i2) 244 CALL beta_3_1_2_1(d_trb1,k_trb1_offset,d_y1,k_y1_offset,d_i2,k_i2_ 245 &offset) 246 CALL beta_3_1_2_2(d_trb2,k_trb2_offset,d_y2,k_y2_offset,d_i2,k_i2_ 247 &offset) 248 CALL RECONCILEFILE(d_i2,size_i2) 249 CALL beta_3_1_2(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_i1,k_i1_of 250 &fset) 251 CALL DELETEFILE(d_i2) 252 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 253 &R) 254 CALL OFFSET_beta_3_1_3_1(l_i2_offset,k_i2_offset,size_i2) 255 CALL TCE_FILENAME('beta_3_1_3_1_i2',filename) 256 CALL CREATEFILE(filename,d_i2,size_i2) 257 CALL beta_3_1_3_1(d_trb1,k_trb1_offset,d_y2,k_y2_offset,d_i2,k_i2_ 258 &offset) 259 CALL RECONCILEFILE(d_i2,size_i2) 260 CALL beta_3_1_3(d_tra2,k_tra2_offset,d_i2,k_i2_offset,d_i1,k_i1_of 261 &fset) 262 CALL DELETEFILE(d_i2) 263 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 264 &R) 265 CALL OFFSET_beta_3_1_4_1(l_i2_offset,k_i2_offset,size_i2) 266 CALL TCE_FILENAME('beta_3_1_4_1_i2',filename) 267 CALL CREATEFILE(filename,d_i2,size_i2) 268 CALL beta_3_1_4_1(d_tra1,k_tra1_offset,d_y2,k_y2_offset,d_i2,k_i2_ 269 &offset) 270 CALL RECONCILEFILE(d_i2,size_i2) 271 CALL beta_3_1_4(d_trb2,k_trb2_offset,d_i2,k_i2_offset,d_i1,k_i1_of 272 &fset) 273 CALL DELETEFILE(d_i2) 274 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 275 &R) 276 CALL RECONCILEFILE(d_i1,size_i1) 277 CALL beta_3_1(d_i1,k_i1_offset,d_f1,k_f1_offset,d_i0,k_i0_offset) 278 CALL DELETEFILE(d_i1) 279 IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 280 &R) 281 CALL OFFSET_beta_3_2_1(l_i1_offset,k_i1_offset,size_i1) 282 CALL TCE_FILENAME('beta_3_2_1_i1',filename) 283 CALL CREATEFILE(filename,d_i1,size_i1) 284 CALL OFFSET_beta_3_2_1_1(l_i2_offset,k_i2_offset,size_i2) 285 CALL TCE_FILENAME('beta_3_2_1_1_i2',filename) 286 CALL CREATEFILE(filename,d_i2,size_i2) 287 CALL beta_3_2_1_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset,d_i2,k_i2_ 288 &offset) 289 CALL beta_3_2_1_2(d_tra2,k_tra2_offset,d_v2,k_v2_offset,d_i2,k_i2_ 290 &offset) 291 CALL OFFSET_beta_3_2_1_3_1(l_i3_offset,k_i3_offset,size_i3) 292 CALL TCE_FILENAME('beta_3_2_1_3_1_i3',filename) 293 CALL CREATEFILE(filename,d_i3,size_i3) 294 CALL beta_3_2_1_3_1(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i3,k_i3_of 295 &fset) 296 CALL RECONCILEFILE(d_i3,size_i3) 297 CALL beta_3_2_1_3(d_tra1,k_tra1_offset,d_i3,k_i3_offset,d_i2,k_i2_ 298 &offset) 299 CALL DELETEFILE(d_i3) 300 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 301 &R) 302 CALL OFFSET_beta_3_2_1_4_1(l_i3_offset,k_i3_offset,size_i3) 303 CALL TCE_FILENAME('beta_3_2_1_4_1_i3',filename) 304 CALL CREATEFILE(filename,d_i3,size_i3) 305 CALL beta_3_2_1_4_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset,d_i3,k_i 306 &3_offset) 307 CALL RECONCILEFILE(d_i3,size_i3) 308 CALL beta_3_2_1_4(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,k_i2_offs 309 &et) 310 CALL DELETEFILE(d_i3) 311 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 312 &R) 313 CALL RECONCILEFILE(d_i2,size_i2) 314 CALL beta_3_2_1(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_i1,k_i1_of 315 &fset) 316 CALL DELETEFILE(d_i2) 317 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 318 &R) 319 CALL OFFSET_beta_3_2_2_1(l_i2_offset,k_i2_offset,size_i2) 320 CALL TCE_FILENAME('beta_3_2_2_1_i2',filename) 321 CALL CREATEFILE(filename,d_i2,size_i2) 322 CALL beta_3_2_2_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset,d_i2,k_i2_ 323 &offset) 324 CALL beta_3_2_2_2(d_trb2,k_trb2_offset,d_v2,k_v2_offset,d_i2,k_i2_ 325 &offset) 326 CALL OFFSET_beta_3_2_2_3_1(l_i3_offset,k_i3_offset,size_i3) 327 CALL TCE_FILENAME('beta_3_2_2_3_1_i3',filename) 328 CALL CREATEFILE(filename,d_i3,size_i3) 329 CALL beta_3_2_2_3_1(d_t1,k_t1_offset,d_v2,k_v2_offset,d_i3,k_i3_of 330 &fset) 331 CALL RECONCILEFILE(d_i3,size_i3) 332 CALL beta_3_2_2_3(d_trb1,k_trb1_offset,d_i3,k_i3_offset,d_i2,k_i2_ 333 &offset) 334 CALL DELETEFILE(d_i3) 335 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 336 &R) 337 CALL OFFSET_beta_3_2_2_4_1(l_i3_offset,k_i3_offset,size_i3) 338 CALL TCE_FILENAME('beta_3_2_2_4_1_i3',filename) 339 CALL CREATEFILE(filename,d_i3,size_i3) 340 CALL beta_3_2_2_4_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset,d_i3,k_i 341 &3_offset) 342 CALL RECONCILEFILE(d_i3,size_i3) 343 CALL beta_3_2_2_4(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,k_i2_offs 344 &et) 345 CALL DELETEFILE(d_i3) 346 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 347 &R) 348 CALL RECONCILEFILE(d_i2,size_i2) 349 CALL beta_3_2_2(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_i1,k_i1_of 350 &fset) 351 CALL DELETEFILE(d_i2) 352 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 353 &R) 354 CALL OFFSET_beta_3_2_3_1(l_i2_offset,k_i2_offset,size_i2) 355 CALL TCE_FILENAME('beta_3_2_3_1_i2',filename) 356 CALL CREATEFILE(filename,d_i2,size_i2) 357 CALL beta_3_2_3_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset,d_i2,k_i2_ 358 &offset) 359 CALL RECONCILEFILE(d_i2,size_i2) 360 CALL beta_3_2_3(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_i1,k_i1_of 361 &fset) 362 CALL DELETEFILE(d_i2) 363 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 364 &R) 365 CALL OFFSET_beta_3_2_4_1(l_i2_offset,k_i2_offset,size_i2) 366 CALL TCE_FILENAME('beta_3_2_4_1_i2',filename) 367 CALL CREATEFILE(filename,d_i2,size_i2) 368 CALL beta_3_2_4_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset,d_i2,k_i2_ 369 &offset) 370 CALL RECONCILEFILE(d_i2,size_i2) 371 CALL beta_3_2_4(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_i1,k_i1_of 372 &fset) 373 CALL DELETEFILE(d_i2) 374 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 375 &R) 376 CALL OFFSET_beta_3_2_5_1(l_i2_offset,k_i2_offset,size_i2) 377 CALL TCE_FILENAME('beta_3_2_5_1_i2',filename) 378 CALL CREATEFILE(filename,d_i2,size_i2) 379 CALL beta_3_2_5_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset,d_i2,k_i2_ 380 &offset) 381 CALL RECONCILEFILE(d_i2,size_i2) 382 CALL beta_3_2_5(d_tra2,k_tra2_offset,d_i2,k_i2_offset,d_i1,k_i1_of 383 &fset) 384 CALL DELETEFILE(d_i2) 385 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 386 &R) 387 CALL OFFSET_beta_3_2_6_1(l_i2_offset,k_i2_offset,size_i2) 388 CALL TCE_FILENAME('beta_3_2_6_1_i2',filename) 389 CALL CREATEFILE(filename,d_i2,size_i2) 390 CALL beta_3_2_6_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset,d_i2,k_i2_ 391 &offset) 392 CALL RECONCILEFILE(d_i2,size_i2) 393 CALL beta_3_2_6(d_tra2,k_tra2_offset,d_i2,k_i2_offset,d_i1,k_i1_of 394 &fset) 395 CALL DELETEFILE(d_i2) 396 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 397 &R) 398 CALL OFFSET_beta_3_2_7_1(l_i2_offset,k_i2_offset,size_i2) 399 CALL TCE_FILENAME('beta_3_2_7_1_i2',filename) 400 CALL CREATEFILE(filename,d_i2,size_i2) 401 CALL beta_3_2_7_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset,d_i2,k_i2_ 402 &offset) 403 CALL RECONCILEFILE(d_i2,size_i2) 404 CALL beta_3_2_7(d_trb2,k_trb2_offset,d_i2,k_i2_offset,d_i1,k_i1_of 405 &fset) 406 CALL DELETEFILE(d_i2) 407 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 408 &R) 409 CALL OFFSET_beta_3_2_8_1(l_i2_offset,k_i2_offset,size_i2) 410 CALL TCE_FILENAME('beta_3_2_8_1_i2',filename) 411 CALL CREATEFILE(filename,d_i2,size_i2) 412 CALL beta_3_2_8_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset,d_i2,k_i2_ 413 &offset) 414 CALL RECONCILEFILE(d_i2,size_i2) 415 CALL beta_3_2_8(d_trb2,k_trb2_offset,d_i2,k_i2_offset,d_i1,k_i1_of 416 &fset) 417 CALL DELETEFILE(d_i2) 418 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 419 &R) 420 CALL OFFSET_beta_3_2_9_1(l_i2_offset,k_i2_offset,size_i2) 421 CALL TCE_FILENAME('beta_3_2_9_1_i2',filename) 422 CALL CREATEFILE(filename,d_i2,size_i2) 423 CALL OFFSET_beta_3_2_9_1_1(l_i3_offset,k_i3_offset,size_i3) 424 CALL TCE_FILENAME('beta_3_2_9_1_1_i3',filename) 425 CALL CREATEFILE(filename,d_i3,size_i3) 426 CALL beta_3_2_9_1_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset,d_i3,k_i 427 &3_offset) 428 CALL RECONCILEFILE(d_i3,size_i3) 429 CALL beta_3_2_9_1(d_trb1,k_trb1_offset,d_i3,k_i3_offset,d_i2,k_i2_ 430 &offset) 431 CALL DELETEFILE(d_i3) 432 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 433 &R) 434 CALL OFFSET_beta_3_2_9_2_1(l_i3_offset,k_i3_offset,size_i3) 435 CALL TCE_FILENAME('beta_3_2_9_2_1_i3',filename) 436 CALL CREATEFILE(filename,d_i3,size_i3) 437 CALL beta_3_2_9_2_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset,d_i3,k_i 438 &3_offset) 439 CALL RECONCILEFILE(d_i3,size_i3) 440 CALL beta_3_2_9_2(d_tra1,k_tra1_offset,d_i3,k_i3_offset,d_i2,k_i2_ 441 &offset) 442 CALL DELETEFILE(d_i3) 443 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 444 &R) 445 CALL RECONCILEFILE(d_i2,size_i2) 446 CALL beta_3_2_9(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k_i1_offset 447 &) 448 CALL DELETEFILE(d_i2) 449 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 450 &R) 451 CALL RECONCILEFILE(d_i1,size_i1) 452 CALL beta_3_2(d_y1,k_y1_offset,d_i1,k_i1_offset,d_i0,k_i0_offset) 453 CALL DELETEFILE(d_i1) 454 IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 455 &R) 456 CALL OFFSET_beta_3_3_1(l_i1_offset,k_i1_offset,size_i1) 457 CALL TCE_FILENAME('beta_3_3_1_i1',filename) 458 CALL CREATEFILE(filename,d_i1,size_i1) 459 CALL OFFSET_beta_3_3_1_1(l_i2_offset,k_i2_offset,size_i2) 460 CALL TCE_FILENAME('beta_3_3_1_1_i2',filename) 461 CALL CREATEFILE(filename,d_i2,size_i2) 462 CALL beta_3_3_1_1(d_trb1,k_trb1_offset,d_y2,k_y2_offset,d_i2,k_i2_ 463 &offset) 464 CALL RECONCILEFILE(d_i2,size_i2) 465 CALL beta_3_3_1(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_i1,k_i1_of 466 &fset) 467 CALL DELETEFILE(d_i2) 468 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 469 &R) 470 CALL RECONCILEFILE(d_i1,size_i1) 471 CALL beta_3_3(d_i1,k_i1_offset,d_v2,k_v2_offset,d_i0,k_i0_offset) 472 CALL DELETEFILE(d_i1) 473 IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 474 &R) 475 CALL OFFSET_beta_3_4_1(l_i1_offset,k_i1_offset,size_i1) 476 CALL TCE_FILENAME('beta_3_4_1_i1',filename) 477 CALL CREATEFILE(filename,d_i1,size_i1) 478 CALL OFFSET_beta_3_4_1_1(l_i2_offset,k_i2_offset,size_i2) 479 CALL TCE_FILENAME('beta_3_4_1_1_i2',filename) 480 CALL CREATEFILE(filename,d_i2,size_i2) 481 CALL beta_3_4_1_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset,d_i2,k_i2_ 482 &offset) 483 CALL beta_3_4_1_2(d_trb2,k_trb2_offset,d_v2,k_v2_offset,d_i2,k_i2_ 484 &offset) 485 CALL OFFSET_beta_3_4_1_3_1(l_i3_offset,k_i3_offset,size_i3) 486 CALL TCE_FILENAME('beta_3_4_1_3_1_i3',filename) 487 CALL CREATEFILE(filename,d_i3,size_i3) 488 CALL beta_3_4_1_3_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset,d_i3,k_i 489 &3_offset) 490 CALL RECONCILEFILE(d_i3,size_i3) 491 CALL beta_3_4_1_3(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,k_i2_offs 492 &et) 493 CALL DELETEFILE(d_i3) 494 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 495 &R) 496 CALL RECONCILEFILE(d_i2,size_i2) 497 CALL beta_3_4_1(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_i1,k_i1_of 498 &fset) 499 CALL DELETEFILE(d_i2) 500 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 501 &R) 502 CALL OFFSET_beta_3_4_2_1(l_i2_offset,k_i2_offset,size_i2) 503 CALL TCE_FILENAME('beta_3_4_2_1_i2',filename) 504 CALL CREATEFILE(filename,d_i2,size_i2) 505 CALL beta_3_4_2_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset,d_i2,k_i2_ 506 &offset) 507 CALL RECONCILEFILE(d_i2,size_i2) 508 CALL beta_3_4_2(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_i1,k_i1_of 509 &fset) 510 CALL DELETEFILE(d_i2) 511 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 512 &R) 513 CALL OFFSET_beta_3_4_3_1(l_i2_offset,k_i2_offset,size_i2) 514 CALL TCE_FILENAME('beta_3_4_3_1_i2',filename) 515 CALL CREATEFILE(filename,d_i2,size_i2) 516 CALL beta_3_4_3_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset,d_i2,k_i2_ 517 &offset) 518 CALL beta_3_4_3_2(d_trb2,k_trb2_offset,d_v2,k_v2_offset,d_i2,k_i2_ 519 &offset) 520 CALL RECONCILEFILE(d_i2,size_i2) 521 CALL beta_3_4_3(d_tra2,k_tra2_offset,d_i2,k_i2_offset,d_i1,k_i1_of 522 &fset) 523 CALL DELETEFILE(d_i2) 524 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 525 &R) 526 CALL OFFSET_beta_3_4_4_1(l_i2_offset,k_i2_offset,size_i2) 527 CALL TCE_FILENAME('beta_3_4_4_1_i2',filename) 528 CALL CREATEFILE(filename,d_i2,size_i2) 529 CALL beta_3_4_4_1(d_tra2,k_tra2_offset,d_v2,k_v2_offset,d_i2,k_i2_ 530 &offset) 531 CALL OFFSET_beta_3_4_4_2_1(l_i3_offset,k_i3_offset,size_i3) 532 CALL TCE_FILENAME('beta_3_4_4_2_1_i3',filename) 533 CALL CREATEFILE(filename,d_i3,size_i3) 534 CALL beta_3_4_4_2_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset,d_i3,k_i 535 &3_offset) 536 CALL RECONCILEFILE(d_i3,size_i3) 537 CALL beta_3_4_4_2(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,k_i2_offs 538 &et) 539 CALL DELETEFILE(d_i3) 540 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 541 &R) 542 CALL RECONCILEFILE(d_i2,size_i2) 543 CALL beta_3_4_4(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_i1,k_i1_of 544 &fset) 545 CALL DELETEFILE(d_i2) 546 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 547 &R) 548 CALL OFFSET_beta_3_4_5_1(l_i2_offset,k_i2_offset,size_i2) 549 CALL TCE_FILENAME('beta_3_4_5_1_i2',filename) 550 CALL CREATEFILE(filename,d_i2,size_i2) 551 CALL beta_3_4_5_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset,d_i2,k_i2_ 552 &offset) 553 CALL beta_3_4_5_2(d_trb2,k_trb2_offset,d_v2,k_v2_offset,d_i2,k_i2_ 554 &offset) 555 CALL RECONCILEFILE(d_i2,size_i2) 556 CALL beta_3_4_5(d_tra2,k_tra2_offset,d_i2,k_i2_offset,d_i1,k_i1_of 557 &fset) 558 CALL DELETEFILE(d_i2) 559 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 560 &R) 561 CALL OFFSET_beta_3_4_6_1(l_i2_offset,k_i2_offset,size_i2) 562 CALL TCE_FILENAME('beta_3_4_6_1_i2',filename) 563 CALL CREATEFILE(filename,d_i2,size_i2) 564 CALL beta_3_4_6_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset,d_i2,k_i2_ 565 &offset) 566 CALL RECONCILEFILE(d_i2,size_i2) 567 CALL beta_3_4_6(d_trb2,k_trb2_offset,d_i2,k_i2_offset,d_i1,k_i1_of 568 &fset) 569 CALL DELETEFILE(d_i2) 570 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 571 &R) 572 CALL OFFSET_beta_3_4_7_1(l_i2_offset,k_i2_offset,size_i2) 573 CALL TCE_FILENAME('beta_3_4_7_1_i2',filename) 574 CALL CREATEFILE(filename,d_i2,size_i2) 575 CALL beta_3_4_7_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset,d_i2,k_i2_ 576 &offset) 577 CALL RECONCILEFILE(d_i2,size_i2) 578 CALL beta_3_4_7(d_trb2,k_trb2_offset,d_i2,k_i2_offset,d_i1,k_i1_of 579 &fset) 580 CALL DELETEFILE(d_i2) 581 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 582 &R) 583 CALL OFFSET_beta_3_4_8_1(l_i2_offset,k_i2_offset,size_i2) 584 CALL TCE_FILENAME('beta_3_4_8_1_i2',filename) 585 CALL CREATEFILE(filename,d_i2,size_i2) 586 CALL beta_3_4_8_1(d_trb2,k_trb2_offset,d_v2,k_v2_offset,d_i2,k_i2_ 587 &offset) 588 CALL RECONCILEFILE(d_i2,size_i2) 589 CALL beta_3_4_8(d_tra2,k_tra2_offset,d_i2,k_i2_offset,d_i1,k_i1_of 590 &fset) 591 CALL DELETEFILE(d_i2) 592 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 593 &R) 594 CALL OFFSET_beta_3_4_9_1(l_i2_offset,k_i2_offset,size_i2) 595 CALL TCE_FILENAME('beta_3_4_9_1_i2',filename) 596 CALL CREATEFILE(filename,d_i2,size_i2) 597 CALL beta_3_4_9_1(d_trb2,k_trb2_offset,d_v2,k_v2_offset,d_i2,k_i2_ 598 &offset) 599 CALL RECONCILEFILE(d_i2,size_i2) 600 CALL beta_3_4_9(d_tra2,k_tra2_offset,d_i2,k_i2_offset,d_i1,k_i1_of 601 &fset) 602 CALL DELETEFILE(d_i2) 603 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 604 &R) 605 CALL OFFSET_beta_3_4_10_1(l_i2_offset,k_i2_offset,size_i2) 606 CALL TCE_FILENAME('beta_3_4_10_1_i2',filename) 607 CALL CREATEFILE(filename,d_i2,size_i2) 608 CALL OFFSET_beta_3_4_10_1_1(l_i3_offset,k_i3_offset,size_i3) 609 CALL TCE_FILENAME('beta_3_4_10_1_1_i3',filename) 610 CALL CREATEFILE(filename,d_i3,size_i3) 611 CALL beta_3_4_10_1_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset,d_i3,k_ 612 &i3_offset) 613 CALL RECONCILEFILE(d_i3,size_i3) 614 CALL beta_3_4_10_1(d_tra1,k_tra1_offset,d_i3,k_i3_offset,d_i2,k_i2 615 &_offset) 616 CALL DELETEFILE(d_i3) 617 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 618 &R) 619 CALL OFFSET_beta_3_4_10_2_1(l_i3_offset,k_i3_offset,size_i3) 620 CALL TCE_FILENAME('beta_3_4_10_2_1_i3',filename) 621 CALL CREATEFILE(filename,d_i3,size_i3) 622 CALL beta_3_4_10_2_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset,d_i3,k_ 623 &i3_offset) 624 CALL RECONCILEFILE(d_i3,size_i3) 625 CALL beta_3_4_10_2(d_tra2,k_tra2_offset,d_i3,k_i3_offset,d_i2,k_i2 626 &_offset) 627 CALL DELETEFILE(d_i3) 628 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 629 &R) 630 CALL OFFSET_beta_3_4_10_3_1(l_i3_offset,k_i3_offset,size_i3) 631 CALL TCE_FILENAME('beta_3_4_10_3_1_i3',filename) 632 CALL CREATEFILE(filename,d_i3,size_i3) 633 CALL beta_3_4_10_3_1(d_tra2,k_tra2_offset,d_v2,k_v2_offset,d_i3,k_ 634 &i3_offset) 635 CALL RECONCILEFILE(d_i3,size_i3) 636 CALL beta_3_4_10_3(d_trb1,k_trb1_offset,d_i3,k_i3_offset,d_i2,k_i2 637 &_offset) 638 CALL DELETEFILE(d_i3) 639 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 640 &R) 641 CALL OFFSET_beta_3_4_10_4_1(l_i3_offset,k_i3_offset,size_i3) 642 CALL TCE_FILENAME('beta_3_4_10_4_1_i3',filename) 643 CALL CREATEFILE(filename,d_i3,size_i3) 644 CALL beta_3_4_10_4_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset,d_i3,k_ 645 &i3_offset) 646 CALL RECONCILEFILE(d_i3,size_i3) 647 CALL beta_3_4_10_4(d_tra2,k_tra2_offset,d_i3,k_i3_offset,d_i2,k_i2 648 &_offset) 649 CALL DELETEFILE(d_i3) 650 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 651 &R) 652 CALL OFFSET_beta_3_4_10_5_1(l_i3_offset,k_i3_offset,size_i3) 653 CALL TCE_FILENAME('beta_3_4_10_5_1_i3',filename) 654 CALL CREATEFILE(filename,d_i3,size_i3) 655 CALL beta_3_4_10_5_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset,d_i3,k_ 656 &i3_offset) 657 CALL RECONCILEFILE(d_i3,size_i3) 658 CALL beta_3_4_10_5(d_trb2,k_trb2_offset,d_i3,k_i3_offset,d_i2,k_i2 659 &_offset) 660 CALL DELETEFILE(d_i3) 661 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 662 &R) 663 CALL OFFSET_beta_3_4_10_6_1(l_i3_offset,k_i3_offset,size_i3) 664 CALL TCE_FILENAME('beta_3_4_10_6_1_i3',filename) 665 CALL CREATEFILE(filename,d_i3,size_i3) 666 CALL beta_3_4_10_6_1(d_trb2,k_trb2_offset,d_v2,k_v2_offset,d_i3,k_ 667 &i3_offset) 668 CALL RECONCILEFILE(d_i3,size_i3) 669 CALL beta_3_4_10_6(d_tra1,k_tra1_offset,d_i3,k_i3_offset,d_i2,k_i2 670 &_offset) 671 CALL DELETEFILE(d_i3) 672 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 673 &R) 674 CALL OFFSET_beta_3_4_10_7_1(l_i3_offset,k_i3_offset,size_i3) 675 CALL TCE_FILENAME('beta_3_4_10_7_1_i3',filename) 676 CALL CREATEFILE(filename,d_i3,size_i3) 677 CALL beta_3_4_10_7_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset,d_i3,k_ 678 &i3_offset) 679 CALL RECONCILEFILE(d_i3,size_i3) 680 CALL beta_3_4_10_7(d_trb2,k_trb2_offset,d_i3,k_i3_offset,d_i2,k_i2 681 &_offset) 682 CALL DELETEFILE(d_i3) 683 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 684 &R) 685 CALL OFFSET_beta_3_4_10_8_1(l_i3_offset,k_i3_offset,size_i3) 686 CALL TCE_FILENAME('beta_3_4_10_8_1_i3',filename) 687 CALL CREATEFILE(filename,d_i3,size_i3) 688 CALL OFFSET_beta_3_4_10_8_1_1(l_i4_offset,k_i4_offset,size_i4) 689 CALL TCE_FILENAME('beta_3_4_10_8_1_1_i4',filename) 690 CALL CREATEFILE(filename,d_i4,size_i4) 691 CALL beta_3_4_10_8_1_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset,d_i4, 692 &k_i4_offset) 693 CALL RECONCILEFILE(d_i4,size_i4) 694 CALL beta_3_4_10_8_1(d_tra1,k_tra1_offset,d_i4,k_i4_offset,d_i3,k_ 695 &i3_offset) 696 CALL DELETEFILE(d_i4) 697 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 698 &R) 699 CALL RECONCILEFILE(d_i3,size_i3) 700 CALL beta_3_4_10_8(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,k_i2_off 701 &set) 702 CALL DELETEFILE(d_i3) 703 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 704 &R) 705 CALL RECONCILEFILE(d_i2,size_i2) 706 CALL beta_3_4_10(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k_i1_offse 707 &t) 708 CALL DELETEFILE(d_i2) 709 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 710 &R) 711 CALL OFFSET_beta_3_4_11_1(l_i2_offset,k_i2_offset,size_i2) 712 CALL TCE_FILENAME('beta_3_4_11_1_i2',filename) 713 CALL CREATEFILE(filename,d_i2,size_i2) 714 CALL OFFSET_beta_3_4_11_1_1(l_i3_offset,k_i3_offset,size_i3) 715 CALL TCE_FILENAME('beta_3_4_11_1_1_i3',filename) 716 CALL CREATEFILE(filename,d_i3,size_i3) 717 CALL beta_3_4_11_1_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset,d_i3,k_ 718 &i3_offset) 719 CALL RECONCILEFILE(d_i3,size_i3) 720 CALL beta_3_4_11_1(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,k_i2_off 721 &set) 722 CALL DELETEFILE(d_i3) 723 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 724 &R) 725 CALL RECONCILEFILE(d_i2,size_i2) 726 CALL beta_3_4_11(d_trb2,k_trb2_offset,d_i2,k_i2_offset,d_i1,k_i1_o 727 &ffset) 728 CALL DELETEFILE(d_i2) 729 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 730 &R) 731 CALL OFFSET_beta_3_4_12_1(l_i2_offset,k_i2_offset,size_i2) 732 CALL TCE_FILENAME('beta_3_4_12_1_i2',filename) 733 CALL CREATEFILE(filename,d_i2,size_i2) 734 CALL OFFSET_beta_3_4_12_1_1(l_i3_offset,k_i3_offset,size_i3) 735 CALL TCE_FILENAME('beta_3_4_12_1_1_i3',filename) 736 CALL CREATEFILE(filename,d_i3,size_i3) 737 CALL beta_3_4_12_1_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset,d_i3,k_ 738 &i3_offset) 739 CALL RECONCILEFILE(d_i3,size_i3) 740 CALL beta_3_4_12_1(d_tra1,k_tra1_offset,d_i3,k_i3_offset,d_i2,k_i2 741 &_offset) 742 CALL DELETEFILE(d_i3) 743 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 744 &R) 745 CALL RECONCILEFILE(d_i2,size_i2) 746 CALL beta_3_4_12(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1,k_i1_offse 747 &t) 748 CALL DELETEFILE(d_i2) 749 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 750 &R) 751 CALL OFFSET_beta_3_4_13_1(l_i2_offset,k_i2_offset,size_i2) 752 CALL TCE_FILENAME('beta_3_4_13_1_i2',filename) 753 CALL CREATEFILE(filename,d_i2,size_i2) 754 CALL OFFSET_beta_3_4_13_1_1(l_i3_offset,k_i3_offset,size_i3) 755 CALL TCE_FILENAME('beta_3_4_13_1_1_i3',filename) 756 CALL CREATEFILE(filename,d_i3,size_i3) 757 CALL beta_3_4_13_1_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset,d_i3,k_ 758 &i3_offset) 759 CALL RECONCILEFILE(d_i3,size_i3) 760 CALL beta_3_4_13_1(d_t2,k_t2_offset,d_i3,k_i3_offset,d_i2,k_i2_off 761 &set) 762 CALL DELETEFILE(d_i3) 763 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 764 &R) 765 CALL OFFSET_beta_3_4_13_2_1(l_i3_offset,k_i3_offset,size_i3) 766 CALL TCE_FILENAME('beta_3_4_13_2_1_i3',filename) 767 CALL CREATEFILE(filename,d_i3,size_i3) 768 CALL beta_3_4_13_2_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset,d_i3,k_ 769 &i3_offset) 770 CALL RECONCILEFILE(d_i3,size_i3) 771 CALL beta_3_4_13_2(d_t2,k_t2_offset,d_i3,k_i3_offset,d_i2,k_i2_off 772 &set) 773 CALL DELETEFILE(d_i3) 774 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 775 &R) 776 CALL RECONCILEFILE(d_i2,size_i2) 777 CALL beta_3_4_13(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_i1,k_i1_o 778 &ffset) 779 CALL DELETEFILE(d_i2) 780 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 781 &R) 782 CALL OFFSET_beta_3_4_14_1(l_i2_offset,k_i2_offset,size_i2) 783 CALL TCE_FILENAME('beta_3_4_14_1_i2',filename) 784 CALL CREATEFILE(filename,d_i2,size_i2) 785 CALL OFFSET_beta_3_4_14_1_1(l_i3_offset,k_i3_offset,size_i3) 786 CALL TCE_FILENAME('beta_3_4_14_1_1_i3',filename) 787 CALL CREATEFILE(filename,d_i3,size_i3) 788 CALL beta_3_4_14_1_1(d_trb1,k_trb1_offset,d_v2,k_v2_offset,d_i3,k_ 789 &i3_offset) 790 CALL RECONCILEFILE(d_i3,size_i3) 791 CALL beta_3_4_14_1(d_tra1,k_tra1_offset,d_i3,k_i3_offset,d_i2,k_i2 792 &_offset) 793 CALL DELETEFILE(d_i3) 794 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 795 &R) 796 CALL OFFSET_beta_3_4_14_2_1(l_i3_offset,k_i3_offset,size_i3) 797 CALL TCE_FILENAME('beta_3_4_14_2_1_i3',filename) 798 CALL CREATEFILE(filename,d_i3,size_i3) 799 CALL beta_3_4_14_2_1(d_tra1,k_tra1_offset,d_v2,k_v2_offset,d_i3,k_ 800 &i3_offset) 801 CALL RECONCILEFILE(d_i3,size_i3) 802 CALL beta_3_4_14_2(d_trb1,k_trb1_offset,d_i3,k_i3_offset,d_i2,k_i2 803 &_offset) 804 CALL DELETEFILE(d_i3) 805 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 806 &R) 807 CALL RECONCILEFILE(d_i2,size_i2) 808 CALL beta_3_4_14(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1,k_i1_offse 809 &t) 810 CALL DELETEFILE(d_i2) 811 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 812 &R) 813 CALL RECONCILEFILE(d_i1,size_i1) 814 CALL beta_3_4(d_y2,k_y2_offset,d_i1,k_i1_offset,d_i0,k_i0_offset) 815 CALL DELETEFILE(d_i1) 816 IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 817 &R) 818 CALL OFFSET_beta_3_5_1(l_i1_offset,k_i1_offset,size_i1) 819 CALL TCE_FILENAME('beta_3_5_1_i1',filename) 820 CALL CREATEFILE(filename,d_i1,size_i1) 821 CALL OFFSET_beta_3_5_1_1(l_i2_offset,k_i2_offset,size_i2) 822 CALL TCE_FILENAME('beta_3_5_1_1_i2',filename) 823 CALL CREATEFILE(filename,d_i2,size_i2) 824 CALL beta_3_5_1_1(d_trb1,k_trb1_offset,d_y2,k_y2_offset,d_i2,k_i2_ 825 &offset) 826 CALL RECONCILEFILE(d_i2,size_i2) 827 CALL beta_3_5_1(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_i1,k_i1_of 828 &fset) 829 CALL DELETEFILE(d_i2) 830 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 831 &R) 832 CALL RECONCILEFILE(d_i1,size_i1) 833 CALL beta_3_5(d_i1,k_i1_offset,d_v2,k_v2_offset,d_i0,k_i0_offset) 834 CALL DELETEFILE(d_i1) 835 IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 836 &R) 837 CALL OFFSET_beta_3_6_1(l_i1_offset,k_i1_offset,size_i1) 838 CALL TCE_FILENAME('beta_3_6_1_i1',filename) 839 CALL CREATEFILE(filename,d_i1,size_i1) 840 CALL OFFSET_beta_3_6_1_1(l_i2_offset,k_i2_offset,size_i2) 841 CALL TCE_FILENAME('beta_3_6_1_1_i2',filename) 842 CALL CREATEFILE(filename,d_i2,size_i2) 843 CALL beta_3_6_1_1(d_tra2,k_tra2_offset,d_y2,k_y2_offset,d_i2,k_i2_ 844 &offset) 845 CALL OFFSET_beta_3_6_1_2_1(l_i3_offset,k_i3_offset,size_i3) 846 CALL TCE_FILENAME('beta_3_6_1_2_1_i3',filename) 847 CALL CREATEFILE(filename,d_i3,size_i3) 848 CALL beta_3_6_1_2_1(d_tra1,k_tra1_offset,d_y2,k_y2_offset,d_i3,k_i 849 &3_offset) 850 CALL RECONCILEFILE(d_i3,size_i3) 851 CALL beta_3_6_1_2(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,k_i2_offs 852 &et) 853 CALL DELETEFILE(d_i3) 854 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 855 &R) 856 CALL RECONCILEFILE(d_i2,size_i2) 857 CALL beta_3_6_1(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_i1,k_i1_of 858 &fset) 859 CALL DELETEFILE(d_i2) 860 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 861 &R) 862 CALL OFFSET_beta_3_6_2_1(l_i2_offset,k_i2_offset,size_i2) 863 CALL TCE_FILENAME('beta_3_6_2_1_i2',filename) 864 CALL CREATEFILE(filename,d_i2,size_i2) 865 CALL beta_3_6_2_1(d_trb1,k_trb1_offset,d_y2,k_y2_offset,d_i2,k_i2_ 866 &offset) 867 CALL RECONCILEFILE(d_i2,size_i2) 868 CALL beta_3_6_2(d_tra2,k_tra2_offset,d_i2,k_i2_offset,d_i1,k_i1_of 869 &fset) 870 CALL DELETEFILE(d_i2) 871 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 872 &R) 873 CALL OFFSET_beta_3_6_3_1(l_i2_offset,k_i2_offset,size_i2) 874 CALL TCE_FILENAME('beta_3_6_3_1_i2',filename) 875 CALL CREATEFILE(filename,d_i2,size_i2) 876 CALL beta_3_6_3_1(d_tra2,k_tra2_offset,d_y2,k_y2_offset,d_i2,k_i2_ 877 &offset) 878 CALL RECONCILEFILE(d_i2,size_i2) 879 CALL beta_3_6_3(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_i1,k_i1_of 880 &fset) 881 CALL DELETEFILE(d_i2) 882 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 883 &R) 884 CALL OFFSET_beta_3_6_4_1(l_i2_offset,k_i2_offset,size_i2) 885 CALL TCE_FILENAME('beta_3_6_4_1_i2',filename) 886 CALL CREATEFILE(filename,d_i2,size_i2) 887 CALL beta_3_6_4_1(d_trb2,k_trb2_offset,d_y2,k_y2_offset,d_i2,k_i2_ 888 &offset) 889 CALL OFFSET_beta_3_6_4_2_1(l_i3_offset,k_i3_offset,size_i3) 890 CALL TCE_FILENAME('beta_3_6_4_2_1_i3',filename) 891 CALL CREATEFILE(filename,d_i3,size_i3) 892 CALL beta_3_6_4_2_1(d_trb1,k_trb1_offset,d_y2,k_y2_offset,d_i3,k_i 893 &3_offset) 894 CALL RECONCILEFILE(d_i3,size_i3) 895 CALL beta_3_6_4_2(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,k_i2_offs 896 &et) 897 CALL DELETEFILE(d_i3) 898 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 899 &R) 900 CALL RECONCILEFILE(d_i2,size_i2) 901 CALL beta_3_6_4(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_i1,k_i1_of 902 &fset) 903 CALL DELETEFILE(d_i2) 904 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 905 &R) 906 CALL OFFSET_beta_3_6_5_1(l_i2_offset,k_i2_offset,size_i2) 907 CALL TCE_FILENAME('beta_3_6_5_1_i2',filename) 908 CALL CREATEFILE(filename,d_i2,size_i2) 909 CALL beta_3_6_5_1(d_tra1,k_tra1_offset,d_y2,k_y2_offset,d_i2,k_i2_ 910 &offset) 911 CALL RECONCILEFILE(d_i2,size_i2) 912 CALL beta_3_6_5(d_trb2,k_trb2_offset,d_i2,k_i2_offset,d_i1,k_i1_of 913 &fset) 914 CALL DELETEFILE(d_i2) 915 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 916 &R) 917 CALL OFFSET_beta_3_6_6_1(l_i2_offset,k_i2_offset,size_i2) 918 CALL TCE_FILENAME('beta_3_6_6_1_i2',filename) 919 CALL CREATEFILE(filename,d_i2,size_i2) 920 CALL beta_3_6_6_1(d_trb2,k_trb2_offset,d_y2,k_y2_offset,d_i2,k_i2_ 921 &offset) 922 CALL RECONCILEFILE(d_i2,size_i2) 923 CALL beta_3_6_6(d_tra1,k_tra1_offset,d_i2,k_i2_offset,d_i1,k_i1_of 924 &fset) 925 CALL DELETEFILE(d_i2) 926 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 927 &R) 928 CALL OFFSET_beta_3_6_7_1(l_i2_offset,k_i2_offset,size_i2) 929 CALL TCE_FILENAME('beta_3_6_7_1_i2',filename) 930 CALL CREATEFILE(filename,d_i2,size_i2) 931 CALL OFFSET_beta_3_6_7_1_1(l_i3_offset,k_i3_offset,size_i3) 932 CALL TCE_FILENAME('beta_3_6_7_1_1_i3',filename) 933 CALL CREATEFILE(filename,d_i3,size_i3) 934 CALL beta_3_6_7_1_1(d_trb1,k_trb1_offset,d_y2,k_y2_offset,d_i3,k_i 935 &3_offset) 936 CALL RECONCILEFILE(d_i3,size_i3) 937 CALL beta_3_6_7_1(d_tra1,k_tra1_offset,d_i3,k_i3_offset,d_i2,k_i2_ 938 &offset) 939 CALL DELETEFILE(d_i3) 940 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 941 &R) 942 CALL RECONCILEFILE(d_i2,size_i2) 943 CALL beta_3_6_7(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k_i1_offset 944 &) 945 CALL DELETEFILE(d_i2) 946 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 947 &R) 948 CALL RECONCILEFILE(d_i1,size_i1) 949 CALL beta_3_6(d_i1,k_i1_offset,d_v2,k_v2_offset,d_i0,k_i0_offset) 950 CALL DELETEFILE(d_i1) 951 IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 952 &R) 953 CALL OFFSET_beta_3_7_1(l_i1_offset,k_i1_offset,size_i1) 954 CALL TCE_FILENAME('beta_3_7_1_i1',filename) 955 CALL CREATEFILE(filename,d_i1,size_i1) 956 CALL OFFSET_beta_3_7_1_1(l_i2_offset,k_i2_offset,size_i2) 957 CALL TCE_FILENAME('beta_3_7_1_1_i2',filename) 958 CALL CREATEFILE(filename,d_i2,size_i2) 959 CALL beta_3_7_1_1(d_trb2,k_trb2_offset,d_y2,k_y2_offset,d_i2,k_i2_ 960 &offset) 961 CALL RECONCILEFILE(d_i2,size_i2) 962 CALL beta_3_7_1(d_tra2,k_tra2_offset,d_i2,k_i2_offset,d_i1,k_i1_of 963 &fset) 964 CALL DELETEFILE(d_i2) 965 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 966 &R) 967 CALL OFFSET_beta_3_7_2_1(l_i2_offset,k_i2_offset,size_i2) 968 CALL TCE_FILENAME('beta_3_7_2_1_i2',filename) 969 CALL CREATEFILE(filename,d_i2,size_i2) 970 CALL beta_3_7_2_1(d_trb2,k_trb2_offset,d_y2,k_y2_offset,d_i2,k_i2_ 971 &offset) 972 CALL RECONCILEFILE(d_i2,size_i2) 973 CALL beta_3_7_2(d_tra2,k_tra2_offset,d_i2,k_i2_offset,d_i1,k_i1_of 974 &fset) 975 CALL DELETEFILE(d_i2) 976 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 977 &R) 978 CALL OFFSET_beta_3_7_3_1(l_i2_offset,k_i2_offset,size_i2) 979 CALL TCE_FILENAME('beta_3_7_3_1_i2',filename) 980 CALL CREATEFILE(filename,d_i2,size_i2) 981 CALL beta_3_7_3_1(d_trb2,k_trb2_offset,d_y2,k_y2_offset,d_i2,k_i2_ 982 &offset) 983 CALL RECONCILEFILE(d_i2,size_i2) 984 CALL beta_3_7_3(d_tra2,k_tra2_offset,d_i2,k_i2_offset,d_i1,k_i1_of 985 &fset) 986 CALL DELETEFILE(d_i2) 987 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 988 &R) 989 CALL OFFSET_beta_3_7_4_1(l_i2_offset,k_i2_offset,size_i2) 990 CALL TCE_FILENAME('beta_3_7_4_1_i2',filename) 991 CALL CREATEFILE(filename,d_i2,size_i2) 992 CALL OFFSET_beta_3_7_4_1_1(l_i3_offset,k_i3_offset,size_i3) 993 CALL TCE_FILENAME('beta_3_7_4_1_1_i3',filename) 994 CALL CREATEFILE(filename,d_i3,size_i3) 995 CALL beta_3_7_4_1_1(d_tra2,k_tra2_offset,d_y2,k_y2_offset,d_i3,k_i 996 &3_offset) 997 CALL OFFSET_beta_3_7_4_1_2_1(l_i4_offset,k_i4_offset,size_i4) 998 CALL TCE_FILENAME('beta_3_7_4_1_2_1_i4',filename) 999 CALL CREATEFILE(filename,d_i4,size_i4) 1000 CALL beta_3_7_4_1_2_1(d_tra1,k_tra1_offset,d_y2,k_y2_offset,d_i4,k 1001 &_i4_offset) 1002 CALL RECONCILEFILE(d_i4,size_i4) 1003 CALL beta_3_7_4_1_2(d_t1,k_t1_offset,d_i4,k_i4_offset,d_i3,k_i3_of 1004 &fset) 1005 CALL DELETEFILE(d_i4) 1006 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 1007 &R) 1008 CALL RECONCILEFILE(d_i3,size_i3) 1009 CALL beta_3_7_4_1(d_trb1,k_trb1_offset,d_i3,k_i3_offset,d_i2,k_i2_ 1010 &offset) 1011 CALL DELETEFILE(d_i3) 1012 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 1013 &R) 1014 CALL OFFSET_beta_3_7_4_2_1(l_i3_offset,k_i3_offset,size_i3) 1015 CALL TCE_FILENAME('beta_3_7_4_2_1_i3',filename) 1016 CALL CREATEFILE(filename,d_i3,size_i3) 1017 CALL beta_3_7_4_2_1(d_trb1,k_trb1_offset,d_y2,k_y2_offset,d_i3,k_i 1018 &3_offset) 1019 CALL RECONCILEFILE(d_i3,size_i3) 1020 CALL beta_3_7_4_2(d_tra2,k_tra2_offset,d_i3,k_i3_offset,d_i2,k_i2_ 1021 &offset) 1022 CALL DELETEFILE(d_i3) 1023 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 1024 &R) 1025 CALL OFFSET_beta_3_7_4_3_1(l_i3_offset,k_i3_offset,size_i3) 1026 CALL TCE_FILENAME('beta_3_7_4_3_1_i3',filename) 1027 CALL CREATEFILE(filename,d_i3,size_i3) 1028 CALL beta_3_7_4_3_1(d_trb2,k_trb2_offset,d_y2,k_y2_offset,d_i3,k_i 1029 &3_offset) 1030 CALL OFFSET_beta_3_7_4_3_2_1(l_i4_offset,k_i4_offset,size_i4) 1031 CALL TCE_FILENAME('beta_3_7_4_3_2_1_i4',filename) 1032 CALL CREATEFILE(filename,d_i4,size_i4) 1033 CALL beta_3_7_4_3_2_1(d_trb1,k_trb1_offset,d_y2,k_y2_offset,d_i4,k 1034 &_i4_offset) 1035 CALL RECONCILEFILE(d_i4,size_i4) 1036 CALL beta_3_7_4_3_2(d_t1,k_t1_offset,d_i4,k_i4_offset,d_i3,k_i3_of 1037 &fset) 1038 CALL DELETEFILE(d_i4) 1039 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 1040 &R) 1041 CALL RECONCILEFILE(d_i3,size_i3) 1042 CALL beta_3_7_4_3(d_tra1,k_tra1_offset,d_i3,k_i3_offset,d_i2,k_i2_ 1043 &offset) 1044 CALL DELETEFILE(d_i3) 1045 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 1046 &R) 1047 CALL OFFSET_beta_3_7_4_4_1(l_i3_offset,k_i3_offset,size_i3) 1048 CALL TCE_FILENAME('beta_3_7_4_4_1_i3',filename) 1049 CALL CREATEFILE(filename,d_i3,size_i3) 1050 CALL beta_3_7_4_4_1(d_tra1,k_tra1_offset,d_y2,k_y2_offset,d_i3,k_i 1051 &3_offset) 1052 CALL RECONCILEFILE(d_i3,size_i3) 1053 CALL beta_3_7_4_4(d_trb2,k_trb2_offset,d_i3,k_i3_offset,d_i2,k_i2_ 1054 &offset) 1055 CALL DELETEFILE(d_i3) 1056 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 1057 &R) 1058 CALL OFFSET_beta_3_7_4_5_1(l_i3_offset,k_i3_offset,size_i3) 1059 CALL TCE_FILENAME('beta_3_7_4_5_1_i3',filename) 1060 CALL CREATEFILE(filename,d_i3,size_i3) 1061 CALL OFFSET_beta_3_7_4_5_1_1(l_i4_offset,k_i4_offset,size_i4) 1062 CALL TCE_FILENAME('beta_3_7_4_5_1_1_i4',filename) 1063 CALL CREATEFILE(filename,d_i4,size_i4) 1064 CALL beta_3_7_4_5_1_1(d_trb1,k_trb1_offset,d_y2,k_y2_offset,d_i4,k 1065 &_i4_offset) 1066 CALL RECONCILEFILE(d_i4,size_i4) 1067 CALL beta_3_7_4_5_1(d_tra1,k_tra1_offset,d_i4,k_i4_offset,d_i3,k_i 1068 &3_offset) 1069 CALL DELETEFILE(d_i4) 1070 IF (.not.MA_POP_STACK(l_i4_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 1071 &R) 1072 CALL RECONCILEFILE(d_i3,size_i3) 1073 CALL beta_3_7_4_5(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,k_i2_offs 1074 &et) 1075 CALL DELETEFILE(d_i3) 1076 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 1077 &R) 1078 CALL RECONCILEFILE(d_i2,size_i2) 1079 CALL beta_3_7_4(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k_i1_offset 1080 &) 1081 CALL DELETEFILE(d_i2) 1082 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 1083 &R) 1084 CALL OFFSET_beta_3_7_5_1(l_i2_offset,k_i2_offset,size_i2) 1085 CALL TCE_FILENAME('beta_3_7_5_1_i2',filename) 1086 CALL CREATEFILE(filename,d_i2,size_i2) 1087 CALL OFFSET_beta_3_7_5_1_1(l_i3_offset,k_i3_offset,size_i3) 1088 CALL TCE_FILENAME('beta_3_7_5_1_1_i3',filename) 1089 CALL CREATEFILE(filename,d_i3,size_i3) 1090 CALL beta_3_7_5_1_1(d_tra2,k_tra2_offset,d_y2,k_y2_offset,d_i3,k_i 1091 &3_offset) 1092 CALL RECONCILEFILE(d_i3,size_i3) 1093 CALL beta_3_7_5_1(d_t1,k_t1_offset,d_i3,k_i3_offset,d_i2,k_i2_offs 1094 &et) 1095 CALL DELETEFILE(d_i3) 1096 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 1097 &R) 1098 CALL OFFSET_beta_3_7_5_2_1(l_i3_offset,k_i3_offset,size_i3) 1099 CALL TCE_FILENAME('beta_3_7_5_2_1_i3',filename) 1100 CALL CREATEFILE(filename,d_i3,size_i3) 1101 CALL beta_3_7_5_2_1(d_tra1,k_tra1_offset,d_y2,k_y2_offset,d_i3,k_i 1102 &3_offset) 1103 CALL RECONCILEFILE(d_i3,size_i3) 1104 CALL beta_3_7_5_2(d_t2,k_t2_offset,d_i3,k_i3_offset,d_i2,k_i2_offs 1105 &et) 1106 CALL DELETEFILE(d_i3) 1107 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 1108 &R) 1109 CALL RECONCILEFILE(d_i2,size_i2) 1110 CALL beta_3_7_5(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_i1,k_i1_of 1111 &fset) 1112 CALL DELETEFILE(d_i2) 1113 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 1114 &R) 1115 CALL OFFSET_beta_3_7_6_1(l_i2_offset,k_i2_offset,size_i2) 1116 CALL TCE_FILENAME('beta_3_7_6_1_i2',filename) 1117 CALL CREATEFILE(filename,d_i2,size_i2) 1118 CALL OFFSET_beta_3_7_6_1_1(l_i3_offset,k_i3_offset,size_i3) 1119 CALL TCE_FILENAME('beta_3_7_6_1_1_i3',filename) 1120 CALL CREATEFILE(filename,d_i3,size_i3) 1121 CALL beta_3_7_6_1_1(d_tra2,k_tra2_offset,d_y2,k_y2_offset,d_i3,k_i 1122 &3_offset) 1123 CALL RECONCILEFILE(d_i3,size_i3) 1124 CALL beta_3_7_6_1(d_trb1,k_trb1_offset,d_i3,k_i3_offset,d_i2,k_i2_ 1125 &offset) 1126 CALL DELETEFILE(d_i3) 1127 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 1128 &R) 1129 CALL OFFSET_beta_3_7_6_2_1(l_i3_offset,k_i3_offset,size_i3) 1130 CALL TCE_FILENAME('beta_3_7_6_2_1_i3',filename) 1131 CALL CREATEFILE(filename,d_i3,size_i3) 1132 CALL beta_3_7_6_2_1(d_trb1,k_trb1_offset,d_y2,k_y2_offset,d_i3,k_i 1133 &3_offset) 1134 CALL RECONCILEFILE(d_i3,size_i3) 1135 CALL beta_3_7_6_2(d_tra2,k_tra2_offset,d_i3,k_i3_offset,d_i2,k_i2_ 1136 &offset) 1137 CALL DELETEFILE(d_i3) 1138 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 1139 &R) 1140 CALL OFFSET_beta_3_7_6_3_1(l_i3_offset,k_i3_offset,size_i3) 1141 CALL TCE_FILENAME('beta_3_7_6_3_1_i3',filename) 1142 CALL CREATEFILE(filename,d_i3,size_i3) 1143 CALL beta_3_7_6_3_1(d_trb2,k_trb2_offset,d_y2,k_y2_offset,d_i3,k_i 1144 &3_offset) 1145 CALL RECONCILEFILE(d_i3,size_i3) 1146 CALL beta_3_7_6_3(d_tra1,k_tra1_offset,d_i3,k_i3_offset,d_i2,k_i2_ 1147 &offset) 1148 CALL DELETEFILE(d_i3) 1149 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 1150 &R) 1151 CALL OFFSET_beta_3_7_6_4_1(l_i3_offset,k_i3_offset,size_i3) 1152 CALL TCE_FILENAME('beta_3_7_6_4_1_i3',filename) 1153 CALL CREATEFILE(filename,d_i3,size_i3) 1154 CALL beta_3_7_6_4_1(d_tra1,k_tra1_offset,d_y2,k_y2_offset,d_i3,k_i 1155 &3_offset) 1156 CALL RECONCILEFILE(d_i3,size_i3) 1157 CALL beta_3_7_6_4(d_trb2,k_trb2_offset,d_i3,k_i3_offset,d_i2,k_i2_ 1158 &offset) 1159 CALL DELETEFILE(d_i3) 1160 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 1161 &R) 1162 CALL RECONCILEFILE(d_i2,size_i2) 1163 CALL beta_3_7_6(d_t1,k_t1_offset,d_i2,k_i2_offset,d_i1,k_i1_offset 1164 &) 1165 CALL DELETEFILE(d_i2) 1166 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 1167 &R) 1168 CALL OFFSET_beta_3_7_7_1(l_i2_offset,k_i2_offset,size_i2) 1169 CALL TCE_FILENAME('beta_3_7_7_1_i2',filename) 1170 CALL CREATEFILE(filename,d_i2,size_i2) 1171 CALL OFFSET_beta_3_7_7_1_1(l_i3_offset,k_i3_offset,size_i3) 1172 CALL TCE_FILENAME('beta_3_7_7_1_1_i3',filename) 1173 CALL CREATEFILE(filename,d_i3,size_i3) 1174 CALL beta_3_7_7_1_1(d_tra1,k_tra1_offset,d_y2,k_y2_offset,d_i3,k_i 1175 &3_offset) 1176 CALL RECONCILEFILE(d_i3,size_i3) 1177 CALL beta_3_7_7_1(d_t2,k_t2_offset,d_i3,k_i3_offset,d_i2,k_i2_offs 1178 &et) 1179 CALL DELETEFILE(d_i3) 1180 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 1181 &R) 1182 CALL RECONCILEFILE(d_i2,size_i2) 1183 CALL beta_3_7_7(d_trb1,k_trb1_offset,d_i2,k_i2_offset,d_i1,k_i1_of 1184 &fset) 1185 CALL DELETEFILE(d_i2) 1186 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 1187 &R) 1188 CALL OFFSET_beta_3_7_8_1(l_i2_offset,k_i2_offset,size_i2) 1189 CALL TCE_FILENAME('beta_3_7_8_1_i2',filename) 1190 CALL CREATEFILE(filename,d_i2,size_i2) 1191 CALL OFFSET_beta_3_7_8_1_1(l_i3_offset,k_i3_offset,size_i3) 1192 CALL TCE_FILENAME('beta_3_7_8_1_1_i3',filename) 1193 CALL CREATEFILE(filename,d_i3,size_i3) 1194 CALL beta_3_7_8_1_1(d_trb1,k_trb1_offset,d_y2,k_y2_offset,d_i3,k_i 1195 &3_offset) 1196 CALL RECONCILEFILE(d_i3,size_i3) 1197 CALL beta_3_7_8_1(d_tra1,k_tra1_offset,d_i3,k_i3_offset,d_i2,k_i2_ 1198 &offset) 1199 CALL DELETEFILE(d_i3) 1200 IF (.not.MA_POP_STACK(l_i3_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 1201 &R) 1202 CALL RECONCILEFILE(d_i2,size_i2) 1203 CALL beta_3_7_8(d_t2,k_t2_offset,d_i2,k_i2_offset,d_i1,k_i1_offset 1204 &) 1205 CALL DELETEFILE(d_i2) 1206 IF (.not.MA_POP_STACK(l_i2_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 1207 &R) 1208 CALL RECONCILEFILE(d_i1,size_i1) 1209 CALL beta_3_7(d_i1,k_i1_offset,d_v2,k_v2_offset,d_i0,k_i0_offset) 1210 CALL DELETEFILE(d_i1) 1211 IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('beta_3',-1,MA_ER 1212 &R) 1213 RETURN 1214 END 1215