2
2
&tr3,d_y1,d_y2,d_y3,k_i0_offset,k_o1_offset,k_t1_offset,k_t2_offset
3
3
&,k_t3_offset,k_tr1_offset,k_tr2_offset,k_tr3_offset,k_y1_offset,k_
6
6
C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7
7
C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
8
8
C i0 ( )_ytro + = -1 * Sum ( h2 h1 ) * o ( h1 h2 )_o * i1 ( h2 h1 )_ytr