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