1      SUBROUTINE ccsdt_lambda_o3(d_i0,d_o1,d_t1,d_y2,d_y3,k_i0_offset,k_
2     &o1_offset,k_t1_offset,k_y2_offset,k_y3_offset)
3C     $Id$
4C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6C     i0 ( h4 h5 h6 p1 p2 p3 )_yo + = 1 * P( 9 ) * o ( h4 p1 )_o * y ( h5 h6 p2 p3 )_y
7C     i0 ( h4 h5 h6 p1 p2 p3 )_yo + = -1 * P( 3 ) * Sum ( h7 ) * o ( h4 h7 )_o * y ( h5 h6 h7 p1 p2 p3 )_y
8C     i0 ( h4 h5 h6 p1 p2 p3 )_yo + = 1 * P( 3 ) * Sum ( p7 ) * o ( p7 p1 )_o * y ( h4 h5 h6 p2 p3 p7 )_y
9C     i0 ( h4 h5 h6 p1 p2 p3 )_oty + = -1 * P( 3 ) * Sum ( h8 ) * y ( h4 h5 h8 p1 p2 p3 )_y * i1 ( h6 h8 )_ot
10C         i1 ( h4 h8 )_ot + = 1 * Sum ( p7 ) * o ( h4 p7 )_o * t ( p7 h8 )_t
11C     i0 ( h4 h5 h6 p1 p2 p3 )_yto + = -1 * P( 3 ) * Sum ( h7 ) * o ( h7 p1 )_o * i1 ( h4 h5 h6 h7 p2 p3 )_yt
12C         i1 ( h4 h5 h6 h7 p1 p2 )_yt + = 1 * Sum ( p8 ) * t ( p8 h7 )_t * y ( h4 h5 h6 p1 p2 p8 )_y
13      IMPLICIT NONE
14#include "global.fh"
15#include "mafdecls.fh"
16#include "util.fh"
17#include "errquit.fh"
18#include "tce.fh"
19      INTEGER d_i0
20      INTEGER k_i0_offset
21      INTEGER d_o1
22      INTEGER k_o1_offset
23      INTEGER d_y2
24      INTEGER k_y2_offset
25      INTEGER d_y3
26      INTEGER k_y3_offset
27      INTEGER d_i1
28      INTEGER k_i1_offset
29      INTEGER l_i1_offset
30      INTEGER d_t1
31      INTEGER k_t1_offset
32      INTEGER size_i1
33      CHARACTER*255 filename
34#if !defined(CCSDTLR)
35      CALL ERRQUIT('CCSDTLR not compiled (ccsdt_lambda_o3.F)',
36     &              0,CAPMIS_ERR)
37      RETURN
38      END
39#else
40      CALL ccsdt_lambda_o3_1(d_o1,k_o1_offset,d_y2,k_y2_offset,d_i0,k_i0
41     &_offset)
42      CALL ccsdt_lambda_o3_2(d_o1,k_o1_offset,d_y3,k_y3_offset,d_i0,k_i0
43     &_offset)
44      CALL ccsdt_lambda_o3_3(d_o1,k_o1_offset,d_y3,k_y3_offset,d_i0,k_i0
45     &_offset)
46      CALL OFFSET_ccsdt_lambda_o3_4_1(l_i1_offset,k_i1_offset,size_i1)
47      CALL TCE_FILENAME('ccsdt_lambda_o3_4_1_i1',filename)
48      CALL CREATEFILE(filename,d_i1,size_i1)
49      CALL ccsdt_lambda_o3_4_1(d_o1,k_o1_offset,d_t1,k_t1_offset,d_i1,k_
50     &i1_offset)
51      CALL RECONCILEFILE(d_i1,size_i1)
52      CALL ccsdt_lambda_o3_4(d_y3,k_y3_offset,d_i1,k_i1_offset,d_i0,k_i0
53     &_offset)
54      CALL DELETEFILE(d_i1)
55      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('ccsdt_lambda_o3'
56     &,-1,MA_ERR)
57      CALL OFFSET_ccsdt_lambda_o3_5_1(l_i1_offset,k_i1_offset,size_i1)
58      CALL TCE_FILENAME('ccsdt_lambda_o3_5_1_i1',filename)
59      CALL CREATEFILE(filename,d_i1,size_i1)
60      CALL ccsdt_lambda_o3_5_1(d_t1,k_t1_offset,d_y3,k_y3_offset,d_i1,k_
61     &i1_offset)
62      CALL RECONCILEFILE(d_i1,size_i1)
63      CALL ccsdt_lambda_o3_5(d_o1,k_o1_offset,d_i1,k_i1_offset,d_i0,k_i0
64     &_offset)
65      CALL DELETEFILE(d_i1)
66      IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('ccsdt_lambda_o3'
67     &,-1,MA_ERR)
68      RETURN
69      END
70#endif
71