3
3
&t,k_t1_offset,k_t2_offset,k_t3_offset,k_t4_offset,k_x0_offset,k_x1
4
4
&_offset,k_x2_offset,k_x3_offset,k_x4_offset,k_y0_offset,k_y1_offse
5
5
&t,k_y2_offset,k_y3_offset,k_y4_offset)
7
7
C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
8
8
C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
9
9
C i0 ( )_yxd + = 1 * Sum ( h2 p1 ) * d ( p1 h2 )_d * i1 ( h2 p1 )_yx