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