1
1
SUBROUTINE ccsdtq_lambda3(d_f1,d_i0,d_t1,d_t2,d_t3,d_v2,d_y1,d_y2,
2
2
&d_y3,d_y4,k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_off
3
3
&set,k_v2_offset,k_y1_offset,k_y2_offset,k_y3_offset,k_y4_offset)
5
5
C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6
6
C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7
7
C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = 1 * P( 9 ) * y ( h4 p1 )_y * v ( h5 h6 p2 p3 )_v