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