1 SUBROUTINE dip_r(d_i0,d_o1,d_t1,d_tr1,d_tr2,d_v2,k_i0_offset,k_o1_ 2 &offset,k_t1_offset,k_tr1_offset,k_tr2_offset,k_v2_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 ( )_to + = 1 * Sum ( p5 h6 ) * t ( p5 h6 )_t * i1 ( h6 p5 )_o 7C i1 ( h6 p5 )_o + = 1 * o ( h6 p5 )_o 8C i1 ( h6 p5 )_vtr + = 1 * Sum ( h4 p3 ) * tr ( p3 h4 )_tr * v ( h4 h6 p3 p5 )_v 9C i0 ( )_vtr + = 1/4 * Sum ( h3 h4 p1 p2 ) * tr ( p1 p2 h3 h4 )_tr * v ( h3 h4 p1 p2 )_v 10 IMPLICIT NONE 11#include "global.fh" 12#include "mafdecls.fh" 13#include "util.fh" 14#include "errquit.fh" 15#include "tce.fh" 16 INTEGER d_i0 17 INTEGER k_i0_offset 18 INTEGER d_t1 19 INTEGER k_t1_offset 20 INTEGER d_i1 21 INTEGER k_i1_offset 22 INTEGER d_tr2 23 INTEGER k_tr2_offset 24 INTEGER d_v2 25 INTEGER k_v2_offset 26 INTEGER l_i1_offset 27 INTEGER d_o1 28 INTEGER k_o1_offset 29 INTEGER size_i1 30 INTEGER d_tr1 31 INTEGER k_tr1_offset 32 CHARACTER*255 filename 33 CALL OFFSET_dip_r_1_1(l_i1_offset,k_i1_offset,size_i1) 34 CALL TCE_FILENAME('dip_r_1_1_i1',filename) 35 CALL CREATEFILE(filename,d_i1,size_i1) 36 CALL dip_r_1_1(d_o1,k_o1_offset,d_i1,k_i1_offset) 37 CALL dip_r_1_2(d_tr1,k_tr1_offset,d_v2,k_v2_offset,d_i1,k_i1_offse 38 &t) 39 CALL RECONCILEFILE(d_i1,size_i1) 40 CALL dip_r_1(d_t1,k_t1_offset,d_i1,k_i1_offset,d_i0,k_i0_offset) 41 CALL DELETEFILE(d_i1) 42 IF (.not.MA_POP_STACK(l_i1_offset)) CALL ERRQUIT('dip_r',-1,MA_ERR 43 &) 44 CALL dip_r_2(d_tr2,k_tr2_offset,d_v2,k_v2_offset,d_i0,k_i0_offset) 45 RETURN 46 END 47