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