diff --git a/src/tce/GNUmakefile b/src/tce/GNUmakefile index 8371457995..9c3540db55 100644 --- a/src/tce/GNUmakefile +++ b/src/tce/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.99 2008-12-09 18:37:00 jhammond Exp $ +#$Id$ # SUBDIRS = include diis diis2 diis3 gradients \ diff --git a/src/tce/add_block.F b/src/tce/add_block.F index 52687554da..7b6bc5b0ce 100644 --- a/src/tce/add_block.F +++ b/src/tce/add_block.F @@ -1,6 +1,6 @@ subroutine add_block(d_file,array,size,offset) c -c $Id: add_block.F,v 1.14 2008-12-14 01:04:48 jhammond Exp $ +c $Id$ c c This subroutine reads a section of a file and adds c the content of an array to it and write it back to diff --git a/src/tce/add_hash_block.F b/src/tce/add_hash_block.F index e91f6f6de8..8ff7ea4928 100644 --- a/src/tce/add_hash_block.F +++ b/src/tce/add_hash_block.F @@ -1,6 +1,6 @@ subroutine add_hash_block(d_file,array,size,hash,key) c -c $Id: add_hash_block.F,v 1.3 2008-12-14 01:04:48 jhammond Exp $ +c $Id$ c implicit none integer d_file diff --git a/src/tce/atpart_nalength.F b/src/tce/atpart_nalength.F index ac3ca6182a..928fbdaaa0 100644 --- a/src/tce/atpart_nalength.F +++ b/src/tce/atpart_nalength.F @@ -1,5 +1,5 @@ SUBROUTINE atpart_nalength -C $Id: atpart_nalength.F,v 1.2 2008-01-14 15:20:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) IMPLICIT NONE diff --git a/src/tce/cc3/GNUmakefile b/src/tce/cc3/GNUmakefile index af5a821f64..44dafa1cc1 100644 --- a/src/tce/cc3/GNUmakefile +++ b/src/tce/cc3/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +#$Id$ OBJ_OPTIMIZE = cc3_t3.o ccsdt1b_t3.o ccsdt2_t3.o ccsdt3_t3.o eomccsdt1_x3.o eomcc3_x3.o eomccsdt3_x3.o cc3_lambda3.o diff --git a/src/tce/cc3/cc3_lambda3.F b/src/tce/cc3/cc3_lambda3.F index 274f6dbcfc..8310521c37 100644 --- a/src/tce/cc3/cc3_lambda3.F +++ b/src/tce/cc3/cc3_lambda3.F @@ -1,7 +1,7 @@ SUBROUTINE cc3_lambda3(d_f1,d_i0,d_t1,d_t2,d_v2,d_y1,d_y2,d_y3,k_f &1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_v2_offset,k_y1_offs &et,k_y2_offset,k_y3_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = 1 * P( 9 ) * y ( h4 p1 )_y * i1 ( h5 h6 p2 p3 )_v @@ -362,7 +362,7 @@ C i2 ( h4 h5 h6 h10 p1 p7 )_yt + = -1 * Sum ( p9 ) * t ( p9 h10 )_t END SUBROUTINE cc3_lambda3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = 1 * P( 9 ) * y ( h4 p1 )_y * i1 ( h5 h6 p2 p3 )_v @@ -576,7 +576,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = 1 * P( 9 ) * y ( h4 p1 )_y * i1 ( h5 h6 p2 RETURN END SUBROUTINE cc3_lambda3_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 p1 p2 )_v + = 1 * v ( h4 h5 p1 p2 )_v @@ -675,7 +675,7 @@ C i1 ( h4 h5 p1 p2 )_v + = 1 * v ( h4 h5 p1 p2 )_v RETURN END SUBROUTINE OFFSET_cc3_lambda3_1_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 p1 p2 )_v @@ -744,7 +744,7 @@ C i1 ( h4 h5 p1 p2 )_v RETURN END SUBROUTINE cc3_lambda3_1_2(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 p1 p2 )_v + = 1 * v ( h4 h5 p1 p2 )_v @@ -844,7 +844,7 @@ C i1 ( h4 h5 p1 p2 )_v + = 1 * v ( h4 h5 p1 p2 )_v END SUBROUTINE cc3_lambda3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yf + = 1 * P( 9 ) * y ( h4 h5 p1 p2 )_y * i1 ( h6 p3 )_f @@ -1059,7 +1059,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yf + = 1 * P( 9 ) * y ( h4 h5 p1 p2 )_y * i1 ( h6 RETURN END SUBROUTINE cc3_lambda3_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p1 )_f + = 1 * f ( h4 p1 )_f @@ -1143,7 +1143,7 @@ C i1 ( h4 p1 )_f + = 1 * f ( h4 p1 )_f RETURN END SUBROUTINE OFFSET_cc3_lambda3_2_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p1 )_f @@ -1199,7 +1199,7 @@ C i1 ( h4 p1 )_f END SUBROUTINE cc3_lambda3_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p1 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * i2 ( h4 h8 p1 p7 )_v @@ -1333,7 +1333,7 @@ C i1 ( h4 p1 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * i2 ( h4 h8 p1 p7 ) RETURN END SUBROUTINE cc3_lambda3_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h8 p1 p7 )_v + = 1 * v ( h4 h8 p1 p7 )_v @@ -1458,7 +1458,7 @@ C i2 ( h4 h8 p1 p7 )_v + = 1 * v ( h4 h8 p1 p7 )_v RETURN END SUBROUTINE OFFSET_cc3_lambda3_2_2_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h8 p1 p7 )_v @@ -1527,7 +1527,7 @@ C i2 ( h4 h8 p1 p7 )_v RETURN END SUBROUTINE cc3_lambda3_2_2_2(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h8 p1 p7 )_v + = 1 * v ( h4 h8 p1 p7 )_v @@ -1652,7 +1652,7 @@ C i2 ( h4 h8 p1 p7 )_v + = 1 * v ( h4 h8 p1 p7 )_v RETURN END SUBROUTINE cc3_lambda3_2_3(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p1 )_f + = 1 * f ( h4 p1 )_f @@ -1737,7 +1737,7 @@ C i1 ( h4 p1 )_f + = 1 * f ( h4 p1 )_f END SUBROUTINE cc3_lambda3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = -1 * P( 9 ) * Sum ( h8 ) * y ( h4 h8 p1 p2 )_y * i1 ( h5 h6 h8 p3 )_v @@ -1970,7 +1970,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = -1 * P( 9 ) * Sum ( h8 ) * y ( h4 h8 p1 p2 RETURN END SUBROUTINE cc3_lambda3_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h8 p1 )_v + = 1 * v ( h4 h5 h8 p1 )_v @@ -2071,7 +2071,7 @@ C i1 ( h4 h5 h8 p1 )_v + = 1 * v ( h4 h5 h8 p1 )_v RETURN END SUBROUTINE OFFSET_cc3_lambda3_3_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h8 p1 )_v @@ -2141,7 +2141,7 @@ C i1 ( h4 h5 h8 p1 )_v END SUBROUTINE cc3_lambda3_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h8 p1 )_vt + = -1 * Sum ( p7 ) * t ( p7 h8 )_t * i2 ( h4 h5 p1 p7 )_v @@ -2284,7 +2284,7 @@ C i1 ( h4 h5 h8 p1 )_vt + = -1 * Sum ( p7 ) * t ( p7 h8 )_t * i2 ( h4 h5 p1 RETURN END SUBROUTINE cc3_lambda3_3_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 p1 p7 )_v + = 1 * v ( h4 h5 p1 p7 )_v @@ -2393,7 +2393,7 @@ C i2 ( h4 h5 p1 p7 )_v + = 1 * v ( h4 h5 p1 p7 )_v RETURN END SUBROUTINE OFFSET_cc3_lambda3_3_2_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 p1 p7 )_v @@ -2462,7 +2462,7 @@ C i2 ( h4 h5 p1 p7 )_v RETURN END SUBROUTINE cc3_lambda3_3_2_2(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 p1 p7 )_v + = 1 * v ( h4 h5 p1 p7 )_v @@ -2571,7 +2571,7 @@ C i2 ( h4 h5 p1 p7 )_v + = 1 * v ( h4 h5 p1 p7 )_v RETURN END SUBROUTINE cc3_lambda3_3_3(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h8 p1 )_v + = 1 * v ( h4 h5 h8 p1 )_v @@ -2673,7 +2673,7 @@ C i1 ( h4 h5 h8 p1 )_v + = 1 * v ( h4 h5 h8 p1 )_v END SUBROUTINE cc3_lambda3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = -1 * P( 9 ) * Sum ( p7 ) * y ( h4 h5 p1 p7 )_y * i1 ( h6 p7 p2 p3 )_v @@ -2906,7 +2906,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = -1 * P( 9 ) * Sum ( p7 ) * y ( h4 h5 p1 p7 RETURN END SUBROUTINE cc3_lambda3_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p7 p1 p2 )_v + = 1 * v ( h4 p7 p1 p2 )_v @@ -3007,7 +3007,7 @@ C i1 ( h4 p7 p1 p2 )_v + = 1 * v ( h4 p7 p1 p2 )_v RETURN END SUBROUTINE OFFSET_cc3_lambda3_4_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p7 p1 p2 )_v @@ -3076,7 +3076,7 @@ C i1 ( h4 p7 p1 p2 )_v RETURN END SUBROUTINE cc3_lambda3_4_2(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p7 p1 p2 )_v + = 1 * v ( h4 p7 p1 p2 )_v @@ -3178,7 +3178,7 @@ C i1 ( h4 p7 p1 p2 )_v + = 1 * v ( h4 p7 p1 p2 )_v END SUBROUTINE cc3_lambda3_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yf + = -1 * P( 3 ) * Sum ( h11 ) * y ( h4 h5 h11 p1 p2 p3 )_y * i1 ( h6 h11 )_f @@ -3373,7 +3373,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yf + = -1 * P( 3 ) * Sum ( h11 ) * y ( h4 h5 h11 RETURN END SUBROUTINE cc3_lambda3_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h11 )_f + = 1 * f ( h4 h11 )_f @@ -3457,7 +3457,7 @@ C i1 ( h4 h11 )_f + = 1 * f ( h4 h11 )_f RETURN END SUBROUTINE OFFSET_cc3_lambda3_5_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h11 )_f @@ -3513,7 +3513,7 @@ C i1 ( h4 h11 )_f END SUBROUTINE cc3_lambda3_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h11 )_ft + = 1 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( h4 p7 )_f @@ -3640,7 +3640,7 @@ C i1 ( h4 h11 )_ft + = 1 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( h4 p7 )_f RETURN END SUBROUTINE cc3_lambda3_5_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p7 )_f + = 1 * f ( h4 p7 )_f @@ -3724,7 +3724,7 @@ C i2 ( h4 p7 )_f + = 1 * f ( h4 p7 )_f RETURN END SUBROUTINE OFFSET_cc3_lambda3_5_2_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p7 )_f @@ -3780,7 +3780,7 @@ C i2 ( h4 p7 )_f END SUBROUTINE cc3_lambda3_5_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p7 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h4 h10 p7 p9 )_v @@ -3940,7 +3940,7 @@ C i2 ( h4 p7 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h4 h10 p7 p9 RETURN END SUBROUTINE cc3_lambda3_5_2_3(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p7 )_f + = 1 * f ( h4 p7 )_f @@ -4025,7 +4025,7 @@ C i2 ( h4 p7 )_f + = 1 * f ( h4 p7 )_f END SUBROUTINE cc3_lambda3_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h11 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h4 h8 h11 p7 )_v @@ -4170,7 +4170,7 @@ C i1 ( h4 h11 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h4 h8 h11 p7 END SUBROUTINE cc3_lambda3_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h11 )_vt + = -1/2 * Sum ( h10 p7 p8 ) * t ( p7 p8 h10 h11 )_t * v ( h4 h10 p7 p8 )_v @@ -4345,7 +4345,7 @@ C i1 ( h4 h11 )_vt + = -1/2 * Sum ( h10 p7 p8 ) * t ( p7 p8 h10 h11 )_t * v RETURN END SUBROUTINE cc3_lambda3_5_5(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h11 )_f + = 1 * f ( h4 h11 )_f @@ -4430,7 +4430,7 @@ C i1 ( h4 h11 )_f + = 1 * f ( h4 h11 )_f END SUBROUTINE cc3_lambda3_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yf + = 1 * P( 3 ) * Sum ( p11 ) * y ( h4 h5 h6 p1 p2 p11 )_y * i1 ( p11 p3 )_f @@ -4625,7 +4625,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yf + = 1 * P( 3 ) * Sum ( p11 ) * y ( h4 h5 h6 p1 RETURN END SUBROUTINE cc3_lambda3_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p1 )_f + = 1 * f ( p11 p1 )_f @@ -4709,7 +4709,7 @@ C i1 ( p11 p1 )_f + = 1 * f ( p11 p1 )_f RETURN END SUBROUTINE OFFSET_cc3_lambda3_6_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p1 )_f @@ -4766,7 +4766,7 @@ C i1 ( p11 p1 )_f END SUBROUTINE cc3_lambda3_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p1 )_vt + = -1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 p11 p1 p7 )_v @@ -4911,7 +4911,7 @@ C i1 ( p11 p1 )_vt + = -1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 p11 p1 p7 END SUBROUTINE cc3_lambda3_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p1 )_vt + = 1/2 * Sum ( h9 h10 p8 ) * t ( p8 p11 h9 h10 )_t * v ( h9 h10 p1 p8 )_v @@ -5087,7 +5087,7 @@ C i1 ( p11 p1 )_vt + = 1/2 * Sum ( h9 h10 p8 ) * t ( p8 p11 h9 h10 )_t * v ( END SUBROUTINE cc3_lambda3_6_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p1 )_vtt + = -1 * Sum ( h8 ) * t ( p11 h8 )_t * i2 ( h8 p1 )_vt @@ -5215,7 +5215,7 @@ C i1 ( p11 p1 )_vtt + = -1 * Sum ( h8 ) * t ( p11 h8 )_t * i2 ( h8 p1 )_vt END SUBROUTINE cc3_lambda3_6_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p1 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h8 h10 p1 p9 )_v @@ -5375,7 +5375,7 @@ C i2 ( h8 p1 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h8 h10 p1 p9 RETURN END SUBROUTINE OFFSET_cc3_lambda3_6_4_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p1 )_vt @@ -5430,7 +5430,7 @@ C i2 ( h8 p1 )_vt RETURN END SUBROUTINE cc3_lambda3_6_5(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p1 )_f + = 1 * f ( p11 p1 )_f @@ -5515,7 +5515,7 @@ C i1 ( p11 p1 )_f + = 1 * f ( p11 p1 )_f END SUBROUTINE cc3_lambda3_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = 1/2 * P( 3 ) * Sum ( h12 h11 ) * y ( h4 h11 h12 p1 p2 p3 )_y * i1 ( h5 h6 h11 h12 )_v @@ -5732,7 +5732,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = 1/2 * P( 3 ) * Sum ( h12 h11 ) * y ( h4 h1 RETURN END SUBROUTINE cc3_lambda3_7_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h11 h12 )_v + = 1 * v ( h4 h5 h11 h12 )_v @@ -5830,7 +5830,7 @@ C i1 ( h4 h5 h11 h12 )_v + = 1 * v ( h4 h5 h11 h12 )_v RETURN END SUBROUTINE OFFSET_cc3_lambda3_7_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h11 h12 )_v @@ -5900,7 +5900,7 @@ C i1 ( h4 h5 h11 h12 )_v END SUBROUTINE cc3_lambda3_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h11 h12 )_vt + = -2 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( h4 h5 h12 p7 )_v @@ -6053,7 +6053,7 @@ C i1 ( h4 h5 h11 h12 )_vt + = -2 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( h4 h5 RETURN END SUBROUTINE cc3_lambda3_7_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h12 p7 )_v + = 1 * v ( h4 h5 h12 p7 )_v @@ -6152,7 +6152,7 @@ C i2 ( h4 h5 h12 p7 )_v + = 1 * v ( h4 h5 h12 p7 )_v RETURN END SUBROUTINE OFFSET_cc3_lambda3_7_2_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h12 p7 )_v @@ -6222,7 +6222,7 @@ C i2 ( h4 h5 h12 p7 )_v END SUBROUTINE cc3_lambda3_7_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h12 p7 )_vt + = -1/2 * Sum ( p9 ) * t ( p9 h12 )_t * v ( h4 h5 p7 p9 )_v @@ -6376,7 +6376,7 @@ C i2 ( h4 h5 h12 p7 )_vt + = -1/2 * Sum ( p9 ) * t ( p9 h12 )_t * v ( h4 h5 END SUBROUTINE cc3_lambda3_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h11 h12 )_vt + = 1/2 * Sum ( p7 p8 ) * t ( p7 p8 h11 h12 )_t * v ( h4 h5 p7 p8 )_v @@ -6538,7 +6538,7 @@ C i1 ( h4 h5 h11 h12 )_vt + = 1/2 * Sum ( p7 p8 ) * t ( p7 p8 h11 h12 )_t * END SUBROUTINE cc3_lambda3_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = -1 * P( 9 ) * Sum ( h12 p9 ) * y ( h4 h5 h12 p1 p2 p9 )_y * i1 ( h6 p9 h12 p3 )_v @@ -6848,7 +6848,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = -1 * P( 9 ) * Sum ( h12 p9 ) * y ( h4 h5 h RETURN END SUBROUTINE cc3_lambda3_8_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p9 h12 p1 )_v + = 1 * v ( h4 p9 h12 p1 )_v @@ -6949,7 +6949,7 @@ C i1 ( h4 p9 h12 p1 )_v + = 1 * v ( h4 p9 h12 p1 )_v RETURN END SUBROUTINE OFFSET_cc3_lambda3_8_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p9 h12 p1 )_v @@ -7019,7 +7019,7 @@ C i1 ( h4 p9 h12 p1 )_v END SUBROUTINE cc3_lambda3_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p9 h12 p1 )_vt + = -1 * Sum ( p7 ) * t ( p7 h12 )_t * v ( h4 p9 p1 p7 )_v @@ -7173,7 +7173,7 @@ C i1 ( h4 p9 h12 p1 )_vt + = -1 * Sum ( p7 ) * t ( p7 h12 )_t * v ( h4 p9 p1 END SUBROUTINE cc3_lambda3_8_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p9 h12 p1 )_vt + = -1 * Sum ( h10 p8 ) * t ( p8 p9 h10 h12 )_t * v ( h4 h10 p1 p8 )_v @@ -7376,7 +7376,7 @@ C i1 ( h4 p9 h12 p1 )_vt + = -1 * Sum ( h10 p8 ) * t ( p8 p9 h10 h12 )_t * v END SUBROUTINE cc3_lambda3_8_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p9 h12 p1 )_vtt + = 1 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h4 h10 h12 p1 )_vt @@ -7520,7 +7520,7 @@ C i1 ( h4 p9 h12 p1 )_vtt + = 1 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h4 h10 END SUBROUTINE cc3_lambda3_8_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h10 h12 p1 )_vt + = 1 * Sum ( p7 ) * t ( p7 h12 )_t * v ( h4 h10 p1 p7 )_v @@ -7689,7 +7689,7 @@ C i2 ( h4 h10 h12 p1 )_vt + = 1 * Sum ( p7 ) * t ( p7 h12 )_t * v ( h4 h10 p RETURN END SUBROUTINE OFFSET_cc3_lambda3_8_4_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h10 h12 p1 )_vt @@ -7761,7 +7761,7 @@ C i2 ( h4 h10 h12 p1 )_vt END SUBROUTINE cc3_lambda3_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = 1/2 * P( 3 ) * Sum ( p8 p7 ) * y ( h4 h5 h6 p1 p7 p8 )_y * v ( p7 p8 p2 p3 )_v @@ -7976,7 +7976,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = 1/2 * P( 3 ) * Sum ( p8 p7 ) * y ( h4 h5 h END SUBROUTINE cc3_lambda3_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = -1 * P( 9 ) * Sum ( h10 ) * i1 ( h4 h5 h10 p1 )_yt * v ( h6 h10 p2 p3 )_v @@ -8214,7 +8214,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = -1 * P( 9 ) * Sum ( h10 ) * i1 ( h4 h5 h1 END SUBROUTINE cc3_lambda3_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h10 p1 )_yt + = -1 * Sum ( p7 ) * t ( p7 h10 )_t * i2 ( h4 h5 p1 p7 )_y @@ -8357,7 +8357,7 @@ C i1 ( h4 h5 h10 p1 )_yt + = -1 * Sum ( p7 ) * t ( p7 h10 )_t * i2 ( h4 h5 p RETURN END SUBROUTINE OFFSET_cc3_lambda3_10_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h10 p1 )_yt @@ -8428,7 +8428,7 @@ C i1 ( h4 h5 h10 p1 )_yt RETURN END SUBROUTINE cc3_lambda3_10_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 p1 p7 )_y + = 1 * y ( h4 h5 p1 p7 )_y @@ -8537,7 +8537,7 @@ C i2 ( h4 h5 p1 p7 )_y + = 1 * y ( h4 h5 p1 p7 )_y RETURN END SUBROUTINE OFFSET_cc3_lambda3_10_1_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 p1 p7 )_y @@ -8606,7 +8606,7 @@ C i2 ( h4 h5 p1 p7 )_y RETURN END SUBROUTINE cc3_lambda3_10_1_2(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 p1 p7 )_y + = 1 * y ( h4 h5 p1 p7 )_y @@ -8716,7 +8716,7 @@ C i2 ( h4 h5 p1 p7 )_y + = 1 * y ( h4 h5 p1 p7 )_y END SUBROUTINE cc3_lambda3_10_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h10 p1 )_yt + = 1/2 * Sum ( h9 p8 p7 ) * t ( p7 p8 h9 h10 )_t * y ( h4 h5 h9 p1 p7 p8 )_y @@ -8964,7 +8964,7 @@ C i1 ( h4 h5 h10 p1 )_yt + = 1/2 * Sum ( h9 p8 p7 ) * t ( p7 p8 h9 h10 )_t * END SUBROUTINE cc3_lambda3_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_ytf + = -1 * P( 3 ) * Sum ( h7 ) * i1 ( h4 h5 h6 h7 p1 p2 )_yt * f ( h7 p3 )_f @@ -9142,7 +9142,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_ytf + = -1 * P( 3 ) * Sum ( h7 ) * i1 ( h4 h5 h6 END SUBROUTINE cc3_lambda3_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h6 h7 p1 p2 )_yt + = 1 * Sum ( p8 ) * t ( p8 h7 )_t * i2 ( h4 h5 h6 p1 p2 p8 )_y @@ -9297,7 +9297,7 @@ C i1 ( h4 h5 h6 h7 p1 p2 )_yt + = 1 * Sum ( p8 ) * t ( p8 h7 )_t * i2 ( h4 h RETURN END SUBROUTINE OFFSET_cc3_lambda3_11_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h6 h7 p1 p2 )_yt @@ -9384,7 +9384,7 @@ C i1 ( h4 h5 h6 h7 p1 p2 )_yt RETURN END SUBROUTINE cc3_lambda3_11_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h6 p1 p2 p8 )_y + = 1 * y ( h4 h5 h6 p1 p2 p8 )_y @@ -9515,7 +9515,7 @@ C i2 ( h4 h5 h6 p1 p2 p8 )_y + = 1 * y ( h4 h5 h6 p1 p2 p8 )_y RETURN END SUBROUTINE OFFSET_cc3_lambda3_11_1_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h6 p1 p2 p8 )_y @@ -9602,7 +9602,7 @@ C i2 ( h4 h5 h6 p1 p2 p8 )_y RETURN END SUBROUTINE cc3_lambda3_11_1_2(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h6 p1 p2 p8 )_y + = 1 * y ( h4 h5 h6 p1 p2 p8 )_y @@ -9734,7 +9734,7 @@ C i2 ( h4 h5 h6 p1 p2 p8 )_y + = 1 * y ( h4 h5 h6 p1 p2 p8 )_y END SUBROUTINE cc3_lambda3_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = 1 * P( 9 ) * Sum ( h9 h8 ) * i1 ( h4 h5 h9 h8 p1 p2 )_yt * v ( h6 h8 h9 p3 )_v @@ -9978,7 +9978,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = 1 * P( 9 ) * Sum ( h9 h8 ) * i1 ( h4 h5 h END SUBROUTINE cc3_lambda3_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h9 h8 p1 p2 )_yt + = 1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h4 h5 h9 p1 p2 p7 )_y @@ -10200,7 +10200,7 @@ C i1 ( h4 h5 h9 h8 p1 p2 )_yt + = 1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h4 h5 RETURN END SUBROUTINE OFFSET_cc3_lambda3_12_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h9 h8 p1 p2 )_yt @@ -10288,7 +10288,7 @@ C i1 ( h4 h5 h9 h8 p1 p2 )_yt END SUBROUTINE cc3_lambda3_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = 1 * P( 3 ) * Sum ( h8 p9 ) * i1 ( h4 h5 h6 h8 p1 p9 )_yt * v ( h8 p9 p2 p3 )_v @@ -10473,7 +10473,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = 1 * P( 3 ) * Sum ( h8 p9 ) * i1 ( h4 h5 h END SUBROUTINE cc3_lambda3_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h6 h8 p1 p9 )_yt + = -1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h4 h5 h6 p1 p7 p9 )_y @@ -10670,7 +10670,7 @@ C i1 ( h4 h5 h6 h8 p1 p9 )_yt + = -1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h4 h RETURN END SUBROUTINE OFFSET_cc3_lambda3_13_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h6 h8 p1 p9 )_yt @@ -10758,7 +10758,7 @@ C i1 ( h4 h5 h6 h8 p1 p9 )_yt END SUBROUTINE cc3_lambda3_14(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = 1/2 * P( 9 ) * Sum ( p8 ) * i1 ( h4 p8 p1 p2 )_yt * v ( h5 h6 p3 p8 )_v @@ -11005,7 +11005,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = 1/2 * P( 9 ) * Sum ( p8 ) * i1 ( h4 p8 p1 END SUBROUTINE cc3_lambda3_14_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p8 p1 p2 )_yt + = -1 * Sum ( h10 h9 p7 ) * t ( p7 p8 h9 h10 )_t * y ( h4 h9 h10 p1 p2 p7 )_y @@ -11264,7 +11264,7 @@ C i1 ( h4 p8 p1 p2 )_yt + = -1 * Sum ( h10 h9 p7 ) * t ( p7 p8 h9 h10 )_t * RETURN END SUBROUTINE OFFSET_cc3_lambda3_14_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p8 p1 p2 )_yt @@ -11336,7 +11336,7 @@ C i1 ( h4 p8 p1 p2 )_yt END SUBROUTINE cc3_lambda3_15(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = 1/4 * P( 3 ) * Sum ( h11 h10 ) * i1 ( h4 h5 h6 h10 h11 p1 )_yt * v ( h10 h11 p2 p3 )_v @@ -11536,7 +11536,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = 1/4 * P( 3 ) * Sum ( h11 h10 ) * i1 ( h4 END SUBROUTINE cc3_lambda3_15_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h6 h10 h11 p1 )_yt + = 1 * Sum ( p8 p7 ) * t ( p7 p8 h10 h11 )_t * y ( h4 h5 h6 p1 p7 p8 )_y @@ -11729,7 +11729,7 @@ C i1 ( h4 h5 h6 h10 h11 p1 )_yt + = 1 * Sum ( p8 p7 ) * t ( p7 p8 h10 h11 )_ RETURN END SUBROUTINE OFFSET_cc3_lambda3_15_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h6 h10 h11 p1 )_yt @@ -11817,7 +11817,7 @@ C i1 ( h4 h5 h6 h10 h11 p1 )_yt END SUBROUTINE cc3_lambda3_15_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h6 h10 h11 p1 )_ytt + = 2 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( h4 h5 h6 h10 p1 p7 )_yt @@ -11986,7 +11986,7 @@ C i1 ( h4 h5 h6 h10 h11 p1 )_ytt + = 2 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( END SUBROUTINE cc3_lambda3_15_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h6 h10 p1 p7 )_yt + = -1 * Sum ( p9 ) * t ( p9 h10 )_t * y ( h4 h5 h6 p1 p7 p9 )_y @@ -12183,7 +12183,7 @@ C i2 ( h4 h5 h6 h10 p1 p7 )_yt + = -1 * Sum ( p9 ) * t ( p9 h10 )_t * y ( h4 RETURN END SUBROUTINE OFFSET_cc3_lambda3_15_2_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h6 h10 p1 p7 )_yt diff --git a/src/tce/cc3/cc3_t3.F b/src/tce/cc3/cc3_t3.F index 0420b15d81..b64008d546 100644 --- a/src/tce/cc3/cc3_t3.F +++ b/src/tce/cc3/cc3_t3.F @@ -1,6 +1,6 @@ SUBROUTINE cc3_t3(d_f1,d_i0,d_t1,d_t2,d_t3,d_v2,k_f1_offset,k_i0_o &ffset,k_t1_offset,k_t2_offset,k_t3_offset,k_v2_offset) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h12 ) * t ( p4 p5 h1 h12 )_t * i1 ( h12 p6 h2 h3 )_v @@ -147,7 +147,7 @@ C i2 ( h12 p4 h1 p11 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h RETURN END SUBROUTINE cc3_t3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h12 ) * t ( p4 p5 h1 h12 )_t * i1 ( h12 p6 h2 h3 )_v @@ -377,7 +377,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h12 ) * t ( p4 p5 h1 h RETURN END SUBROUTINE cc3_t3_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_v + = 1 * v ( h12 p4 h1 h2 )_v @@ -476,7 +476,7 @@ C i1 ( h12 p4 h1 h2 )_v + = 1 * v ( h12 p4 h1 h2 )_v RETURN END SUBROUTINE OFFSET_cc3_t3_1_1(l_a_offset,k_a_offset,size) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_v @@ -546,7 +546,7 @@ C i1 ( h12 p4 h1 h2 )_v END SUBROUTINE cc3_t3_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vt + = 1 * Sum ( h10 ) * t ( p4 h10 )_t * i2 ( h10 h12 h1 h2 )_v @@ -696,7 +696,7 @@ C i1 ( h12 p4 h1 h2 )_vt + = 1 * Sum ( h10 ) * t ( p4 h10 )_t * i2 ( h10 h12 RETURN END SUBROUTINE cc3_t3_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h12 h1 h2 )_v + = 1 * v ( h10 h12 h1 h2 )_v @@ -792,7 +792,7 @@ C i2 ( h10 h12 h1 h2 )_v + = 1 * v ( h10 h12 h1 h2 )_v RETURN END SUBROUTINE OFFSET_cc3_t3_1_2_1(l_a_offset,k_a_offset,size) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h12 h1 h2 )_v @@ -862,7 +862,7 @@ C i2 ( h10 h12 h1 h2 )_v END SUBROUTINE cc3_t3_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h12 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 ( h10 h12 h2 p8 )_v @@ -1010,7 +1010,7 @@ C i2 ( h10 h12 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 RETURN END SUBROUTINE cc3_t3_1_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 h12 h1 p8 )_v + = 1 * v ( h10 h12 h1 p8 )_v @@ -1111,7 +1111,7 @@ C i3 ( h10 h12 h1 p8 )_v + = 1 * v ( h10 h12 h1 p8 )_v RETURN END SUBROUTINE OFFSET_cc3_t3_1_2_2_1(l_a_offset,k_a_offset,size) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 h12 h1 p8 )_v @@ -1181,7 +1181,7 @@ C i3 ( h10 h12 h1 p8 )_v END SUBROUTINE cc3_t3_1_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 h12 h1 p8 )_vt + = -1/2 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h10 h12 p8 p9 )_v @@ -1335,7 +1335,7 @@ C i3 ( h10 h12 h1 p8 )_vt + = -1/2 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h10 h1 END SUBROUTINE cc3_t3_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p9 ) * t ( p9 h1 )_t * i2 ( h12 p4 h2 p9 )_v @@ -1485,7 +1485,7 @@ C i1 ( h12 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p9 ) * t ( p9 h1 )_t * i2 ( RETURN END SUBROUTINE cc3_t3_1_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p9 )_v + = 1 * v ( h12 p4 h1 p9 )_v @@ -1584,7 +1584,7 @@ C i2 ( h12 p4 h1 p9 )_v + = 1 * v ( h12 p4 h1 p9 )_v RETURN END SUBROUTINE OFFSET_cc3_t3_1_3_1(l_a_offset,k_a_offset,size) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p9 )_v @@ -1654,7 +1654,7 @@ C i2 ( h12 p4 h1 p9 )_v END SUBROUTINE cc3_t3_1_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p9 )_vt + = 1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 p4 p8 p9 )_v @@ -1804,7 +1804,7 @@ C i2 ( h12 p4 h1 p9 )_vt + = 1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 p4 p RETURN END SUBROUTINE cc3_t3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i1 ( p5 p6 h3 p7 )_v @@ -2034,7 +2034,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 RETURN END SUBROUTINE cc3_t3_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_v + = 1 * v ( p4 p5 h1 p7 )_v @@ -2133,7 +2133,7 @@ C i1 ( p4 p5 h1 p7 )_v + = 1 * v ( p4 p5 h1 p7 )_v RETURN END SUBROUTINE OFFSET_cc3_t3_2_1(l_a_offset,k_a_offset,size) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_v @@ -2203,7 +2203,7 @@ C i1 ( p4 p5 h1 p7 )_v END SUBROUTINE cc3_t3_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( p4 p5 p7 p8 )_v @@ -2353,7 +2353,7 @@ C i1 ( p4 p5 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( p4 p5 p7 p RETURN END SUBROUTINE cc3_t3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 h2 h7 )_t * f ( h7 h3 )_f @@ -2542,7 +2542,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 RETURN END SUBROUTINE cc3_t3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * P( 3 ) * Sum ( p7 ) * t ( p4 p5 p7 h1 h2 h3 )_t * f ( p6 p7 )_f @@ -2731,7 +2731,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * P( 3 ) * Sum ( p7 ) * t ( p4 p5 p7 h1 RETURN END SUBROUTINE cc3_t3_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vtt + = 6 * P( 3 ) * Sum ( h12 ) * t ( p4 h12 )_t * i1 ( h12 p5 p6 h1 h2 h3 )_vt @@ -2904,7 +2904,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vtt + = 6 * P( 3 ) * Sum ( h12 ) * t ( p4 h12 )_t END SUBROUTINE cc3_t3_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 p5 h1 h2 h3 )_vt + = -1/6 * P( 6 ) * Sum ( p11 ) * t ( p4 p11 h1 h2 )_t * i2 ( h12 p5 h3 p11 )_v @@ -3117,7 +3117,7 @@ C i1 ( h12 p4 p5 h1 h2 h3 )_vt + = -1/6 * P( 6 ) * Sum ( p11 ) * t ( p4 p11 RETURN END SUBROUTINE OFFSET_cc3_t3_5_1(l_a_offset,k_a_offset,size) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 p5 h1 h2 h3 )_vt @@ -3204,7 +3204,7 @@ C i1 ( h12 p4 p5 h1 h2 h3 )_vt RETURN END SUBROUTINE cc3_t3_5_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p11 )_v + = 1 * v ( h12 p4 h1 p11 )_v @@ -3303,7 +3303,7 @@ C i2 ( h12 p4 h1 p11 )_v + = 1 * v ( h12 p4 h1 p11 )_v RETURN END SUBROUTINE OFFSET_cc3_t3_5_1_1(l_a_offset,k_a_offset,size) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p11 )_v @@ -3373,7 +3373,7 @@ C i2 ( h12 p4 h1 p11 )_v END SUBROUTINE cc3_t3_5_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p11 )_vt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h8 h12 h1 p11 )_v @@ -3523,7 +3523,7 @@ C i2 ( h12 p4 h1 p11 )_vt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h8 h12 RETURN END SUBROUTINE cc3_t3_5_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h12 h1 p11 )_v + = 1 * v ( h8 h12 h1 p11 )_v @@ -3624,7 +3624,7 @@ C i3 ( h8 h12 h1 p11 )_v + = 1 * v ( h8 h12 h1 p11 )_v RETURN END SUBROUTINE OFFSET_cc3_t3_5_1_2_1(l_a_offset,k_a_offset,size) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h12 h1 p11 )_v @@ -3694,7 +3694,7 @@ C i3 ( h8 h12 h1 p11 )_v END SUBROUTINE cc3_t3_5_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h12 h1 p11 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h12 p9 p11 )_v @@ -3848,7 +3848,7 @@ C i3 ( h8 h12 h1 p11 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h12 p9 END SUBROUTINE cc3_t3_5_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p11 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 p4 p8 p11 )_v diff --git a/src/tce/cc3/ccsdt1b_t3.F b/src/tce/cc3/ccsdt1b_t3.F index 6cf1a5f37c..d07e373360 100644 --- a/src/tce/cc3/ccsdt1b_t3.F +++ b/src/tce/cc3/ccsdt1b_t3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt1b_t3(d_f1,d_i0,d_t2,d_t3,d_v2,k_f1_offset,k_i0_of &fset,k_t2_offset,k_t3_offset,k_v2_offset) -C $Id: ccsdt1b_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h7 ) * t ( p4 p5 h1 h7 )_t * v ( h7 p6 h2 h3 )_v @@ -35,7 +35,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * P( 3 ) * Sum ( p7 ) * t ( p4 p5 p7 h1 END SUBROUTINE ccsdt1b_t3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsdt1b_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h7 ) * t ( p4 p5 h1 h7 )_t * v ( h7 p6 h2 h3 )_v @@ -270,7 +270,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h7 ) * t ( p4 p5 h1 h7 END SUBROUTINE ccsdt1b_t3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsdt1b_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * v ( p5 p6 h3 p7 )_v @@ -505,7 +505,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 END SUBROUTINE ccsdt1b_t3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsdt1b_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 h2 h7 )_t * f ( h7 h3 )_f @@ -697,7 +697,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 END SUBROUTINE ccsdt1b_t3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsdt1b_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * P( 3 ) * Sum ( p7 ) * t ( p4 p5 p7 h1 h2 h3 )_t * f ( p6 p7 )_f diff --git a/src/tce/cc3/ccsdt2_t3.F b/src/tce/cc3/ccsdt2_t3.F index 774d4dd7f8..83c8f60d88 100644 --- a/src/tce/cc3/ccsdt2_t3.F +++ b/src/tce/cc3/ccsdt2_t3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt2_t3(d_f1,d_i0,d_t2,d_t3,d_v2,k_f1_offset,k_i0_off &set,k_t2_offset,k_t3_offset,k_v2_offset) -C $Id: ccsdt2_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h7 ) * t ( p4 p5 h1 h7 )_t * i1 ( h7 p6 h2 h3 )_v @@ -70,7 +70,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * P( 3 ) * Sum ( p7 ) * t ( p4 p5 p7 h1 END SUBROUTINE ccsdt2_t3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdt2_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h7 ) * t ( p4 p5 h1 h7 )_t * i1 ( h7 p6 h2 h3 )_v @@ -302,7 +302,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h7 ) * t ( p4 p5 h1 h7 RETURN END SUBROUTINE ccsdt2_t3_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt2_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p4 h1 h2 )_v + = 1 * v ( h7 p4 h1 h2 )_v @@ -401,7 +401,7 @@ C i1 ( h7 p4 h1 h2 )_v + = 1 * v ( h7 p4 h1 h2 )_v RETURN END SUBROUTINE OFFSET_ccsdt2_t3_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt2_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p4 h1 h2 )_v @@ -471,7 +471,7 @@ C i1 ( h7 p4 h1 h2 )_v END SUBROUTINE ccsdt2_t3_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdt2_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * v ( h7 h9 h2 p8 )_v @@ -666,7 +666,7 @@ C i1 ( h7 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_ END SUBROUTINE ccsdt2_t3_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdt2_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p4 h1 h2 )_vt + = 1/2 * Sum ( p8 p9 ) * t ( p8 p9 h1 h2 )_t * v ( h7 p4 p8 p9 )_v @@ -829,7 +829,7 @@ C i1 ( h7 p4 h1 h2 )_vt + = 1/2 * Sum ( p8 p9 ) * t ( p8 p9 h1 h2 )_t * v ( END SUBROUTINE ccsdt2_t3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdt2_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i1 ( p5 p6 h3 p7 )_v @@ -1061,7 +1061,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 RETURN END SUBROUTINE ccsdt2_t3_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt2_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_v + = 1 * v ( p4 p5 h1 p7 )_v @@ -1160,7 +1160,7 @@ C i1 ( p4 p5 h1 p7 )_v + = 1 * v ( p4 p5 h1 p7 )_v RETURN END SUBROUTINE OFFSET_ccsdt2_t3_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt2_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_v @@ -1230,7 +1230,7 @@ C i1 ( p4 p5 h1 p7 )_v END SUBROUTINE ccsdt2_t3_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdt2_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vt + = 1/2 * Sum ( h8 h9 ) * t ( p4 p5 h8 h9 )_t * v ( h8 h9 h1 p7 )_v @@ -1393,7 +1393,7 @@ C i1 ( p4 p5 h1 p7 )_vt + = 1/2 * Sum ( h8 h9 ) * t ( p4 p5 h8 h9 )_t * v ( END SUBROUTINE ccsdt2_t3_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdt2_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vt + = -1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * v ( h9 p5 p7 p8 )_v @@ -1588,7 +1588,7 @@ C i1 ( p4 p5 h1 p7 )_vt + = -1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_ END SUBROUTINE ccsdt2_t3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdt2_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 h2 h7 )_t * f ( h7 h3 )_f @@ -1780,7 +1780,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 END SUBROUTINE ccsdt2_t3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdt2_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * P( 3 ) * Sum ( p7 ) * t ( p4 p5 p7 h1 h2 h3 )_t * f ( p6 p7 )_f diff --git a/src/tce/cc3/ccsdt3_t3.F b/src/tce/cc3/ccsdt3_t3.F index ce49667421..7b9ee8eb00 100644 --- a/src/tce/cc3/ccsdt3_t3.F +++ b/src/tce/cc3/ccsdt3_t3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt3_t3(d_f1,d_i0,d_t1,d_t2,d_t3,d_v2,k_f1_offset,k_i &0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_v2_offset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h11 ) * t ( p4 p5 h1 h11 )_t * i1 ( h11 p6 h2 h3 )_v @@ -208,7 +208,7 @@ C i2 ( h11 p4 h1 p12 )_vt + = -1 * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 ) END SUBROUTINE ccsdt3_t3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h11 ) * t ( p4 p5 h1 h11 )_t * i1 ( h11 p6 h2 h3 )_v @@ -440,7 +440,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h11 ) * t ( p4 p5 h1 h RETURN END SUBROUTINE ccsdt3_t3_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_v + = 1 * v ( h11 p4 h1 h2 )_v @@ -539,7 +539,7 @@ C i1 ( h11 p4 h1 h2 )_v + = 1 * v ( h11 p4 h1 h2 )_v RETURN END SUBROUTINE OFFSET_ccsdt3_t3_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_v @@ -609,7 +609,7 @@ C i1 ( h11 p4 h1 h2 )_v END SUBROUTINE ccsdt3_t3_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_vt + = 1 * Sum ( h7 ) * t ( p4 h7 )_t * i2 ( h7 h11 h1 h2 )_v @@ -760,7 +760,7 @@ C i1 ( h11 p4 h1 h2 )_vt + = 1 * Sum ( h7 ) * t ( p4 h7 )_t * i2 ( h7 h11 h1 RETURN END SUBROUTINE ccsdt3_t3_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h11 h1 h2 )_v + = 1 * v ( h7 h11 h1 h2 )_v @@ -858,7 +858,7 @@ C i2 ( h7 h11 h1 h2 )_v + = 1 * v ( h7 h11 h1 h2 )_v RETURN END SUBROUTINE OFFSET_ccsdt3_t3_1_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h11 h1 h2 )_v @@ -928,7 +928,7 @@ C i2 ( h7 h11 h1 h2 )_v END SUBROUTINE ccsdt3_t3_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h11 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 ( h7 h11 h2 p8 )_v @@ -1079,7 +1079,7 @@ C i2 ( h7 h11 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 ( RETURN END SUBROUTINE ccsdt3_t3_1_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h11 h1 p8 )_v + = 1 * v ( h7 h11 h1 p8 )_v @@ -1180,7 +1180,7 @@ C i3 ( h7 h11 h1 p8 )_v + = 1 * v ( h7 h11 h1 p8 )_v RETURN END SUBROUTINE OFFSET_ccsdt3_t3_1_2_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h11 h1 p8 )_v @@ -1250,7 +1250,7 @@ C i3 ( h7 h11 h1 p8 )_v END SUBROUTINE ccsdt3_t3_1_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h11 h1 p8 )_vt + = -1/2 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h7 h11 p8 p9 )_v @@ -1404,7 +1404,7 @@ C i3 ( h7 h11 h1 p8 )_vt + = -1/2 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h7 h11 END SUBROUTINE ccsdt3_t3_1_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h11 h1 h2 )_vt + = 1/2 * Sum ( p8 p9 ) * t ( p8 p9 h1 h2 )_t * v ( h7 h11 p8 p9 )_v @@ -1566,7 +1566,7 @@ C i2 ( h7 h11 h1 h2 )_vt + = 1/2 * Sum ( p8 p9 ) * t ( p8 p9 h1 h2 )_t * v ( END SUBROUTINE ccsdt3_t3_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p9 ) * t ( p9 h1 )_t * i2 ( h11 p4 h2 p9 )_v @@ -1717,7 +1717,7 @@ C i1 ( h11 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p9 ) * t ( p9 h1 )_t * i2 ( RETURN END SUBROUTINE ccsdt3_t3_1_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p9 )_v + = 1 * v ( h11 p4 h1 p9 )_v @@ -1818,7 +1818,7 @@ C i2 ( h11 p4 h1 p9 )_v + = 1 * v ( h11 p4 h1 p9 )_v RETURN END SUBROUTINE OFFSET_ccsdt3_t3_1_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p9 )_v @@ -1888,7 +1888,7 @@ C i2 ( h11 p4 h1 p9 )_v END SUBROUTINE ccsdt3_t3_1_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p9 )_vt + = 1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 p4 p8 p9 )_v @@ -2042,7 +2042,7 @@ C i2 ( h11 p4 h1 p9 )_vt + = 1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 p4 p END SUBROUTINE ccsdt3_t3_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * i2 ( h9 h11 h2 p8 )_v @@ -2236,7 +2236,7 @@ C i1 ( h11 p4 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_ RETURN END SUBROUTINE ccsdt3_t3_1_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h11 h1 p8 )_v + = 1 * v ( h9 h11 h1 p8 )_v @@ -2337,7 +2337,7 @@ C i2 ( h9 h11 h1 p8 )_v + = 1 * v ( h9 h11 h1 p8 )_v RETURN END SUBROUTINE OFFSET_ccsdt3_t3_1_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h11 h1 p8 )_v @@ -2407,7 +2407,7 @@ C i2 ( h9 h11 h1 p8 )_v END SUBROUTINE ccsdt3_t3_1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h11 h1 p8 )_vt + = -1 * Sum ( p10 ) * t ( p10 h1 )_t * v ( h9 h11 p8 p10 )_v @@ -2561,7 +2561,7 @@ C i2 ( h9 h11 h1 p8 )_vt + = -1 * Sum ( p10 ) * t ( p10 h1 )_t * v ( h9 h11 END SUBROUTINE ccsdt3_t3_1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_vt + = 1/2 * Sum ( p8 p9 ) * t ( p8 p9 h1 h2 )_t * v ( h11 p4 p8 p9 )_v @@ -2724,7 +2724,7 @@ C i1 ( h11 p4 h1 h2 )_vt + = 1/2 * Sum ( p8 p9 ) * t ( p8 p9 h1 h2 )_t * v ( END SUBROUTINE ccsdt3_t3_1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_vtt + = -1 * Sum ( p8 ) * t ( p4 p8 h1 h2 )_t * i2 ( h11 p8 )_vt @@ -2877,7 +2877,7 @@ C i1 ( h11 p4 h1 h2 )_vtt + = -1 * Sum ( p8 ) * t ( p4 p8 h1 h2 )_t * i2 ( h END SUBROUTINE ccsdt3_t3_1_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p8 )_vt + = -1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h10 h11 p8 p9 )_v @@ -3037,7 +3037,7 @@ C i2 ( h11 p8 )_vt + = -1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h10 h11 p8 RETURN END SUBROUTINE OFFSET_ccsdt3_t3_1_6_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p8 )_vt @@ -3093,7 +3093,7 @@ C i2 ( h11 p8 )_vt END SUBROUTINE ccsdt3_t3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i1 ( p5 p6 h3 p7 )_v @@ -3325,7 +3325,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 RETURN END SUBROUTINE ccsdt3_t3_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_v + = 1 * v ( p4 p5 h1 p7 )_v @@ -3424,7 +3424,7 @@ C i1 ( p4 p5 h1 p7 )_v + = 1 * v ( p4 p5 h1 p7 )_v RETURN END SUBROUTINE OFFSET_ccsdt3_t3_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_v @@ -3494,7 +3494,7 @@ C i1 ( p4 p5 h1 p7 )_v END SUBROUTINE ccsdt3_t3_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( p4 p5 p7 p8 )_v @@ -3646,7 +3646,7 @@ C i1 ( p4 p5 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( p4 p5 p7 p END SUBROUTINE ccsdt3_t3_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vt + = 1/2 * Sum ( h8 h9 ) * t ( p4 p5 h8 h9 )_t * i2 ( h8 h9 h1 p7 )_v @@ -3806,7 +3806,7 @@ C i1 ( p4 p5 h1 p7 )_vt + = 1/2 * Sum ( h8 h9 ) * t ( p4 p5 h8 h9 )_t * i2 ( RETURN END SUBROUTINE ccsdt3_t3_2_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h1 p7 )_v + = 1 * v ( h8 h9 h1 p7 )_v @@ -3907,7 +3907,7 @@ C i2 ( h8 h9 h1 p7 )_v + = 1 * v ( h8 h9 h1 p7 )_v RETURN END SUBROUTINE OFFSET_ccsdt3_t3_2_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h1 p7 )_v @@ -3977,7 +3977,7 @@ C i2 ( h8 h9 h1 p7 )_v END SUBROUTINE ccsdt3_t3_2_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h1 p7 )_vt + = -1 * Sum ( p10 ) * t ( p10 h1 )_t * v ( h8 h9 p7 p10 )_v @@ -4131,7 +4131,7 @@ C i2 ( h8 h9 h1 p7 )_vt + = -1 * Sum ( p10 ) * t ( p10 h1 )_t * v ( h8 h9 p7 END SUBROUTINE ccsdt3_t3_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vt + = -1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * v ( h9 p5 p7 p8 )_v @@ -4326,7 +4326,7 @@ C i1 ( p4 p5 h1 p7 )_vt + = -1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_ END SUBROUTINE ccsdt3_t3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 h2 h7 )_t * f ( h7 h3 )_f @@ -4518,7 +4518,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 END SUBROUTINE ccsdt3_t3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * P( 3 ) * Sum ( p7 ) * t ( p4 p5 p7 h1 h2 h3 )_t * f ( p6 p7 )_f @@ -4710,7 +4710,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * P( 3 ) * Sum ( p7 ) * t ( p4 p5 p7 h1 END SUBROUTINE ccsdt3_t3_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vtt + = 6 * P( 3 ) * Sum ( h11 ) * t ( p4 h11 )_t * i1 ( h11 p5 p6 h1 h2 h3 )_vt @@ -4885,7 +4885,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vtt + = 6 * P( 3 ) * Sum ( h11 ) * t ( p4 h11 )_t END SUBROUTINE ccsdt3_t3_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 p5 h1 h2 h3 )_vt + = -1/6 * P( 6 ) * Sum ( p12 ) * t ( p4 p12 h1 h2 )_t * i2 ( h11 p5 h3 p12 )_v @@ -5099,7 +5099,7 @@ C i1 ( h11 p4 p5 h1 h2 h3 )_vt + = -1/6 * P( 6 ) * Sum ( p12 ) * t ( p4 p12 RETURN END SUBROUTINE OFFSET_ccsdt3_t3_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 p5 h1 h2 h3 )_vt @@ -5186,7 +5186,7 @@ C i1 ( h11 p4 p5 h1 h2 h3 )_vt RETURN END SUBROUTINE ccsdt3_t3_5_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p12 )_v + = 1 * v ( h11 p4 h1 p12 )_v @@ -5287,7 +5287,7 @@ C i2 ( h11 p4 h1 p12 )_v + = 1 * v ( h11 p4 h1 p12 )_v RETURN END SUBROUTINE OFFSET_ccsdt3_t3_5_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p12 )_v @@ -5357,7 +5357,7 @@ C i2 ( h11 p4 h1 p12 )_v END SUBROUTINE ccsdt3_t3_5_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p12 )_vt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h8 h11 h1 p12 )_v @@ -5510,7 +5510,7 @@ C i2 ( h11 p4 h1 p12 )_vt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h8 h11 RETURN END SUBROUTINE ccsdt3_t3_5_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h11 h1 p12 )_v + = 1 * v ( h8 h11 h1 p12 )_v @@ -5611,7 +5611,7 @@ C i3 ( h8 h11 h1 p12 )_v + = 1 * v ( h8 h11 h1 p12 )_v RETURN END SUBROUTINE OFFSET_ccsdt3_t3_5_1_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h11 h1 p12 )_v @@ -5681,7 +5681,7 @@ C i3 ( h8 h11 h1 p12 )_v END SUBROUTINE ccsdt3_t3_5_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h11 h1 p12 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h11 p9 p12 )_v @@ -5835,7 +5835,7 @@ C i3 ( h8 h11 h1 p12 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h11 p9 END SUBROUTINE ccsdt3_t3_5_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p12 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 p4 p8 p12 )_v @@ -5989,7 +5989,7 @@ C i2 ( h11 p4 h1 p12 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 p4 p8 END SUBROUTINE ccsdt3_t3_5_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p12 )_vt + = -1 * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * v ( h9 h11 p8 p12 )_v diff --git a/src/tce/cc3/eomcc3_x3.F b/src/tce/cc3/eomcc3_x3.F index 0f31ace10d..7ba1e03b9d 100644 --- a/src/tce/cc3/eomcc3_x3.F +++ b/src/tce/cc3/eomcc3_x3.F @@ -1,7 +1,7 @@ SUBROUTINE eomcc3_x3(d_f1,d_i0,d_t1,d_t2,d_t3,d_v2,d_x1,d_x2,d_x3, &k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_v2_o &ffset,k_x1_offset,k_x2_offset,k_x3_offset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xf + = -1 * P( 3 ) * Sum ( h7 ) * x ( p4 p5 p6 h1 h2 h7 )_x * i1 ( h7 h3 )_f @@ -401,7 +401,7 @@ C i1 ( h7 h1 )_fx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * f ( h7 p8 )_f END SUBROUTINE eomcc3_x3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xf + = -1 * P( 3 ) * Sum ( h7 ) * x ( p4 p5 p6 h1 h2 h7 )_x * i1 ( h7 h3 )_f @@ -592,7 +592,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_xf + = -1 * P( 3 ) * Sum ( h7 ) * x ( p4 p5 p6 h1 RETURN END SUBROUTINE eomcc3_x3_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_f + = 1 * f ( h7 h1 )_f @@ -674,7 +674,7 @@ C i1 ( h7 h1 )_f + = 1 * f ( h7 h1 )_f RETURN END SUBROUTINE OFFSET_eomcc3_x3_1_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_f @@ -730,7 +730,7 @@ C i1 ( h7 h1 )_f END SUBROUTINE eomcc3_x3_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_ft + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * f ( h7 p8 )_f @@ -856,7 +856,7 @@ C i1 ( h7 h1 )_ft + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * f ( h7 p8 )_f END SUBROUTINE eomcc3_x3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xf + = 1 * P( 3 ) * Sum ( p7 ) * x ( p4 p5 p7 h1 h2 h3 )_x * f ( p6 p7 )_f @@ -1048,7 +1048,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_xf + = 1 * P( 3 ) * Sum ( p7 ) * x ( p4 p5 p7 h1 END SUBROUTINE eomcc3_x3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_fxt + = -1 * P( 3 ) * Sum ( h12 ) * t ( p4 h12 )_t * i1 ( h12 p5 p6 h1 h2 h3 )_fx @@ -1220,7 +1220,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_fxt + = -1 * P( 3 ) * Sum ( h12 ) * t ( p4 h12 )_ END SUBROUTINE eomcc3_x3_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 p5 h1 h2 h3 )_fx + = 1 * Sum ( p8 ) * x ( p4 p5 p8 h1 h2 h3 )_x * f ( h12 p8 )_f @@ -1394,7 +1394,7 @@ C i1 ( h12 p4 p5 h1 h2 h3 )_fx + = 1 * Sum ( p8 ) * x ( p4 p5 p8 h1 h2 h3 )_ RETURN END SUBROUTINE OFFSET_eomcc3_x3_3_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 p5 h1 h2 h3 )_fx @@ -1482,7 +1482,7 @@ C i1 ( h12 p4 p5 h1 h2 h3 )_fx END SUBROUTINE eomcc3_x3_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 p5 h1 h2 h3 )_vxt + = 1 * P( 6 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i2 ( h12 p5 h3 p7 )_vx @@ -1692,7 +1692,7 @@ C i1 ( h12 p4 p5 h1 h2 h3 )_vxt + = 1 * P( 6 ) * Sum ( p7 ) * t ( p4 p7 h1 h END SUBROUTINE eomcc3_x3_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h12 p4 p7 p9 )_v @@ -1845,7 +1845,7 @@ C i2 ( h12 p4 h1 p7 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h12 p4 p7 RETURN END SUBROUTINE OFFSET_eomcc3_x3_3_2_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vx @@ -1917,7 +1917,7 @@ C i2 ( h12 p4 h1 p7 )_vx END SUBROUTINE eomcc3_x3_3_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vx + = 1 * Sum ( h9 p10 ) * x ( p4 p10 h1 h9 )_x * v ( h9 h12 p7 p10 )_v @@ -2120,7 +2120,7 @@ C i2 ( h12 p4 h1 p7 )_vx + = 1 * Sum ( h9 p10 ) * x ( p4 p10 h1 h9 )_x * v ( END SUBROUTINE eomcc3_x3_3_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vtx + = -1 * Sum ( h10 ) * x ( p4 h10 )_x * i3 ( h10 h12 h1 p7 )_vt @@ -2274,7 +2274,7 @@ C i2 ( h12 p4 h1 p7 )_vtx + = -1 * Sum ( h10 ) * x ( p4 h10 )_x * i3 ( h10 h END SUBROUTINE eomcc3_x3_3_2_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 h12 h1 p7 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h12 p7 p8 )_v @@ -2427,7 +2427,7 @@ C i3 ( h10 h12 h1 p7 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h12 p RETURN END SUBROUTINE OFFSET_eomcc3_x3_3_2_3_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 h12 h1 p7 )_vt @@ -2499,7 +2499,7 @@ C i3 ( h10 h12 h1 p7 )_vt END SUBROUTINE eomcc3_x3_3_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vxt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h8 h12 h1 p7 )_vx @@ -2653,7 +2653,7 @@ C i2 ( h12 p4 h1 p7 )_vxt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h8 h12 END SUBROUTINE eomcc3_x3_3_2_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h12 h1 p7 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h8 h12 p7 p10 )_v @@ -2806,7 +2806,7 @@ C i3 ( h8 h12 h1 p7 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h8 h12 RETURN END SUBROUTINE OFFSET_eomcc3_x3_3_2_4_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h12 h1 p7 )_vx @@ -2878,7 +2878,7 @@ C i3 ( h8 h12 h1 p7 )_vx END SUBROUTINE eomcc3_x3_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 p5 h1 h2 h3 )_vtx + = -1 * P( 6 ) * Sum ( p10 ) * x ( p4 p10 h1 h2 )_x * i2 ( h12 p5 h3 p10 )_vt @@ -3088,7 +3088,7 @@ C i1 ( h12 p4 p5 h1 h2 h3 )_vtx + = -1 * P( 6 ) * Sum ( p10 ) * x ( p4 p10 h END SUBROUTINE eomcc3_x3_3_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p10 )_vt + = 1 * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * v ( h8 h12 p7 p10 )_v @@ -3290,7 +3290,7 @@ C i2 ( h12 p4 h1 p10 )_vt + = 1 * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * v ( RETURN END SUBROUTINE OFFSET_eomcc3_x3_3_3_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p10 )_vt @@ -3362,7 +3362,7 @@ C i2 ( h12 p4 h1 p10 )_vt END SUBROUTINE eomcc3_x3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( h12 ) * t ( p4 p5 h1 h12 )_t * i1 ( h12 p6 h2 h3 )_vx @@ -3596,7 +3596,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( h12 ) * t ( p4 p5 h1 END SUBROUTINE eomcc3_x3_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = 1 * Sum ( h9 ) * x ( p4 h9 )_x * i2 ( h9 h12 h1 h2 )_v @@ -3747,7 +3747,7 @@ C i1 ( h12 p4 h1 h2 )_vx + = 1 * Sum ( h9 ) * x ( p4 h9 )_x * i2 ( h9 h12 h1 RETURN END SUBROUTINE OFFSET_eomcc3_x3_4_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx @@ -3818,7 +3818,7 @@ C i1 ( h12 p4 h1 h2 )_vx RETURN END SUBROUTINE eomcc3_x3_4_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h12 h1 h2 )_v + = 1 * v ( h9 h12 h1 h2 )_v @@ -3916,7 +3916,7 @@ C i2 ( h9 h12 h1 h2 )_v + = 1 * v ( h9 h12 h1 h2 )_v RETURN END SUBROUTINE OFFSET_eomcc3_x3_4_1_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h12 h1 h2 )_v @@ -3986,7 +3986,7 @@ C i2 ( h9 h12 h1 h2 )_v END SUBROUTINE eomcc3_x3_4_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h12 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p10 ) * t ( p10 h1 )_t * i3 ( h9 h12 h2 p10 )_v @@ -4137,7 +4137,7 @@ C i2 ( h9 h12 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p10 ) * t ( p10 h1 )_t * i3 RETURN END SUBROUTINE eomcc3_x3_4_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h12 h1 p10 )_v + = 1 * v ( h9 h12 h1 p10 )_v @@ -4238,7 +4238,7 @@ C i3 ( h9 h12 h1 p10 )_v + = 1 * v ( h9 h12 h1 p10 )_v RETURN END SUBROUTINE OFFSET_eomcc3_x3_4_1_2_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h12 h1 p10 )_v @@ -4308,7 +4308,7 @@ C i3 ( h9 h12 h1 p10 )_v END SUBROUTINE eomcc3_x3_4_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h12 h1 p10 )_vt + = 1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h9 h12 p8 p10 )_v @@ -4462,7 +4462,7 @@ C i3 ( h9 h12 h1 p10 )_vt + = 1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h9 h12 END SUBROUTINE eomcc3_x3_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( p8 ) * x ( p8 h1 )_x * v ( h12 p4 h2 p8 )_v @@ -4616,7 +4616,7 @@ C i1 ( h12 p4 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( p8 ) * x ( p8 h1 )_x * v ( END SUBROUTINE eomcc3_x3_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( h10 p7 ) * x ( p4 p7 h1 h10 )_x * i2 ( h10 h12 h2 p7 )_v @@ -4810,7 +4810,7 @@ C i1 ( h12 p4 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( h10 p7 ) * x ( p4 p7 h1 h10 RETURN END SUBROUTINE eomcc3_x3_4_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h12 h1 p7 )_v + = 1 * v ( h10 h12 h1 p7 )_v @@ -4911,7 +4911,7 @@ C i2 ( h10 h12 h1 p7 )_v + = 1 * v ( h10 h12 h1 p7 )_v RETURN END SUBROUTINE OFFSET_eomcc3_x3_4_3_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h12 h1 p7 )_v @@ -4981,7 +4981,7 @@ C i2 ( h10 h12 h1 p7 )_v END SUBROUTINE eomcc3_x3_4_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h12 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h12 p7 p8 )_v @@ -5135,7 +5135,7 @@ C i2 ( h10 h12 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h12 END SUBROUTINE eomcc3_x3_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = 1/2 * Sum ( p8 p9 ) * x ( p8 p9 h1 h2 )_x * v ( h12 p4 p8 p9 )_v @@ -5298,7 +5298,7 @@ C i1 ( h12 p4 h1 h2 )_vx + = 1/2 * Sum ( p8 p9 ) * x ( p8 p9 h1 h2 )_x * v ( END SUBROUTINE eomcc3_x3_4_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vxt + = 2 * Sum ( h11 ) * t ( p4 h11 )_t * i2 ( h11 h12 h1 h2 )_vx @@ -5450,7 +5450,7 @@ C i1 ( h12 p4 h1 h2 )_vxt + = 2 * Sum ( h11 ) * t ( p4 h11 )_t * i2 ( h11 h1 END SUBROUTINE eomcc3_x3_4_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p9 ) * x ( p9 h1 )_x * v ( h11 h12 h2 p9 )_v @@ -5603,7 +5603,7 @@ C i2 ( h11 h12 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p9 ) * x ( p9 h1 )_x * v RETURN END SUBROUTINE OFFSET_eomcc3_x3_4_5_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_vx @@ -5675,7 +5675,7 @@ C i2 ( h11 h12 h1 h2 )_vx END SUBROUTINE eomcc3_x3_4_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_vx + = 1/4 * Sum ( p9 p10 ) * x ( p9 p10 h1 h2 )_x * v ( h11 h12 p9 p10 )_v @@ -5838,7 +5838,7 @@ C i2 ( h11 h12 h1 h2 )_vx + = 1/4 * Sum ( p9 p10 ) * x ( p9 p10 h1 h2 )_x * END SUBROUTINE eomcc3_x3_4_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 ( h11 h12 h2 p8 )_vx @@ -5990,7 +5990,7 @@ C i2 ( h11 h12 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i END SUBROUTINE eomcc3_x3_4_5_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 h12 h1 p8 )_vx + = 1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h11 h12 p8 p10 )_v @@ -6144,7 +6144,7 @@ C i3 ( h11 h12 h1 p8 )_vx + = 1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h11 h12 RETURN END SUBROUTINE OFFSET_eomcc3_x3_4_5_3_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 h12 h1 p8 )_vx @@ -6216,7 +6216,7 @@ C i3 ( h11 h12 h1 p8 )_vx END SUBROUTINE eomcc3_x3_4_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i2 ( h12 p4 h2 p8 )_vx @@ -6368,7 +6368,7 @@ C i1 ( h12 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i2 END SUBROUTINE eomcc3_x3_4_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p8 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h12 p4 p8 p9 )_v @@ -6521,7 +6521,7 @@ C i2 ( h12 p4 h1 p8 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h12 p4 p8 RETURN END SUBROUTINE OFFSET_eomcc3_x3_4_6_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p8 )_vx @@ -6593,7 +6593,7 @@ C i2 ( h12 p4 h1 p8 )_vx END SUBROUTINE eomcc3_x3_4_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vtx + = 1 * Sum ( p10 ) * x ( p4 p10 h1 h2 )_x * i2 ( h12 p10 )_vt @@ -6746,7 +6746,7 @@ C i1 ( h12 p4 h1 h2 )_vtx + = 1 * Sum ( p10 ) * x ( p4 p10 h1 h2 )_x * i2 ( END SUBROUTINE eomcc3_x3_4_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p10 )_vt + = -1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h12 p8 p10 )_v @@ -6906,7 +6906,7 @@ C i2 ( h12 p10 )_vt + = -1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h12 p8 p RETURN END SUBROUTINE OFFSET_eomcc3_x3_4_7_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p10 )_vt @@ -6962,7 +6962,7 @@ C i2 ( h12 p10 )_vt END SUBROUTINE eomcc3_x3_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vtx + = 6 * P( 3 ) * Sum ( h9 ) * x ( p4 h9 )_x * i1 ( h9 p5 p6 h1 h2 h3 )_vt @@ -7137,7 +7137,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vtx + = 6 * P( 3 ) * Sum ( h9 ) * x ( p4 h9 )_x * END SUBROUTINE eomcc3_x3_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p4 p5 h1 h2 h3 )_vt + = -1/6 * P( 6 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i2 ( h9 p5 h3 p7 )_v @@ -7351,7 +7351,7 @@ C i1 ( h9 p4 p5 h1 h2 h3 )_vt + = -1/6 * P( 6 ) * Sum ( p7 ) * t ( p4 p7 h1 RETURN END SUBROUTINE OFFSET_eomcc3_x3_5_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p4 p5 h1 h2 h3 )_vt @@ -7438,7 +7438,7 @@ C i1 ( h9 p4 p5 h1 h2 h3 )_vt RETURN END SUBROUTINE eomcc3_x3_5_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p4 h1 p7 )_v + = 1 * v ( h9 p4 h1 p7 )_v @@ -7539,7 +7539,7 @@ C i2 ( h9 p4 h1 p7 )_v + = 1 * v ( h9 p4 h1 p7 )_v RETURN END SUBROUTINE OFFSET_eomcc3_x3_5_1_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p4 h1 p7 )_v @@ -7609,7 +7609,7 @@ C i2 ( h9 p4 h1 p7 )_v END SUBROUTINE eomcc3_x3_5_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p4 h1 p7 )_vt + = 1 * Sum ( h8 ) * t ( p4 h8 )_t * v ( h8 h9 h1 p7 )_v @@ -7763,7 +7763,7 @@ C i2 ( h9 p4 h1 p7 )_vt + = 1 * Sum ( h8 ) * t ( p4 h8 )_t * v ( h8 h9 h1 p7 END SUBROUTINE eomcc3_x3_5_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p4 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h9 p4 p7 p8 )_v @@ -7917,7 +7917,7 @@ C i2 ( h9 p4 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h9 p4 p7 p END SUBROUTINE eomcc3_x3_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p4 p5 h1 h2 h3 )_ft + = -1/6 * Sum ( p8 ) * t ( p4 p5 p8 h1 h2 h3 )_t * f ( h9 p8 )_f @@ -8093,7 +8093,7 @@ C i1 ( h9 p4 p5 h1 h2 h3 )_ft + = -1/6 * Sum ( p8 ) * t ( p4 p5 p8 h1 h2 h3 END SUBROUTINE eomcc3_x3_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i1 ( p5 p6 h3 p7 )_vx @@ -8327,7 +8327,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h END SUBROUTINE eomcc3_x3_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( p4 p5 p7 p8 )_v @@ -8478,7 +8478,7 @@ C i1 ( p4 p5 h1 p7 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( p4 p5 p7 p RETURN END SUBROUTINE OFFSET_eomcc3_x3_6_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vx @@ -8550,7 +8550,7 @@ C i1 ( p4 p5 h1 p7 )_vx END SUBROUTINE eomcc3_x3_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vx + = 1/2 * Sum ( h11 h12 ) * x ( p4 p5 h11 h12 )_x * i2 ( h11 h12 h1 p7 )_v @@ -8710,7 +8710,7 @@ C i1 ( p4 p5 h1 p7 )_vx + = 1/2 * Sum ( h11 h12 ) * x ( p4 p5 h11 h12 )_x * RETURN END SUBROUTINE eomcc3_x3_6_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 p7 )_v + = 1 * v ( h11 h12 h1 p7 )_v @@ -8811,7 +8811,7 @@ C i2 ( h11 h12 h1 p7 )_v + = 1 * v ( h11 h12 h1 p7 )_v RETURN END SUBROUTINE OFFSET_eomcc3_x3_6_2_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 p7 )_v @@ -8881,7 +8881,7 @@ C i2 ( h11 h12 h1 p7 )_v END SUBROUTINE eomcc3_x3_6_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 h12 p7 p8 )_v @@ -9035,7 +9035,7 @@ C i2 ( h11 h12 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 h12 END SUBROUTINE eomcc3_x3_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vx + = -1 * P( 2 ) * Sum ( h8 p9 ) * x ( p4 p9 h1 h8 )_x * v ( h8 p5 p7 p9 )_v @@ -9230,7 +9230,7 @@ C i1 ( p4 p5 h1 p7 )_vx + = -1 * P( 2 ) * Sum ( h8 p9 ) * x ( p4 p9 h1 h8 )_ END SUBROUTINE eomcc3_x3_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vtx + = -2 * P( 9 ) * Sum ( h11 ) * x ( p4 p5 h1 h11 )_x * i1 ( h11 p6 h2 h3 )_vt @@ -9473,7 +9473,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vtx + = -2 * P( 9 ) * Sum ( h11 ) * x ( p4 p5 h1 END SUBROUTINE eomcc3_x3_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_vt + = 1/2 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * i2 ( h8 h11 h2 p7 )_v @@ -9667,7 +9667,7 @@ C i1 ( h11 p4 h1 h2 )_vt + = 1/2 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 RETURN END SUBROUTINE OFFSET_eomcc3_x3_7_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_vt @@ -9738,7 +9738,7 @@ C i1 ( h11 p4 h1 h2 )_vt RETURN END SUBROUTINE eomcc3_x3_7_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h11 h1 p7 )_v + = 1 * v ( h8 h11 h1 p7 )_v @@ -9839,7 +9839,7 @@ C i2 ( h8 h11 h1 p7 )_v + = 1 * v ( h8 h11 h1 p7 )_v RETURN END SUBROUTINE OFFSET_eomcc3_x3_7_1_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h11 h1 p7 )_v @@ -9909,7 +9909,7 @@ C i2 ( h8 h11 h1 p7 )_v END SUBROUTINE eomcc3_x3_7_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h11 h1 p7 )_vt + = -1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h11 p7 p9 )_v @@ -10063,7 +10063,7 @@ C i2 ( h8 h11 h1 p7 )_vt + = -1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h11 p7 END SUBROUTINE eomcc3_x3_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_vt + = 1/4 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( h11 p4 p7 p8 )_v @@ -10226,7 +10226,7 @@ C i1 ( h11 p4 h1 h2 )_vt + = 1/4 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( END SUBROUTINE eomcc3_x3_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_vtt + = -1/4 * Sum ( h9 ) * t ( p4 h9 )_t * i2 ( h9 h11 h1 h2 )_vt @@ -10378,7 +10378,7 @@ C i1 ( h11 p4 h1 h2 )_vtt + = -1/4 * Sum ( h9 ) * t ( p4 h9 )_t * i2 ( h9 h1 END SUBROUTINE eomcc3_x3_7_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h11 h1 h2 )_vt + = -1 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( h9 h11 p7 p8 )_v @@ -10539,7 +10539,7 @@ C i2 ( h9 h11 h1 h2 )_vt + = -1 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( RETURN END SUBROUTINE OFFSET_eomcc3_x3_7_3_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h11 h1 h2 )_vt @@ -10611,7 +10611,7 @@ C i2 ( h9 h11 h1 h2 )_vt END SUBROUTINE eomcc3_x3_7_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_vtt + = 1/2 * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i2 ( h11 p7 )_vt @@ -10764,7 +10764,7 @@ C i1 ( h11 p4 h1 h2 )_vtt + = 1/2 * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i2 ( END SUBROUTINE eomcc3_x3_7_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p7 )_vt + = 1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h11 p7 p8 )_v @@ -10924,7 +10924,7 @@ C i2 ( h11 p7 )_vt + = 1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h11 p7 p8 RETURN END SUBROUTINE OFFSET_eomcc3_x3_7_4_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p7 )_vt @@ -10980,7 +10980,7 @@ C i2 ( h11 p7 )_vt END SUBROUTINE eomcc3_x3_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vtx + = -1/2 * P( 9 ) * Sum ( p11 ) * x ( p4 p11 h1 h2 )_x * i1 ( p5 p6 h3 p11 )_vt @@ -11223,7 +11223,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vtx + = -1/2 * P( 9 ) * Sum ( p11 ) * x ( p4 p11 END SUBROUTINE eomcc3_x3_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p11 )_vt + = 1 * Sum ( h7 h8 ) * t ( p4 p5 h7 h8 )_t * i2 ( h7 h8 h1 p11 )_v @@ -11383,7 +11383,7 @@ C i1 ( p4 p5 h1 p11 )_vt + = 1 * Sum ( h7 h8 ) * t ( p4 p5 h7 h8 )_t * i2 ( RETURN END SUBROUTINE OFFSET_eomcc3_x3_8_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p11 )_vt @@ -11454,7 +11454,7 @@ C i1 ( p4 p5 h1 p11 )_vt RETURN END SUBROUTINE eomcc3_x3_8_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p11 )_v + = 1 * v ( h7 h8 h1 p11 )_v @@ -11555,7 +11555,7 @@ C i2 ( h7 h8 h1 p11 )_v + = 1 * v ( h7 h8 h1 p11 )_v RETURN END SUBROUTINE OFFSET_eomcc3_x3_8_1_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p11 )_v @@ -11625,7 +11625,7 @@ C i2 ( h7 h8 h1 p11 )_v END SUBROUTINE eomcc3_x3_8_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p11 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h7 h8 p9 p11 )_v @@ -11779,7 +11779,7 @@ C i2 ( h7 h8 h1 p11 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h7 h8 p9 p END SUBROUTINE eomcc3_x3_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p11 )_vt + = 2 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * v ( h8 p5 p7 p11 )_v @@ -11974,7 +11974,7 @@ C i1 ( p4 p5 h1 p11 )_vt + = 2 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_ END SUBROUTINE eomcc3_x3_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_fxt + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 h2 h7 )_t * i1 ( h7 h3 )_fx @@ -12167,7 +12167,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_fxt + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h END SUBROUTINE eomcc3_x3_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_fx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * f ( h7 p8 )_f @@ -12292,7 +12292,7 @@ C i1 ( h7 h1 )_fx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * f ( h7 p8 )_f RETURN END SUBROUTINE OFFSET_eomcc3_x3_9_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_fx diff --git a/src/tce/cc3/eomccsdt1_x3.F b/src/tce/cc3/eomccsdt1_x3.F index 484d5619af..4149f67b6d 100644 --- a/src/tce/cc3/eomccsdt1_x3.F +++ b/src/tce/cc3/eomccsdt1_x3.F @@ -1,6 +1,6 @@ SUBROUTINE eomccsdt1_x3(d_f1,d_i0,d_v2,d_x2,d_x3,k_f1_offset,k_i0_ &offset,k_v2_offset,k_x2_offset,k_x3_offset) -C $Id: eomccsdt1_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( h7 ) * x ( p4 p5 h1 h7 )_x * v ( h7 p6 h2 h3 )_v @@ -35,7 +35,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_xf + = 1 * P( 3 ) * Sum ( p7 ) * x ( p4 p5 p7 h1 END SUBROUTINE eomccsdt1_x3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsdt1_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( h7 ) * x ( p4 p5 h1 h7 )_x * v ( h7 p6 h2 h3 )_v @@ -273,7 +273,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( h7 ) * x ( p4 p5 h1 h7 END SUBROUTINE eomccsdt1_x3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsdt1_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( p7 ) * x ( p4 p7 h1 h2 )_x * v ( p5 p6 h3 p7 )_v @@ -511,7 +511,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( p7 ) * x ( p4 p7 h1 h2 END SUBROUTINE eomccsdt1_x3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsdt1_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xf + = -1 * P( 3 ) * Sum ( h7 ) * x ( p4 p5 p6 h1 h2 h7 )_x * f ( h7 h3 )_f @@ -706,7 +706,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_xf + = -1 * P( 3 ) * Sum ( h7 ) * x ( p4 p5 p6 h1 END SUBROUTINE eomccsdt1_x3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsdt1_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xf + = 1 * P( 3 ) * Sum ( p7 ) * x ( p4 p5 p7 h1 h2 h3 )_x * f ( p6 p7 )_f diff --git a/src/tce/cc3/eomccsdt3_x3.F b/src/tce/cc3/eomccsdt3_x3.F index 89d0155d4c..66989c5cba 100644 --- a/src/tce/cc3/eomccsdt3_x3.F +++ b/src/tce/cc3/eomccsdt3_x3.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsdt3_x3(d_f1,d_i0,d_t1,d_t2,d_t3,d_v2,d_x1,d_x2,d_ &x3,k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_v &2_offset,k_x1_offset,k_x2_offset,k_x3_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xf + = -1 * P( 3 ) * Sum ( h7 ) * x ( p4 p5 p6 h1 h2 h7 )_x * i1 ( h7 h3 )_f @@ -446,7 +446,7 @@ C i1 ( h7 h1 )_fx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * f ( h7 p8 )_f END SUBROUTINE eomccsdt3_x3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xf + = -1 * P( 3 ) * Sum ( h7 ) * x ( p4 p5 p6 h1 h2 h7 )_x * i1 ( h7 h3 )_f @@ -640,7 +640,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_xf + = -1 * P( 3 ) * Sum ( h7 ) * x ( p4 p5 p6 h1 RETURN END SUBROUTINE eomccsdt3_x3_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_f + = 1 * f ( h7 h1 )_f @@ -724,7 +724,7 @@ C i1 ( h7 h1 )_f + = 1 * f ( h7 h1 )_f RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_f @@ -780,7 +780,7 @@ C i1 ( h7 h1 )_f END SUBROUTINE eomccsdt3_x3_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_ft + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * f ( h7 p8 )_f @@ -908,7 +908,7 @@ C i1 ( h7 h1 )_ft + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * f ( h7 p8 )_f END SUBROUTINE eomccsdt3_x3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xf + = 1 * P( 3 ) * Sum ( p7 ) * x ( p4 p5 p7 h1 h2 h3 )_x * f ( p6 p7 )_f @@ -1103,7 +1103,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_xf + = 1 * P( 3 ) * Sum ( p7 ) * x ( p4 p5 p7 h1 END SUBROUTINE eomccsdt3_x3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_fxt + = -1 * P( 3 ) * Sum ( h12 ) * t ( p4 h12 )_t * i1 ( h12 p5 p6 h1 h2 h3 )_fx @@ -1278,7 +1278,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_fxt + = -1 * P( 3 ) * Sum ( h12 ) * t ( p4 h12 )_ END SUBROUTINE eomccsdt3_x3_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 p5 h1 h2 h3 )_fx + = 1 * Sum ( p8 ) * x ( p4 p5 p8 h1 h2 h3 )_x * f ( h12 p8 )_f @@ -1454,7 +1454,7 @@ C i1 ( h12 p4 p5 h1 h2 h3 )_fx + = 1 * Sum ( p8 ) * x ( p4 p5 p8 h1 h2 h3 )_ RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 p5 h1 h2 h3 )_fx @@ -1542,7 +1542,7 @@ C i1 ( h12 p4 p5 h1 h2 h3 )_fx END SUBROUTINE eomccsdt3_x3_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 p5 h1 h2 h3 )_vxt + = 1 * P( 6 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i2 ( h12 p5 h3 p7 )_vx @@ -1754,7 +1754,7 @@ C i1 ( h12 p4 p5 h1 h2 h3 )_vxt + = 1 * P( 6 ) * Sum ( p7 ) * t ( p4 p7 h1 h END SUBROUTINE eomccsdt3_x3_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h12 p4 p7 p9 )_v @@ -1907,7 +1907,7 @@ C i2 ( h12 p4 h1 p7 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h12 p4 p7 RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_3_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vx @@ -1979,7 +1979,7 @@ C i2 ( h12 p4 h1 p7 )_vx END SUBROUTINE eomccsdt3_x3_3_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vx + = 1 * Sum ( h9 p10 ) * x ( p4 p10 h1 h9 )_x * v ( h9 h12 p7 p10 )_v @@ -2182,7 +2182,7 @@ C i2 ( h12 p4 h1 p7 )_vx + = 1 * Sum ( h9 p10 ) * x ( p4 p10 h1 h9 )_x * v ( END SUBROUTINE eomccsdt3_x3_3_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vtx + = -1 * Sum ( h10 ) * x ( p4 h10 )_x * i3 ( h10 h12 h1 p7 )_vt @@ -2336,7 +2336,7 @@ C i2 ( h12 p4 h1 p7 )_vtx + = -1 * Sum ( h10 ) * x ( p4 h10 )_x * i3 ( h10 h END SUBROUTINE eomccsdt3_x3_3_2_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 h12 h1 p7 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h12 p7 p8 )_v @@ -2489,7 +2489,7 @@ C i3 ( h10 h12 h1 p7 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h12 p RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_3_2_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 h12 h1 p7 )_vt @@ -2561,7 +2561,7 @@ C i3 ( h10 h12 h1 p7 )_vt END SUBROUTINE eomccsdt3_x3_3_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vxt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h8 h12 h1 p7 )_vx @@ -2715,7 +2715,7 @@ C i2 ( h12 p4 h1 p7 )_vxt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h8 h12 END SUBROUTINE eomccsdt3_x3_3_2_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h12 h1 p7 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h8 h12 p7 p10 )_v @@ -2868,7 +2868,7 @@ C i3 ( h8 h12 h1 p7 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h8 h12 RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_3_2_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h12 h1 p7 )_vx @@ -2940,7 +2940,7 @@ C i3 ( h8 h12 h1 p7 )_vx END SUBROUTINE eomccsdt3_x3_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 p5 h1 h2 h3 )_vtx + = -1 * P( 6 ) * Sum ( p10 ) * x ( p4 p10 h1 h2 )_x * i2 ( h12 p5 h3 p10 )_vt @@ -3152,7 +3152,7 @@ C i1 ( h12 p4 p5 h1 h2 h3 )_vtx + = -1 * P( 6 ) * Sum ( p10 ) * x ( p4 p10 h END SUBROUTINE eomccsdt3_x3_3_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p10 )_vt + = 1 * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * v ( h8 h12 p7 p10 )_v @@ -3354,7 +3354,7 @@ C i2 ( h12 p4 h1 p10 )_vt + = 1 * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * v ( RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_3_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p10 )_vt @@ -3426,7 +3426,7 @@ C i2 ( h12 p4 h1 p10 )_vt END SUBROUTINE eomccsdt3_x3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( h12 ) * t ( p4 p5 h1 h12 )_t * i1 ( h12 p6 h2 h3 )_vx @@ -3663,7 +3663,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( h12 ) * t ( p4 p5 h1 END SUBROUTINE eomccsdt3_x3_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = 1 * Sum ( h13 ) * x ( p4 h13 )_x * i2 ( h12 h13 h1 h2 )_v @@ -3816,7 +3816,7 @@ C i1 ( h12 p4 h1 h2 )_vx + = 1 * Sum ( h13 ) * x ( p4 h13 )_x * i2 ( h12 h13 RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx @@ -3887,7 +3887,7 @@ C i1 ( h12 p4 h1 h2 )_vx RETURN END SUBROUTINE eomccsdt3_x3_4_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h1 h2 )_v + = -1 * v ( h12 h13 h1 h2 )_v @@ -3985,7 +3985,7 @@ C i2 ( h12 h13 h1 h2 )_v + = -1 * v ( h12 h13 h1 h2 )_v RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_4_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h1 h2 )_v @@ -4055,7 +4055,7 @@ C i2 ( h12 h13 h1 h2 )_v END SUBROUTINE eomccsdt3_x3_4_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( p9 ) * t ( p9 h1 )_t * i3 ( h12 h13 h2 p9 )_v @@ -4206,7 +4206,7 @@ C i2 ( h12 h13 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( p9 ) * t ( p9 h1 )_t * i3 ( RETURN END SUBROUTINE eomccsdt3_x3_4_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h12 h13 h1 p9 )_v + = 1 * v ( h12 h13 h1 p9 )_v @@ -4307,7 +4307,7 @@ C i3 ( h12 h13 h1 p9 )_v + = 1 * v ( h12 h13 h1 p9 )_v RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_4_1_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h12 h13 h1 p9 )_v @@ -4377,7 +4377,7 @@ C i3 ( h12 h13 h1 p9 )_v END SUBROUTINE eomccsdt3_x3_4_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h12 h13 h1 p9 )_vt + = 1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 h13 p8 p9 )_v @@ -4531,7 +4531,7 @@ C i3 ( h12 h13 h1 p9 )_vt + = 1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 h13 END SUBROUTINE eomccsdt3_x3_4_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h1 h2 )_vt + = -1/2 * Sum ( p8 p9 ) * t ( p8 p9 h1 h2 )_t * v ( h12 h13 p8 p9 )_v @@ -4693,7 +4693,7 @@ C i2 ( h12 h13 h1 h2 )_vt + = -1/2 * Sum ( p8 p9 ) * t ( p8 p9 h1 h2 )_t * v END SUBROUTINE eomccsdt3_x3_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( p8 ) * x ( p8 h1 )_x * v ( h12 p4 h2 p8 )_v @@ -4849,7 +4849,7 @@ C i1 ( h12 p4 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( p8 ) * x ( p8 h1 )_x * v ( END SUBROUTINE eomccsdt3_x3_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( h10 p7 ) * x ( p4 p7 h1 h10 )_x * i2 ( h10 h12 h2 p7 )_v @@ -5045,7 +5045,7 @@ C i1 ( h12 p4 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( h10 p7 ) * x ( p4 p7 h1 h10 RETURN END SUBROUTINE eomccsdt3_x3_4_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h12 h1 p7 )_v + = 1 * v ( h10 h12 h1 p7 )_v @@ -5146,7 +5146,7 @@ C i2 ( h10 h12 h1 p7 )_v + = 1 * v ( h10 h12 h1 p7 )_v RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_4_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h12 h1 p7 )_v @@ -5216,7 +5216,7 @@ C i2 ( h10 h12 h1 p7 )_v END SUBROUTINE eomccsdt3_x3_4_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h12 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h12 p7 p8 )_v @@ -5370,7 +5370,7 @@ C i2 ( h10 h12 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h12 END SUBROUTINE eomccsdt3_x3_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = 1/2 * Sum ( p8 p9 ) * x ( p8 p9 h1 h2 )_x * v ( h12 p4 p8 p9 )_v @@ -5535,7 +5535,7 @@ C i1 ( h12 p4 h1 h2 )_vx + = 1/2 * Sum ( p8 p9 ) * x ( p8 p9 h1 h2 )_x * v ( END SUBROUTINE eomccsdt3_x3_4_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vxt + = 2 * Sum ( h11 ) * t ( p4 h11 )_t * i2 ( h11 h12 h1 h2 )_vx @@ -5689,7 +5689,7 @@ C i1 ( h12 p4 h1 h2 )_vxt + = 2 * Sum ( h11 ) * t ( p4 h11 )_t * i2 ( h11 h1 END SUBROUTINE eomccsdt3_x3_4_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p9 ) * x ( p9 h1 )_x * v ( h11 h12 h2 p9 )_v @@ -5842,7 +5842,7 @@ C i2 ( h11 h12 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p9 ) * x ( p9 h1 )_x * v RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_4_5_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_vx @@ -5914,7 +5914,7 @@ C i2 ( h11 h12 h1 h2 )_vx END SUBROUTINE eomccsdt3_x3_4_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_vx + = 1/4 * Sum ( p9 p10 ) * x ( p9 p10 h1 h2 )_x * v ( h11 h12 p9 p10 )_v @@ -6077,7 +6077,7 @@ C i2 ( h11 h12 h1 h2 )_vx + = 1/4 * Sum ( p9 p10 ) * x ( p9 p10 h1 h2 )_x * END SUBROUTINE eomccsdt3_x3_4_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 ( h11 h12 h2 p8 )_vx @@ -6229,7 +6229,7 @@ C i2 ( h11 h12 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i END SUBROUTINE eomccsdt3_x3_4_5_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 h12 h1 p8 )_vx + = 1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h11 h12 p8 p10 )_v @@ -6383,7 +6383,7 @@ C i3 ( h11 h12 h1 p8 )_vx + = 1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h11 h12 RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_4_5_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 h12 h1 p8 )_vx @@ -6455,7 +6455,7 @@ C i3 ( h11 h12 h1 p8 )_vx END SUBROUTINE eomccsdt3_x3_4_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i2 ( h12 p4 h2 p8 )_vx @@ -6609,7 +6609,7 @@ C i1 ( h12 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i2 END SUBROUTINE eomccsdt3_x3_4_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p8 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h12 p4 p8 p9 )_v @@ -6762,7 +6762,7 @@ C i2 ( h12 p4 h1 p8 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h12 p4 p8 RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_4_6_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p8 )_vx @@ -6834,7 +6834,7 @@ C i2 ( h12 p4 h1 p8 )_vx END SUBROUTINE eomccsdt3_x3_4_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vtx + = 1 * Sum ( p10 ) * x ( p4 p10 h1 h2 )_x * i2 ( h12 p10 )_vt @@ -6989,7 +6989,7 @@ C i1 ( h12 p4 h1 h2 )_vtx + = 1 * Sum ( p10 ) * x ( p4 p10 h1 h2 )_x * i2 ( END SUBROUTINE eomccsdt3_x3_4_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p10 )_vt + = -1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h12 p8 p10 )_v @@ -7149,7 +7149,7 @@ C i2 ( h12 p10 )_vt + = -1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h12 p8 p RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_4_7_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p10 )_vt @@ -7205,7 +7205,7 @@ C i2 ( h12 p10 )_vt END SUBROUTINE eomccsdt3_x3_4_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vxt + = -1 * Sum ( p8 ) * t ( p4 p8 h1 h2 )_t * i2 ( h12 p8 )_vx @@ -7360,7 +7360,7 @@ C i1 ( h12 p4 h1 h2 )_vxt + = -1 * Sum ( p8 ) * t ( p4 p8 h1 h2 )_t * i2 ( h END SUBROUTINE eomccsdt3_x3_4_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p8 )_vx + = -1 * Sum ( h9 p10 ) * x ( p10 h9 )_x * v ( h9 h12 p8 p10 )_v @@ -7520,7 +7520,7 @@ C i2 ( h12 p8 )_vx + = -1 * Sum ( h9 p10 ) * x ( p10 h9 )_x * v ( h9 h12 p8 RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_4_8_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p8 )_vx @@ -7576,7 +7576,7 @@ C i2 ( h12 p8 )_vx END SUBROUTINE eomccsdt3_x3_4_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * i2 ( h9 h12 h2 p8 )_vx @@ -7773,7 +7773,7 @@ C i1 ( h12 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 ) END SUBROUTINE eomccsdt3_x3_4_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h12 h1 p8 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h9 h12 p8 p10 )_v @@ -7926,7 +7926,7 @@ C i2 ( h9 h12 h1 p8 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h9 h12 RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_4_9_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h12 h1 p8 )_vx @@ -7998,7 +7998,7 @@ C i2 ( h9 h12 h1 p8 )_vx END SUBROUTINE eomccsdt3_x3_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vtx + = 6 * P( 3 ) * Sum ( h11 ) * x ( p4 h11 )_x * i1 ( h11 p5 p6 h1 h2 h3 )_vt @@ -8176,7 +8176,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vtx + = 6 * P( 3 ) * Sum ( h11 ) * x ( p4 h11 )_x END SUBROUTINE eomccsdt3_x3_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 p5 h1 h2 h3 )_vt + = -1/6 * P( 6 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i2 ( h11 p5 h3 p7 )_v @@ -8392,7 +8392,7 @@ C i1 ( h11 p4 p5 h1 h2 h3 )_vt + = -1/6 * P( 6 ) * Sum ( p7 ) * t ( p4 p7 h1 RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_5_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 p5 h1 h2 h3 )_vt @@ -8479,7 +8479,7 @@ C i1 ( h11 p4 p5 h1 h2 h3 )_vt RETURN END SUBROUTINE eomccsdt3_x3_5_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p7 )_v + = 1 * v ( h11 p4 h1 p7 )_v @@ -8580,7 +8580,7 @@ C i2 ( h11 p4 h1 p7 )_v + = 1 * v ( h11 p4 h1 p7 )_v RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_5_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p7 )_v @@ -8650,7 +8650,7 @@ C i2 ( h11 p4 h1 p7 )_v END SUBROUTINE eomccsdt3_x3_5_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p7 )_vt + = 1 * Sum ( h8 ) * t ( p4 h8 )_t * v ( h8 h11 h1 p7 )_v @@ -8804,7 +8804,7 @@ C i2 ( h11 p4 h1 p7 )_vt + = 1 * Sum ( h8 ) * t ( p4 h8 )_t * v ( h8 h11 h1 END SUBROUTINE eomccsdt3_x3_5_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 p4 p7 p8 )_v @@ -8958,7 +8958,7 @@ C i2 ( h11 p4 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 p4 p7 END SUBROUTINE eomccsdt3_x3_5_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p7 )_vt + = 1 * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * v ( h9 h11 p7 p8 )_v @@ -9161,7 +9161,7 @@ C i2 ( h11 p4 h1 p7 )_vt + = 1 * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * v ( h END SUBROUTINE eomccsdt3_x3_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 p5 h1 h2 h3 )_ft + = -1/6 * Sum ( p8 ) * t ( p4 p5 p8 h1 h2 h3 )_t * f ( h11 p8 )_f @@ -9339,7 +9339,7 @@ C i1 ( h11 p4 p5 h1 h2 h3 )_ft + = -1/6 * Sum ( p8 ) * t ( p4 p5 p8 h1 h2 h3 END SUBROUTINE eomccsdt3_x3_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i1 ( p5 p6 h3 p7 )_vx @@ -9576,7 +9576,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h END SUBROUTINE eomccsdt3_x3_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( p4 p5 p7 p8 )_v @@ -9729,7 +9729,7 @@ C i1 ( p4 p5 h1 p7 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( p4 p5 p7 p RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_6_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vx @@ -9801,7 +9801,7 @@ C i1 ( p4 p5 h1 p7 )_vx END SUBROUTINE eomccsdt3_x3_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vx + = 1/2 * Sum ( h11 h12 ) * x ( p4 p5 h11 h12 )_x * i2 ( h11 h12 h1 p7 )_v @@ -9963,7 +9963,7 @@ C i1 ( p4 p5 h1 p7 )_vx + = 1/2 * Sum ( h11 h12 ) * x ( p4 p5 h11 h12 )_x * RETURN END SUBROUTINE eomccsdt3_x3_6_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 p7 )_v + = 1 * v ( h11 h12 h1 p7 )_v @@ -10064,7 +10064,7 @@ C i2 ( h11 h12 h1 p7 )_v + = 1 * v ( h11 h12 h1 p7 )_v RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_6_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 p7 )_v @@ -10134,7 +10134,7 @@ C i2 ( h11 h12 h1 p7 )_v END SUBROUTINE eomccsdt3_x3_6_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 h12 p7 p8 )_v @@ -10288,7 +10288,7 @@ C i2 ( h11 h12 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 h12 END SUBROUTINE eomccsdt3_x3_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vx + = -1 * P( 2 ) * Sum ( h8 p9 ) * x ( p4 p9 h1 h8 )_x * v ( h8 p5 p7 p9 )_v @@ -10485,7 +10485,7 @@ C i1 ( p4 p5 h1 p7 )_vx + = -1 * P( 2 ) * Sum ( h8 p9 ) * x ( p4 p9 h1 h8 )_ END SUBROUTINE eomccsdt3_x3_6_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vxt + = 1/2 * Sum ( h8 h9 ) * t ( p4 p5 h8 h9 )_t * i2 ( h8 h9 h1 p7 )_vx @@ -10648,7 +10648,7 @@ C i1 ( p4 p5 h1 p7 )_vxt + = 1/2 * Sum ( h8 h9 ) * t ( p4 p5 h8 h9 )_t * i2 END SUBROUTINE eomccsdt3_x3_6_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h1 p7 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h8 h9 p7 p10 )_v @@ -10801,7 +10801,7 @@ C i2 ( h8 h9 h1 p7 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h8 h9 p7 RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_6_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h1 p7 )_vx @@ -10873,7 +10873,7 @@ C i2 ( h8 h9 h1 p7 )_vx END SUBROUTINE eomccsdt3_x3_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vtx + = -2 * P( 9 ) * Sum ( h11 ) * x ( p4 p5 h1 h11 )_x * i1 ( h11 p6 h2 h3 )_vt @@ -11119,7 +11119,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vtx + = -2 * P( 9 ) * Sum ( h11 ) * x ( p4 p5 h1 END SUBROUTINE eomccsdt3_x3_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_vt + = 1/2 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * i2 ( h8 h11 h2 p7 )_v @@ -11315,7 +11315,7 @@ C i1 ( h11 p4 h1 h2 )_vt + = 1/2 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_7_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_vt @@ -11386,7 +11386,7 @@ C i1 ( h11 p4 h1 h2 )_vt RETURN END SUBROUTINE eomccsdt3_x3_7_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h11 h1 p7 )_v + = 1 * v ( h8 h11 h1 p7 )_v @@ -11487,7 +11487,7 @@ C i2 ( h8 h11 h1 p7 )_v + = 1 * v ( h8 h11 h1 p7 )_v RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_7_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h11 h1 p7 )_v @@ -11557,7 +11557,7 @@ C i2 ( h8 h11 h1 p7 )_v END SUBROUTINE eomccsdt3_x3_7_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h11 h1 p7 )_vt + = -1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h11 p7 p9 )_v @@ -11711,7 +11711,7 @@ C i2 ( h8 h11 h1 p7 )_vt + = -1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h11 p7 END SUBROUTINE eomccsdt3_x3_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_vt + = 1/4 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( h11 p4 p7 p8 )_v @@ -11876,7 +11876,7 @@ C i1 ( h11 p4 h1 h2 )_vt + = 1/4 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( END SUBROUTINE eomccsdt3_x3_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_vtt + = -1/4 * Sum ( h9 ) * t ( p4 h9 )_t * i2 ( h9 h11 h1 h2 )_vt @@ -12030,7 +12030,7 @@ C i1 ( h11 p4 h1 h2 )_vtt + = -1/4 * Sum ( h9 ) * t ( p4 h9 )_t * i2 ( h9 h1 END SUBROUTINE eomccsdt3_x3_7_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h11 h1 h2 )_vt + = -1 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( h9 h11 p7 p8 )_v @@ -12191,7 +12191,7 @@ C i2 ( h9 h11 h1 h2 )_vt + = -1 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_7_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h11 h1 h2 )_vt @@ -12263,7 +12263,7 @@ C i2 ( h9 h11 h1 h2 )_vt END SUBROUTINE eomccsdt3_x3_7_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_vtt + = 1/2 * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i2 ( h11 p7 )_vt @@ -12418,7 +12418,7 @@ C i1 ( h11 p4 h1 h2 )_vtt + = 1/2 * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i2 ( END SUBROUTINE eomccsdt3_x3_7_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p7 )_vt + = 1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h11 p7 p8 )_v @@ -12578,7 +12578,7 @@ C i2 ( h11 p7 )_vt + = 1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h11 p7 p8 RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_7_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p7 )_vt @@ -12634,7 +12634,7 @@ C i2 ( h11 p7 )_vt END SUBROUTINE eomccsdt3_x3_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vtx + = -1/2 * P( 9 ) * Sum ( p11 ) * x ( p4 p11 h1 h2 )_x * i1 ( p5 p6 h3 p11 )_vt @@ -12880,7 +12880,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vtx + = -1/2 * P( 9 ) * Sum ( p11 ) * x ( p4 p11 END SUBROUTINE eomccsdt3_x3_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p11 )_vt + = 1 * Sum ( h7 h8 ) * t ( p4 p5 h7 h8 )_t * i2 ( h7 h8 h1 p11 )_v @@ -13042,7 +13042,7 @@ C i1 ( p4 p5 h1 p11 )_vt + = 1 * Sum ( h7 h8 ) * t ( p4 p5 h7 h8 )_t * i2 ( RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_8_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p11 )_vt @@ -13113,7 +13113,7 @@ C i1 ( p4 p5 h1 p11 )_vt RETURN END SUBROUTINE eomccsdt3_x3_8_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p11 )_v + = 1 * v ( h7 h8 h1 p11 )_v @@ -13214,7 +13214,7 @@ C i2 ( h7 h8 h1 p11 )_v + = 1 * v ( h7 h8 h1 p11 )_v RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_8_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p11 )_v @@ -13284,7 +13284,7 @@ C i2 ( h7 h8 h1 p11 )_v END SUBROUTINE eomccsdt3_x3_8_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p11 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h7 h8 p9 p11 )_v @@ -13438,7 +13438,7 @@ C i2 ( h7 h8 h1 p11 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h7 h8 p9 p END SUBROUTINE eomccsdt3_x3_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p11 )_vt + = 2 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * v ( h8 p5 p7 p11 )_v @@ -13635,7 +13635,7 @@ C i1 ( p4 p5 h1 p11 )_vt + = 2 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_ END SUBROUTINE eomccsdt3_x3_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_fxt + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 h2 h7 )_t * i1 ( h7 h3 )_fx @@ -13831,7 +13831,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_fxt + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h END SUBROUTINE eomccsdt3_x3_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_fx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * f ( h7 p8 )_f @@ -13958,7 +13958,7 @@ C i1 ( h7 h1 )_fx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * f ( h7 p8 )_f RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_9_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_fx diff --git a/src/tce/ccd/GNUmakefile b/src/tce/ccd/GNUmakefile index effa040934..906861b7c0 100644 --- a/src/tce/ccd/GNUmakefile +++ b/src/tce/ccd/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.2 2005-12-20 21:19:39 edo Exp $ +#$Id$ OBJ_OPTIMIZE = ccd_e.o ccd_t2.o diff --git a/src/tce/ccd/ccd_e.F b/src/tce/ccd/ccd_e.F index f876047ae6..f5eedca2f4 100644 --- a/src/tce/ccd/ccd_e.F +++ b/src/tce/ccd/ccd_e.F @@ -1,6 +1,6 @@ SUBROUTINE ccd_e(d_i0,d_t2,d_v2,k_i0_offset,k_t2_offset,k_v2_offse &t) -C $Id: ccd_e.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 p1 p2 )_v @@ -20,7 +20,7 @@ C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 RETURN END SUBROUTINE ccd_e_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: ccd_e.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 p1 p2 )_v diff --git a/src/tce/ccd/ccd_t2.F b/src/tce/ccd/ccd_t2.F index 63efde545b..6cfc4d3387 100644 --- a/src/tce/ccd/ccd_t2.F +++ b/src/tce/ccd/ccd_t2.F @@ -1,6 +1,6 @@ SUBROUTINE ccd_t2(d_f1,d_i0,d_t2,d_v2,k_f1_offset,k_i0_offset,k_t2 &_offset,k_v2_offset) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v @@ -85,7 +85,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( RETURN END SUBROUTINE ccd_t2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v @@ -181,7 +181,7 @@ C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v RETURN END SUBROUTINE ccd_t2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_f @@ -340,7 +340,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * RETURN END SUBROUTINE ccd_t2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_f + = 1 * f ( h5 h1 )_f @@ -422,7 +422,7 @@ C i1 ( h5 h1 )_f + = 1 * f ( h5 h1 )_f RETURN END SUBROUTINE OFFSET_ccd_t2_2_1(l_a_offset,k_a_offset,size) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_f @@ -478,7 +478,7 @@ C i1 ( h5 h1 )_f END SUBROUTINE ccd_t2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_vt + = 1/2 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * v ( h5 h8 p6 p7 )_v @@ -650,7 +650,7 @@ C i1 ( h5 h1 )_vt + = 1/2 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * v ( h5 RETURN END SUBROUTINE ccd_t2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i1 ( p4 p5 )_f @@ -809,7 +809,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * RETURN END SUBROUTINE ccd_t2_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_f + = 1 * f ( p3 p5 )_f @@ -891,7 +891,7 @@ C i1 ( p3 p5 )_f + = 1 * f ( p3 p5 )_f RETURN END SUBROUTINE OFFSET_ccd_t2_3_1(l_a_offset,k_a_offset,size) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_f @@ -947,7 +947,7 @@ C i1 ( p3 p5 )_f END SUBROUTINE ccd_t2_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_vt + = -1/2 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * v ( h7 h8 p5 p6 )_v @@ -1119,7 +1119,7 @@ C i1 ( p3 p5 )_vt + = -1/2 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * v ( h7 RETURN END SUBROUTINE ccd_t2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1/2 * Sum ( h9 h7 ) * t ( p3 p4 h7 h9 )_t * i1 ( h7 h9 h1 h2 )_v @@ -1276,7 +1276,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1/2 * Sum ( h9 h7 ) * t ( p3 p4 h7 h9 )_t * i1 RETURN END SUBROUTINE ccd_t2_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h9 h1 h2 )_v + = -1 * v ( h7 h9 h1 h2 )_v @@ -1372,7 +1372,7 @@ C i1 ( h7 h9 h1 h2 )_v + = -1 * v ( h7 h9 h1 h2 )_v RETURN END SUBROUTINE OFFSET_ccd_t2_4_1(l_a_offset,k_a_offset,size) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h9 h1 h2 )_v @@ -1442,7 +1442,7 @@ C i1 ( h7 h9 h1 h2 )_v END SUBROUTINE ccd_t2_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h9 h1 h2 )_vt + = -1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( h7 h9 p5 p6 )_v @@ -1600,7 +1600,7 @@ C i1 ( h7 h9 h1 h2 )_vt + = -1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( RETURN END SUBROUTINE ccd_t2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i1 ( h6 p4 h2 p5 )_v @@ -1797,7 +1797,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_ RETURN END SUBROUTINE ccd_t2_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_v + = 1 * v ( h6 p3 h1 p5 )_v @@ -1896,7 +1896,7 @@ C i1 ( h6 p3 h1 p5 )_v + = 1 * v ( h6 p3 h1 p5 )_v RETURN END SUBROUTINE OFFSET_ccd_t2_5_1(l_a_offset,k_a_offset,size) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_v @@ -1966,7 +1966,7 @@ C i1 ( h6 p3 h1 p5 )_v END SUBROUTINE ccd_t2_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_vt + = -1/2 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * v ( h6 h8 p5 p7 )_v @@ -2165,7 +2165,7 @@ C i1 ( h6 p3 h1 p5 )_vt + = -1/2 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * v ( RETURN END SUBROUTINE ccd_t2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( p3 p4 p5 p6 )_v diff --git a/src/tce/ccsd_yr/GNUmakefile b/src/tce/ccsd_yr/GNUmakefile index 2235410807..29128659ed 100644 --- a/src/tce/ccsd_yr/GNUmakefile +++ b/src/tce/ccsd_yr/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.2 2007-09-13 17:26:27 jhammond Exp $ +#$Id$ OBJ_OPTIMIZE = \ ccsd_y_o1.o \ diff --git a/src/tce/ccsd_yr/alpha_2_yr.F b/src/tce/ccsd_yr/alpha_2_yr.F index ff963835cf..84b2966424 100644 --- a/src/tce/ccsd_yr/alpha_2_yr.F +++ b/src/tce/ccsd_yr/alpha_2_yr.F @@ -1,6 +1,6 @@ SUBROUTINE alpha_2_yr(d_i0,d_o1,d_t1,d_t2,d_y1,d_y2,k_i0_offset,k_ &o1_offset,k_t1_offset,k_t2_offset,k_y1_offset,k_y2_offset) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yo + = 1 * Sum ( h4 p1 ) * y ( h4 p1 )_y * i1 ( p1 h4 )_o @@ -120,7 +120,7 @@ C i1 ( p2 p1 )_yt + = 1 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * y ( h END SUBROUTINE alpha_2_yr_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yo + = 1 * Sum ( h4 p1 ) * y ( h4 p1 )_y * i1 ( p1 h4 )_o @@ -233,7 +233,7 @@ C i0 ( )_yo + = 1 * Sum ( h4 p1 ) * y ( h4 p1 )_y * i1 ( p1 h4 )_o RETURN END SUBROUTINE alpha_2_yr_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 h4 )_o + = 1 * o ( p1 h4 )_o @@ -317,7 +317,7 @@ C i1 ( p1 h4 )_o + = 1 * o ( p1 h4 )_o RETURN END SUBROUTINE OFFSET_alpha_2_yr_1_1(l_a_offset,k_a_offset,size) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 h4 )_o @@ -373,7 +373,7 @@ C i1 ( p1 h4 )_o END SUBROUTINE alpha_2_yr_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 h4 )_ot + = 1 * Sum ( p2 ) * o ( p1 p2 )_o * t ( p2 h4 )_t @@ -501,7 +501,7 @@ C i1 ( p1 h4 )_ot + = 1 * Sum ( p2 ) * o ( p1 p2 )_o * t ( p2 h4 )_t END SUBROUTINE alpha_2_yr_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yto + = -1 * Sum ( h2 h1 ) * o ( h1 h2 )_o * i1 ( h2 h1 )_yt @@ -615,7 +615,7 @@ C i0 ( )_yto + = -1 * Sum ( h2 h1 ) * o ( h1 h2 )_o * i1 ( h2 h1 )_yt END SUBROUTINE alpha_2_yr_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -742,7 +742,7 @@ C i1 ( h2 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y RETURN END SUBROUTINE OFFSET_alpha_2_yr_2_1(l_a_offset,k_a_offset,size) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt @@ -798,7 +798,7 @@ C i1 ( h2 h1 )_yt END SUBROUTINE alpha_2_yr_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 h5 p3 p4 )_y @@ -974,7 +974,7 @@ C i1 ( h2 h1 )_yt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 END SUBROUTINE alpha_2_yr_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yto + = 1 * Sum ( p7 h8 ) * o ( h8 p7 )_o * i1 ( p7 h8 )_yt @@ -1088,7 +1088,7 @@ C i0 ( )_yto + = 1 * Sum ( p7 h8 ) * o ( h8 p7 )_o * i1 ( p7 h8 )_yt END SUBROUTINE alpha_2_yr_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 h8 )_yt + = 1 * Sum ( h4 p3 ) * t ( p3 p7 h4 h8 )_t * y ( h4 p3 )_y @@ -1249,7 +1249,7 @@ C i1 ( p7 h8 )_yt + = 1 * Sum ( h4 p3 ) * t ( p3 p7 h4 h8 )_t * y ( h4 p3 )_ RETURN END SUBROUTINE OFFSET_alpha_2_yr_3_1(l_a_offset,k_a_offset,size) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 h8 )_yt @@ -1305,7 +1305,7 @@ C i1 ( p7 h8 )_yt END SUBROUTINE alpha_2_yr_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 h8 )_ytt + = -1 * Sum ( h1 ) * t ( p7 h1 )_t * i2 ( h1 h8 )_yt @@ -1433,7 +1433,7 @@ C i1 ( p7 h8 )_ytt + = -1 * Sum ( h1 ) * t ( p7 h1 )_t * i2 ( h1 h8 )_yt END SUBROUTINE alpha_2_yr_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h8 )_yt + = 1 * Sum ( p3 ) * t ( p3 h8 )_t * y ( h1 p3 )_y @@ -1560,7 +1560,7 @@ C i2 ( h1 h8 )_yt + = 1 * Sum ( p3 ) * t ( p3 h8 )_t * y ( h1 p3 )_y RETURN END SUBROUTINE OFFSET_alpha_2_yr_3_2_1(l_a_offset,k_a_offset,size) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h8 )_yt @@ -1616,7 +1616,7 @@ C i2 ( h1 h8 )_yt END SUBROUTINE alpha_2_yr_3_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h8 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h8 )_t * y ( h1 h5 p3 p4 )_y @@ -1792,7 +1792,7 @@ C i2 ( h1 h8 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h8 )_t * y ( h1 END SUBROUTINE alpha_2_yr_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 h8 )_ytt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p3 p7 h4 h5 )_t * i2 ( h4 h5 h8 p3 )_yt @@ -1960,7 +1960,7 @@ C i1 ( p7 h8 )_ytt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p3 p7 h4 h5 )_t * i2 ( h END SUBROUTINE alpha_2_yr_3_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h8 p3 )_yt + = -1 * Sum ( p6 ) * t ( p6 h8 )_t * y ( h4 h5 p3 p6 )_y @@ -2113,7 +2113,7 @@ C i2 ( h4 h5 h8 p3 )_yt + = -1 * Sum ( p6 ) * t ( p6 h8 )_t * y ( h4 h5 p3 p RETURN END SUBROUTINE OFFSET_alpha_2_yr_3_3_1(l_a_offset,k_a_offset,size) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h8 p3 )_yt @@ -2185,7 +2185,7 @@ C i2 ( h4 h5 h8 p3 )_yt END SUBROUTINE alpha_2_yr_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yto + = 1/2 * Sum ( p2 p1 ) * o ( p1 p2 )_o * i1 ( p2 p1 )_yt @@ -2299,7 +2299,7 @@ C i0 ( )_yto + = 1/2 * Sum ( p2 p1 ) * o ( p1 p2 )_o * i1 ( p2 p1 )_yt END SUBROUTINE alpha_2_yr_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p1 )_yt + = 1 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * y ( h4 h5 p1 p3 )_y @@ -2474,7 +2474,7 @@ C i1 ( p2 p1 )_yt + = 1 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * y ( h4 h5 RETURN END SUBROUTINE OFFSET_alpha_2_yr_4_1(l_a_offset,k_a_offset,size) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p1 )_yt diff --git a/src/tce/ccsd_yr/ccsd_lr_d1_hh.F b/src/tce/ccsd_yr/ccsd_lr_d1_hh.F index 4e4b2a6e00..04f8e4a646 100644 --- a/src/tce/ccsd_yr/ccsd_lr_d1_hh.F +++ b/src/tce/ccsd_yr/ccsd_lr_d1_hh.F @@ -1,7 +1,7 @@ SUBROUTINE ccsd_lr_d1_hh(d_i0,d_t1,d_tr1,d_tr2,d_y1,d_y2,d_yr1,k_i &0_offset,k_t1_offset,k_tr1_offset,k_tr2_offset,k_y1_offset,k_y2_of &fset,k_yr1_offset) -C $Id: ccsd_lr_d1_hh.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_ytr + = -1 * Sum ( p3 ) * tr ( p3 h1 )_tr * y ( h2 p3 )_y @@ -37,7 +37,7 @@ C i0 ( h2 h1 )_yrt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * yr ( h2 p3 )_yr END SUBROUTINE ccsd_lr_d1_hh_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_lr_d1_hh.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_ytr + = -1 * Sum ( p3 ) * tr ( p3 h1 )_tr * y ( h2 p3 )_y @@ -165,7 +165,7 @@ C i0 ( h2 h1 )_ytr + = -1 * Sum ( p3 ) * tr ( p3 h1 )_tr * y ( h2 p3 )_y END SUBROUTINE ccsd_lr_d1_hh_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_lr_d1_hh.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_ytr + = -1/2 * Sum ( h5 p3 p4 ) * tr ( p3 p4 h1 h5 )_tr * y ( h2 h5 p3 p4 )_y @@ -341,7 +341,7 @@ C i0 ( h2 h1 )_ytr + = -1/2 * Sum ( h5 p3 p4 ) * tr ( p3 p4 h1 h5 )_tr * y ( END SUBROUTINE ccsd_lr_d1_hh_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_lr_d1_hh.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yrt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * yr ( h2 p3 )_yr diff --git a/src/tce/ccsd_yr/ccsd_lr_d1_hp.F b/src/tce/ccsd_yr/ccsd_lr_d1_hp.F index 29a2800f69..292b41de76 100644 --- a/src/tce/ccsd_yr/ccsd_lr_d1_hp.F +++ b/src/tce/ccsd_yr/ccsd_lr_d1_hp.F @@ -1,7 +1,7 @@ SUBROUTINE ccsd_lr_d1_hp(d_i0,d_t1,d_t2,d_tr1,d_tr2,d_y1,d_y2,d_yr &1,d_yr2,k_i0_offset,k_t1_offset,k_t2_offset,k_tr1_offset,k_tr2_off &set,k_y1_offset,k_y2_offset,k_yr1_offset,k_yr2_offset) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tr + = 1 * tr ( p2 h1 )_tr @@ -108,7 +108,7 @@ C i0 ( p2 h1 )_yrt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * yr ( h4 p3 RETURN END SUBROUTINE ccsd_lr_d1_hp_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tr + = 1 * tr ( p2 h1 )_tr @@ -193,7 +193,7 @@ C i0 ( p2 h1 )_tr + = 1 * tr ( p2 h1 )_tr END SUBROUTINE ccsd_lr_d1_hp_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_ytr + = 1 * Sum ( h4 p3 ) * tr ( p2 p3 h1 h4 )_tr * y ( h4 p3 )_y @@ -355,7 +355,7 @@ C i0 ( p2 h1 )_ytr + = 1 * Sum ( h4 p3 ) * tr ( p2 p3 h1 h4 )_tr * y ( h4 p3 END SUBROUTINE ccsd_lr_d1_hp_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_ytrt + = -1 * Sum ( h7 ) * t ( p2 h7 )_t * i1 ( h7 h1 )_ytr @@ -483,7 +483,7 @@ C i0 ( p2 h1 )_ytrt + = -1 * Sum ( h7 ) * t ( p2 h7 )_t * i1 ( h7 h1 )_ytr END SUBROUTINE ccsd_lr_d1_hp_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_ytr + = 1 * Sum ( p4 ) * tr ( p4 h1 )_tr * y ( h7 p4 )_y @@ -610,7 +610,7 @@ C i1 ( h7 h1 )_ytr + = 1 * Sum ( p4 ) * tr ( p4 h1 )_tr * y ( h7 p4 )_y RETURN END SUBROUTINE OFFSET_ccsd_lr_d1_hp_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_ytr @@ -666,7 +666,7 @@ C i1 ( h7 h1 )_ytr END SUBROUTINE ccsd_lr_d1_hp_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_ytr + = -1/2 * Sum ( h6 p4 p5 ) * tr ( p4 p5 h1 h6 )_tr * y ( h6 h7 p4 p5 )_y @@ -842,7 +842,7 @@ C i1 ( h7 h1 )_ytr + = -1/2 * Sum ( h6 p4 p5 ) * tr ( p4 p5 h1 h6 )_tr * y ( END SUBROUTINE ccsd_lr_d1_hp_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_yrt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * yr ( h5 h7 p3 p4 )_yr @@ -1018,7 +1018,7 @@ C i1 ( h7 h1 )_yrt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * yr ( END SUBROUTINE ccsd_lr_d1_hp_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yttr + = -1 * Sum ( h7 ) * tr ( p2 h7 )_tr * i1 ( h7 h1 )_yt @@ -1146,7 +1146,7 @@ C i0 ( p2 h1 )_yttr + = -1 * Sum ( h7 ) * tr ( p2 h7 )_tr * i1 ( h7 h1 )_yt END SUBROUTINE ccsd_lr_d1_hp_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h7 p3 )_y @@ -1273,7 +1273,7 @@ C i1 ( h7 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h7 p3 )_y RETURN END SUBROUTINE OFFSET_ccsd_lr_d1_hp_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_yt @@ -1329,7 +1329,7 @@ C i1 ( h7 h1 )_yt END SUBROUTINE ccsd_lr_d1_hp_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h5 h7 p3 p4 )_y @@ -1505,7 +1505,7 @@ C i1 ( h7 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h5 END SUBROUTINE ccsd_lr_d1_hp_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yttr + = 1/2 * Sum ( h5 h6 p4 ) * tr ( p2 p4 h5 h6 )_tr * i1 ( h5 h6 h1 p4 )_yt @@ -1673,7 +1673,7 @@ C i0 ( p2 h1 )_yttr + = 1/2 * Sum ( h5 h6 p4 ) * tr ( p2 p4 h5 h6 )_tr * i1 END SUBROUTINE ccsd_lr_d1_hp_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 p4 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h5 h6 p3 p4 )_y @@ -1826,7 +1826,7 @@ C i1 ( h5 h6 h1 p4 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h5 h6 p3 p RETURN END SUBROUTINE OFFSET_ccsd_lr_d1_hp_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 p4 )_yt @@ -1898,7 +1898,7 @@ C i1 ( h5 h6 h1 p4 )_yt END SUBROUTINE ccsd_lr_d1_hp_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_ytrt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( h4 h5 h1 p3 )_ytr @@ -2066,7 +2066,7 @@ C i0 ( p2 h1 )_ytrt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( END SUBROUTINE ccsd_lr_d1_hp_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_ytr + = -1 * Sum ( p6 ) * tr ( p6 h1 )_tr * y ( h4 h5 p3 p6 )_y @@ -2219,7 +2219,7 @@ C i1 ( h4 h5 h1 p3 )_ytr + = -1 * Sum ( p6 ) * tr ( p6 h1 )_tr * y ( h4 h5 p RETURN END SUBROUTINE OFFSET_ccsd_lr_d1_hp_6_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_ytr @@ -2291,7 +2291,7 @@ C i1 ( h4 h5 h1 p3 )_ytr END SUBROUTINE ccsd_lr_d1_hp_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_yrt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * yr ( h4 h5 p3 p6 )_yr @@ -2445,7 +2445,7 @@ C i1 ( h4 h5 h1 p3 )_yrt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * yr ( h4 h5 p3 END SUBROUTINE ccsd_lr_d1_hp_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yrt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * yr ( h4 p3 )_yr diff --git a/src/tce/ccsd_yr/ccsd_lr_d1_ph.F b/src/tce/ccsd_yr/ccsd_lr_d1_ph.F index 109c52b143..9461a6e343 100644 --- a/src/tce/ccsd_yr/ccsd_lr_d1_ph.F +++ b/src/tce/ccsd_yr/ccsd_lr_d1_ph.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_lr_d1_ph(d_i0,d_t1,d_yr1,k_i0_offset,k_t1_offset,k &_yr1_offset) -C $Id: ccsd_lr_d1_ph.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yr + = 1 * yr ( h2 p1 )_yr @@ -38,7 +38,7 @@ C i1 ( h4 h2 )_yrt + = 1 * Sum ( p3 ) * t ( p3 h2 )_t * yr ( h4 p3 )_yr RETURN END SUBROUTINE ccsd_lr_d1_ph_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_lr_d1_ph.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yr + = 1 * yr ( h2 p1 )_yr @@ -123,7 +123,7 @@ C i0 ( h2 p1 )_yr + = 1 * yr ( h2 p1 )_yr END SUBROUTINE ccsd_lr_d1_ph_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_lr_d1_ph.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h2 )_yrtt + = -1 * Sum ( h4 ) * t ( p1 h4 )_t * i1 ( h4 h2 )_yrt @@ -251,7 +251,7 @@ C i0 ( p1 h2 )_yrtt + = -1 * Sum ( h4 ) * t ( p1 h4 )_t * i1 ( h4 h2 )_yrt END SUBROUTINE ccsd_lr_d1_ph_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_lr_d1_ph.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h2 )_yrt + = 1 * Sum ( p3 ) * t ( p3 h2 )_t * yr ( h4 p3 )_yr @@ -378,7 +378,7 @@ C i1 ( h4 h2 )_yrt + = 1 * Sum ( p3 ) * t ( p3 h2 )_t * yr ( h4 p3 )_yr RETURN END SUBROUTINE OFFSET_ccsd_lr_d1_ph_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_lr_d1_ph.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h2 )_yrt diff --git a/src/tce/ccsd_yr/ccsd_lr_d1_pp.F b/src/tce/ccsd_yr/ccsd_lr_d1_pp.F index 466c97c370..200ef54c9f 100644 --- a/src/tce/ccsd_yr/ccsd_lr_d1_pp.F +++ b/src/tce/ccsd_yr/ccsd_lr_d1_pp.F @@ -1,7 +1,7 @@ SUBROUTINE ccsd_lr_d1_pp(d_i0,d_t1,d_t2,d_tr1,d_tr2,d_y1,d_y2,d_yr &1,d_yr2,k_i0_offset,k_t1_offset,k_t2_offset,k_tr1_offset,k_tr2_off &set,k_y1_offset,k_y2_offset,k_yr1_offset,k_yr2_offset) -C $Id: ccsd_lr_d1_pp.F,v 1.1 2008-01-15 03:21:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_ytr + = 1 * Sum ( h3 ) * tr ( p1 h3 )_tr * y ( h3 p2 )_y @@ -44,7 +44,7 @@ C i0 ( p1 p2 )_yrt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * yr ( h END SUBROUTINE ccsd_lr_d1_pp_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_lr_d1_pp.F,v 1.1 2008-01-15 03:21:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_ytr + = 1 * Sum ( h3 ) * tr ( p1 h3 )_tr * y ( h3 p2 )_y @@ -172,7 +172,7 @@ C i0 ( p1 p2 )_ytr + = 1 * Sum ( h3 ) * tr ( p1 h3 )_tr * y ( h3 p2 )_y END SUBROUTINE ccsd_lr_d1_pp_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_lr_d1_pp.F,v 1.1 2008-01-15 03:21:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_ytr + = 1/2 * Sum ( h4 h5 p3 ) * tr ( p1 p3 h4 h5 )_tr * y ( h4 h5 p2 p3 )_y @@ -348,7 +348,7 @@ C i0 ( p1 p2 )_ytr + = 1/2 * Sum ( h4 h5 p3 ) * tr ( p1 p3 h4 h5 )_tr * y ( END SUBROUTINE ccsd_lr_d1_pp_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_lr_d1_pp.F,v 1.1 2008-01-15 03:21:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yrt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * yr ( h3 p2 )_yr @@ -476,7 +476,7 @@ C i0 ( p1 p2 )_yrt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * yr ( h3 p2 )_yr END SUBROUTINE ccsd_lr_d1_pp_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_lr_d1_pp.F,v 1.1 2008-01-15 03:21:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yrt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * yr ( h4 h5 p2 p3 )_yr diff --git a/src/tce/ccsd_yr/ccsd_y_o1.F b/src/tce/ccsd_yr/ccsd_y_o1.F index 365b6055c8..87530c7fc5 100644 --- a/src/tce/ccsd_yr/ccsd_y_o1.F +++ b/src/tce/ccsd_yr/ccsd_y_o1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_y_o1(d_i0,d_o1,d_t1,d_t2,d_y1,d_y2,k_i0_offset,k_o &1_offset,k_t1_offset,k_t2_offset,k_y1_offset,k_y2_offset) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_o + = 1 * o ( h2 p1 )_o @@ -115,7 +115,7 @@ C i1 ( h2 p4 h5 h6 )_ot + = -1 * Sum ( p3 ) * o ( h2 p3 )_o * t ( p3 p4 RETURN END SUBROUTINE ccsd_y_o1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_o + = 1 * o ( h2 p1 )_o @@ -198,7 +198,7 @@ C i0 ( h2 p1 )_o + = 1 * o ( h2 p1 )_o END SUBROUTINE ccsd_y_o1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yo + = -1 * Sum ( h5 ) * y ( h5 p1 )_y * i1 ( h2 h5 )_o @@ -322,7 +322,7 @@ C i0 ( h2 p1 )_yo + = -1 * Sum ( h5 ) * y ( h5 p1 )_y * i1 ( h2 h5 )_o RETURN END SUBROUTINE ccsd_y_o1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h5 )_o + = 1 * o ( h2 h5 )_o @@ -404,7 +404,7 @@ C i1 ( h2 h5 )_o + = 1 * o ( h2 h5 )_o RETURN END SUBROUTINE OFFSET_ccsd_y_o1_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h5 )_o @@ -460,7 +460,7 @@ C i1 ( h2 h5 )_o END SUBROUTINE ccsd_y_o1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h5 )_ot + = 1 * Sum ( p3 ) * o ( h2 p3 )_o * t ( p3 h5 )_t @@ -586,7 +586,7 @@ C i1 ( h2 h5 )_ot + = 1 * Sum ( p3 ) * o ( h2 p3 )_o * t ( p3 h5 )_t END SUBROUTINE ccsd_y_o1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yo + = 1 * Sum ( p3 ) * o ( p3 p1 )_o * y ( h2 p3 )_y @@ -711,7 +711,7 @@ C i0 ( h2 p1 )_yo + = 1 * Sum ( p3 ) * o ( p3 p1 )_o * y ( h2 p3 )_y END SUBROUTINE ccsd_y_o1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yo + = 1 * Sum ( h7 p5 ) * y ( h2 h7 p1 p5 )_y * i1 ( p5 h7 )_o @@ -869,7 +869,7 @@ C i0 ( h2 p1 )_yo + = 1 * Sum ( h7 p5 ) * y ( h2 h7 p1 p5 )_y * i1 ( p5 h7 ) RETURN END SUBROUTINE ccsd_y_o1_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 h7 )_o + = 1 * o ( p5 h7 )_o @@ -951,7 +951,7 @@ C i1 ( p5 h7 )_o + = 1 * o ( p5 h7 )_o RETURN END SUBROUTINE OFFSET_ccsd_y_o1_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 h7 )_o @@ -1007,7 +1007,7 @@ C i1 ( p5 h7 )_o END SUBROUTINE ccsd_y_o1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 h7 )_ot + = -1 * Sum ( h4 ) * t ( p5 h4 )_t * i2 ( h4 h7 )_o @@ -1132,7 +1132,7 @@ C i1 ( p5 h7 )_ot + = -1 * Sum ( h4 ) * t ( p5 h4 )_t * i2 ( h4 h7 )_o RETURN END SUBROUTINE ccsd_y_o1_4_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h7 )_o + = 1 * o ( h4 h7 )_o @@ -1216,7 +1216,7 @@ C i2 ( h4 h7 )_o + = 1 * o ( h4 h7 )_o RETURN END SUBROUTINE OFFSET_ccsd_y_o1_4_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h7 )_o @@ -1272,7 +1272,7 @@ C i2 ( h4 h7 )_o END SUBROUTINE ccsd_y_o1_4_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h7 )_ot + = 1 * Sum ( p3 ) * o ( h4 p3 )_o * t ( p3 h7 )_t @@ -1400,7 +1400,7 @@ C i2 ( h4 h7 )_ot + = 1 * Sum ( p3 ) * o ( h4 p3 )_o * t ( p3 h7 )_t END SUBROUTINE ccsd_y_o1_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 h7 )_ot + = 1 * Sum ( p4 ) * o ( p5 p4 )_o * t ( p4 h7 )_t @@ -1526,7 +1526,7 @@ C i1 ( p5 h7 )_ot + = 1 * Sum ( p4 ) * o ( p5 p4 )_o * t ( p4 h7 )_t END SUBROUTINE ccsd_y_o1_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 h7 )_ot + = 1 * Sum ( h3 p4 ) * o ( h3 p4 )_o * t ( p4 p5 h3 h7 )_t @@ -1685,7 +1685,7 @@ C i1 ( p5 h7 )_ot + = 1 * Sum ( h3 p4 ) * o ( h3 p4 )_o * t ( p4 p5 h3 h7 )_ END SUBROUTINE ccsd_y_o1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yto + = -1 * Sum ( h3 ) * o ( h3 p1 )_o * i1 ( h2 h3 )_yt @@ -1810,7 +1810,7 @@ C i0 ( h2 p1 )_yto + = -1 * Sum ( h3 ) * o ( h3 p1 )_o * i1 ( h2 h3 )_yt END SUBROUTINE ccsd_y_o1_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_yt + = 1 * Sum ( p4 ) * t ( p4 h3 )_t * y ( h2 p4 )_y @@ -1935,7 +1935,7 @@ C i1 ( h2 h3 )_yt + = 1 * Sum ( p4 ) * t ( p4 h3 )_t * y ( h2 p4 )_y RETURN END SUBROUTINE OFFSET_ccsd_y_o1_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_yt @@ -1991,7 +1991,7 @@ C i1 ( h2 h3 )_yt END SUBROUTINE ccsd_y_o1_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_yt + = 1/2 * Sum ( h6 p4 p5 ) * t ( p4 p5 h3 h6 )_t * y ( h2 h6 p4 p5 )_y @@ -2165,7 +2165,7 @@ C i1 ( h2 h3 )_yt + = 1/2 * Sum ( h6 p4 p5 ) * t ( p4 p5 h3 h6 )_t * y ( h2 END SUBROUTINE ccsd_y_o1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_oty + = 1/2 * Sum ( p4 h5 h6 ) * y ( h5 h6 p1 p4 )_y * i1 ( h2 p4 h5 h6 )_ot @@ -2328,7 +2328,7 @@ C i0 ( h2 p1 )_oty + = 1/2 * Sum ( p4 h5 h6 ) * y ( h5 h6 p1 p4 )_y * i1 ( h END SUBROUTINE ccsd_y_o1_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p4 h5 h6 )_ot + = -1 * Sum ( p3 ) * o ( h2 p3 )_o * t ( p3 p4 h5 h6 )_t @@ -2479,7 +2479,7 @@ C i1 ( h2 p4 h5 h6 )_ot + = -1 * Sum ( p3 ) * o ( h2 p3 )_o * t ( p3 p4 h5 h RETURN END SUBROUTINE OFFSET_ccsd_y_o1_6_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p4 h5 h6 )_ot diff --git a/src/tce/ccsd_yr/ccsd_y_o2.F b/src/tce/ccsd_yr/ccsd_y_o2.F index 82c1a0386f..f4a11d6458 100644 --- a/src/tce/ccsd_yr/ccsd_y_o2.F +++ b/src/tce/ccsd_yr/ccsd_y_o2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_y_o2(d_i0,d_o1,d_t1,d_y1,d_y2,k_i0_offset,k_o1_off &set,k_t1_offset,k_y1_offset,k_y2_offset) -C $Id: ccsd_y_o2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yo + = 1 * P( 4 ) * o ( h3 p1 )_o * y ( h4 p2 )_y @@ -62,7 +62,7 @@ C i1 ( h3 h4 h5 p1 )_yt + = -1 * Sum ( p6 ) * t ( p6 h5 )_t * y ( h3 h4 END SUBROUTINE ccsd_y_o2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_y_o2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yo + = 1 * P( 4 ) * o ( h3 p1 )_o * y ( h4 p2 )_y @@ -221,7 +221,7 @@ C i0 ( h3 h4 p1 p2 )_yo + = 1 * P( 4 ) * o ( h3 p1 )_o * y ( h4 p2 )_y END SUBROUTINE ccsd_y_o2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_y_o2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yo + = -1 * P( 2 ) * Sum ( h7 ) * y ( h3 h7 p1 p2 )_y * i1 ( h4 h7 )_o @@ -382,7 +382,7 @@ C i0 ( h3 h4 p1 p2 )_yo + = -1 * P( 2 ) * Sum ( h7 ) * y ( h3 h7 p1 p2 )_y * RETURN END SUBROUTINE ccsd_y_o2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_y_o2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h7 )_o + = 1 * o ( h3 h7 )_o @@ -464,7 +464,7 @@ C i1 ( h3 h7 )_o + = 1 * o ( h3 h7 )_o RETURN END SUBROUTINE OFFSET_ccsd_y_o2_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_o2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h7 )_o @@ -520,7 +520,7 @@ C i1 ( h3 h7 )_o END SUBROUTINE ccsd_y_o2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_o2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h7 )_ot + = 1 * Sum ( p5 ) * o ( h3 p5 )_o * t ( p5 h7 )_t @@ -646,7 +646,7 @@ C i1 ( h3 h7 )_ot + = 1 * Sum ( p5 ) * o ( h3 p5 )_o * t ( p5 h7 )_t END SUBROUTINE ccsd_y_o2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_y_o2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yo + = -1 * P( 2 ) * Sum ( p5 ) * o ( p5 p1 )_o * y ( h3 h4 p2 p5 )_y @@ -807,7 +807,7 @@ C i0 ( h3 h4 p1 p2 )_yo + = -1 * P( 2 ) * Sum ( p5 ) * o ( p5 p1 )_o * y ( h END SUBROUTINE ccsd_y_o2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_y_o2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yto + = -1 * P( 2 ) * Sum ( h5 ) * o ( h5 p1 )_o * i1 ( h3 h4 h5 p2 )_yt @@ -958,7 +958,7 @@ C i0 ( h3 h4 p1 p2 )_yto + = -1 * P( 2 ) * Sum ( h5 ) * o ( h5 p1 )_o * i1 ( END SUBROUTINE ccsd_y_o2_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_o2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h5 p1 )_yt + = -1 * Sum ( p6 ) * t ( p6 h5 )_t * y ( h3 h4 p1 p6 )_y @@ -1109,7 +1109,7 @@ C i1 ( h3 h4 h5 p1 )_yt + = -1 * Sum ( p6 ) * t ( p6 h5 )_t * y ( h3 h4 p1 p RETURN END SUBROUTINE OFFSET_ccsd_y_o2_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_o2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h5 p1 )_yt diff --git a/src/tce/ccsd_yr/ccsd_y_tr1.F b/src/tce/ccsd_yr/ccsd_y_tr1.F index 77ffe0e619..d3c361bdcf 100644 --- a/src/tce/ccsd_yr/ccsd_y_tr1.F +++ b/src/tce/ccsd_yr/ccsd_y_tr1.F @@ -1,7 +1,7 @@ SUBROUTINE ccsd_y_tr1(d_f1,d_i0,d_t1,d_t2,d_v2,d_x1,d_x2,d_y1,d_y2 &,k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_v2_offset,k_x1_ &offset,k_x2_offset,k_y1_offset,k_y2_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_xv + = 1 * Sum ( p9 h10 ) * i1 ( p9 h10 )_x * v ( h2 h10 p1 p9 )_v @@ -787,7 +787,7 @@ C i2 ( h2 h7 h11 p8 )_yt + = 1 * Sum ( p3 ) * t ( p3 h11 )_t * y ( h END SUBROUTINE ccsd_y_tr1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_xv + = 1 * Sum ( p9 h10 ) * i1 ( p9 h10 )_x * v ( h2 h10 p1 p9 )_v @@ -944,7 +944,7 @@ C i0 ( h2 p1 )_xv + = 1 * Sum ( p9 h10 ) * i1 ( p9 h10 )_x * v ( h2 h10 p1 p RETURN END SUBROUTINE ccsd_y_tr1_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h10 )_x + = 1 * x ( p9 h10 )_x @@ -1028,7 +1028,7 @@ C i1 ( p9 h10 )_x + = 1 * x ( p9 h10 )_x RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h10 )_x @@ -1084,7 +1084,7 @@ C i1 ( p9 h10 )_x END SUBROUTINE ccsd_y_tr1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h10 )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 p9 h6 h10 )_x * y ( h6 p5 )_y @@ -1246,7 +1246,7 @@ C i1 ( p9 h10 )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 p9 h6 h10 )_x * y ( h6 p5 END SUBROUTINE ccsd_y_tr1_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h10 )_yxt + = -1 * Sum ( h4 ) * t ( p9 h4 )_t * i2 ( h4 h10 )_yx @@ -1374,7 +1374,7 @@ C i1 ( p9 h10 )_yxt + = -1 * Sum ( h4 ) * t ( p9 h4 )_t * i2 ( h4 h10 )_yx END SUBROUTINE ccsd_y_tr1_1_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h10 )_yx + = 1 * Sum ( p6 ) * x ( p6 h10 )_x * y ( h4 p6 )_y @@ -1501,7 +1501,7 @@ C i2 ( h4 h10 )_yx + = 1 * Sum ( p6 ) * x ( p6 h10 )_x * y ( h4 p6 )_y RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_1_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h10 )_yx @@ -1557,7 +1557,7 @@ C i2 ( h4 h10 )_yx END SUBROUTINE ccsd_y_tr1_1_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h10 )_yx + = -1/2 * Sum ( h8 p6 p7 ) * x ( p6 p7 h8 h10 )_x * y ( h4 h8 p6 p7 )_y @@ -1733,7 +1733,7 @@ C i2 ( h4 h10 )_yx + = -1/2 * Sum ( h8 p6 p7 ) * x ( p6 p7 h8 h10 )_x * y ( END SUBROUTINE ccsd_y_tr1_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h10 )_ytx + = -1 * Sum ( h7 ) * x ( p9 h7 )_x * i2 ( h7 h10 )_yt @@ -1861,7 +1861,7 @@ C i1 ( p9 h10 )_ytx + = -1 * Sum ( h7 ) * x ( p9 h7 )_x * i2 ( h7 h10 )_yt END SUBROUTINE ccsd_y_tr1_1_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h10 )_yt + = 1 * Sum ( p3 ) * t ( p3 h10 )_t * y ( h7 p3 )_y @@ -1988,7 +1988,7 @@ C i2 ( h7 h10 )_yt + = 1 * Sum ( p3 ) * t ( p3 h10 )_t * y ( h7 p3 )_y RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_1_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h10 )_yt @@ -2044,7 +2044,7 @@ C i2 ( h7 h10 )_yt END SUBROUTINE ccsd_y_tr1_1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h10 )_yt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h10 )_t * y ( h5 h7 p3 p4 )_y @@ -2220,7 +2220,7 @@ C i2 ( h7 h10 )_yt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h10 )_t * y ( h END SUBROUTINE ccsd_y_tr1_1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h10 )_ytx + = -1/2 * Sum ( h7 h8 p6 ) * x ( p6 p9 h7 h8 )_x * i2 ( h7 h8 h10 p6 )_yt @@ -2388,7 +2388,7 @@ C i1 ( p9 h10 )_ytx + = -1/2 * Sum ( h7 h8 p6 ) * x ( p6 p9 h7 h8 )_x * i2 ( END SUBROUTINE ccsd_y_tr1_1_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h10 p6 )_yt + = -1 * Sum ( p3 ) * t ( p3 h10 )_t * y ( h7 h8 p3 p6 )_y @@ -2541,7 +2541,7 @@ C i2 ( h7 h8 h10 p6 )_yt + = -1 * Sum ( p3 ) * t ( p3 h10 )_t * y ( h7 h8 p3 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_1_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h10 p6 )_yt @@ -2613,7 +2613,7 @@ C i2 ( h7 h8 h10 p6 )_yt END SUBROUTINE ccsd_y_tr1_1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h10 )_yxt + = 1/2 * Sum ( h5 h6 p3 ) * t ( p3 p9 h5 h6 )_t * i2 ( h5 h6 h10 p3 )_yx @@ -2781,7 +2781,7 @@ C i1 ( p9 h10 )_yxt + = 1/2 * Sum ( h5 h6 p3 ) * t ( p3 p9 h5 h6 )_t * i2 ( END SUBROUTINE ccsd_y_tr1_1_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h10 p3 )_yx + = -1 * Sum ( p8 ) * x ( p8 h10 )_x * y ( h5 h6 p3 p8 )_y @@ -2934,7 +2934,7 @@ C i2 ( h5 h6 h10 p3 )_yx + = -1 * Sum ( p8 ) * x ( p8 h10 )_x * y ( h5 h6 p3 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_1_6_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h10 p3 )_yx @@ -3006,7 +3006,7 @@ C i2 ( h5 h6 h10 p3 )_yx END SUBROUTINE ccsd_y_tr1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_fxy + = -1 * Sum ( h7 ) * y ( h7 p1 )_y * i1 ( h2 h7 )_fx @@ -3131,7 +3131,7 @@ C i0 ( h2 p1 )_fxy + = -1 * Sum ( h7 ) * y ( h7 p1 )_y * i1 ( h2 h7 )_fx END SUBROUTINE ccsd_y_tr1_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_fx + = 1 * Sum ( p6 ) * x ( p6 h7 )_x * i2 ( h2 p6 )_f @@ -3258,7 +3258,7 @@ C i1 ( h2 h7 )_fx + = 1 * Sum ( p6 ) * x ( p6 h7 )_x * i2 ( h2 p6 )_f RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_fx @@ -3313,7 +3313,7 @@ C i1 ( h2 h7 )_fx RETURN END SUBROUTINE ccsd_y_tr1_2_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p6 )_f + = 1 * f ( h2 p6 )_f @@ -3397,7 +3397,7 @@ C i2 ( h2 p6 )_f + = 1 * f ( h2 p6 )_f RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_2_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p6 )_f @@ -3453,7 +3453,7 @@ C i2 ( h2 p6 )_f END SUBROUTINE ccsd_y_tr1_2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p6 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h2 h4 p3 p6 )_v @@ -3614,7 +3614,7 @@ C i2 ( h2 p6 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h2 h4 p3 p6 ) END SUBROUTINE ccsd_y_tr1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_vx + = 1 * Sum ( h3 p5 ) * x ( p5 h3 )_x * v ( h2 h3 h7 p5 )_v @@ -3759,7 +3759,7 @@ C i1 ( h2 h7 )_vx + = 1 * Sum ( h3 p5 ) * x ( p5 h3 )_x * v ( h2 h3 h7 p5 )_ END SUBROUTINE ccsd_y_tr1_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_vx + = -1/2 * Sum ( h3 p4 p5 ) * x ( p4 p5 h3 h7 )_x * v ( h2 h3 p4 p5 )_v @@ -3935,7 +3935,7 @@ C i1 ( h2 h7 )_vx + = -1/2 * Sum ( h3 p4 p5 ) * x ( p4 p5 h3 h7 )_x * v ( h2 END SUBROUTINE ccsd_y_tr1_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_vxt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * i2 ( h2 p3 )_vx @@ -4063,7 +4063,7 @@ C i1 ( h2 h7 )_vxt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * i2 ( h2 p3 )_vx END SUBROUTINE ccsd_y_tr1_2_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p3 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h2 h5 p3 p6 )_v @@ -4223,7 +4223,7 @@ C i2 ( h2 p3 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h2 h5 p3 p6 )_ RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_2_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p3 )_vx @@ -4279,7 +4279,7 @@ C i2 ( h2 p3 )_vx END SUBROUTINE ccsd_y_tr1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yxf + = -1 * Sum ( h3 ) * i1 ( h2 h3 )_yx * f ( h3 p1 )_f @@ -4404,7 +4404,7 @@ C i0 ( h2 p1 )_yxf + = -1 * Sum ( h3 ) * i1 ( h2 h3 )_yx * f ( h3 p1 )_f END SUBROUTINE ccsd_y_tr1_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_yx + = 1 * Sum ( p4 ) * x ( p4 h3 )_x * y ( h2 p4 )_y @@ -4531,7 +4531,7 @@ C i1 ( h2 h3 )_yx + = 1 * Sum ( p4 ) * x ( p4 h3 )_x * y ( h2 p4 )_y RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_yx @@ -4587,7 +4587,7 @@ C i1 ( h2 h3 )_yx END SUBROUTINE ccsd_y_tr1_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_yx + = 1/2 * Sum ( h6 p4 p5 ) * x ( p4 p5 h3 h6 )_x * y ( h2 h6 p4 p5 )_y @@ -4763,7 +4763,7 @@ C i1 ( h2 h3 )_yx + = 1/2 * Sum ( h6 p4 p5 ) * x ( p4 p5 h3 h6 )_x * y ( h2 END SUBROUTINE ccsd_y_tr1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yxv + = 1 * Sum ( h4 h3 ) * i1 ( h4 h3 )_yx * v ( h2 h3 h4 p1 )_v @@ -4905,7 +4905,7 @@ C i0 ( h2 p1 )_yxv + = 1 * Sum ( h4 h3 ) * i1 ( h4 h3 )_yx * v ( h2 h3 h4 p1 END SUBROUTINE ccsd_y_tr1_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h3 )_yx + = 1 * Sum ( p5 ) * x ( p5 h3 )_x * y ( h4 p5 )_y @@ -5032,7 +5032,7 @@ C i1 ( h4 h3 )_yx + = 1 * Sum ( p5 ) * x ( p5 h3 )_x * y ( h4 p5 )_y RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h3 )_yx @@ -5088,7 +5088,7 @@ C i1 ( h4 h3 )_yx END SUBROUTINE ccsd_y_tr1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h3 )_yx + = 1/2 * Sum ( h7 p5 p6 ) * x ( p5 p6 h3 h7 )_x * y ( h4 h7 p5 p6 )_y @@ -5264,7 +5264,7 @@ C i1 ( h4 h3 )_yx + = 1/2 * Sum ( h7 p5 p6 ) * x ( p5 p6 h3 h7 )_x * y ( h4 END SUBROUTINE ccsd_y_tr1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yxv + = 1 * Sum ( p4 p3 ) * i1 ( p4 p3 )_yx * v ( h2 p3 p1 p4 )_v @@ -5406,7 +5406,7 @@ C i0 ( h2 p1 )_yxv + = 1 * Sum ( p4 p3 ) * i1 ( p4 p3 )_yx * v ( h2 p3 p1 p4 END SUBROUTINE ccsd_y_tr1_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p3 )_yx + = 1 * Sum ( h5 ) * x ( p4 h5 )_x * y ( h5 p3 )_y @@ -5533,7 +5533,7 @@ C i1 ( p4 p3 )_yx + = 1 * Sum ( h5 ) * x ( p4 h5 )_x * y ( h5 p3 )_y RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p3 )_yx @@ -5589,7 +5589,7 @@ C i1 ( p4 p3 )_yx END SUBROUTINE ccsd_y_tr1_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p3 )_yx + = 1/2 * Sum ( h6 h7 p5 ) * x ( p4 p5 h6 h7 )_x * y ( h6 h7 p3 p5 )_y @@ -5765,7 +5765,7 @@ C i1 ( p4 p3 )_yx + = 1/2 * Sum ( h6 h7 p5 ) * x ( p4 p5 h6 h7 )_x * y ( h6 END SUBROUTINE ccsd_y_tr1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_vxy + = 1 * Sum ( p8 ) * y ( h2 p8 )_y * i1 ( p8 p1 )_vx @@ -5890,7 +5890,7 @@ C i0 ( h2 p1 )_vxy + = 1 * Sum ( p8 ) * y ( h2 p8 )_y * i1 ( p8 p1 )_vx END SUBROUTINE ccsd_y_tr1_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p8 p1 )_vx + = -1 * Sum ( h3 p5 ) * x ( p5 h3 )_x * v ( h3 p8 p1 p5 )_v @@ -6034,7 +6034,7 @@ C i1 ( p8 p1 )_vx + = -1 * Sum ( h3 p5 ) * x ( p5 h3 )_x * v ( h3 p8 p1 p5 ) RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_6_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p8 p1 )_vx @@ -6090,7 +6090,7 @@ C i1 ( p8 p1 )_vx END SUBROUTINE ccsd_y_tr1_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p8 p1 )_vxt + = -1 * Sum ( h4 ) * t ( p8 h4 )_t * i2 ( h4 p1 )_vx @@ -6218,7 +6218,7 @@ C i1 ( p8 p1 )_vxt + = -1 * Sum ( h4 ) * t ( p8 h4 )_t * i2 ( h4 p1 )_vx END SUBROUTINE ccsd_y_tr1_6_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p1 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h4 h5 p1 p6 )_v @@ -6378,7 +6378,7 @@ C i2 ( h4 p1 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h4 h5 p1 p6 )_ RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_6_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p1 )_vx @@ -6434,7 +6434,7 @@ C i2 ( h4 p1 )_vx END SUBROUTINE ccsd_y_tr1_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p8 p1 )_vtx + = 1 * Sum ( h5 ) * x ( p8 h5 )_x * i2 ( h5 p1 )_vt @@ -6562,7 +6562,7 @@ C i1 ( p8 p1 )_vtx + = 1 * Sum ( h5 ) * x ( p8 h5 )_x * i2 ( h5 p1 )_vt END SUBROUTINE ccsd_y_tr1_6_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p1 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h5 p1 p3 )_v @@ -6722,7 +6722,7 @@ C i2 ( h5 p1 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h5 p1 p3 )_ RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_6_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p1 )_vt @@ -6778,7 +6778,7 @@ C i2 ( h5 p1 )_vt END SUBROUTINE ccsd_y_tr1_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_fxy + = -1 * Sum ( p10 h9 ) * y ( h2 h9 p1 p10 )_y * i1 ( p10 h9 )_fx @@ -6937,7 +6937,7 @@ C i0 ( h2 p1 )_fxy + = -1 * Sum ( p10 h9 ) * y ( h2 h9 p1 p10 )_y * i1 ( p10 END SUBROUTINE ccsd_y_tr1_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_fx + = 1 * Sum ( h8 ) * x ( p10 h8 )_x * i2 ( h8 h9 )_f @@ -7064,7 +7064,7 @@ C i1 ( p10 h9 )_fx + = 1 * Sum ( h8 ) * x ( p10 h8 )_x * i2 ( h8 h9 )_f RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_7_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_fx @@ -7119,7 +7119,7 @@ C i1 ( p10 h9 )_fx RETURN END SUBROUTINE ccsd_y_tr1_7_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_f + = 1 * f ( h8 h9 )_f @@ -7203,7 +7203,7 @@ C i2 ( h8 h9 )_f + = 1 * f ( h8 h9 )_f RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_7_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_f @@ -7259,7 +7259,7 @@ C i2 ( h8 h9 )_f END SUBROUTINE ccsd_y_tr1_7_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_ft + = 1 * Sum ( p7 ) * t ( p7 h9 )_t * i3 ( h8 p7 )_f @@ -7386,7 +7386,7 @@ C i2 ( h8 h9 )_ft + = 1 * Sum ( p7 ) * t ( p7 h9 )_t * i3 ( h8 p7 )_f RETURN END SUBROUTINE ccsd_y_tr1_7_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p7 )_f + = 1 * f ( h8 p7 )_f @@ -7470,7 +7470,7 @@ C i3 ( h8 p7 )_f + = 1 * f ( h8 p7 )_f RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_7_1_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p7 )_f @@ -7526,7 +7526,7 @@ C i3 ( h8 p7 )_f END SUBROUTINE ccsd_y_tr1_7_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p7 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h8 p5 p7 )_v @@ -7687,7 +7687,7 @@ C i3 ( h8 p7 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h8 p5 p7 )_ END SUBROUTINE ccsd_y_tr1_7_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h8 h9 p3 )_v @@ -7832,7 +7832,7 @@ C i2 ( h8 h9 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h8 h9 p3 ) END SUBROUTINE ccsd_y_tr1_7_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_vt + = 1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h9 )_t * v ( h6 h8 p3 p4 )_v @@ -8008,7 +8008,7 @@ C i2 ( h8 h9 )_vt + = 1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h9 )_t * v ( h6 END SUBROUTINE ccsd_y_tr1_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_fx + = -1 * Sum ( p5 ) * x ( p5 h9 )_x * i2 ( p10 p5 )_f @@ -8135,7 +8135,7 @@ C i1 ( p10 h9 )_fx + = -1 * Sum ( p5 ) * x ( p5 h9 )_x * i2 ( p10 p5 )_f RETURN END SUBROUTINE ccsd_y_tr1_7_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p10 p5 )_f + = 1 * f ( p10 p5 )_f @@ -8219,7 +8219,7 @@ C i2 ( p10 p5 )_f + = 1 * f ( p10 p5 )_f RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_7_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p10 p5 )_f @@ -8276,7 +8276,7 @@ C i2 ( p10 p5 )_f END SUBROUTINE ccsd_y_tr1_7_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p10 p5 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p10 p3 p5 )_v @@ -8421,7 +8421,7 @@ C i2 ( p10 p5 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p10 p3 p5 END SUBROUTINE ccsd_y_tr1_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_vx + = 1 * Sum ( h3 p6 ) * x ( p6 h3 )_x * v ( h3 p10 h9 p6 )_v @@ -8558,7 +8558,7 @@ C i1 ( p10 h9 )_vx + = 1 * Sum ( h3 p6 ) * x ( p6 h3 )_x * v ( h3 p10 h9 p6 END SUBROUTINE ccsd_y_tr1_7_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_fx + = -1 * Sum ( h6 p7 ) * x ( p7 p10 h6 h9 )_x * i2 ( h6 p7 )_f @@ -8719,7 +8719,7 @@ C i1 ( p10 h9 )_fx + = -1 * Sum ( h6 p7 ) * x ( p7 p10 h6 h9 )_x * i2 ( h6 p RETURN END SUBROUTINE ccsd_y_tr1_7_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f @@ -8803,7 +8803,7 @@ C i2 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_7_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_f @@ -8859,7 +8859,7 @@ C i2 ( h6 p7 )_f END SUBROUTINE ccsd_y_tr1_7_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 p3 p7 )_v @@ -9020,7 +9020,7 @@ C i2 ( h6 p7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 p3 p7 )_ END SUBROUTINE ccsd_y_tr1_7_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_vx + = 1/2 * Sum ( h7 h5 p8 ) * x ( p8 p10 h5 h7 )_x * i2 ( h5 h7 h9 p8 )_v @@ -9187,7 +9187,7 @@ C i1 ( p10 h9 )_vx + = 1/2 * Sum ( h7 h5 p8 ) * x ( p8 p10 h5 h7 )_x * i2 ( RETURN END SUBROUTINE ccsd_y_tr1_7_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h7 h9 p8 )_v + = -1 * v ( h5 h7 h9 p8 )_v @@ -9286,7 +9286,7 @@ C i2 ( h5 h7 h9 p8 )_v + = -1 * v ( h5 h7 h9 p8 )_v RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_7_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h7 h9 p8 )_v @@ -9356,7 +9356,7 @@ C i2 ( h5 h7 h9 p8 )_v END SUBROUTINE ccsd_y_tr1_7_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h7 h9 p8 )_vt + = -1 * Sum ( p3 ) * t ( p3 h9 )_t * v ( h5 h7 p3 p8 )_v @@ -9510,7 +9510,7 @@ C i2 ( h5 h7 h9 p8 )_vt + = -1 * Sum ( p3 ) * t ( p3 h9 )_t * v ( h5 h7 p3 p END SUBROUTINE ccsd_y_tr1_7_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_vx + = -1/2 * Sum ( h3 p5 p6 ) * x ( p5 p6 h3 h9 )_x * v ( h3 p10 p5 p6 )_v @@ -9678,7 +9678,7 @@ C i1 ( p10 h9 )_vx + = -1/2 * Sum ( h3 p5 p6 ) * x ( p5 p6 h3 h9 )_x * v ( h END SUBROUTINE ccsd_y_tr1_7_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_fxt + = 1 * Sum ( h12 ) * t ( p10 h12 )_t * i2 ( h12 h9 )_fx @@ -9806,7 +9806,7 @@ C i1 ( p10 h9 )_fxt + = 1 * Sum ( h12 ) * t ( p10 h12 )_t * i2 ( h12 h9 )_fx END SUBROUTINE ccsd_y_tr1_7_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h9 )_fx + = 1 * Sum ( p3 ) * x ( p3 h9 )_x * i3 ( h12 p3 )_f @@ -9933,7 +9933,7 @@ C i2 ( h12 h9 )_fx + = 1 * Sum ( p3 ) * x ( p3 h9 )_x * i3 ( h12 p3 )_f RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_7_7_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h9 )_fx @@ -9988,7 +9988,7 @@ C i2 ( h12 h9 )_fx RETURN END SUBROUTINE ccsd_y_tr1_7_7_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h12 p3 )_f + = 1 * f ( h12 p3 )_f @@ -10072,7 +10072,7 @@ C i3 ( h12 p3 )_f + = 1 * f ( h12 p3 )_f RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_7_7_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h12 p3 )_f @@ -10128,7 +10128,7 @@ C i3 ( h12 p3 )_f END SUBROUTINE ccsd_y_tr1_7_7_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h12 p3 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h12 p3 p5 )_v @@ -10289,7 +10289,7 @@ C i3 ( h12 p3 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h12 p3 p5 END SUBROUTINE ccsd_y_tr1_7_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h9 )_vx + = -1 * Sum ( h5 p7 ) * x ( p7 h5 )_x * v ( h5 h12 h9 p7 )_v @@ -10434,7 +10434,7 @@ C i2 ( h12 h9 )_vx + = -1 * Sum ( h5 p7 ) * x ( p7 h5 )_x * v ( h5 h12 h9 p7 END SUBROUTINE ccsd_y_tr1_7_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h9 )_vx + = 1/2 * Sum ( h5 p6 p7 ) * x ( p6 p7 h5 h9 )_x * v ( h5 h12 p6 p7 )_v @@ -10610,7 +10610,7 @@ C i2 ( h12 h9 )_vx + = 1/2 * Sum ( h5 p6 p7 ) * x ( p6 p7 h5 h9 )_x * v ( h5 END SUBROUTINE ccsd_y_tr1_7_7_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h9 )_vxt + = 1 * Sum ( p3 ) * t ( p3 h9 )_t * i3 ( h12 p3 )_vx @@ -10738,7 +10738,7 @@ C i2 ( h12 h9 )_vxt + = 1 * Sum ( p3 ) * t ( p3 h9 )_t * i3 ( h12 p3 )_vx END SUBROUTINE ccsd_y_tr1_7_7_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h12 p3 )_vx + = -1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h7 h12 p3 p8 )_v @@ -10898,7 +10898,7 @@ C i3 ( h12 p3 )_vx + = -1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h7 h12 p3 p8 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_7_7_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h12 p3 )_vx @@ -10954,7 +10954,7 @@ C i3 ( h12 p3 )_vx END SUBROUTINE ccsd_y_tr1_7_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_vxt + = -1 * Sum ( p3 ) * t ( p3 h9 )_t * i2 ( p10 p3 )_vx @@ -11082,7 +11082,7 @@ C i1 ( p10 h9 )_vxt + = -1 * Sum ( p3 ) * t ( p3 h9 )_t * i2 ( p10 p3 )_vx END SUBROUTINE ccsd_y_tr1_7_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p10 p3 )_vx + = -1 * Sum ( h5 p7 ) * x ( p7 h5 )_x * v ( h5 p10 p3 p7 )_v @@ -11226,7 +11226,7 @@ C i2 ( p10 p3 )_vx + = -1 * Sum ( h5 p7 ) * x ( p7 h5 )_x * v ( h5 p10 p3 p7 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_7_8_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p10 p3 )_vx @@ -11283,7 +11283,7 @@ C i2 ( p10 p3 )_vx END SUBROUTINE ccsd_y_tr1_7_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_vxt + = -1 * Sum ( h6 p4 ) * t ( p4 p10 h6 h9 )_t * i2 ( h6 p4 )_vx @@ -11445,7 +11445,7 @@ C i1 ( p10 h9 )_vxt + = -1 * Sum ( h6 p4 ) * t ( p4 p10 h6 h9 )_t * i2 ( h6 END SUBROUTINE ccsd_y_tr1_7_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p4 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h6 h7 p4 p8 )_v @@ -11605,7 +11605,7 @@ C i2 ( h6 p4 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h6 h7 p4 p8 )_ RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_7_9_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p4 )_vx @@ -11661,7 +11661,7 @@ C i2 ( h6 p4 )_vx END SUBROUTINE ccsd_y_tr1_7_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_vxt + = -1/2 * Sum ( h5 h6 p4 ) * t ( p4 p10 h5 h6 )_t * i2 ( h5 h6 h9 p4 )_vx @@ -11829,7 +11829,7 @@ C i1 ( p10 h9 )_vxt + = -1/2 * Sum ( h5 h6 p4 ) * t ( p4 p10 h5 h6 )_t * i2 END SUBROUTINE ccsd_y_tr1_7_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h9 p4 )_vx + = -1 * Sum ( p7 ) * x ( p7 h9 )_x * v ( h5 h6 p4 p7 )_v @@ -11982,7 +11982,7 @@ C i2 ( h5 h6 h9 p4 )_vx + = -1 * Sum ( p7 ) * x ( p7 h9 )_x * v ( h5 h6 p4 p RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_7_10_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h9 p4 )_vx @@ -12054,7 +12054,7 @@ C i2 ( h5 h6 h9 p4 )_vx END SUBROUTINE ccsd_y_tr1_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yxv + = -1/2 * Sum ( h4 h5 h3 ) * i1 ( h4 h5 h3 p1 )_yx * v ( h2 h3 h4 h5 )_v @@ -12218,7 +12218,7 @@ C i0 ( h2 p1 )_yxv + = -1/2 * Sum ( h4 h5 h3 ) * i1 ( h4 h5 h3 p1 )_yx * v ( END SUBROUTINE ccsd_y_tr1_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h3 p1 )_yx + = -1 * Sum ( p6 ) * x ( p6 h3 )_x * y ( h4 h5 p1 p6 )_y @@ -12371,7 +12371,7 @@ C i1 ( h4 h5 h3 p1 )_yx + = -1 * Sum ( p6 ) * x ( p6 h3 )_x * y ( h4 h5 p1 p RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_8_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h3 p1 )_yx @@ -12443,7 +12443,7 @@ C i1 ( h4 h5 h3 p1 )_yx END SUBROUTINE ccsd_y_tr1_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_vxy + = -1 * Sum ( p9 h10 h11 ) * y ( h10 h11 p1 p9 )_y * i1 ( h2 p9 h10 h11 )_vx @@ -12606,7 +12606,7 @@ C i0 ( h2 p1 )_vxy + = -1 * Sum ( p9 h10 h11 ) * y ( h10 h11 p1 p9 )_y * i1 END SUBROUTINE ccsd_y_tr1_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h10 h11 )_vx + = 1 * Sum ( p5 ) * x ( p5 h11 )_x * v ( h2 p9 h10 p5 )_v @@ -12761,7 +12761,7 @@ C i1 ( h2 p9 h10 h11 )_vx + = 1 * Sum ( p5 ) * x ( p5 h11 )_x * v ( h2 p9 h1 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_9_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h10 h11 )_vx @@ -12833,7 +12833,7 @@ C i1 ( h2 p9 h10 h11 )_vx END SUBROUTINE ccsd_y_tr1_9_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h10 h11 )_fx + = 1/2 * Sum ( p6 ) * x ( p6 p9 h10 h11 )_x * i2 ( h2 p6 )_f @@ -12987,7 +12987,7 @@ C i1 ( h2 p9 h10 h11 )_fx + = 1/2 * Sum ( p6 ) * x ( p6 p9 h10 h11 )_x * i2 RETURN END SUBROUTINE ccsd_y_tr1_9_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p6 )_f + = 1 * f ( h2 p6 )_f @@ -13071,7 +13071,7 @@ C i2 ( h2 p6 )_f + = 1 * f ( h2 p6 )_f RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_9_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p6 )_f @@ -13127,7 +13127,7 @@ C i2 ( h2 p6 )_f END SUBROUTINE ccsd_y_tr1_9_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p6 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h2 h4 p3 p6 )_v @@ -13288,7 +13288,7 @@ C i2 ( h2 p6 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h2 h4 p3 p6 ) END SUBROUTINE ccsd_y_tr1_9_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h10 h11 )_vx + = 1 * Sum ( h6 p4 ) * x ( p4 p9 h6 h11 )_x * i2 ( h2 h6 h10 p4 )_v @@ -13476,7 +13476,7 @@ C i1 ( h2 p9 h10 h11 )_vx + = 1 * Sum ( h6 p4 ) * x ( p4 p9 h6 h11 )_x * i2 RETURN END SUBROUTINE ccsd_y_tr1_9_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h10 p4 )_v + = 1 * v ( h2 h6 h10 p4 )_v @@ -13585,7 +13585,7 @@ C i2 ( h2 h6 h10 p4 )_v + = 1 * v ( h2 h6 h10 p4 )_v RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_9_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h10 p4 )_v @@ -13655,7 +13655,7 @@ C i2 ( h2 h6 h10 p4 )_v END SUBROUTINE ccsd_y_tr1_9_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h10 p4 )_vt + = 1 * Sum ( p3 ) * t ( p3 h10 )_t * v ( h2 h6 p3 p4 )_v @@ -13825,7 +13825,7 @@ C i2 ( h2 h6 h10 p4 )_vt + = 1 * Sum ( p3 ) * t ( p3 h10 )_t * v ( h2 h6 p3 END SUBROUTINE ccsd_y_tr1_9_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h10 h11 )_vx + = 1/4 * Sum ( p4 p5 ) * x ( p4 p5 h10 h11 )_x * v ( h2 p9 p4 p5 )_v @@ -13990,7 +13990,7 @@ C i1 ( h2 p9 h10 h11 )_vx + = 1/4 * Sum ( p4 p5 ) * x ( p4 p5 h10 h11 )_x * END SUBROUTINE ccsd_y_tr1_9_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h10 h11 )_vtx + = -1 * Sum ( h8 ) * x ( p9 h8 )_x * i2 ( h2 h8 h10 h11 )_vt @@ -14134,7 +14134,7 @@ C i1 ( h2 p9 h10 h11 )_vtx + = -1 * Sum ( h8 ) * x ( p9 h8 )_x * i2 ( h2 h8 END SUBROUTINE ccsd_y_tr1_9_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h10 h11 )_vt + = -1 * Sum ( p3 ) * t ( p3 h10 )_t * i3 ( h2 h8 h11 p3 )_v @@ -14287,7 +14287,7 @@ C i2 ( h2 h8 h10 h11 )_vt + = -1 * Sum ( p3 ) * t ( p3 h10 )_t * i3 ( h2 h8 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_9_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h10 h11 )_vt @@ -14358,7 +14358,7 @@ C i2 ( h2 h8 h10 h11 )_vt RETURN END SUBROUTINE ccsd_y_tr1_9_5_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h11 p3 )_v + = 1 * v ( h2 h8 h11 p3 )_v @@ -14467,7 +14467,7 @@ C i3 ( h2 h8 h11 p3 )_v + = 1 * v ( h2 h8 h11 p3 )_v RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_9_5_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h11 p3 )_v @@ -14537,7 +14537,7 @@ C i3 ( h2 h8 h11 p3 )_v END SUBROUTINE ccsd_y_tr1_9_5_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h11 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h11 )_t * v ( h2 h8 p3 p5 )_v @@ -14707,7 +14707,7 @@ C i3 ( h2 h8 h11 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h11 )_t * v ( h2 h8 END SUBROUTINE ccsd_y_tr1_9_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h10 h11 )_vt + = 1/4 * Sum ( p3 p4 ) * t ( p3 p4 h10 h11 )_t * v ( h2 h8 p3 p4 )_v @@ -14879,7 +14879,7 @@ C i2 ( h2 h8 h10 h11 )_vt + = 1/4 * Sum ( p3 p4 ) * t ( p3 p4 h10 h11 )_t * END SUBROUTINE ccsd_y_tr1_9_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h10 h11 )_vxt + = 1 * Sum ( h8 ) * t ( p9 h8 )_t * i2 ( h2 h8 h10 h11 )_vx @@ -15023,7 +15023,7 @@ C i1 ( h2 p9 h10 h11 )_vxt + = 1 * Sum ( h8 ) * t ( p9 h8 )_t * i2 ( h2 h8 h END SUBROUTINE ccsd_y_tr1_9_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h10 h11 )_vx + = -1 * Sum ( p6 ) * x ( p6 h11 )_x * v ( h2 h8 h10 p6 )_v @@ -15184,7 +15184,7 @@ C i2 ( h2 h8 h10 h11 )_vx + = -1 * Sum ( p6 ) * x ( p6 h11 )_x * v ( h2 h8 h RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_9_6_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h10 h11 )_vx @@ -15256,7 +15256,7 @@ C i2 ( h2 h8 h10 h11 )_vx END SUBROUTINE ccsd_y_tr1_9_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h10 h11 )_vx + = -1/4 * Sum ( p5 p6 ) * x ( p5 p6 h10 h11 )_x * v ( h2 h8 p5 p6 )_v @@ -15428,7 +15428,7 @@ C i2 ( h2 h8 h10 h11 )_vx + = -1/4 * Sum ( p5 p6 ) * x ( p5 p6 h10 h11 )_x * END SUBROUTINE ccsd_y_tr1_9_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h10 h11 )_vxt + = -1 * Sum ( p3 ) * t ( p3 h10 )_t * i3 ( h2 h8 h11 p3 )_vx @@ -15582,7 +15582,7 @@ C i2 ( h2 h8 h10 h11 )_vxt + = -1 * Sum ( p3 ) * t ( p3 h10 )_t * i3 ( h2 h8 END SUBROUTINE ccsd_y_tr1_9_6_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h11 p3 )_vx + = 1 * Sum ( p7 ) * x ( p7 h11 )_x * v ( h2 h8 p3 p7 )_v @@ -15751,7 +15751,7 @@ C i3 ( h2 h8 h11 p3 )_vx + = 1 * Sum ( p7 ) * x ( p7 h11 )_x * v ( h2 h8 p3 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_9_6_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h11 p3 )_vx @@ -15823,7 +15823,7 @@ C i3 ( h2 h8 h11 p3 )_vx END SUBROUTINE ccsd_y_tr1_9_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h10 h11 )_vxt + = -1 * Sum ( p3 ) * t ( p3 h10 )_t * i2 ( h2 p9 h11 p3 )_vx @@ -15979,7 +15979,7 @@ C i1 ( h2 p9 h10 h11 )_vxt + = -1 * Sum ( p3 ) * t ( p3 h10 )_t * i2 ( h2 p9 END SUBROUTINE ccsd_y_tr1_9_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p9 h11 p3 )_vx + = -1 * Sum ( p6 ) * x ( p6 h11 )_x * v ( h2 p9 p3 p6 )_v @@ -16132,7 +16132,7 @@ C i2 ( h2 p9 h11 p3 )_vx + = -1 * Sum ( p6 ) * x ( p6 h11 )_x * v ( h2 p9 p3 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_9_7_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p9 h11 p3 )_vx @@ -16204,7 +16204,7 @@ C i2 ( h2 p9 h11 p3 )_vx END SUBROUTINE ccsd_y_tr1_9_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h10 h11 )_vxt + = 1/2 * Sum ( p4 ) * t ( p4 p9 h10 h11 )_t * i2 ( h2 p4 )_vx @@ -16359,7 +16359,7 @@ C i1 ( h2 p9 h10 h11 )_vxt + = 1/2 * Sum ( p4 ) * t ( p4 p9 h10 h11 )_t * i2 END SUBROUTINE ccsd_y_tr1_9_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p4 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h2 h7 p4 p8 )_v @@ -16519,7 +16519,7 @@ C i2 ( h2 p4 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h2 h7 p4 p8 )_ RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_9_8_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p4 )_vx @@ -16575,7 +16575,7 @@ C i2 ( h2 p4 )_vx END SUBROUTINE ccsd_y_tr1_9_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h10 h11 )_vxt + = 1 * Sum ( h6 p4 ) * t ( p4 p9 h6 h10 )_t * i2 ( h2 h6 h11 p4 )_vx @@ -16764,7 +16764,7 @@ C i1 ( h2 p9 h10 h11 )_vxt + = 1 * Sum ( h6 p4 ) * t ( p4 p9 h6 h10 )_t * i2 END SUBROUTINE ccsd_y_tr1_9_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h11 p4 )_vx + = 1 * Sum ( p7 ) * x ( p7 h11 )_x * v ( h2 h6 p4 p7 )_v @@ -16933,7 +16933,7 @@ C i2 ( h2 h6 h11 p4 )_vx + = 1 * Sum ( p7 ) * x ( p7 h11 )_x * v ( h2 h6 p4 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_9_9_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h11 p4 )_vx @@ -17005,7 +17005,7 @@ C i2 ( h2 h6 h11 p4 )_vx END SUBROUTINE ccsd_y_tr1_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yxv + = -1 * Sum ( h5 h3 p4 ) * i1 ( h2 h5 h3 p4 )_yx * v ( h3 p4 h5 p1 )_v @@ -17150,7 +17150,7 @@ C i0 ( h2 p1 )_yxv + = -1 * Sum ( h5 h3 p4 ) * i1 ( h2 h5 h3 p4 )_yx * v ( h END SUBROUTINE ccsd_y_tr1_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h5 h3 p4 )_yx + = 1 * Sum ( p6 ) * x ( p6 h3 )_x * y ( h2 h5 p4 p6 )_y @@ -17319,7 +17319,7 @@ C i1 ( h2 h5 h3 p4 )_yx + = 1 * Sum ( p6 ) * x ( p6 h3 )_x * y ( h2 h5 p4 p6 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_10_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h5 h3 p4 )_yx @@ -17391,7 +17391,7 @@ C i1 ( h2 h5 h3 p4 )_yx END SUBROUTINE ccsd_y_tr1_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yxv + = -1/2 * Sum ( p5 p3 p4 ) * i1 ( h2 p5 p3 p4 )_yx * v ( p3 p4 p1 p5 )_v @@ -17556,7 +17556,7 @@ C i0 ( h2 p1 )_yxv + = -1/2 * Sum ( p5 p3 p4 ) * i1 ( h2 p5 p3 p4 )_yx * v ( END SUBROUTINE ccsd_y_tr1_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p5 p3 p4 )_yx + = -1 * Sum ( h6 ) * x ( p5 h6 )_x * y ( h2 h6 p3 p4 )_y @@ -17709,7 +17709,7 @@ C i1 ( h2 p5 p3 p4 )_yx + = -1 * Sum ( h6 ) * x ( p5 h6 )_x * y ( h2 h6 p3 p RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_11_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p5 p3 p4 )_yx @@ -17781,7 +17781,7 @@ C i1 ( h2 p5 p3 p4 )_yx END SUBROUTINE ccsd_y_tr1_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yxv + = 1/2 * Sum ( p11 h12 h10 ) * i1 ( h2 p11 h10 h12 )_yx * v ( h10 h12 p1 p11 )_v @@ -17948,7 +17948,7 @@ C i0 ( h2 p1 )_yxv + = 1/2 * Sum ( p11 h12 h10 ) * i1 ( h2 p11 h10 h12 )_yx END SUBROUTINE ccsd_y_tr1_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h10 h12 )_yx + = -1 * Sum ( p6 ) * x ( p6 p11 h10 h12 )_x * y ( h2 p6 )_y @@ -18103,7 +18103,7 @@ C i1 ( h2 p11 h10 h12 )_yx + = -1 * Sum ( p6 ) * x ( p6 p11 h10 h12 )_x * y RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_12_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h10 h12 )_yx @@ -18175,7 +18175,7 @@ C i1 ( h2 p11 h10 h12 )_yx END SUBROUTINE ccsd_y_tr1_12_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h10 h12 )_yxt + = 1/2 * Sum ( h4 ) * t ( p11 h4 )_t * i2 ( h2 h4 h10 h12 )_yx @@ -18319,7 +18319,7 @@ C i1 ( h2 p11 h10 h12 )_yxt + = 1/2 * Sum ( h4 ) * t ( p11 h4 )_t * i2 ( h2 END SUBROUTINE ccsd_y_tr1_12_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h10 h12 )_yx + = 1 * Sum ( p7 p8 ) * x ( p7 p8 h10 h12 )_x * y ( h2 h4 p7 p8 )_y @@ -18490,7 +18490,7 @@ C i2 ( h2 h4 h10 h12 )_yx + = 1 * Sum ( p7 p8 ) * x ( p7 p8 h10 h12 )_x * y RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_12_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h10 h12 )_yx @@ -18562,7 +18562,7 @@ C i2 ( h2 h4 h10 h12 )_yx END SUBROUTINE ccsd_y_tr1_12_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h10 h12 )_yxt + = -4 * Sum ( p5 ) * t ( p5 h12 )_t * i3 ( h2 h4 h10 p5 )_yx @@ -18716,7 +18716,7 @@ C i2 ( h2 h4 h10 h12 )_yxt + = -4 * Sum ( p5 ) * t ( p5 h12 )_t * i3 ( h2 h4 END SUBROUTINE ccsd_y_tr1_12_2_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p5 )_yx + = 1 * Sum ( p8 ) * x ( p8 h10 )_x * y ( h2 h4 p5 p8 )_y @@ -18885,7 +18885,7 @@ C i3 ( h2 h4 h10 p5 )_yx + = 1 * Sum ( p8 ) * x ( p8 h10 )_x * y ( h2 h4 p5 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_12_2_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p5 )_yx @@ -18957,7 +18957,7 @@ C i3 ( h2 h4 h10 p5 )_yx END SUBROUTINE ccsd_y_tr1_12_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h10 h12 )_ytx + = 2 * Sum ( h8 p7 ) * x ( p7 p11 h8 h10 )_x * i2 ( h2 h8 h12 p7 )_yt @@ -19146,7 +19146,7 @@ C i1 ( h2 p11 h10 h12 )_ytx + = 2 * Sum ( h8 p7 ) * x ( p7 p11 h8 h10 )_x * END SUBROUTINE ccsd_y_tr1_12_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h12 p7 )_yt + = 1 * Sum ( p3 ) * t ( p3 h12 )_t * y ( h2 h8 p3 p7 )_y @@ -19315,7 +19315,7 @@ C i2 ( h2 h8 h12 p7 )_yt + = 1 * Sum ( p3 ) * t ( p3 h12 )_t * y ( h2 h8 p3 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_12_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h12 p7 )_yt @@ -19387,7 +19387,7 @@ C i2 ( h2 h8 h12 p7 )_yt END SUBROUTINE ccsd_y_tr1_12_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h10 h12 )_yxt + = -1 * t ( p11 h12 )_t * i2 ( h2 h10 )_yx @@ -19533,7 +19533,7 @@ C i1 ( h2 p11 h10 h12 )_yxt + = -1 * t ( p11 h12 )_t * i2 ( h2 h10 )_yx END SUBROUTINE ccsd_y_tr1_12_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 )_yx + = -1 * Sum ( h8 p6 p7 ) * x ( p6 p7 h8 h10 )_x * y ( h2 h8 p6 p7 )_y @@ -19708,7 +19708,7 @@ C i2 ( h2 h10 )_yx + = -1 * Sum ( h8 p6 p7 ) * x ( p6 p7 h8 h10 )_x * y ( h2 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_12_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 )_yx @@ -19764,7 +19764,7 @@ C i2 ( h2 h10 )_yx END SUBROUTINE ccsd_y_tr1_12_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h10 h12 )_ytx + = 1 * x ( p11 h10 )_x * i2 ( h2 h12 )_yt @@ -19910,7 +19910,7 @@ C i1 ( h2 p11 h10 h12 )_ytx + = 1 * x ( p11 h10 )_x * i2 ( h2 h12 )_yt END SUBROUTINE ccsd_y_tr1_12_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h12 )_yt + = -1 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h12 )_t * y ( h2 h5 p3 p4 )_y @@ -20085,7 +20085,7 @@ C i2 ( h2 h12 )_yt + = -1 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h12 )_t * y ( h2 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_12_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h12 )_yt @@ -20141,7 +20141,7 @@ C i2 ( h2 h12 )_yt END SUBROUTINE ccsd_y_tr1_12_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h10 h12 )_yxt + = 2 * Sum ( h5 p3 ) * t ( p3 p11 h5 h12 )_t * i2 ( h2 h5 h10 p3 )_yx @@ -20330,7 +20330,7 @@ C i1 ( h2 p11 h10 h12 )_yxt + = 2 * Sum ( h5 p3 ) * t ( p3 p11 h5 h12 )_t * END SUBROUTINE ccsd_y_tr1_12_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h5 h10 p3 )_yx + = 1 * Sum ( p8 ) * x ( p8 h10 )_x * y ( h2 h5 p3 p8 )_y @@ -20499,7 +20499,7 @@ C i2 ( h2 h5 h10 p3 )_yx + = 1 * Sum ( p8 ) * x ( p8 h10 )_x * y ( h2 h5 p3 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_12_6_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h5 h10 p3 )_yx @@ -20571,7 +20571,7 @@ C i2 ( h2 h5 h10 p3 )_yx END SUBROUTINE ccsd_y_tr1_12_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h10 h12 )_ytx + = 1/2 * Sum ( h8 ) * x ( p11 h8 )_x * i2 ( h2 h8 h10 h12 )_yt @@ -20715,7 +20715,7 @@ C i1 ( h2 p11 h10 h12 )_ytx + = 1/2 * Sum ( h8 ) * x ( p11 h8 )_x * i2 ( h2 END SUBROUTINE ccsd_y_tr1_12_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h10 h12 )_yt + = 1 * Sum ( p3 p4 ) * t ( p3 p4 h10 h12 )_t * y ( h2 h8 p3 p4 )_y @@ -20886,7 +20886,7 @@ C i2 ( h2 h8 h10 h12 )_yt + = 1 * Sum ( p3 p4 ) * t ( p3 p4 h10 h12 )_t * y RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_12_7_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h10 h12 )_yt @@ -20958,7 +20958,7 @@ C i2 ( h2 h8 h10 h12 )_yt END SUBROUTINE ccsd_y_tr1_12_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h10 h12 )_ytt + = -2 * Sum ( p3 ) * t ( p3 h12 )_t * i3 ( h2 h8 h10 p3 )_yt @@ -21112,7 +21112,7 @@ C i2 ( h2 h8 h10 h12 )_ytt + = -2 * Sum ( p3 ) * t ( p3 h12 )_t * i3 ( h2 h8 END SUBROUTINE ccsd_y_tr1_12_7_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h10 p3 )_yt + = 1 * Sum ( p5 ) * t ( p5 h10 )_t * y ( h2 h8 p3 p5 )_y @@ -21281,7 +21281,7 @@ C i3 ( h2 h8 h10 p3 )_yt + = 1 * Sum ( p5 ) * t ( p5 h10 )_t * y ( h2 h8 p3 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_12_7_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h10 p3 )_yt @@ -21353,7 +21353,7 @@ C i3 ( h2 h8 h10 p3 )_yt END SUBROUTINE ccsd_y_tr1_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yxv + = 1/4 * Sum ( h4 h8 h9 ) * i1 ( h2 h4 h8 h9 )_yx * v ( h8 h9 h4 p1 )_v @@ -21510,7 +21510,7 @@ C i0 ( h2 p1 )_yxv + = 1/4 * Sum ( h4 h8 h9 ) * i1 ( h2 h4 h8 h9 )_yx * v ( END SUBROUTINE ccsd_y_tr1_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h4 h8 h9 )_yx + = -1 * Sum ( p6 p7 ) * x ( p6 p7 h8 h9 )_x * y ( h2 h4 p6 p7 )_y @@ -21681,7 +21681,7 @@ C i1 ( h2 h4 h8 h9 )_yx + = -1 * Sum ( p6 p7 ) * x ( p6 p7 h8 h9 )_x * y ( h RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_13_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h4 h8 h9 )_yx @@ -21753,7 +21753,7 @@ C i1 ( h2 h4 h8 h9 )_yx END SUBROUTINE ccsd_y_tr1_13_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h4 h8 h9 )_yxt + = -4 * Sum ( p3 ) * t ( p3 h8 )_t * i2 ( h2 h4 h9 p3 )_yx @@ -21907,7 +21907,7 @@ C i1 ( h2 h4 h8 h9 )_yxt + = -4 * Sum ( p3 ) * t ( p3 h8 )_t * i2 ( h2 h4 h9 END SUBROUTINE ccsd_y_tr1_13_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h9 p3 )_yx + = 1 * Sum ( p7 ) * x ( p7 h9 )_x * y ( h2 h4 p3 p7 )_y @@ -22076,7 +22076,7 @@ C i2 ( h2 h4 h9 p3 )_yx + = 1 * Sum ( p7 ) * x ( p7 h9 )_x * y ( h2 h4 p3 p7 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_13_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h9 p3 )_yx @@ -22148,7 +22148,7 @@ C i2 ( h2 h4 h9 p3 )_yx END SUBROUTINE ccsd_y_tr1_14(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yxv + = -1 * Sum ( p5 h11 p8 ) * i1 ( h2 p5 h11 p8 )_yx * v ( h11 p8 p1 p5 )_v @@ -22301,7 +22301,7 @@ C i0 ( h2 p1 )_yxv + = -1 * Sum ( p5 h11 p8 ) * i1 ( h2 p5 h11 p8 )_yx * v ( END SUBROUTINE ccsd_y_tr1_14_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p5 h11 p8 )_yx + = 1 * Sum ( h7 p6 ) * x ( p5 p6 h7 h11 )_x * y ( h2 h7 p6 p8 )_y @@ -22503,7 +22503,7 @@ C i1 ( h2 p5 h11 p8 )_yx + = 1 * Sum ( h7 p6 ) * x ( p5 p6 h7 h11 )_x * y ( RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_14_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p5 h11 p8 )_yx @@ -22575,7 +22575,7 @@ C i1 ( h2 p5 h11 p8 )_yx END SUBROUTINE ccsd_y_tr1_14_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p5 h11 p8 )_yxt + = -1 * Sum ( h4 ) * t ( p5 h4 )_t * i2 ( h2 h4 h11 p8 )_yx @@ -22719,7 +22719,7 @@ C i1 ( h2 p5 h11 p8 )_yxt + = -1 * Sum ( h4 ) * t ( p5 h4 )_t * i2 ( h2 h4 h END SUBROUTINE ccsd_y_tr1_14_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h11 p8 )_yx + = -1 * Sum ( p7 ) * x ( p7 h11 )_x * y ( h2 h4 p7 p8 )_y @@ -22888,7 +22888,7 @@ C i2 ( h2 h4 h11 p8 )_yx + = -1 * Sum ( p7 ) * x ( p7 h11 )_x * y ( h2 h4 p7 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_14_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h11 p8 )_yx @@ -22960,7 +22960,7 @@ C i2 ( h2 h4 h11 p8 )_yx END SUBROUTINE ccsd_y_tr1_14_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p5 h11 p8 )_ytx + = 1 * Sum ( h7 ) * x ( p5 h7 )_x * i2 ( h2 h7 h11 p8 )_yt @@ -23104,7 +23104,7 @@ C i1 ( h2 p5 h11 p8 )_ytx + = 1 * Sum ( h7 ) * x ( p5 h7 )_x * i2 ( h2 h7 h1 END SUBROUTINE ccsd_y_tr1_14_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h11 p8 )_yt + = 1 * Sum ( p3 ) * t ( p3 h11 )_t * y ( h2 h7 p3 p8 )_y @@ -23273,7 +23273,7 @@ C i2 ( h2 h7 h11 p8 )_yt + = 1 * Sum ( p3 ) * t ( p3 h11 )_t * y ( h2 h7 p3 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_14_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h11 p8 )_yt diff --git a/src/tce/ccsd_yr/ccsd_y_tr2.F b/src/tce/ccsd_yr/ccsd_y_tr2.F index 7e8e599ee6..16da710fed 100644 --- a/src/tce/ccsd_yr/ccsd_y_tr2.F +++ b/src/tce/ccsd_yr/ccsd_y_tr2.F @@ -1,7 +1,7 @@ SUBROUTINE ccsd_y_tr2(d_f1,d_i0,d_t1,d_v2,d_x1,d_x2,d_y1,d_y2,k_f1 &_offset,k_i0_offset,k_t1_offset,k_v2_offset,k_x1_offset,k_x2_offse &t,k_y1_offset,k_y2_offset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_vxy + = -1 * P( 2 ) * Sum ( h6 ) * y ( h6 p1 )_y * i1 ( h3 h4 h6 p2 )_vx @@ -326,7 +326,7 @@ C i2 ( h3 h4 h10 p5 )_yx + = -1 * Sum ( p8 ) * x ( p8 h10 )_x * y ( END SUBROUTINE ccsd_y_tr2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_vxy + = -1 * P( 2 ) * Sum ( h6 ) * y ( h6 p1 )_y * i1 ( h3 h4 h6 p2 )_vx @@ -477,7 +477,7 @@ C i0 ( h3 h4 p1 p2 )_vxy + = -1 * P( 2 ) * Sum ( h6 ) * y ( h6 p1 )_y * i1 ( END SUBROUTINE ccsd_y_tr2_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h6 p1 )_vx + = -1 * Sum ( p5 ) * x ( p5 h6 )_x * v ( h3 h4 p1 p5 )_v @@ -630,7 +630,7 @@ C i1 ( h3 h4 h6 p1 )_vx + = -1 * Sum ( p5 ) * x ( p5 h6 )_x * v ( h3 h4 p1 p RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h6 p1 )_vx @@ -702,7 +702,7 @@ C i1 ( h3 h4 h6 p1 )_vx END SUBROUTINE ccsd_y_tr2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yxv + = 1 * P( 2 ) * Sum ( h5 ) * i1 ( h3 h5 )_yx * v ( h4 h5 p1 p2 )_v @@ -863,7 +863,7 @@ C i0 ( h3 h4 p1 p2 )_yxv + = 1 * P( 2 ) * Sum ( h5 ) * i1 ( h3 h5 )_yx * v ( END SUBROUTINE ccsd_y_tr2_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h5 )_yx + = 1 * Sum ( p6 ) * x ( p6 h5 )_x * y ( h3 p6 )_y @@ -990,7 +990,7 @@ C i1 ( h3 h5 )_yx + = 1 * Sum ( p6 ) * x ( p6 h5 )_x * y ( h3 p6 )_y RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h5 )_yx @@ -1046,7 +1046,7 @@ C i1 ( h3 h5 )_yx END SUBROUTINE ccsd_y_tr2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h5 )_yx + = 1/2 * Sum ( h8 p6 p7 ) * x ( p6 p7 h5 h8 )_x * y ( h3 h8 p6 p7 )_y @@ -1222,7 +1222,7 @@ C i1 ( h3 h5 )_yx + = 1/2 * Sum ( h8 p6 p7 ) * x ( p6 p7 h5 h8 )_x * y ( h3 END SUBROUTINE ccsd_y_tr2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_vxy + = 1 * P( 4 ) * y ( h3 p1 )_y * i1 ( h4 p2 )_vx @@ -1381,7 +1381,7 @@ C i0 ( h3 h4 p1 p2 )_vxy + = 1 * P( 4 ) * y ( h3 p1 )_y * i1 ( h4 p2 )_vx END SUBROUTINE ccsd_y_tr2_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h3 h5 p1 p6 )_v @@ -1541,7 +1541,7 @@ C i1 ( h3 p1 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h3 h5 p1 p6 )_ RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_vx @@ -1597,7 +1597,7 @@ C i1 ( h3 p1 )_vx END SUBROUTINE ccsd_y_tr2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_fxy + = -1 * P( 2 ) * Sum ( h9 ) * y ( h3 h9 p1 p2 )_y * i1 ( h4 h9 )_fx @@ -1759,7 +1759,7 @@ C i0 ( h3 h4 p1 p2 )_fxy + = -1 * P( 2 ) * Sum ( h9 ) * y ( h3 h9 p1 p2 )_y END SUBROUTINE ccsd_y_tr2_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_fx + = 1 * Sum ( p8 ) * x ( p8 h9 )_x * i2 ( h3 p8 )_f @@ -1886,7 +1886,7 @@ C i1 ( h3 h9 )_fx + = 1 * Sum ( p8 ) * x ( p8 h9 )_x * i2 ( h3 p8 )_f RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_fx @@ -1941,7 +1941,7 @@ C i1 ( h3 h9 )_fx RETURN END SUBROUTINE ccsd_y_tr2_4_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p8 )_f + = 1 * f ( h3 p8 )_f @@ -2025,7 +2025,7 @@ C i2 ( h3 p8 )_f + = 1 * f ( h3 p8 )_f RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_4_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p8 )_f @@ -2081,7 +2081,7 @@ C i2 ( h3 p8 )_f END SUBROUTINE ccsd_y_tr2_4_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p8 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 p5 p8 )_v @@ -2242,7 +2242,7 @@ C i2 ( h3 p8 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 p5 p8 ) END SUBROUTINE ccsd_y_tr2_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vx + = 1 * Sum ( h5 p7 ) * x ( p7 h5 )_x * v ( h3 h5 h9 p7 )_v @@ -2387,7 +2387,7 @@ C i1 ( h3 h9 )_vx + = 1 * Sum ( h5 p7 ) * x ( p7 h5 )_x * v ( h3 h5 h9 p7 )_ END SUBROUTINE ccsd_y_tr2_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vx + = -1/2 * Sum ( h5 p6 p7 ) * x ( p6 p7 h5 h9 )_x * v ( h3 h5 p6 p7 )_v @@ -2563,7 +2563,7 @@ C i1 ( h3 h9 )_vx + = -1/2 * Sum ( h5 p6 p7 ) * x ( p6 p7 h5 h9 )_x * v ( h3 END SUBROUTINE ccsd_y_tr2_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vxt + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 p5 )_vx @@ -2691,7 +2691,7 @@ C i1 ( h3 h9 )_vxt + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 p5 )_vx END SUBROUTINE ccsd_y_tr2_4_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h3 h7 p5 p8 )_v @@ -2851,7 +2851,7 @@ C i2 ( h3 p5 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h3 h7 p5 p8 )_ RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_4_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_vx @@ -2907,7 +2907,7 @@ C i2 ( h3 p5 )_vx END SUBROUTINE ccsd_y_tr2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yxf + = 1 * P( 2 ) * Sum ( h5 ) * i1 ( h3 h4 h5 p1 )_yx * f ( h5 p2 )_f @@ -3060,7 +3060,7 @@ C i0 ( h3 h4 p1 p2 )_yxf + = 1 * P( 2 ) * Sum ( h5 ) * i1 ( h3 h4 h5 p1 )_yx END SUBROUTINE ccsd_y_tr2_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h5 p1 )_yx + = -1 * Sum ( p6 ) * x ( p6 h5 )_x * y ( h3 h4 p1 p6 )_y @@ -3213,7 +3213,7 @@ C i1 ( h3 h4 h5 p1 )_yx + = -1 * Sum ( p6 ) * x ( p6 h5 )_x * y ( h3 h4 p1 p RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h5 p1 )_yx @@ -3285,7 +3285,7 @@ C i1 ( h3 h4 h5 p1 )_yx END SUBROUTINE ccsd_y_tr2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_vxy + = -1 * Sum ( h11 h9 ) * y ( h9 h11 p1 p2 )_y * i1 ( h3 h4 h9 h11 )_vx @@ -3445,7 +3445,7 @@ C i0 ( h3 h4 p1 p2 )_vxy + = -1 * Sum ( h11 h9 ) * y ( h9 h11 p1 p2 )_y * i1 END SUBROUTINE ccsd_y_tr2_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h11 )_vx + = 1 * Sum ( p6 ) * x ( p6 h9 )_x * v ( h3 h4 h11 p6 )_v @@ -3598,7 +3598,7 @@ C i1 ( h3 h4 h9 h11 )_vx + = 1 * Sum ( p6 ) * x ( p6 h9 )_x * v ( h3 h4 h11 RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_6_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h11 )_vx @@ -3670,7 +3670,7 @@ C i1 ( h3 h4 h9 h11 )_vx END SUBROUTINE ccsd_y_tr2_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h11 )_vx + = -1/4 * Sum ( p5 p6 ) * x ( p5 p6 h9 h11 )_x * v ( h3 h4 p5 p6 )_v @@ -3832,7 +3832,7 @@ C i1 ( h3 h4 h9 h11 )_vx + = -1/4 * Sum ( p5 p6 ) * x ( p5 p6 h9 h11 )_x * v END SUBROUTINE ccsd_y_tr2_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h11 )_vxt + = -1 * Sum ( p5 ) * t ( p5 h11 )_t * i2 ( h3 h4 h9 p5 )_vx @@ -3986,7 +3986,7 @@ C i1 ( h3 h4 h9 h11 )_vxt + = -1 * Sum ( p5 ) * t ( p5 h11 )_t * i2 ( h3 h4 END SUBROUTINE ccsd_y_tr2_6_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h9 p5 )_vx + = -1 * Sum ( p7 ) * x ( p7 h9 )_x * v ( h3 h4 p5 p7 )_v @@ -4139,7 +4139,7 @@ C i2 ( h3 h4 h9 p5 )_vx + = -1 * Sum ( p7 ) * x ( p7 h9 )_x * v ( h3 h4 p5 p RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_6_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h9 p5 )_vx @@ -4211,7 +4211,7 @@ C i2 ( h3 h4 h9 p5 )_vx END SUBROUTINE ccsd_y_tr2_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yxv + = 1 * P( 4 ) * Sum ( h6 h5 ) * i1 ( h3 h6 h5 p1 )_yx * v ( h4 h5 h6 p2 )_v @@ -4396,7 +4396,7 @@ C i0 ( h3 h4 p1 p2 )_yxv + = 1 * P( 4 ) * Sum ( h6 h5 ) * i1 ( h3 h6 h5 p1 ) END SUBROUTINE ccsd_y_tr2_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h6 h5 p1 )_yx + = 1 * Sum ( p7 ) * x ( p7 h5 )_x * y ( h3 h6 p1 p7 )_y @@ -4565,7 +4565,7 @@ C i1 ( h3 h6 h5 p1 )_yx + = 1 * Sum ( p7 ) * x ( p7 h5 )_x * y ( h3 h6 p1 p7 RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_7_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h6 h5 p1 )_yx @@ -4637,7 +4637,7 @@ C i1 ( h3 h6 h5 p1 )_yx END SUBROUTINE ccsd_y_tr2_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_vxy + = -1 * P( 4 ) * Sum ( p8 h11 ) * y ( h3 h11 p1 p8 )_y * i1 ( h4 p8 h11 p2 )_vx @@ -4837,7 +4837,7 @@ C i0 ( h3 h4 p1 p2 )_vxy + = -1 * P( 4 ) * Sum ( p8 h11 ) * y ( h3 h11 p1 p8 END SUBROUTINE ccsd_y_tr2_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p8 h11 p1 )_vx + = -1 * Sum ( p6 ) * x ( p6 h11 )_x * v ( h3 p8 p1 p6 )_v @@ -4990,7 +4990,7 @@ C i1 ( h3 p8 h11 p1 )_vx + = -1 * Sum ( p6 ) * x ( p6 h11 )_x * v ( h3 p8 p1 RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_8_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p8 h11 p1 )_vx @@ -5062,7 +5062,7 @@ C i1 ( h3 p8 h11 p1 )_vx END SUBROUTINE ccsd_y_tr2_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p8 h11 p1 )_vtx + = 1 * Sum ( h7 ) * x ( p8 h7 )_x * i2 ( h3 h7 h11 p1 )_vt @@ -5206,7 +5206,7 @@ C i1 ( h3 p8 h11 p1 )_vtx + = 1 * Sum ( h7 ) * x ( p8 h7 )_x * i2 ( h3 h7 h1 END SUBROUTINE ccsd_y_tr2_8_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h7 h11 p1 )_vt + = 1 * Sum ( p5 ) * t ( p5 h11 )_t * v ( h3 h7 p1 p5 )_v @@ -5375,7 +5375,7 @@ C i2 ( h3 h7 h11 p1 )_vt + = 1 * Sum ( p5 ) * t ( p5 h11 )_t * v ( h3 h7 p1 RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_8_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h7 h11 p1 )_vt @@ -5447,7 +5447,7 @@ C i2 ( h3 h7 h11 p1 )_vt END SUBROUTINE ccsd_y_tr2_8_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p8 h11 p1 )_vxt + = 1 * Sum ( h6 ) * t ( p8 h6 )_t * i2 ( h3 h6 h11 p1 )_vx @@ -5591,7 +5591,7 @@ C i1 ( h3 p8 h11 p1 )_vxt + = 1 * Sum ( h6 ) * t ( p8 h6 )_t * i2 ( h3 h6 h1 END SUBROUTINE ccsd_y_tr2_8_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h6 h11 p1 )_vx + = 1 * Sum ( p7 ) * x ( p7 h11 )_x * v ( h3 h6 p1 p7 )_v @@ -5760,7 +5760,7 @@ C i2 ( h3 h6 h11 p1 )_vx + = 1 * Sum ( p7 ) * x ( p7 h11 )_x * v ( h3 h6 p1 RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_8_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h6 h11 p1 )_vx @@ -5832,7 +5832,7 @@ C i2 ( h3 h6 h11 p1 )_vx END SUBROUTINE ccsd_y_tr2_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yxv + = -1 * Sum ( h5 p6 ) * i1 ( h3 h4 h5 p6 )_yx * v ( h5 p6 p1 p2 )_v @@ -5981,7 +5981,7 @@ C i0 ( h3 h4 p1 p2 )_yxv + = -1 * Sum ( h5 p6 ) * i1 ( h3 h4 h5 p6 )_yx * v END SUBROUTINE ccsd_y_tr2_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h5 p6 )_yx + = -1 * Sum ( p7 ) * x ( p7 h5 )_x * y ( h3 h4 p6 p7 )_y @@ -6134,7 +6134,7 @@ C i1 ( h3 h4 h5 p6 )_yx + = -1 * Sum ( p7 ) * x ( p7 h5 )_x * y ( h3 h4 p6 p RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_9_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h5 p6 )_yx @@ -6206,7 +6206,7 @@ C i1 ( h3 h4 h5 p6 )_yx END SUBROUTINE ccsd_y_tr2_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_vxy + = 1 * P( 2 ) * Sum ( p9 ) * y ( h3 h4 p1 p9 )_y * i1 ( p9 p2 )_vx @@ -6369,7 +6369,7 @@ C i0 ( h3 h4 p1 p2 )_vxy + = 1 * P( 2 ) * Sum ( p9 ) * y ( h3 h4 p1 p9 )_y * END SUBROUTINE ccsd_y_tr2_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 p1 )_vx + = -1 * Sum ( h5 p7 ) * x ( p7 h5 )_x * v ( h5 p9 p1 p7 )_v @@ -6513,7 +6513,7 @@ C i1 ( p9 p1 )_vx + = -1 * Sum ( h5 p7 ) * x ( p7 h5 )_x * v ( h5 p9 p1 p7 ) RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_10_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 p1 )_vx @@ -6569,7 +6569,7 @@ C i1 ( p9 p1 )_vx END SUBROUTINE ccsd_y_tr2_10_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 p1 )_vx + = 1/2 * Sum ( h5 h6 p7 ) * x ( p7 p9 h5 h6 )_x * v ( h5 h6 p1 p7 )_v @@ -6745,7 +6745,7 @@ C i1 ( p9 p1 )_vx + = 1/2 * Sum ( h5 h6 p7 ) * x ( p7 p9 h5 h6 )_x * v ( h5 END SUBROUTINE ccsd_y_tr2_10_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 p1 )_vxt + = -1 * Sum ( h6 ) * t ( p9 h6 )_t * i2 ( h6 p1 )_vx @@ -6873,7 +6873,7 @@ C i1 ( p9 p1 )_vxt + = -1 * Sum ( h6 ) * t ( p9 h6 )_t * i2 ( h6 p1 )_vx END SUBROUTINE ccsd_y_tr2_10_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p1 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h6 h7 p1 p8 )_v @@ -7033,7 +7033,7 @@ C i2 ( h6 p1 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h6 h7 p1 p8 )_ RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_10_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p1 )_vx @@ -7089,7 +7089,7 @@ C i2 ( h6 p1 )_vx END SUBROUTINE ccsd_y_tr2_10_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 p1 )_vtx + = 1 * Sum ( h7 ) * x ( p9 h7 )_x * i2 ( h7 p1 )_vt @@ -7217,7 +7217,7 @@ C i1 ( p9 p1 )_vtx + = 1 * Sum ( h7 ) * x ( p9 h7 )_x * i2 ( h7 p1 )_vt END SUBROUTINE ccsd_y_tr2_10_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h7 p1 p5 )_v @@ -7377,7 +7377,7 @@ C i2 ( h7 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h7 p1 p5 )_ RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_10_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p1 )_vt @@ -7433,7 +7433,7 @@ C i2 ( h7 p1 )_vt END SUBROUTINE ccsd_y_tr2_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yxv + = 1/2 * P( 2 ) * Sum ( p5 ) * i1 ( p5 p1 )_yx * v ( h3 h4 p2 p5 )_v @@ -7595,7 +7595,7 @@ C i0 ( h3 h4 p1 p2 )_yxv + = 1/2 * P( 2 ) * Sum ( p5 ) * i1 ( p5 p1 )_yx * v END SUBROUTINE ccsd_y_tr2_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 p1 )_yx + = 1 * Sum ( h7 h8 p6 ) * x ( p5 p6 h7 h8 )_x * y ( h7 h8 p1 p6 )_y @@ -7770,7 +7770,7 @@ C i1 ( p5 p1 )_yx + = 1 * Sum ( h7 h8 p6 ) * x ( p5 p6 h7 h8 )_x * y ( h7 h8 RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_11_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 p1 )_yx @@ -7826,7 +7826,7 @@ C i1 ( p5 p1 )_yx END SUBROUTINE ccsd_y_tr2_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yxv + = 1 * P( 4 ) * Sum ( p6 h5 ) * i1 ( h3 p6 h5 p1 )_yx * v ( h4 h5 p2 p6 )_v @@ -8028,7 +8028,7 @@ C i0 ( h3 h4 p1 p2 )_yxv + = 1 * P( 4 ) * Sum ( p6 h5 ) * i1 ( h3 p6 h5 p1 ) END SUBROUTINE ccsd_y_tr2_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p6 h5 p1 )_yx + = 1 * Sum ( h8 p7 ) * x ( p6 p7 h5 h8 )_x * y ( h3 h8 p1 p7 )_y @@ -8230,7 +8230,7 @@ C i1 ( h3 p6 h5 p1 )_yx + = 1 * Sum ( h8 p7 ) * x ( p6 p7 h5 h8 )_x * y ( h3 RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_12_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p6 h5 p1 )_yx @@ -8302,7 +8302,7 @@ C i1 ( h3 p6 h5 p1 )_yx END SUBROUTINE ccsd_y_tr2_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yxv + = 1/4 * Sum ( h9 h10 ) * i1 ( h3 h4 h9 h10 )_yx * v ( h9 h10 p1 p2 )_v @@ -8464,7 +8464,7 @@ C i0 ( h3 h4 p1 p2 )_yxv + = 1/4 * Sum ( h9 h10 ) * i1 ( h3 h4 h9 h10 )_yx * END SUBROUTINE ccsd_y_tr2_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_yx + = 1 * Sum ( p7 p8 ) * x ( p7 p8 h9 h10 )_x * y ( h3 h4 p7 p8 )_y @@ -8625,7 +8625,7 @@ C i1 ( h3 h4 h9 h10 )_yx + = 1 * Sum ( p7 p8 ) * x ( p7 p8 h9 h10 )_x * y ( RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_13_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_yx @@ -8697,7 +8697,7 @@ C i1 ( h3 h4 h9 h10 )_yx END SUBROUTINE ccsd_y_tr2_13_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_yxt + = -4 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 h4 h10 p5 )_yx @@ -8851,7 +8851,7 @@ C i1 ( h3 h4 h9 h10 )_yxt + = -4 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 h4 h END SUBROUTINE ccsd_y_tr2_13_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h10 p5 )_yx + = -1 * Sum ( p8 ) * x ( p8 h10 )_x * y ( h3 h4 p5 p8 )_y @@ -9004,7 +9004,7 @@ C i2 ( h3 h4 h10 p5 )_yx + = -1 * Sum ( p8 ) * x ( p8 h10 )_x * y ( h3 h4 p5 RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_13_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h10 p5 )_yx diff --git a/src/tce/ccsd_yr/ccsd_yr1.F b/src/tce/ccsd_yr/ccsd_yr1.F index 0196bbe3a2..29ce0b0e2a 100644 --- a/src/tce/ccsd_yr/ccsd_yr1.F +++ b/src/tce/ccsd_yr/ccsd_yr1.F @@ -1,7 +1,7 @@ SUBROUTINE ccsd_yr1(d_f1,d_i0,d_t1,d_t2,d_v2,d_y1,d_y2,k_f1_offset &,k_i0_offset,k_t1_offset,k_t2_offset,k_v2_offset,k_y1_offset,k_y2_ &offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yf + = -1 * Sum ( h7 ) * y ( h7 p1 )_y * i1 ( h2 h7 )_f @@ -526,7 +526,7 @@ C i2 ( h2 h4 h6 p7 )_yt + = 1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h2 END SUBROUTINE ccsd_yr1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yf + = -1 * Sum ( h7 ) * y ( h7 p1 )_y * i1 ( h2 h7 )_f @@ -650,7 +650,7 @@ C i0 ( h2 p1 )_yf + = -1 * Sum ( h7 ) * y ( h7 p1 )_y * i1 ( h2 h7 )_f RETURN END SUBROUTINE ccsd_yr1_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_f + = 1 * f ( h2 h7 )_f @@ -732,7 +732,7 @@ C i1 ( h2 h7 )_f + = 1 * f ( h2 h7 )_f RETURN END SUBROUTINE OFFSET_ccsd_yr1_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_f @@ -788,7 +788,7 @@ C i1 ( h2 h7 )_f END SUBROUTINE ccsd_yr1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_ft + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * i2 ( h2 p3 )_f @@ -912,7 +912,7 @@ C i1 ( h2 h7 )_ft + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * i2 ( h2 p3 )_f RETURN END SUBROUTINE ccsd_yr1_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p3 )_f + = 1 * f ( h2 p3 )_f @@ -996,7 +996,7 @@ C i2 ( h2 p3 )_f + = 1 * f ( h2 p3 )_f RETURN END SUBROUTINE OFFSET_ccsd_yr1_1_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p3 )_f @@ -1052,7 +1052,7 @@ C i2 ( h2 p3 )_f END SUBROUTINE ccsd_yr1_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p3 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h2 h6 p3 p5 )_v @@ -1213,7 +1213,7 @@ C i2 ( h2 p3 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h2 h6 p3 p5 )_ END SUBROUTINE ccsd_yr1_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h2 h4 h7 p3 )_v @@ -1355,7 +1355,7 @@ C i1 ( h2 h7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h2 h4 h7 p3 )_ END SUBROUTINE ccsd_yr1_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_vt + = -1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h7 )_t * v ( h2 h6 p3 p4 )_v @@ -1528,7 +1528,7 @@ C i1 ( h2 h7 )_vt + = -1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h7 )_t * v ( h2 END SUBROUTINE ccsd_yr1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yf + = 1 * Sum ( p7 ) * y ( h2 p7 )_y * i1 ( p7 p1 )_f @@ -1652,7 +1652,7 @@ C i0 ( h2 p1 )_yf + = 1 * Sum ( p7 ) * y ( h2 p7 )_y * i1 ( p7 p1 )_f RETURN END SUBROUTINE ccsd_yr1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p1 )_f + = 1 * f ( p7 p1 )_f @@ -1734,7 +1734,7 @@ C i1 ( p7 p1 )_f + = 1 * f ( p7 p1 )_f RETURN END SUBROUTINE OFFSET_ccsd_yr1_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p1 )_f @@ -1790,7 +1790,7 @@ C i1 ( p7 p1 )_f END SUBROUTINE ccsd_yr1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p7 p1 p3 )_v @@ -1932,7 +1932,7 @@ C i1 ( p7 p1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p7 p1 p3 ) END SUBROUTINE ccsd_yr1_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p1 )_vtt + = -1 * Sum ( h4 ) * t ( p7 h4 )_t * i2 ( h4 p1 )_vt @@ -2057,7 +2057,7 @@ C i1 ( p7 p1 )_vtt + = -1 * Sum ( h4 ) * t ( p7 h4 )_t * i2 ( h4 p1 )_vt END SUBROUTINE ccsd_yr1_2_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h4 h6 p1 p5 )_v @@ -2217,7 +2217,7 @@ C i2 ( h4 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h4 h6 p1 p5 )_ RETURN END SUBROUTINE OFFSET_ccsd_yr1_2_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p1 )_vt @@ -2273,7 +2273,7 @@ C i2 ( h4 p1 )_vt END SUBROUTINE ccsd_yr1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yv + = -1 * Sum ( h4 p3 ) * y ( h4 p3 )_y * v ( h2 p3 h4 p1 )_v @@ -2407,7 +2407,7 @@ C i0 ( h2 p1 )_yv + = -1 * Sum ( h4 p3 ) * y ( h4 p3 )_y * v ( h2 p3 h4 p1 ) END SUBROUTINE ccsd_yr1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yf + = 1 * Sum ( h11 p9 ) * y ( h2 h11 p1 p9 )_y * i1 ( p9 h11 )_f @@ -2565,7 +2565,7 @@ C i0 ( h2 p1 )_yf + = 1 * Sum ( h11 p9 ) * y ( h2 h11 p1 p9 )_y * i1 ( p9 h1 RETURN END SUBROUTINE ccsd_yr1_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_f + = 1 * f ( p9 h11 )_f @@ -2647,7 +2647,7 @@ C i1 ( p9 h11 )_f + = 1 * f ( p9 h11 )_f RETURN END SUBROUTINE OFFSET_ccsd_yr1_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_f @@ -2703,7 +2703,7 @@ C i1 ( p9 h11 )_f END SUBROUTINE ccsd_yr1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_ft + = -1 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h10 h11 )_f @@ -2827,7 +2827,7 @@ C i1 ( p9 h11 )_ft + = -1 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h10 h11 )_f RETURN END SUBROUTINE ccsd_yr1_4_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_f + = 1 * f ( h10 h11 )_f @@ -2911,7 +2911,7 @@ C i2 ( h10 h11 )_f + = 1 * f ( h10 h11 )_f RETURN END SUBROUTINE OFFSET_ccsd_yr1_4_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_f @@ -2967,7 +2967,7 @@ C i2 ( h10 h11 )_f END SUBROUTINE ccsd_yr1_4_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_ft + = 1 * Sum ( p3 ) * t ( p3 h11 )_t * i3 ( h10 p3 )_f @@ -3094,7 +3094,7 @@ C i2 ( h10 h11 )_ft + = 1 * Sum ( p3 ) * t ( p3 h11 )_t * i3 ( h10 p3 )_f RETURN END SUBROUTINE ccsd_yr1_4_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p3 )_f + = 1 * f ( h10 p3 )_f @@ -3178,7 +3178,7 @@ C i3 ( h10 p3 )_f + = 1 * f ( h10 p3 )_f RETURN END SUBROUTINE OFFSET_ccsd_yr1_4_2_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p3 )_f @@ -3234,7 +3234,7 @@ C i3 ( h10 p3 )_f END SUBROUTINE ccsd_yr1_4_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p3 )_vt + = -1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 h10 p3 p7 )_v @@ -3395,7 +3395,7 @@ C i3 ( h10 p3 )_vt + = -1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 h10 p3 p7 END SUBROUTINE ccsd_yr1_4_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h10 h11 p5 )_v @@ -3540,7 +3540,7 @@ C i2 ( h10 h11 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h10 h11 END SUBROUTINE ccsd_yr1_4_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_vt + = 1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h11 )_t * v ( h6 h10 p3 p4 )_v @@ -3716,7 +3716,7 @@ C i2 ( h10 h11 )_vt + = 1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h11 )_t * v ( END SUBROUTINE ccsd_yr1_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_ft + = 1 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( p9 p7 )_f @@ -3840,7 +3840,7 @@ C i1 ( p9 h11 )_ft + = 1 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( p9 p7 )_f RETURN END SUBROUTINE ccsd_yr1_4_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p9 p7 )_f + = 1 * f ( p9 p7 )_f @@ -3924,7 +3924,7 @@ C i2 ( p9 p7 )_f + = 1 * f ( p9 p7 )_f RETURN END SUBROUTINE OFFSET_ccsd_yr1_4_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p9 p7 )_f @@ -3980,7 +3980,7 @@ C i2 ( p9 p7 )_f END SUBROUTINE ccsd_yr1_4_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p9 p7 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p9 p5 p7 )_v @@ -4125,7 +4125,7 @@ C i2 ( p9 p7 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p9 p5 p7 )_ END SUBROUTINE ccsd_yr1_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p9 h11 p3 )_v @@ -4259,7 +4259,7 @@ C i1 ( p9 h11 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p9 h11 p3 END SUBROUTINE ccsd_yr1_4_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_ft + = 1 * Sum ( h5 p4 ) * t ( p4 p9 h5 h11 )_t * i2 ( h5 p4 )_f @@ -4417,7 +4417,7 @@ C i1 ( p9 h11 )_ft + = 1 * Sum ( h5 p4 ) * t ( p4 p9 h5 h11 )_t * i2 ( h5 p4 RETURN END SUBROUTINE ccsd_yr1_4_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p4 )_f + = 1 * f ( h5 p4 )_f @@ -4501,7 +4501,7 @@ C i2 ( h5 p4 )_f + = 1 * f ( h5 p4 )_f RETURN END SUBROUTINE OFFSET_ccsd_yr1_4_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p4 )_f @@ -4557,7 +4557,7 @@ C i2 ( h5 p4 )_f END SUBROUTINE ccsd_yr1_4_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p4 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h5 h8 p4 p7 )_v @@ -4718,7 +4718,7 @@ C i2 ( h5 p4 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h5 h8 p4 p7 )_ END SUBROUTINE ccsd_yr1_4_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_vt + = 1/2 * Sum ( h5 h6 p4 ) * t ( p4 p9 h5 h6 )_t * i2 ( h5 h6 h11 p4 )_v @@ -4882,7 +4882,7 @@ C i1 ( p9 h11 )_vt + = 1/2 * Sum ( h5 h6 p4 ) * t ( p4 p9 h5 h6 )_t * i2 ( h RETURN END SUBROUTINE ccsd_yr1_4_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h11 p4 )_v + = 1 * v ( h5 h6 h11 p4 )_v @@ -4981,7 +4981,7 @@ C i2 ( h5 h6 h11 p4 )_v + = 1 * v ( h5 h6 h11 p4 )_v RETURN END SUBROUTINE OFFSET_ccsd_yr1_4_6_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h11 p4 )_v @@ -5051,7 +5051,7 @@ C i2 ( h5 h6 h11 p4 )_v END SUBROUTINE ccsd_yr1_4_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h11 p4 )_vt + = -1 * Sum ( p7 ) * t ( p7 h11 )_t * v ( h5 h6 p4 p7 )_v @@ -5205,7 +5205,7 @@ C i2 ( h5 h6 h11 p4 )_vt + = -1 * Sum ( p7 ) * t ( p7 h11 )_t * v ( h5 h6 p4 END SUBROUTINE ccsd_yr1_4_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_vt + = 1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h11 )_t * v ( h6 p9 p3 p4 )_v @@ -5370,7 +5370,7 @@ C i1 ( p9 h11 )_vt + = 1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h11 )_t * v ( h END SUBROUTINE ccsd_yr1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yv + = -1/2 * Sum ( h11 h12 p9 ) * y ( h11 h12 p1 p9 )_y * i1 ( h2 p9 h11 h12 )_v @@ -5532,7 +5532,7 @@ C i0 ( h2 p1 )_yv + = -1/2 * Sum ( h11 h12 p9 ) * y ( h11 h12 p1 p9 )_y * i1 RETURN END SUBROUTINE ccsd_yr1_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_v + = 1 * v ( h2 p9 h11 h12 )_v @@ -5631,7 +5631,7 @@ C i1 ( h2 p9 h11 h12 )_v + = 1 * v ( h2 p9 h11 h12 )_v RETURN END SUBROUTINE OFFSET_ccsd_yr1_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_v @@ -5701,7 +5701,7 @@ C i1 ( h2 p9 h11 h12 )_v END SUBROUTINE ccsd_yr1_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_vt + = -1 * Sum ( h7 ) * t ( p9 h7 )_t * i2 ( h2 h7 h11 h12 )_v @@ -5841,7 +5841,7 @@ C i1 ( h2 p9 h11 h12 )_vt + = -1 * Sum ( h7 ) * t ( p9 h7 )_t * i2 ( h2 h7 h RETURN END SUBROUTINE ccsd_yr1_5_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h11 h12 )_v + = 1 * v ( h2 h7 h11 h12 )_v @@ -5949,7 +5949,7 @@ C i2 ( h2 h7 h11 h12 )_v + = 1 * v ( h2 h7 h11 h12 )_v RETURN END SUBROUTINE OFFSET_ccsd_yr1_5_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h11 h12 )_v @@ -6019,7 +6019,7 @@ C i2 ( h2 h7 h11 h12 )_v END SUBROUTINE ccsd_yr1_5_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h11 h12 )_vt + = -2 * Sum ( p3 ) * t ( p3 h11 )_t * i3 ( h2 h7 h12 p3 )_v @@ -6172,7 +6172,7 @@ C i2 ( h2 h7 h11 h12 )_vt + = -2 * Sum ( p3 ) * t ( p3 h11 )_t * i3 ( h2 h7 RETURN END SUBROUTINE ccsd_yr1_5_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p3 )_v + = 1 * v ( h2 h7 h12 p3 )_v @@ -6281,7 +6281,7 @@ C i3 ( h2 h7 h12 p3 )_v + = 1 * v ( h2 h7 h12 p3 )_v RETURN END SUBROUTINE OFFSET_ccsd_yr1_5_2_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p3 )_v @@ -6351,7 +6351,7 @@ C i3 ( h2 h7 h12 p3 )_v END SUBROUTINE ccsd_yr1_5_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h12 )_t * v ( h2 h7 p3 p5 )_v @@ -6521,7 +6521,7 @@ C i3 ( h2 h7 h12 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h12 )_t * v ( h2 h7 END SUBROUTINE ccsd_yr1_5_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h11 h12 )_vt + = 1/2 * Sum ( p3 p4 ) * t ( p3 p4 h11 h12 )_t * v ( h2 h7 p3 p4 )_v @@ -6693,7 +6693,7 @@ C i2 ( h2 h7 h11 h12 )_vt + = 1/2 * Sum ( p3 p4 ) * t ( p3 p4 h11 h12 )_t * END SUBROUTINE ccsd_yr1_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_vt + = -2 * Sum ( p3 ) * t ( p3 h11 )_t * i2 ( h2 p9 h12 p3 )_v @@ -6845,7 +6845,7 @@ C i1 ( h2 p9 h11 h12 )_vt + = -2 * Sum ( p3 ) * t ( p3 h11 )_t * i2 ( h2 p9 RETURN END SUBROUTINE ccsd_yr1_5_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p9 h12 p3 )_v + = 1 * v ( h2 p9 h12 p3 )_v @@ -6946,7 +6946,7 @@ C i2 ( h2 p9 h12 p3 )_v + = 1 * v ( h2 p9 h12 p3 )_v RETURN END SUBROUTINE OFFSET_ccsd_yr1_5_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p9 h12 p3 )_v @@ -7016,7 +7016,7 @@ C i2 ( h2 p9 h12 p3 )_v END SUBROUTINE ccsd_yr1_5_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p9 h12 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h12 )_t * v ( h2 p9 p3 p5 )_v @@ -7170,7 +7170,7 @@ C i2 ( h2 p9 h12 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h12 )_t * v ( h2 p9 END SUBROUTINE ccsd_yr1_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_ft + = 1 * Sum ( p5 ) * t ( p5 p9 h11 h12 )_t * i2 ( h2 p5 )_f @@ -7321,7 +7321,7 @@ C i1 ( h2 p9 h11 h12 )_ft + = 1 * Sum ( p5 ) * t ( p5 p9 h11 h12 )_t * i2 ( RETURN END SUBROUTINE ccsd_yr1_5_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p5 )_f + = 1 * f ( h2 p5 )_f @@ -7405,7 +7405,7 @@ C i2 ( h2 p5 )_f + = 1 * f ( h2 p5 )_f RETURN END SUBROUTINE OFFSET_ccsd_yr1_5_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p5 )_f @@ -7461,7 +7461,7 @@ C i2 ( h2 p5 )_f END SUBROUTINE ccsd_yr1_5_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p5 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h2 h8 p5 p7 )_v @@ -7622,7 +7622,7 @@ C i2 ( h2 p5 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h2 h8 p5 p7 )_ END SUBROUTINE ccsd_yr1_5_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_vt + = -2 * Sum ( h6 p4 ) * t ( p4 p9 h6 h11 )_t * i2 ( h2 h6 h12 p4 )_v @@ -7807,7 +7807,7 @@ C i1 ( h2 p9 h11 h12 )_vt + = -2 * Sum ( h6 p4 ) * t ( p4 p9 h6 h11 )_t * i2 RETURN END SUBROUTINE ccsd_yr1_5_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h12 p4 )_v + = 1 * v ( h2 h6 h12 p4 )_v @@ -7916,7 +7916,7 @@ C i2 ( h2 h6 h12 p4 )_v + = 1 * v ( h2 h6 h12 p4 )_v RETURN END SUBROUTINE OFFSET_ccsd_yr1_5_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h12 p4 )_v @@ -7986,7 +7986,7 @@ C i2 ( h2 h6 h12 p4 )_v END SUBROUTINE ccsd_yr1_5_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h12 p4 )_vt + = -1 * Sum ( p7 ) * t ( p7 h12 )_t * v ( h2 h6 p4 p7 )_v @@ -8156,7 +8156,7 @@ C i2 ( h2 h6 h12 p4 )_vt + = -1 * Sum ( p7 ) * t ( p7 h12 )_t * v ( h2 h6 p4 END SUBROUTINE ccsd_yr1_5_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_vt + = 1/2 * Sum ( p3 p4 ) * t ( p3 p4 h11 h12 )_t * v ( h2 p9 p3 p4 )_v @@ -8318,7 +8318,7 @@ C i1 ( h2 p9 h11 h12 )_vt + = 1/2 * Sum ( p3 p4 ) * t ( p3 p4 h11 h12 )_t * END SUBROUTINE ccsd_yr1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yv + = 1/2 * Sum ( h7 p8 p5 ) * y ( h2 h7 p5 p8 )_y * i1 ( p5 p8 h7 p1 )_v @@ -8480,7 +8480,7 @@ C i0 ( h2 p1 )_yv + = 1/2 * Sum ( h7 p8 p5 ) * y ( h2 h7 p5 p8 )_y * i1 ( p5 RETURN END SUBROUTINE ccsd_yr1_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 p8 h7 p1 )_v + = -1 * v ( p5 p8 h7 p1 )_v @@ -8579,7 +8579,7 @@ C i1 ( p5 p8 h7 p1 )_v + = -1 * v ( p5 p8 h7 p1 )_v RETURN END SUBROUTINE OFFSET_ccsd_yr1_6_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 p8 h7 p1 )_v @@ -8649,7 +8649,7 @@ C i1 ( p5 p8 h7 p1 )_v END SUBROUTINE ccsd_yr1_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 p8 h7 p1 )_vt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * v ( p5 p8 p1 p3 )_v @@ -8800,7 +8800,7 @@ C i1 ( p5 p8 h7 p1 )_vt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * v ( p5 p8 p1 p3 END SUBROUTINE ccsd_yr1_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytf + = -1 * Sum ( h3 ) * i1 ( h2 h3 )_yt * f ( h3 p1 )_f @@ -8925,7 +8925,7 @@ C i0 ( h2 p1 )_ytf + = -1 * Sum ( h3 ) * i1 ( h2 h3 )_yt * f ( h3 p1 )_f END SUBROUTINE ccsd_yr1_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_yt + = 1 * Sum ( p4 ) * t ( p4 h3 )_t * y ( h2 p4 )_y @@ -9049,7 +9049,7 @@ C i1 ( h2 h3 )_yt + = 1 * Sum ( p4 ) * t ( p4 h3 )_t * y ( h2 p4 )_y RETURN END SUBROUTINE OFFSET_ccsd_yr1_7_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_yt @@ -9105,7 +9105,7 @@ C i1 ( h2 h3 )_yt END SUBROUTINE ccsd_yr1_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_yt + = 1/2 * Sum ( h6 p4 p5 ) * t ( p4 p5 h3 h6 )_t * y ( h2 h6 p4 p5 )_y @@ -9278,7 +9278,7 @@ C i1 ( h2 h3 )_yt + = 1/2 * Sum ( h6 p4 p5 ) * t ( p4 p5 h3 h6 )_t * y ( h2 END SUBROUTINE ccsd_yr1_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = 1 * Sum ( h6 h8 ) * i1 ( h6 h8 )_yt * v ( h2 h8 h6 p1 )_v @@ -9420,7 +9420,7 @@ C i0 ( h2 p1 )_ytv + = 1 * Sum ( h6 h8 ) * i1 ( h6 h8 )_yt * v ( h2 h8 h6 p1 END SUBROUTINE ccsd_yr1_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 )_yt + = 1 * Sum ( p3 ) * t ( p3 h8 )_t * y ( h6 p3 )_y @@ -9544,7 +9544,7 @@ C i1 ( h6 h8 )_yt + = 1 * Sum ( p3 ) * t ( p3 h8 )_t * y ( h6 p3 )_y RETURN END SUBROUTINE OFFSET_ccsd_yr1_8_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 )_yt @@ -9600,7 +9600,7 @@ C i1 ( h6 h8 )_yt END SUBROUTINE ccsd_yr1_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 )_yt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h8 )_t * y ( h5 h6 p3 p4 )_y @@ -9773,7 +9773,7 @@ C i1 ( h6 h8 )_yt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h8 )_t * y ( h5 END SUBROUTINE ccsd_yr1_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = 1 * Sum ( p7 p8 ) * i1 ( p7 p8 )_yt * v ( h2 p8 p1 p7 )_v @@ -9915,7 +9915,7 @@ C i0 ( h2 p1 )_ytv + = 1 * Sum ( p7 p8 ) * i1 ( p7 p8 )_yt * v ( h2 p8 p1 p7 END SUBROUTINE ccsd_yr1_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p8 )_yt + = 1 * Sum ( h4 ) * t ( p7 h4 )_t * y ( h4 p8 )_y @@ -10039,7 +10039,7 @@ C i1 ( p7 p8 )_yt + = 1 * Sum ( h4 ) * t ( p7 h4 )_t * y ( h4 p8 )_y RETURN END SUBROUTINE OFFSET_ccsd_yr1_9_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p8 )_yt @@ -10095,7 +10095,7 @@ C i1 ( p7 p8 )_yt END SUBROUTINE ccsd_yr1_9_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p8 )_yt + = 1/2 * Sum ( h5 h6 p3 ) * t ( p3 p7 h5 h6 )_t * y ( h5 h6 p3 p8 )_y @@ -10268,7 +10268,7 @@ C i1 ( p7 p8 )_yt + = 1/2 * Sum ( h5 h6 p3 ) * t ( p3 p7 h5 h6 )_t * y ( h5 END SUBROUTINE ccsd_yr1_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = 1 * Sum ( h6 h4 p5 ) * i1 ( h2 h6 h4 p5 )_yt * v ( h4 p5 h6 p1 )_v @@ -10412,7 +10412,7 @@ C i0 ( h2 p1 )_ytv + = 1 * Sum ( h6 h4 p5 ) * i1 ( h2 h6 h4 p5 )_yt * v ( h4 END SUBROUTINE ccsd_yr1_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h6 h4 p5 )_yt + = 1 * Sum ( p3 ) * t ( p3 h4 )_t * y ( h2 h6 p3 p5 )_y @@ -10579,7 +10579,7 @@ C i1 ( h2 h6 h4 p5 )_yt + = 1 * Sum ( p3 ) * t ( p3 h4 )_t * y ( h2 h6 p3 p5 RETURN END SUBROUTINE OFFSET_ccsd_yr1_10_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h6 h4 p5 )_yt @@ -10651,7 +10651,7 @@ C i1 ( h2 h6 h4 p5 )_yt END SUBROUTINE ccsd_yr1_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = 1 * Sum ( p10 h9 ) * i1 ( p10 h9 )_yt * v ( h2 h9 p1 p10 )_v @@ -10809,7 +10809,7 @@ C i0 ( h2 p1 )_ytv + = 1 * Sum ( p10 h9 ) * i1 ( p10 h9 )_yt * v ( h2 h9 p1 END SUBROUTINE ccsd_yr1_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_yt + = 1 * Sum ( h5 p3 ) * t ( p3 p10 h5 h9 )_t * y ( h5 p3 )_y @@ -10968,7 +10968,7 @@ C i1 ( p10 h9 )_yt + = 1 * Sum ( h5 p3 ) * t ( p3 p10 h5 h9 )_t * y ( h5 p3 RETURN END SUBROUTINE OFFSET_ccsd_yr1_11_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_yt @@ -11024,7 +11024,7 @@ C i1 ( p10 h9 )_yt END SUBROUTINE ccsd_yr1_11_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytt + = -1 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h6 h9 )_yt @@ -11150,7 +11150,7 @@ C i1 ( p10 h9 )_ytt + = -1 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h6 h9 )_yt END SUBROUTINE ccsd_yr1_11_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 )_yt + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * y ( h6 p5 )_y @@ -11277,7 +11277,7 @@ C i2 ( h6 h9 )_yt + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * y ( h6 p5 )_y RETURN END SUBROUTINE OFFSET_ccsd_yr1_11_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 )_yt @@ -11333,7 +11333,7 @@ C i2 ( h6 h9 )_yt END SUBROUTINE ccsd_yr1_11_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 )_yt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h9 )_t * y ( h5 h6 p3 p4 )_y @@ -11509,7 +11509,7 @@ C i2 ( h6 h9 )_yt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h9 )_t * y ( h5 END SUBROUTINE ccsd_yr1_11_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytt + = 1/2 * Sum ( h5 h6 p3 ) * t ( p3 p10 h5 h6 )_t * i2 ( h5 h6 h9 p3 )_yt @@ -11675,7 +11675,7 @@ C i1 ( p10 h9 )_ytt + = 1/2 * Sum ( h5 h6 p3 ) * t ( p3 p10 h5 h6 )_t * i2 ( END SUBROUTINE ccsd_yr1_11_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h9 p3 )_yt + = -1 * Sum ( p7 ) * t ( p7 h9 )_t * y ( h5 h6 p3 p7 )_y @@ -11828,7 +11828,7 @@ C i2 ( h5 h6 h9 p3 )_yt + = -1 * Sum ( p7 ) * t ( p7 h9 )_t * y ( h5 h6 p3 p RETURN END SUBROUTINE OFFSET_ccsd_yr1_11_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h9 p3 )_yt @@ -11900,7 +11900,7 @@ C i2 ( h5 h6 h9 p3 )_yt END SUBROUTINE ccsd_yr1_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = 1/2 * Sum ( p9 h12 h6 ) * i1 ( h2 p9 h6 h12 )_yt * v ( h6 h12 p1 p9 )_v @@ -12064,7 +12064,7 @@ C i0 ( h2 p1 )_ytv + = 1/2 * Sum ( p9 h12 h6 ) * i1 ( h2 p9 h6 h12 )_yt * v END SUBROUTINE ccsd_yr1_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h6 h12 )_yt + = -1 * Sum ( p3 ) * t ( p3 p9 h6 h12 )_t * y ( h2 p3 )_y @@ -12216,7 +12216,7 @@ C i1 ( h2 p9 h6 h12 )_yt + = -1 * Sum ( p3 ) * t ( p3 p9 h6 h12 )_t * y ( h2 RETURN END SUBROUTINE OFFSET_ccsd_yr1_12_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h6 h12 )_yt @@ -12288,7 +12288,7 @@ C i1 ( h2 p9 h6 h12 )_yt END SUBROUTINE ccsd_yr1_12_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h6 h12 )_ytt + = 1/2 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h2 h10 h6 h12 )_yt @@ -12430,7 +12430,7 @@ C i1 ( h2 p9 h6 h12 )_ytt + = 1/2 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h2 h END SUBROUTINE ccsd_yr1_12_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h6 h12 )_yt + = 1 * Sum ( p3 p4 ) * t ( p3 p4 h6 h12 )_t * y ( h2 h10 p3 p4 )_y @@ -12601,7 +12601,7 @@ C i2 ( h2 h10 h6 h12 )_yt + = 1 * Sum ( p3 p4 ) * t ( p3 p4 h6 h12 )_t * y ( RETURN END SUBROUTINE OFFSET_ccsd_yr1_12_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h6 h12 )_yt @@ -12673,7 +12673,7 @@ C i2 ( h2 h10 h6 h12 )_yt END SUBROUTINE ccsd_yr1_12_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h6 h12 )_ytt + = -2 * Sum ( p5 ) * t ( p5 h12 )_t * i3 ( h2 h10 h6 p5 )_yt @@ -12827,7 +12827,7 @@ C i2 ( h2 h10 h6 h12 )_ytt + = -2 * Sum ( p5 ) * t ( p5 h12 )_t * i3 ( h2 h1 END SUBROUTINE ccsd_yr1_12_2_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h10 h6 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h6 )_t * y ( h2 h10 p5 p7 )_y @@ -12996,7 +12996,7 @@ C i3 ( h2 h10 h6 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h6 )_t * y ( h2 h10 p5 RETURN END SUBROUTINE OFFSET_ccsd_yr1_12_2_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h10 h6 p5 )_yt @@ -13068,7 +13068,7 @@ C i3 ( h2 h10 h6 p5 )_yt END SUBROUTINE ccsd_yr1_12_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h6 h12 )_ytt + = 2 * Sum ( h5 p3 ) * t ( p3 p9 h5 h12 )_t * i2 ( h2 h5 h6 p3 )_yt @@ -13255,7 +13255,7 @@ C i1 ( h2 p9 h6 h12 )_ytt + = 2 * Sum ( h5 p3 ) * t ( p3 p9 h5 h12 )_t * i2 END SUBROUTINE ccsd_yr1_12_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h5 h6 p3 )_yt + = 1 * Sum ( p7 ) * t ( p7 h6 )_t * y ( h2 h5 p3 p7 )_y @@ -13424,7 +13424,7 @@ C i2 ( h2 h5 h6 p3 )_yt + = 1 * Sum ( p7 ) * t ( p7 h6 )_t * y ( h2 h5 p3 p7 RETURN END SUBROUTINE OFFSET_ccsd_yr1_12_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h5 h6 p3 )_yt @@ -13496,7 +13496,7 @@ C i2 ( h2 h5 h6 p3 )_yt END SUBROUTINE ccsd_yr1_12_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h6 h12 )_ytt + = 1 * t ( p9 h6 )_t * i2 ( h2 h12 )_yt @@ -13640,7 +13640,7 @@ C i1 ( h2 p9 h6 h12 )_ytt + = 1 * t ( p9 h6 )_t * i2 ( h2 h12 )_yt END SUBROUTINE ccsd_yr1_12_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h12 )_yt + = -1 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h12 )_t * y ( h2 h5 p3 p4 )_y @@ -13815,7 +13815,7 @@ C i2 ( h2 h12 )_yt + = -1 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h12 )_t * y ( h2 RETURN END SUBROUTINE OFFSET_ccsd_yr1_12_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h12 )_yt @@ -13871,7 +13871,7 @@ C i2 ( h2 h12 )_yt END SUBROUTINE ccsd_yr1_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = -1/4 * Sum ( h7 h8 h6 ) * i1 ( h2 h7 h6 h8 )_yt * v ( h6 h8 h7 p1 )_v @@ -14027,7 +14027,7 @@ C i0 ( h2 p1 )_ytv + = -1/4 * Sum ( h7 h8 h6 ) * i1 ( h2 h7 h6 h8 )_yt * v ( END SUBROUTINE ccsd_yr1_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h6 h8 )_yt + = 1 * Sum ( p3 p4 ) * t ( p3 p4 h6 h8 )_t * y ( h2 h7 p3 p4 )_y @@ -14196,7 +14196,7 @@ C i1 ( h2 h7 h6 h8 )_yt + = 1 * Sum ( p3 p4 ) * t ( p3 p4 h6 h8 )_t * y ( h2 RETURN END SUBROUTINE OFFSET_ccsd_yr1_13_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h6 h8 )_yt @@ -14268,7 +14268,7 @@ C i1 ( h2 h7 h6 h8 )_yt END SUBROUTINE ccsd_yr1_13_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h6 h8 )_ytt + = -2 * Sum ( p3 ) * t ( p3 h8 )_t * i2 ( h2 h7 h6 p3 )_yt @@ -14420,7 +14420,7 @@ C i1 ( h2 h7 h6 h8 )_ytt + = -2 * Sum ( p3 ) * t ( p3 h8 )_t * i2 ( h2 h7 h6 END SUBROUTINE ccsd_yr1_13_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h6 p3 )_yt + = 1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h2 h7 p3 p5 )_y @@ -14589,7 +14589,7 @@ C i2 ( h2 h7 h6 p3 )_yt + = 1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h2 h7 p3 p5 RETURN END SUBROUTINE OFFSET_ccsd_yr1_13_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h6 p3 )_yt @@ -14661,7 +14661,7 @@ C i2 ( h2 h7 h6 p3 )_yt END SUBROUTINE ccsd_yr1_14(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = 1 * Sum ( p8 h6 p7 ) * i1 ( h2 p8 h6 p7 )_yt * v ( h6 p7 p1 p8 )_v @@ -14813,7 +14813,7 @@ C i0 ( h2 p1 )_ytv + = 1 * Sum ( p8 h6 p7 ) * i1 ( h2 p8 h6 p7 )_yt * v ( h6 END SUBROUTINE ccsd_yr1_14_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p8 h6 p7 )_yt + = 1 * Sum ( h5 p3 ) * t ( p3 p8 h5 h6 )_t * y ( h2 h5 p3 p7 )_y @@ -15013,7 +15013,7 @@ C i1 ( h2 p8 h6 p7 )_yt + = 1 * Sum ( h5 p3 ) * t ( p3 p8 h5 h6 )_t * y ( h2 RETURN END SUBROUTINE OFFSET_ccsd_yr1_14_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p8 h6 p7 )_yt @@ -15085,7 +15085,7 @@ C i1 ( h2 p8 h6 p7 )_yt END SUBROUTINE ccsd_yr1_14_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p8 h6 p7 )_ytt + = -1 * Sum ( h4 ) * t ( p8 h4 )_t * i2 ( h2 h4 h6 p7 )_yt @@ -15227,7 +15227,7 @@ C i1 ( h2 p8 h6 p7 )_ytt + = -1 * Sum ( h4 ) * t ( p8 h4 )_t * i2 ( h2 h4 h6 END SUBROUTINE ccsd_yr1_14_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h6 p7 )_yt + = 1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h2 h4 p5 p7 )_y @@ -15396,7 +15396,7 @@ C i2 ( h2 h4 h6 p7 )_yt + = 1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h2 h4 p5 p7 RETURN END SUBROUTINE OFFSET_ccsd_yr1_14_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h6 p7 )_yt diff --git a/src/tce/ccsd_yr/ccsd_yr2.F b/src/tce/ccsd_yr/ccsd_yr2.F index 8e731487be..2bde63b989 100644 --- a/src/tce/ccsd_yr/ccsd_yr2.F +++ b/src/tce/ccsd_yr/ccsd_yr2.F @@ -1,7 +1,7 @@ SUBROUTINE ccsd_yr2(d_f1,d_i0,d_t1,d_t2,d_v2,d_y1,d_y2,k_f1_offset &,k_i0_offset,k_t1_offset,k_t2_offset,k_v2_offset,k_y1_offset,k_y2_ &offset) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yf + = 1 * P( 4 ) * y ( h3 p1 )_y * i1 ( h4 p2 )_f @@ -302,7 +302,7 @@ C i2 ( h3 h6 h8 p1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h3 END SUBROUTINE ccsd_yr2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yf + = 1 * P( 4 ) * y ( h3 p1 )_y * i1 ( h4 p2 )_f @@ -460,7 +460,7 @@ C i0 ( h3 h4 p1 p2 )_yf + = 1 * P( 4 ) * y ( h3 p1 )_y * i1 ( h4 p2 )_f RETURN END SUBROUTINE ccsd_yr2_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_f + = 1 * f ( h3 p1 )_f @@ -542,7 +542,7 @@ C i1 ( h3 p1 )_f + = 1 * f ( h3 p1 )_f RETURN END SUBROUTINE OFFSET_ccsd_yr2_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_f @@ -598,7 +598,7 @@ C i1 ( h3 p1 )_f END SUBROUTINE ccsd_yr2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 p1 p5 )_v @@ -756,7 +756,7 @@ C i1 ( h3 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 p1 p5 )_ END SUBROUTINE ccsd_yr2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 2 ) * Sum ( h7 ) * y ( h7 p1 )_y * i1 ( h3 h4 h7 p2 )_v @@ -906,7 +906,7 @@ C i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 2 ) * Sum ( h7 ) * y ( h7 p1 )_y * i1 ( RETURN END SUBROUTINE ccsd_yr2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h7 p1 )_v + = 1 * v ( h3 h4 h7 p1 )_v @@ -1005,7 +1005,7 @@ C i1 ( h3 h4 h7 p1 )_v + = 1 * v ( h3 h4 h7 p1 )_v RETURN END SUBROUTINE OFFSET_ccsd_yr2_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h7 p1 )_v @@ -1075,7 +1075,7 @@ C i1 ( h3 h4 h7 p1 )_v END SUBROUTINE ccsd_yr2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h7 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h7 )_t * v ( h3 h4 p1 p5 )_v @@ -1226,7 +1226,7 @@ C i1 ( h3 h4 h7 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h7 )_t * v ( h3 h4 p1 p END SUBROUTINE ccsd_yr2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 2 ) * Sum ( p5 ) * y ( h3 p5 )_y * v ( h4 p5 p1 p2 )_v @@ -1379,7 +1379,7 @@ C i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 2 ) * Sum ( p5 ) * y ( h3 p5 )_y * v ( h END SUBROUTINE ccsd_yr2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yf + = -1 * P( 2 ) * Sum ( h9 ) * y ( h3 h9 p1 p2 )_y * i1 ( h4 h9 )_f @@ -1540,7 +1540,7 @@ C i0 ( h3 h4 p1 p2 )_yf + = -1 * P( 2 ) * Sum ( h9 ) * y ( h3 h9 p1 p2 )_y * RETURN END SUBROUTINE ccsd_yr2_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_f + = 1 * f ( h3 h9 )_f @@ -1622,7 +1622,7 @@ C i1 ( h3 h9 )_f + = 1 * f ( h3 h9 )_f RETURN END SUBROUTINE OFFSET_ccsd_yr2_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_f @@ -1678,7 +1678,7 @@ C i1 ( h3 h9 )_f END SUBROUTINE ccsd_yr2_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_ft + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 p5 )_f @@ -1802,7 +1802,7 @@ C i1 ( h3 h9 )_ft + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 p5 )_f RETURN END SUBROUTINE ccsd_yr2_4_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_f + = 1 * f ( h3 p5 )_f @@ -1886,7 +1886,7 @@ C i2 ( h3 p5 )_f + = 1 * f ( h3 p5 )_f RETURN END SUBROUTINE OFFSET_ccsd_yr2_4_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_f @@ -1942,7 +1942,7 @@ C i2 ( h3 p5 )_f END SUBROUTINE ccsd_yr2_4_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h3 h8 p5 p7 )_v @@ -2103,7 +2103,7 @@ C i2 ( h3 p5 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h3 h8 p5 p7 )_ END SUBROUTINE ccsd_yr2_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 h9 p5 )_v @@ -2245,7 +2245,7 @@ C i1 ( h3 h9 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 h9 p5 )_ END SUBROUTINE ccsd_yr2_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vt + = -1/2 * Sum ( h8 p5 p6 ) * t ( p5 p6 h8 h9 )_t * v ( h3 h8 p5 p6 )_v @@ -2418,7 +2418,7 @@ C i1 ( h3 h9 )_vt + = -1/2 * Sum ( h8 p5 p6 ) * t ( p5 p6 h8 h9 )_t * v ( h3 END SUBROUTINE ccsd_yr2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yf + = 1 * P( 2 ) * Sum ( p10 ) * y ( h3 h4 p1 p10 )_y * i1 ( p10 p2 )_f @@ -2579,7 +2579,7 @@ C i0 ( h3 h4 p1 p2 )_yf + = 1 * P( 2 ) * Sum ( p10 ) * y ( h3 h4 p1 p10 )_y RETURN END SUBROUTINE ccsd_yr2_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_f + = 1 * f ( p10 p1 )_f @@ -2661,7 +2661,7 @@ C i1 ( p10 p1 )_f + = 1 * f ( p10 p1 )_f RETURN END SUBROUTINE OFFSET_ccsd_yr2_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_f @@ -2718,7 +2718,7 @@ C i1 ( p10 p1 )_f END SUBROUTINE ccsd_yr2_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p10 p1 p5 )_v @@ -2860,7 +2860,7 @@ C i1 ( p10 p1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p10 p1 p5 END SUBROUTINE ccsd_yr2_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_vt + = 1/2 * Sum ( h7 h8 p6 ) * t ( p6 p10 h7 h8 )_t * v ( h7 h8 p1 p6 )_v @@ -3033,7 +3033,7 @@ C i1 ( p10 p1 )_vt + = 1/2 * Sum ( h7 h8 p6 ) * t ( p6 p10 h7 h8 )_t * v ( h END SUBROUTINE ccsd_yr2_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_vtt + = -1 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h6 p1 )_vt @@ -3158,7 +3158,7 @@ C i1 ( p10 p1 )_vtt + = -1 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h6 p1 )_vt END SUBROUTINE ccsd_yr2_5_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p1 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h6 h8 p1 p7 )_v @@ -3318,7 +3318,7 @@ C i2 ( h6 p1 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h6 h8 p1 p7 )_ RETURN END SUBROUTINE OFFSET_ccsd_yr2_5_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p1 )_vt @@ -3374,7 +3374,7 @@ C i2 ( h6 p1 )_vt END SUBROUTINE ccsd_yr2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yv + = 1/2 * Sum ( h9 h10 ) * y ( h9 h10 p1 p2 )_y * i1 ( h3 h4 h9 h10 )_v @@ -3533,7 +3533,7 @@ C i0 ( h3 h4 p1 p2 )_yv + = 1/2 * Sum ( h9 h10 ) * y ( h9 h10 p1 p2 )_y * i1 RETURN END SUBROUTINE ccsd_yr2_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_v + = 1 * v ( h3 h4 h9 h10 )_v @@ -3629,7 +3629,7 @@ C i1 ( h3 h4 h9 h10 )_v + = 1 * v ( h3 h4 h9 h10 )_v RETURN END SUBROUTINE OFFSET_ccsd_yr2_6_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_v @@ -3699,7 +3699,7 @@ C i1 ( h3 h4 h9 h10 )_v END SUBROUTINE ccsd_yr2_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_vt + = -2 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 h4 h10 p5 )_v @@ -3849,7 +3849,7 @@ C i1 ( h3 h4 h9 h10 )_vt + = -2 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 h4 h1 RETURN END SUBROUTINE ccsd_yr2_6_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h10 p5 )_v + = 1 * v ( h3 h4 h10 p5 )_v @@ -3948,7 +3948,7 @@ C i2 ( h3 h4 h10 p5 )_v + = 1 * v ( h3 h4 h10 p5 )_v RETURN END SUBROUTINE OFFSET_ccsd_yr2_6_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h10 p5 )_v @@ -4018,7 +4018,7 @@ C i2 ( h3 h4 h10 p5 )_v END SUBROUTINE ccsd_yr2_6_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h10 p5 )_vt + = -1/2 * Sum ( p7 ) * t ( p7 h10 )_t * v ( h3 h4 p5 p7 )_v @@ -4172,7 +4172,7 @@ C i2 ( h3 h4 h10 p5 )_vt + = -1/2 * Sum ( p7 ) * t ( p7 h10 )_t * v ( h3 h4 END SUBROUTINE ccsd_yr2_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h9 h10 )_t * v ( h3 h4 p5 p6 )_v @@ -4331,7 +4331,7 @@ C i1 ( h3 h4 h9 h10 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h9 h10 )_t * v END SUBROUTINE ccsd_yr2_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 4 ) * Sum ( h9 p7 ) * y ( h3 h9 p1 p7 )_y * i1 ( h4 p7 h9 p2 )_v @@ -4530,7 +4530,7 @@ C i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 4 ) * Sum ( h9 p7 ) * y ( h3 h9 p1 p7 )_ RETURN END SUBROUTINE ccsd_yr2_7_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p7 h9 p1 )_v + = 1 * v ( h3 p7 h9 p1 )_v @@ -4629,7 +4629,7 @@ C i1 ( h3 p7 h9 p1 )_v + = 1 * v ( h3 p7 h9 p1 )_v RETURN END SUBROUTINE OFFSET_ccsd_yr2_7_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p7 h9 p1 )_v @@ -4699,7 +4699,7 @@ C i1 ( h3 p7 h9 p1 )_v END SUBROUTINE ccsd_yr2_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p7 h9 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h9 )_t * v ( h3 p7 p1 p5 )_v @@ -4850,7 +4850,7 @@ C i1 ( h3 p7 h9 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h9 )_t * v ( h3 p7 p1 p END SUBROUTINE ccsd_yr2_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p7 h9 p1 )_vt + = -1 * Sum ( h8 p6 ) * t ( p6 p7 h8 h9 )_t * v ( h3 h8 p1 p6 )_v @@ -5050,7 +5050,7 @@ C i1 ( h3 p7 h9 p1 )_vt + = -1 * Sum ( h8 p6 ) * t ( p6 p7 h8 h9 )_t * v ( h END SUBROUTINE ccsd_yr2_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yv + = 1/2 * Sum ( p5 p6 ) * y ( h3 h4 p5 p6 )_y * v ( p5 p6 p1 p2 )_v @@ -5210,7 +5210,7 @@ C i0 ( h3 h4 p1 p2 )_yv + = 1/2 * Sum ( p5 p6 ) * y ( h3 h4 p5 p6 )_y * v ( END SUBROUTINE ccsd_yr2_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = 1 * P( 2 ) * Sum ( h9 ) * i1 ( h3 h9 )_yt * v ( h4 h9 p1 p2 )_v @@ -5371,7 +5371,7 @@ C i0 ( h3 h4 p1 p2 )_ytv + = 1 * P( 2 ) * Sum ( h9 ) * i1 ( h3 h9 )_yt * v ( END SUBROUTINE ccsd_yr2_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_yt + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * y ( h3 p5 )_y @@ -5495,7 +5495,7 @@ C i1 ( h3 h9 )_yt + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * y ( h3 p5 )_y RETURN END SUBROUTINE OFFSET_ccsd_yr2_9_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_yt @@ -5551,7 +5551,7 @@ C i1 ( h3 h9 )_yt END SUBROUTINE ccsd_yr2_9_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_yt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h7 h9 )_t * y ( h3 h7 p5 p6 )_y @@ -5724,7 +5724,7 @@ C i1 ( h3 h9 )_yt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h7 h9 )_t * y ( h3 END SUBROUTINE ccsd_yr2_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytf + = 1 * P( 2 ) * Sum ( h5 ) * i1 ( h3 h4 h5 p1 )_yt * f ( h5 p2 )_f @@ -5877,7 +5877,7 @@ C i0 ( h3 h4 p1 p2 )_ytf + = 1 * P( 2 ) * Sum ( h5 ) * i1 ( h3 h4 h5 p1 )_yt END SUBROUTINE ccsd_yr2_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h5 p1 )_yt + = -1 * Sum ( p6 ) * t ( p6 h5 )_t * y ( h3 h4 p1 p6 )_y @@ -6028,7 +6028,7 @@ C i1 ( h3 h4 h5 p1 )_yt + = -1 * Sum ( p6 ) * t ( p6 h5 )_t * y ( h3 h4 p1 p RETURN END SUBROUTINE OFFSET_ccsd_yr2_10_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h5 p1 )_yt @@ -6100,7 +6100,7 @@ C i1 ( h3 h4 h5 p1 )_yt END SUBROUTINE ccsd_yr2_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = 1 * P( 4 ) * Sum ( h7 h6 ) * i1 ( h3 h7 h6 p1 )_yt * v ( h4 h6 h7 p2 )_v @@ -6285,7 +6285,7 @@ C i0 ( h3 h4 p1 p2 )_ytv + = 1 * P( 4 ) * Sum ( h7 h6 ) * i1 ( h3 h7 h6 p1 ) END SUBROUTINE ccsd_yr2_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h7 h6 p1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h3 h7 p1 p5 )_y @@ -6452,7 +6452,7 @@ C i1 ( h3 h7 h6 p1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h3 h7 p1 p5 RETURN END SUBROUTINE OFFSET_ccsd_yr2_11_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h7 h6 p1 )_yt @@ -6524,7 +6524,7 @@ C i1 ( h3 h7 h6 p1 )_yt END SUBROUTINE ccsd_yr2_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = 1 * Sum ( h6 p7 ) * i1 ( h3 h4 h6 p7 )_yt * v ( h6 p7 p1 p2 )_v @@ -6673,7 +6673,7 @@ C i0 ( h3 h4 p1 p2 )_ytv + = 1 * Sum ( h6 p7 ) * i1 ( h3 h4 h6 p7 )_yt * v ( END SUBROUTINE ccsd_yr2_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h6 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h3 h4 p5 p7 )_y @@ -6824,7 +6824,7 @@ C i1 ( h3 h4 h6 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h3 h4 p5 p RETURN END SUBROUTINE OFFSET_ccsd_yr2_12_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h6 p7 )_yt @@ -6896,7 +6896,7 @@ C i1 ( h3 h4 h6 p7 )_yt END SUBROUTINE ccsd_yr2_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = 1/2 * P( 2 ) * Sum ( p6 ) * i1 ( p6 p1 )_yt * v ( h3 h4 p2 p6 )_v @@ -7057,7 +7057,7 @@ C i0 ( h3 h4 p1 p2 )_ytv + = 1/2 * P( 2 ) * Sum ( p6 ) * i1 ( p6 p1 )_yt * v END SUBROUTINE ccsd_yr2_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p6 p1 )_yt + = -1 * Sum ( h7 h8 p5 ) * t ( p5 p6 h7 h8 )_t * y ( h7 h8 p1 p5 )_y @@ -7230,7 +7230,7 @@ C i1 ( p6 p1 )_yt + = -1 * Sum ( h7 h8 p5 ) * t ( p5 p6 h7 h8 )_t * y ( h7 h RETURN END SUBROUTINE OFFSET_ccsd_yr2_13_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p6 p1 )_yt @@ -7286,7 +7286,7 @@ C i1 ( p6 p1 )_yt END SUBROUTINE ccsd_yr2_14(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = -1/4 * Sum ( h9 h8 ) * i1 ( h3 h4 h8 h9 )_yt * v ( h8 h9 p1 p2 )_v @@ -7447,7 +7447,7 @@ C i0 ( h3 h4 p1 p2 )_ytv + = -1/4 * Sum ( h9 h8 ) * i1 ( h3 h4 h8 h9 )_yt * END SUBROUTINE ccsd_yr2_14_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h8 h9 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h8 h9 )_t * y ( h3 h4 p5 p6 )_y @@ -7606,7 +7606,7 @@ C i1 ( h3 h4 h8 h9 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h8 h9 )_t * y ( h RETURN END SUBROUTINE OFFSET_ccsd_yr2_14_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h8 h9 )_yt @@ -7678,7 +7678,7 @@ C i1 ( h3 h4 h8 h9 )_yt END SUBROUTINE ccsd_yr2_14_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h8 h9 )_ytt + = -2 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 h4 h8 p5 )_yt @@ -7830,7 +7830,7 @@ C i1 ( h3 h4 h8 h9 )_ytt + = -2 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 h4 h8 END SUBROUTINE ccsd_yr2_14_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h8 p5 )_yt + = -1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h3 h4 p5 p7 )_y @@ -7983,7 +7983,7 @@ C i2 ( h3 h4 h8 p5 )_yt + = -1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h3 h4 p5 p RETURN END SUBROUTINE OFFSET_ccsd_yr2_14_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h8 p5 )_yt @@ -8055,7 +8055,7 @@ C i2 ( h3 h4 h8 p5 )_yt END SUBROUTINE ccsd_yr2_15(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yttv + = -1 * P( 4 ) * Sum ( p5 h8 ) * i1 ( h3 p5 h8 p1 )_ytt * v ( h4 h8 p2 p5 )_v @@ -8256,7 +8256,7 @@ C i0 ( h3 h4 p1 p2 )_yttv + = -1 * P( 4 ) * Sum ( p5 h8 ) * i1 ( h3 p5 h8 p1 END SUBROUTINE ccsd_yr2_15_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p5 h8 p1 )_ytt + = 1 * Sum ( h6 ) * t ( p5 h6 )_t * i2 ( h3 h6 h8 p1 )_yt @@ -8397,7 +8397,7 @@ C i1 ( h3 p5 h8 p1 )_ytt + = 1 * Sum ( h6 ) * t ( p5 h6 )_t * i2 ( h3 h6 h8 RETURN END SUBROUTINE OFFSET_ccsd_yr2_15_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p5 h8 p1 )_ytt @@ -8469,7 +8469,7 @@ C i1 ( h3 p5 h8 p1 )_ytt END SUBROUTINE ccsd_yr2_15_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h6 h8 p1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h3 h6 p1 p7 )_y @@ -8638,7 +8638,7 @@ C i2 ( h3 h6 h8 p1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h3 h6 p1 p7 RETURN END SUBROUTINE OFFSET_ccsd_yr2_15_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h6 h8 p1 )_yt diff --git a/src/tce/ccsdt_beta/GNUmakefile b/src/tce/ccsdt_beta/GNUmakefile index 119e4bd880..659a5b4bcb 100644 --- a/src/tce/ccsdt_beta/GNUmakefile +++ b/src/tce/ccsdt_beta/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.3 2008-09-17 04:39:03 jhammond Exp $ +#$Id$ ifndef CCSDTLR diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_1_1.F index eab1b5dbe9..657bfaae94 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_1_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_1_1_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_1_1_1.F,v 1.1 2008-09-17 04:39:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_ytr diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_2_1.F index 3a4fde1055..725e6a7af5 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_1_2_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_1_2_1.F,v 1.1 2008-09-17 04:39:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 h3 )_otr diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_1.F index bdfdfaace2..eeb512b33b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_1_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_1_3_1.F,v 1.1 2008-09-17 04:39:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h11 )_ytr diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_3_1.F index 7de7c20a17..8d9a709163 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_1_3_3_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_1_3_3_1.F,v 1.1 2008-09-17 04:39:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h11 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_4_1.F index 87a113aa5e..66c05b9775 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_1_3_4_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_1_3_4_1.F,v 1.1 2008-09-17 04:39:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h11 )_ytr diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_5_1.F index 434eb19ad3..7624efaf29 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_1_3_5_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_1_3_5_1.F,v 1.1 2008-09-17 04:39:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h11 p2 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_6_1.F index 803ee13297..b83dda247a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_1_3_6_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_1_3_6_1.F,v 1.1 2008-09-17 04:39:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h7 h11 p3 p4 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_7_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_7_1.F index a066cd117f..ed34ed114a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_7_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_1_3_7_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_1_3_7_1.F,v 1.1 2008-09-17 04:39:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h11 p2 )_ytr diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_8_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_8_1.F index 3d37528a46..baadb224bf 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_8_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_1_3_8_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_1_3_8_1.F,v 1.1 2008-09-17 04:39:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h7 h11 p3 p4 )_ytr diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_4_1.F index dc06c1bec1..07acdbc4fc 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_1_4_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_1_4_1.F,v 1.1 2008-09-17 04:39:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p1 )_ytr diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_1.F index 0092128862..ca36c402c5 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_1_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_2_1_1.F,v 1.1 2008-09-17 04:39:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_1_1.F index e0ee870f97..811627bc1a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_1_1_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_1_1_1.F,v 1.1 2008-09-17 04:39:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_2_1.F index 5fcd04304f..5c63f03562 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_1_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_1_2_1.F,v 1.1 2008-09-17 04:39:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_3_1.F index 946e863bf2..23dee173d1 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_1_3_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_1_3_1.F,v 1.1 2008-09-17 04:39:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h9 p2 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_4_1.F index 6d6832cb5b..78e3da13e3 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_1_4_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_1_4_1.F,v 1.1 2008-09-17 04:39:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h7 h9 p3 p4 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_5_1.F index 5da9b3e1b9..7453059d20 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_1_5_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_1_5_1.F,v 1.1 2008-09-17 04:39:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h9 p2 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_6_1.F index ab9e948e4e..b7748ecced 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_1_6_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_1_6_1.F,v 1.1 2008-09-17 04:39:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h7 h9 p3 p4 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1.F index cafed0f10a..b5dd3e9b99 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_2_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_2_2_1.F,v 1.1 2008-09-17 04:39:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h7 )_vtrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1_1.F index d7c3ecca00..c57afaf39b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_2_1_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_2_1_1.F,v 1.1 2008-09-17 04:39:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h7 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1_3_1.F index 79ddcf01e5..0c79b46aa8 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_2_1_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_2_1_3_1.F,v 1.1 2008-09-17 04:39:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1_4_1.F index f3685f15c3..0a1b40d078 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_2_1_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_2_1_4_1.F,v 1.1 2008-09-17 04:39:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p1 )_vt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_2_1.F index b8cae1648a..e54b117469 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_2_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_2_2_1.F,v 1.1 2008-09-17 04:39:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p9 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_3_1.F index 7b6f4dd7fb..c1deadcabb 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_2_3_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_2_3_1.F,v 1.1 2008-09-17 04:39:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h7 p2 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_4_1.F index 5a101e0c18..6e7f06336b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_2_4_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_2_4_1.F,v 1.1 2008-09-17 04:39:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h7 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_4_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_4_3_1.F index 513e924772..691643e7c1 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_4_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_2_4_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_2_4_3_1.F,v 1.1 2008-09-17 04:39:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p1 )_vt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_4_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_4_4_1.F index 50ea42efd1..c056d96369 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_4_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_4_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_2_4_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_2_4_4_1.F,v 1.1 2008-09-17 04:39:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p1 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_5_1.F index 7546ac14a6..280e9b729e 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_2_5_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_2_5_1.F,v 1.1 2008-09-17 04:39:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p2 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_6_1.F index 8d89a599b5..035ad09392 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_2_6_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_2_6_1.F,v 1.1 2008-09-17 04:39:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p9 p1 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_7_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_7_1.F index c2bdfb13c5..317179a9bd 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_7_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_2_7_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_2_7_1.F,v 1.1 2008-09-17 04:39:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h7 p2 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_8_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_8_1.F index 8990802be8..07ad4e15fc 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_8_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_2_8_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_2_8_1.F,v 1.1 2008-09-17 04:39:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p2 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_9_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_9_1.F index 8f9667b0d0..ad97a79f3f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_9_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_2_9_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_2_9_1.F,v 1.1 2008-09-17 04:39:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h7 )_vtratrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_9_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_9_1_1.F index 2bc6117769..2401985270 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_9_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_9_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_2_9_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_2_9_1_1.F,v 1.1 2008-09-17 04:39:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p1 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_9_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_9_2_1.F index 6bfe40e45c..fecd3bb3bc 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_9_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_9_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_2_9_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_2_9_2_1.F,v 1.1 2008-09-17 04:39:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_1.F index 150dd364c7..cc5b486346 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_2_3_1.F,v 1.1 2008-09-17 04:39:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h11 h12 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_1_1.F index 70c044d354..51983a89d9 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_3_1_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_3_1_1.F,v 1.1 2008-09-17 04:39:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h12 p1 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_2_1.F index 59f2f57fcd..f1cbefb1f3 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_3_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_3_2_1.F,v 1.1 2008-09-17 04:39:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h11 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_3_1.F index 09403967fa..af70376638 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_3_3_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_3_3_1.F,v 1.1 2008-09-17 04:39:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h12 p1 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_4_1.F index e55ad76dc3..1a39e1c46d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_3_4_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_3_4_1.F,v 1.1 2008-09-17 04:39:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h11 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_1.F index 08eeb2ffeb..6bee9d15db 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_4_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_2_4_1.F,v 1.1 2008-09-17 04:39:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p7 h9 p10 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_1_1.F index 94b8bb242d..70977fcc6d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_4_1_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_4_1_1.F,v 1.1 2008-09-17 04:39:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h11 h9 p10 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_2_1.F index c8f02faa68..271081a2e5 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_4_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_4_2_1.F,v 1.1 2008-09-17 04:39:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h11 h9 p10 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_3_1.F index 57aa1cfd3e..e02f85124f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_4_3_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_4_3_1.F,v 1.1 2008-09-17 04:39:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h11 h9 p1 p10 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_4_1.F index fba07cccc4..79034894dc 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_4_4_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_4_4_1.F,v 1.1 2008-09-17 04:39:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h11 h9 p1 p10 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_1.F index 23e80f9432..75b4e2b4b8 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_2_5_1.F,v 1.1 2008-09-17 04:39:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_1.F index 2db3a431e1..0d4135e1dc 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_10_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_5_10_1.F,v 1.1 2008-09-17 04:39:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h9 h13 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_2_1.F index 895d60008d..296196ef08 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_10_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_10_2_1.F,v 1.1 2008-09-17 04:39:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h9 h13 )_vt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_3_1.F index 3109cb29d8..380fdd203c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_10_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_10_3_1.F,v 1.1 2008-09-17 04:39:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 p6 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_4_1.F index b099842cdc..0659f3fdcf 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_10_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_10_4_1.F,v 1.1 2008-09-17 04:39:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 p11 h9 p1 )_vt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_5_1.F index a81cae7525..34a8318201 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_10_5_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_10_5_1.F,v 1.1 2008-09-17 04:39:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h9 h13 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_6_1.F index 99e38251b5..df14229b83 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_10_6_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_10_6_1.F,v 1.1 2008-09-17 04:39:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 p6 )_vt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_7_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_7_1.F index 0f24ca2106..48e9998c35 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_7_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_10_7_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_10_7_1.F,v 1.1 2008-09-17 04:39:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 p11 h9 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_11_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_11_1.F index fbcefa764b..f7cf3a8480 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_11_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_11_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_11_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_5_11_1.F,v 1.1 2008-09-17 04:39:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 p2 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_12_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_12_1.F index 59d782e989..66eb686ccf 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_12_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_12_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_12_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_5_12_1.F,v 1.1 2008-09-17 04:39:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h9 p3 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_13_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_13_1.F index c270c05129..38780c9e5a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_13_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_13_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_13_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_5_13_1.F,v 1.1 2008-09-17 04:39:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p3 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_14_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_14_1.F index 7c3bf7aa10..638052ea45 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_14_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_14_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_14_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_5_14_1.F,v 1.1 2008-09-17 04:39:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h9 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_1.F index 447b70757b..080c820d95 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_15_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_5_15_1.F,v 1.1 2008-09-17 04:39:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h9 h13 )_vtrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_1_1.F index ab9e381881..d12d59c8ac 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_15_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_15_1_1.F,v 1.1 2008-09-17 04:39:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p11 h9 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_2_1.F index 2b49d3fec8..0348b7253c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_15_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_15_2_1.F,v 1.1 2008-09-17 04:39:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h9 h13 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_3_1.F index 175cfc95b9..64e9c20d67 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_15_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_15_3_1.F,v 1.1 2008-09-17 04:39:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p6 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_4_1.F index 3011e328c2..3905b7686a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_15_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_15_4_1.F,v 1.1 2008-09-17 04:39:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p11 h9 p1 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_5_1.F index 1812507fdc..e64428daee 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_15_5_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_15_5_1.F,v 1.1 2008-09-17 04:39:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h9 h13 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_6_1.F index 46f5e626ee..093427f5f7 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_15_6_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_15_6_1.F,v 1.1 2008-09-17 04:39:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p6 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_16_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_16_1.F index 262757ad2f..814917ca18 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_16_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_16_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_16_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_5_16_1.F,v 1.1 2008-09-17 04:39:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 )_vtrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_16_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_16_1_1.F index 5de3bf40d1..d7f1285cc9 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_16_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_16_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_16_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_16_1_1.F,v 1.1 2008-09-17 04:39:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_16_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_16_2_1.F index 6ad39ca93d..086b2d4031 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_16_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_16_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_16_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_16_2_1.F,v 1.1 2008-09-17 04:39:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_17_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_17_1.F index c86f53976a..fb285eac49 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_17_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_17_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_17_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_5_17_1.F,v 1.1 2008-09-17 04:39:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 )_vtrat diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_17_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_17_1_1.F index af09d953b1..3db606fa65 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_17_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_17_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_17_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_17_1_1.F,v 1.1 2008-09-17 04:39:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_17_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_17_2_1.F index 6b025eac86..88d3d91ac5 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_17_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_17_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_17_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_17_2_1.F,v 1.1 2008-09-17 04:39:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_18_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_18_1.F index d8937f056f..0366a77ddf 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_18_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_18_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_18_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_5_18_1.F,v 1.1 2008-09-17 04:39:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 )_vttrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_18_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_18_1_1.F index 348eb14f22..fdf1d93ac3 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_18_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_18_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_18_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_18_1_1.F,v 1.1 2008-09-17 04:39:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_18_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_18_2_1.F index e4d843be4e..9a6a48fbce 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_18_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_18_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_18_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_18_2_1.F,v 1.1 2008-09-17 04:39:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_1_1.F index c9e030fa2a..ea16780da9 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_1_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_5_1_1.F,v 1.1 2008-09-17 04:39:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p10 p11 h9 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_2_1.F index bdc9c1fb06..d1beb296bb 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_5_2_1.F,v 1.1 2008-09-17 04:39:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p11 h9 p2 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_1.F index 66491b5c5b..c80996fdce 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_3_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_5_3_1.F,v 1.1 2008-09-17 04:39:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h9 h13 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_2_1.F index 0e7e884a28..60fba3c60a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_3_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_5_3_2_1.F,v 1.1 2008-09-17 04:39:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 p11 h9 p1 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_3_1.F index fbf692d0b9..985f4c274e 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_3_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_5_3_3_1.F,v 1.1 2008-09-17 04:39:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h9 h13 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_4_1.F index bcd56ae96a..b02f5826b8 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_3_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_5_3_4_1.F,v 1.1 2008-09-17 04:39:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 p6 )_vt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_5_1.F index 7758f47198..cfe3ac367f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_3_5_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_5_3_5_1.F,v 1.1 2008-09-17 04:39:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 p11 h9 p1 )_vt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_6_1.F index 092ed3eec7..1ee9773485 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_3_6_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_5_3_6_1.F,v 1.1 2008-09-17 04:39:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h9 h13 )_vt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_7_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_7_1.F index fae77941c1..4cc5e76e40 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_7_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_3_7_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_5_3_7_1.F,v 1.1 2008-09-17 04:39:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 p6 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_4_1.F index 068b84acb9..0e6fbe08ea 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_4_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_5_4_1.F,v 1.1 2008-09-17 04:39:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 p2 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_5_1.F index 187afa4e00..7d9edb9ea0 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_5_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_5_5_1.F,v 1.1 2008-09-17 04:39:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h9 p3 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_6_1.F index 60cca6e232..da0f2a695f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_6_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_5_6_1.F,v 1.1 2008-09-17 04:39:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p3 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_7_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_7_1.F index 33e74c1c3e..bd97e574bd 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_7_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_7_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_5_7_1.F,v 1.1 2008-09-17 04:39:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h9 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_8_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_8_1.F index bbe8fb5b70..40ed9a99e7 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_8_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_8_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_5_8_1.F,v 1.1 2008-09-17 04:39:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p10 p11 h9 p1 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_9_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_9_1.F index 4b92dd2aeb..4338cd8127 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_9_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_9_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_5_9_1.F,v 1.1 2008-09-17 04:39:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p11 h9 p2 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_1.F index 5ad9446d72..914f135e4d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_2_6_1.F,v 1.1 2008-09-17 04:39:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p10 h11 h12 )_ytratrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_10_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_10_1.F index b08fbc0bb6..065b8e61be 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_10_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_10_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_6_10_1.F,v 1.1 2008-09-17 04:39:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p10 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_11_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_11_1.F index c3642b7a07..0082c67cdb 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_11_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_11_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_11_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_6_11_1.F,v 1.1 2008-09-17 04:39:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h13 h11 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_12_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_12_1.F index 5957b2cb30..35090fc528 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_12_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_12_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_12_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_6_12_1.F,v 1.1 2008-09-17 04:39:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p10 h12 p1 )_ytrbt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_12_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_12_1_1.F index 5309f696d0..6760841545 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_12_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_12_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_12_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_6_12_1_1.F,v 1.1 2008-09-17 04:39:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h13 h12 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_12_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_12_2_1.F index 694f60577a..3040e26486 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_12_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_12_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_12_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_6_12_2_1.F,v 1.1 2008-09-17 04:39:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h13 h12 p1 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_13_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_13_1.F index 68cbb8c98b..3483754c7e 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_13_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_13_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_13_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_6_13_1.F,v 1.1 2008-09-17 04:39:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h13 h11 h12 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_13_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_13_1_1.F index d85e40b71f..17540a9812 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_13_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_13_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_13_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_6_13_1_1.F,v 1.1 2008-09-17 04:39:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h13 h12 p3 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_13_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_13_2_1.F index 5a1bcbf622..492d3bca66 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_13_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_13_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_13_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_6_13_2_1.F,v 1.1 2008-09-17 04:39:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h13 h12 p3 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_14_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_14_1.F index 6d894c9722..494d030a4d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_14_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_14_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_14_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_6_14_1.F,v 1.1 2008-09-17 04:39:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p10 h12 p1 )_ytratrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_14_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_14_1_1.F index ea9be6f494..eed47895d8 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_14_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_14_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_14_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_6_14_1_1.F,v 1.1 2008-09-17 04:39:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h13 h12 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_14_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_14_2_1.F index b9616bd573..87dd6fd94b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_14_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_14_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_14_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_6_14_2_1.F,v 1.1 2008-09-17 04:39:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h13 h12 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_15_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_15_1.F index 612486a0ab..85fcead7f7 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_15_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_15_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_15_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_6_15_1.F,v 1.1 2008-09-17 04:39:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p10 h12 p1 )_yttra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_15_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_15_1_1.F index 07c52a058a..870304bc9f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_15_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_15_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_15_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_6_15_1_1.F,v 1.1 2008-09-17 04:39:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h13 h12 p1 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_15_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_15_2_1.F index b566dbb786..32ba99a79f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_15_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_15_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_15_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_6_15_2_1.F,v 1.1 2008-09-17 04:39:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h13 h12 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_1_1.F index a6abdf812e..5e8a5f2d63 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_1_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_6_1_1.F,v 1.1 2008-09-17 04:39:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 h11 h12 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_1_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_1_3_1.F index 78cdf4ef8d..77f4b08dab 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_1_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_1_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_6_1_3_1.F,v 1.1 2008-09-17 04:39:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h13 h12 p3 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_1_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_1_4_1.F index 7b34198b26..81c96f7d8b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_1_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_1_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_6_1_4_1.F,v 1.1 2008-09-17 04:39:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h13 h12 p3 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_2_1.F index 6a8218a4b7..38f6d84e55 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_6_2_1.F,v 1.1 2008-09-17 04:39:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h13 h12 p1 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_3_1.F index 1b83c74afa..e34f020039 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_3_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_6_3_1.F,v 1.1 2008-09-17 04:39:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h11 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_4_1.F index f2f554d668..2bc07ad3e6 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_4_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_6_4_1.F,v 1.1 2008-09-17 04:39:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h13 h12 p1 p2 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_4_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_4_1_1.F index d735106c4d..8f279c1ac6 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_4_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_4_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_4_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_6_4_1_1.F,v 1.1 2008-09-17 04:39:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h5 h13 p1 p2 p7 )_y diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_5_1.F index ba7b40c382..e2bf73f0e3 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_5_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_6_5_1.F,v 1.1 2008-09-17 04:39:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p10 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_6_1.F index 2e09b1f3f6..f75192ff67 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_6_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_6_6_1.F,v 1.1 2008-09-17 04:39:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h13 h11 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_7_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_7_1.F index 84359a12b6..5b4bd25945 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_7_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_7_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_6_7_1.F,v 1.1 2008-09-17 04:39:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 h11 h12 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_7_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_7_3_1.F index 63b2b18fd2..8fb9423ef7 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_7_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_7_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_7_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_6_7_3_1.F,v 1.1 2008-09-17 04:39:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h13 h12 p3 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_7_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_7_4_1.F index 6bd21e90c7..5c23c97f8f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_7_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_7_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_7_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_6_7_4_1.F,v 1.1 2008-09-17 04:39:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h13 h12 p3 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_8_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_8_1.F index 6a070bf9c9..c17fa9059a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_8_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_8_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_6_8_1.F,v 1.1 2008-09-17 04:39:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h13 h12 p1 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_9_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_9_1.F index 5859e8d470..cf41c600a3 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_9_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_9_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_6_9_1.F,v 1.1 2008-09-17 04:39:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h11 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_7_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_7_1.F index 57e908d3fa..1c4d79bef6 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_7_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_7_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_7_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_2_7_1.F,v 1.1 2008-09-17 04:39:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p5 p7 p8 )_ytratrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_7_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_7_1_1.F index 2a67fa3ead..49772d9fbe 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_7_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_7_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_7_1_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_7_1_1.F,v 1.1 2008-09-17 04:39:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p2 p7 p8 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_7_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_7_2_1.F index 29001db77f..1b87fbcd81 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_7_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_7_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_7_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_7_2_1.F,v 1.1 2008-09-17 04:39:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p2 p7 p8 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_1.F index a1f74b5801..58fa129e31 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_1.F,v 1.1 2008-09-17 04:39:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_10_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_10_1.F index b9d8f59afc..96410300ab 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_10_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_10_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_10_1.F,v 1.1 2008-09-17 04:39:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p12 p1 p2 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_11_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_11_1.F index fbfe4a3d6d..9b089636cb 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_11_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_11_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_11_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_11_1.F,v 1.1 2008-09-17 04:39:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p11 h14 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_12_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_12_1.F index d96d83d112..d867fbb4e9 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_12_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_12_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_12_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_12_1.F,v 1.1 2008-09-17 04:39:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h14 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_13_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_13_1.F index 047b19c27a..1723767e18 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_13_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_13_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_13_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_13_1.F,v 1.1 2008-09-17 04:39:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h13 h14 h15 p6 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_13_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_13_2_1.F index 98e81f6dc9..9f29563908 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_13_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_13_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_13_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_13_2_1.F,v 1.1 2008-09-17 04:39:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h13 h15 p1 p6 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_13_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_13_3_1.F index 2a17bc1f00..a151d19bbe 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_13_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_13_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_13_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_13_3_1.F,v 1.1 2008-09-17 04:39:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h13 h15 p1 p6 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_14_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_14_1.F index 03dbdd9300..cdc4461c77 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_14_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_14_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_14_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_14_1.F,v 1.1 2008-09-17 04:39:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_1.F index 65f1a72eac..d98a97be87 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_15_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_15_1.F,v 1.1 2008-09-17 04:39:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_yttrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_1_1.F index 57c260a3b9..ba8bf463c7 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_15_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_15_1_1.F,v 1.1 2008-09-17 04:39:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_1_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_1_2_1.F index 6ea0ce7322..9ca017ea31 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_1_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_15_1_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_15_1_2_1.F,v 1.1 2008-09-17 04:39:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_1_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_1_3_1.F index 36bfa86e4d..74b2199f71 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_1_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_15_1_3_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_15_1_3_1.F,v 1.1 2008-09-17 04:39:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_2_1.F index 107533cd8d..eab633d3f9 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_15_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_15_2_1.F,v 1.1 2008-09-17 04:39:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h14 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_3_1.F index f37069b523..509fbfb2b9 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_15_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_15_3_1.F,v 1.1 2008-09-17 04:39:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h14 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_4_1.F index 95b180e280..e0180f6850 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_15_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_15_4_1.F,v 1.1 2008-09-17 04:39:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_4_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_4_2_1.F index cf9d441b92..57e4ba74b6 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_4_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_15_4_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_15_4_2_1.F,v 1.1 2008-09-17 04:39:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_4_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_4_3_1.F index 9f142134bd..236b71755c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_4_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_15_4_3_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_15_4_3_1.F,v 1.1 2008-09-17 04:39:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_5_1.F index 0b39366e53..d029214c55 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_15_5_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_15_5_1.F,v 1.1 2008-09-17 04:39:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h14 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_6_1.F index 5f6f8f6a32..6c08b9f50b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_15_6_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_15_6_1.F,v 1.1 2008-09-17 04:39:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h14 p5 p6 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_7_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_7_1.F index 15d775a16b..7374ae5ad5 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_7_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_15_7_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_15_7_1.F,v 1.1 2008-09-17 04:39:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_ytt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_7_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_7_1_1.F index 0dc9ca1f5c..3cd7285ff5 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_7_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_7_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_15_7_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_15_7_1_1.F,v 1.1 2008-09-17 04:39:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_8_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_8_1.F index 33f75854d3..536f2ae929 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_8_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_15_8_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_15_8_1.F,v 1.1 2008-09-17 04:39:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_yttrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_8_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_8_1_1.F index 427f7535f6..2b5f7a2963 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_8_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_8_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_15_8_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_15_8_1_1.F,v 1.1 2008-09-17 04:39:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_8_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_8_2_1.F index af57a8cdc3..c1c20a37cf 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_8_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_8_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_15_8_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_15_8_2_1.F,v 1.1 2008-09-17 04:39:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_16_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_16_1.F index 89db260d64..d42ea4c5f1 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_16_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_16_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_16_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_16_1.F,v 1.1 2008-09-17 04:39:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h15 )_yttra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_16_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_16_1_1.F index e3e36bfe21..c37e8e75ce 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_16_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_16_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_16_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_16_1_1.F,v 1.1 2008-09-17 04:39:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_16_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_16_2_1.F index e1bf7c88fc..ae9407d894 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_16_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_16_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_16_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_16_2_1.F,v 1.1 2008-09-17 04:39:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_17_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_17_1.F index 9f6a9f99ab..7ea2ca2689 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_17_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_17_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_17_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_17_1.F,v 1.1 2008-09-17 04:39:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h10 h14 h15 p5 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_17_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_17_1_1.F index 56be9686dc..a5cef5a4d6 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_17_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_17_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_17_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_17_1_1.F,v 1.1 2008-09-17 04:39:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h15 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_17_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_17_2_1.F index ed51bbd25e..97dc80b45d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_17_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_17_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_17_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_17_2_1.F,v 1.1 2008-09-17 04:39:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h15 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_18_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_18_1.F index fcc81d9c75..f050599564 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_18_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_18_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_18_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_18_1.F,v 1.1 2008-09-17 04:39:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p12 h14 )_ytrat diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_18_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_18_1_1.F index 7bead39af2..a751e54e1c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_18_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_18_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_18_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_18_1_1.F,v 1.1 2008-09-17 04:39:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h14 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_18_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_18_2_1.F index 76ec4cf9aa..240d559bfb 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_18_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_18_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_18_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_18_2_1.F,v 1.1 2008-09-17 04:39:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h14 p5 p6 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_1.F index c6f7836f99..f9939eedce 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_19_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_19_1.F,v 1.1 2008-09-17 04:39:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p11 h14 h15 )_ytratrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_1_1.F index e5748b545b..186b77c830 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_19_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_19_1_1.F,v 1.1 2008-09-17 04:39:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p11 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_2_1.F index 9e9046dc67..6ca46e1f74 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_19_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_19_2_1.F,v 1.1 2008-09-17 04:39:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h14 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_3_1.F index 4c699c8917..9946726dcf 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_19_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_19_3_1.F,v 1.1 2008-09-17 04:39:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p11 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_4_1.F index f27990cbd2..b884bb3fce 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_19_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_19_4_1.F,v 1.1 2008-09-17 04:39:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h14 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_1_1.F index e2e432900b..899a5240d6 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_1_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_8_1_1.F,v 1.1 2008-09-17 04:39:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h15 p1 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_20_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_20_1.F index 0994e62835..e7b957a1eb 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_20_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_20_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_20_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_20_1.F,v 1.1 2008-09-17 04:39:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h15 p5 )_yttra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_20_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_20_1_1.F index 1d853ce0fe..ee2cc29b32 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_20_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_20_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_20_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_20_1_1.F,v 1.1 2008-09-17 04:39:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_20_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_20_2_1.F index c9c5d8adf7..484dd921c6 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_20_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_20_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_20_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_20_2_1.F,v 1.1 2008-09-17 04:39:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_21_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_21_1.F index 3bf38460cc..bf732dde8f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_21_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_21_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_21_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_21_1.F,v 1.1 2008-09-17 04:39:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h14 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_21_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_21_1_1.F index bca1f11995..a1ce2af9f7 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_21_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_21_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_21_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_21_1_1.F,v 1.1 2008-09-17 04:39:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h14 p1 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_21_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_21_2_1.F index 68696f53d6..c7b9981a58 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_21_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_21_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_21_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_21_2_1.F,v 1.1 2008-09-17 04:39:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h14 p1 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_1.F index e6cb60a460..5971c3e714 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_1.F,v 1.1 2008-09-17 04:39:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_10_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_10_1.F index 7da45ce54c..4194b12c6b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_10_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_10_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_10_1.F,v 1.1 2008-09-17 04:39:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_ytrat diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_10_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_10_1_1.F index 2c3c508605..e93a6e00fd 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_10_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_10_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_10_1_1(l_a_offset,k_a_offse &t,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_10_1_1.F,v 1.1 2008-09-17 04:39:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_10_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_10_2_1.F index 2b33b8c7bc..15361f9098 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_10_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_10_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_10_2_1(l_a_offset,k_a_offse &t,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_10_2_1.F,v 1.1 2008-09-17 04:39:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_1_1.F index f5b5f4724b..1c4dcc0f8c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_1_1.F,v 1.1 2008-09-17 04:39:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_1_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_1_3_1.F index 019fa2073c..9cb63305ab 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_1_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_1_3_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_1_3_1.F,v 1.1 2008-09-17 04:39:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_1_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_1_4_1.F index 537574ed17..7a88d98886 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_1_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_1_4_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_1_4_1.F,v 1.1 2008-09-17 04:39:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_2_1.F index c59a0606ee..154f24d0e6 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_2_1.F,v 1.1 2008-09-17 04:39:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h14 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_3_1.F index 4f13a5aadb..f476c99b12 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_3_1.F,v 1.1 2008-09-17 04:39:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h14 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_4_1.F index a1f025bf15..9ca855dd0b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_4_1.F,v 1.1 2008-09-17 04:39:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_4_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_4_3_1.F index df9a394b8b..8074f36dc6 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_4_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_4_3_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_4_3_1.F,v 1.1 2008-09-17 04:39:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_4_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_4_4_1.F index a8aa851dcd..c3f03411fa 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_4_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_4_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_4_4_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_4_4_1.F,v 1.1 2008-09-17 04:39:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_5_1.F index 0dffc3fa33..a4132592d8 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_5_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_5_1.F,v 1.1 2008-09-17 04:39:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h14 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_6_1.F index 801a975d36..9087751f0b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_6_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_6_1.F,v 1.1 2008-09-17 04:39:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h14 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_7_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_7_1.F index 4c81e49670..ac34971d29 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_7_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_7_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_7_1.F,v 1.1 2008-09-17 04:39:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_ytrbt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_7_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_7_1_1.F index f559253513..a210fb04eb 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_7_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_7_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_7_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_7_1_1.F,v 1.1 2008-09-17 04:39:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_7_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_7_2_1.F index b6bb589a10..2e4ae12373 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_7_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_7_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_7_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_7_2_1.F,v 1.1 2008-09-17 04:39:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_8_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_8_1.F index 520aa7e7bb..308135c548 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_8_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_8_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_8_1.F,v 1.1 2008-09-17 04:39:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_8_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_8_1_1.F index 322b0cad9d..7ca6bda5ac 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_8_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_8_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_8_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_8_1_1.F,v 1.1 2008-09-17 04:39:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_8_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_8_2_1.F index 6942a34dd9..edce1256da 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_8_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_8_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_8_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_8_2_1.F,v 1.1 2008-09-17 04:39:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_9_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_9_1.F index ea9692016b..124031b144 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_9_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_9_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_9_1.F,v 1.1 2008-09-17 04:39:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_ytratrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_9_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_9_1_1.F index a4a4833c5a..7055b04442 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_9_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_9_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_9_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_9_1_1.F,v 1.1 2008-09-17 04:39:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_9_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_9_2_1.F index b99d6dab97..f6de69162c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_9_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_9_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_9_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_9_2_1.F,v 1.1 2008-09-17 04:39:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_23_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_23_1.F index 08ae4d6fe9..684bd4176a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_23_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_23_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_23_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_23_1.F,v 1.1 2008-09-17 04:39:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h15 )_ytrbt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_23_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_23_1_1.F index 82cd6b9d13..b3b12e0f4a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_23_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_23_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_23_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_23_1_1.F,v 1.1 2008-09-17 04:39:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_23_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_23_2_1.F index 7ad20eae69..a37ed5514e 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_23_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_23_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_23_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_23_2_1.F,v 1.1 2008-09-17 04:39:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_24_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_24_1.F index cd0d3b6f17..91562a11bb 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_24_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_24_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_24_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_24_1.F,v 1.1 2008-09-17 04:39:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p12 h14 )_yttrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_24_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_24_1_1.F index ddff6f845c..d010c18389 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_24_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_24_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_24_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_24_1_1.F,v 1.1 2008-09-17 04:39:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h14 p5 p6 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_24_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_24_2_1.F index b4aa8cfb5a..0e2c43af7c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_24_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_24_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_24_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_24_2_1.F,v 1.1 2008-09-17 04:39:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h14 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_1.F index 74b9244b9c..52f5ff00bb 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_25_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_25_1.F,v 1.1 2008-09-17 04:39:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p11 h14 h15 )_yttra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_1_1.F index a3aa060d01..8cdfcee27b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_25_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_25_1_1.F,v 1.1 2008-09-17 04:39:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p11 p5 p6 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_2_1.F index e4366f342f..447aa9d240 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_25_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_25_2_1.F,v 1.1 2008-09-17 04:39:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h14 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_3_1.F index 0fdd2d475e..b64325b2ce 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_25_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_25_3_1.F,v 1.1 2008-09-17 04:39:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p11 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_4_1.F index 08d995fdfc..50f73efb3b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_25_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_25_4_1.F,v 1.1 2008-09-17 04:39:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h14 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_26_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_26_1.F index a7ead2a7e1..55fcab38c5 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_26_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_26_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_26_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_26_1.F,v 1.1 2008-09-17 04:39:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h15 p5 )_ytrbt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_26_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_26_1_1.F index f49bf4f822..bbbd55cfb8 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_26_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_26_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_26_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_26_1_1.F,v 1.1 2008-09-17 04:39:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_26_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_26_2_1.F index 14d47434f8..2c5f33f686 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_26_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_26_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_26_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_26_2_1.F,v 1.1 2008-09-17 04:39:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_27_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_27_1.F index d468c873ac..28054ef7dc 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_27_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_27_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_27_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_27_1.F,v 1.1 2008-09-17 04:39:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h14 )_ytrat diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_27_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_27_1_1.F index e9d2c49785..8034c7fbe7 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_27_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_27_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_27_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_27_1_1.F,v 1.1 2008-09-17 04:39:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h14 p1 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_27_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_27_2_1.F index 9cabc82d91..5ae7d190a3 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_27_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_27_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_27_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_27_2_1.F,v 1.1 2008-09-17 04:39:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h14 p1 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_1.F index c28f449df4..08868b0525 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_28_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_28_1.F,v 1.1 2008-09-17 04:39:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytrat diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_1_1.F index ebffb22a9d..2665cc246b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_28_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_28_1_1.F,v 1.1 2008-09-17 04:39:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_1_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_1_3_1.F index 6f74c04703..fec0b2e9a3 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_1_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_28_1_3_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_28_1_3_1.F,v 1.1 2008-09-17 04:39:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_1_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_1_4_1.F index a9be953bbe..644991b8ee 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_1_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_28_1_4_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_28_1_4_1.F,v 1.1 2008-09-17 04:39:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_2_1.F index 279b4e0e90..98b36804e5 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_28_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_28_2_1.F,v 1.1 2008-09-17 04:39:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h14 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_3_1.F index 09240110de..f90241fb54 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_28_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_28_3_1.F,v 1.1 2008-09-17 04:39:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h14 p5 p6 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_4_1.F index 662566974e..6549455af1 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_28_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_28_4_1.F,v 1.1 2008-09-17 04:39:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_4_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_4_3_1.F index 8452be5e90..c7f1feea66 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_4_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_28_4_3_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_28_4_3_1.F,v 1.1 2008-09-17 04:39:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_5_1.F index e69c024e29..ad9c8a11f5 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_28_5_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_28_5_1.F,v 1.1 2008-09-17 04:39:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h14 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_6_1.F index faad3b201c..e94c0e0878 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_28_6_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_28_6_1.F,v 1.1 2008-09-17 04:39:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h14 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_7_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_7_1.F index c06deec45a..eceecc9aae 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_7_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_28_7_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_28_7_1.F,v 1.1 2008-09-17 04:39:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_yttra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_7_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_7_1_1.F index 1e87419160..44dc6e5d3f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_7_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_7_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_28_7_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_28_7_1_1.F,v 1.1 2008-09-17 04:39:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_7_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_7_2_1.F index 53dd4ad7a7..a4b370d86b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_7_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_7_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_28_7_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_28_7_2_1.F,v 1.1 2008-09-17 04:39:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_8_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_8_1.F index 31de931c6f..3489e6138b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_8_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_28_8_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_28_8_1.F,v 1.1 2008-09-17 04:39:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_ytt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_8_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_8_1_1.F index 3599b9de5e..bb0fe15a8f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_8_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_8_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_28_8_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_28_8_1_1.F,v 1.1 2008-09-17 04:39:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_29_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_29_1.F index 994c36c124..b65c061487 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_29_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_29_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_29_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_29_1.F,v 1.1 2008-09-17 04:39:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h15 )_ytratrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_29_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_29_1_1.F index 5d6b6f841d..f212579253 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_29_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_29_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_29_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_29_1_1.F,v 1.1 2008-09-17 04:40:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_29_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_29_2_1.F index ba687e5cd7..bba1006e08 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_29_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_29_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_29_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_29_2_1.F,v 1.1 2008-09-17 04:40:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_2_1.F index 34fbc7c372..29692ea515 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_8_2_1.F,v 1.1 2008-09-17 04:40:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h14 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_2_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_2_3_1.F index 0e5fa4d9af..fbe97fa300 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_2_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_2_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_2_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_8_2_3_1.F,v 1.1 2008-09-17 04:40:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h14 p9 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_2_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_2_4_1.F index 67f2009934..d6280c459e 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_2_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_2_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_2_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_8_2_4_1.F,v 1.1 2008-09-17 04:40:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h14 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_30_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_30_1.F index fe50a9543d..36aec812bf 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_30_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_30_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_30_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_30_1.F,v 1.1 2008-09-17 04:40:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p12 h14 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_30_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_30_1_1.F index d74f6871d6..b46a73c2ba 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_30_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_30_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_30_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_30_1_1.F,v 1.1 2008-09-17 04:40:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h14 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_30_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_30_2_1.F index e114360a37..04aed5bbd9 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_30_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_30_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_30_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_30_2_1.F,v 1.1 2008-09-17 04:40:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h14 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_1.F index fdcaecbfb4..ddbed60d7c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_31_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_31_1.F,v 1.1 2008-09-17 04:40:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p11 h14 h15 )_ytrbt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_1_1.F index 109c775710..890beef210 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_31_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_31_1_1.F,v 1.1 2008-09-17 04:40:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p11 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_2_1.F index bfc725a143..bb03074161 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_31_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_31_2_1.F,v 1.1 2008-09-17 04:40:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h14 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_3_1.F index d6e173f8e0..ac8d55b10b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_31_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_31_3_1.F,v 1.1 2008-09-17 04:40:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p11 p5 p6 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_4_1.F index 675ce1772c..82cf76aeec 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_31_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_31_4_1.F,v 1.1 2008-09-17 04:40:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h14 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_32_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_32_1.F index de012dfe1e..7f5d7cd55a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_32_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_32_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_32_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_32_1.F,v 1.1 2008-09-17 04:40:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h15 p5 )_ytratrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_32_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_32_1_1.F index 151d96bfd8..564482571f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_32_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_32_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_32_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_32_1_1.F,v 1.1 2008-09-17 04:40:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_32_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_32_2_1.F index 952c264ed0..4fcde63610 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_32_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_32_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_32_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_32_2_1.F,v 1.1 2008-09-17 04:40:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_33_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_33_1.F index e86554263f..c29aab3a18 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_33_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_33_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_33_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_33_1.F,v 1.1 2008-09-17 04:40:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h14 h15 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_33_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_33_1_1.F index 433e5d5bf4..2cc2137e7d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_33_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_33_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_33_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_33_1_1.F,v 1.1 2008-09-17 04:40:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h14 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_33_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_33_2_1.F index ff656e148e..69cf3f52e3 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_33_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_33_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_33_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_33_2_1.F,v 1.1 2008-09-17 04:40:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h14 p9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_34_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_34_1.F index b9960609c0..e1b535f585 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_34_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_34_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_34_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_34_1.F,v 1.1 2008-09-17 04:40:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h14 )_yttrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_34_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_34_1_1.F index 55eed2a019..08178fec41 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_34_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_34_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_34_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_34_1_1.F,v 1.1 2008-09-17 04:40:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h14 p1 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_34_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_34_2_1.F index 257b016fb4..c1093f2d0e 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_34_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_34_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_34_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_34_2_1.F,v 1.1 2008-09-17 04:40:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h14 p1 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_3_1.F index 3fbd692344..667b6c3b32 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_3_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_8_3_1.F,v 1.1 2008-09-17 04:40:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p12 p1 p2 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_4_1.F index b8b7a2f6eb..ae966442d1 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_4_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_8_4_1.F,v 1.1 2008-09-17 04:40:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h14 h15 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_4_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_4_3_1.F index 092da3c050..59a5607a85 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_4_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_4_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_8_4_3_1.F,v 1.1 2008-09-17 04:40:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h14 p9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_4_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_4_4_1.F index 91337135ce..06570c25bf 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_4_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_4_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_4_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_8_4_4_1.F,v 1.1 2008-09-17 04:40:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h14 p9 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_5_1.F index d1689e81af..cf614fd403 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_5_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_8_5_1.F,v 1.1 2008-09-17 04:40:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p11 h14 p7 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_6_1.F index b399ee155f..97ad93b5d4 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_6_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_8_6_1.F,v 1.1 2008-09-17 04:40:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h14 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_7_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_7_1.F index 592d4bb167..0a765e31cd 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_7_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_7_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_8_7_1.F,v 1.1 2008-09-17 04:40:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h13 h14 h15 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_7_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_7_2_1.F index 18dd2594e2..1d24af6110 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_7_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_7_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_7_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_8_7_2_1.F,v 1.1 2008-09-17 04:40:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h13 h15 p1 p6 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_7_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_7_3_1.F index 87c16b3a59..bf9b02abb5 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_7_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_7_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_7_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_8_7_3_1.F,v 1.1 2008-09-17 04:40:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h13 h15 p1 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_8_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_8_1.F index acf8776070..0e7b02630e 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_8_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_8_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_8_8_1.F,v 1.1 2008-09-17 04:40:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 p7 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_9_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_9_1.F index a490aba283..e7e0770b7d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_9_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_9_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_8_9_1.F,v 1.1 2008-09-17 04:40:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h15 p1 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_1.F index 26e99f5582..2439209e4c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_2_9_1.F,v 1.1 2008-09-17 04:40:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h10 p9 )_ytratrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_10_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_10_1.F index 58866e567e..fba11f2941 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_10_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_10_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_9_10_1.F,v 1.1 2008-09-17 04:40:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h10 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_1.F index 049933fa80..2b8fb3a560 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_11_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_9_11_1.F,v 1.1 2008-09-17 04:40:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h10 p9 )_yttrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_1_1.F index 5381ee6e5c..358364f4bf 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_11_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_9_11_1_1.F,v 1.1 2008-09-17 04:40:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p9 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_2_1.F index 409a0cd12c..2327a2b92e 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_11_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_9_11_2_1.F,v 1.1 2008-09-17 04:40:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h10 p5 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_3_1.F index cdef75cae5..64a7a7a38f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_11_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_9_11_3_1.F,v 1.1 2008-09-17 04:40:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_4_1.F index 6107746637..41b88dbc85 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_11_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_9_11_4_1.F,v 1.1 2008-09-17 04:40:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h10 p5 p9 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_1.F index 2020abf42b..0f00c18da0 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_12_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_9_12_1.F,v 1.1 2008-09-17 04:40:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h10 p9 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_1_1.F index ed8f3dc2f4..3d1fad6210 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_12_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_9_12_1_1.F,v 1.1 2008-09-17 04:40:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_2_1.F index 9b8a02aa01..d9ce6bd19a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_12_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_9_12_2_1.F,v 1.1 2008-09-17 04:40:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h10 p5 p9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_3_1.F index 93f970ea00..c840fc9627 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_12_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_9_12_3_1.F,v 1.1 2008-09-17 04:40:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_4_1.F index 71b4f43fa2..653aa3b0d2 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_12_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_9_12_4_1.F,v 1.1 2008-09-17 04:40:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h10 p5 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_1.F index 0010043da9..e54e893c57 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_13_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_9_13_1.F,v 1.1 2008-09-17 04:40:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h10 p9 )_ytrat diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_1_1.F index 5191833555..42a550b820 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_13_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_9_13_1_1.F,v 1.1 2008-09-17 04:40:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_2_1.F index ef567dee9a..69e0541967 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_13_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_9_13_2_1.F,v 1.1 2008-09-17 04:40:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h10 p5 p9 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_3_1.F index ed17876587..3ae1251a71 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_13_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_9_13_3_1.F,v 1.1 2008-09-17 04:40:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p9 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_4_1.F index b0af6ae4ea..01d8076d3a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_13_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_9_13_4_1.F,v 1.1 2008-09-17 04:40:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h10 p5 p9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_1_1.F index dac9f56326..9380f2724c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_1_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_9_1_1.F,v 1.1 2008-09-17 04:40:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p13 h10 p9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_2_1.F index 2e06a3f880..d6dd97e6a8 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_9_2_1.F,v 1.1 2008-09-17 04:40:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h6 h10 p1 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_3_1.F index 2a974cdaec..ad69440981 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_3_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_9_3_1.F,v 1.1 2008-09-17 04:40:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 p9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_4_1.F index 9ce9a46670..3a9f7c3789 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_4_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_9_4_1.F,v 1.1 2008-09-17 04:40:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p13 p5 p9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_5_1.F index 9bb5c7eff0..21b0ea85ae 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_5_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_9_5_1.F,v 1.1 2008-09-17 04:40:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h10 p9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_6_1.F index cebdf00664..7b6e71217c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_6_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_9_6_1.F,v 1.1 2008-09-17 04:40:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p13 h10 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_7_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_7_1.F index 5d94fe4f47..b219298846 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_7_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_7_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_9_7_1.F,v 1.1 2008-09-17 04:40:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h6 h10 p1 p9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_8_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_8_1.F index c2acb1e693..167f17f53d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_8_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_8_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_9_8_1.F,v 1.1 2008-09-17 04:40:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_9_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_9_1.F index 0210bafe1b..6552382df2 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_9_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_9_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_9_9_1.F,v 1.1 2008-09-17 04:40:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p13 p5 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_1.F index 693d6e9cd9..6825caa017 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_3_1_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_3_1_1.F,v 1.1 2008-09-17 04:40:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_1_1.F index 8816c4c5d8..a097e63b8f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_3_1_1_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_3_1_1_1.F,v 1.1 2008-09-17 04:40:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_2_1.F index 99424fe5d7..e26a630bf1 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_3_1_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_3_1_2_1.F,v 1.1 2008-09-17 04:40:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_3_1.F index 5e3c0f3975..888c432176 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_3_1_3_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_3_1_3_1.F,v 1.1 2008-09-17 04:40:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h9 p2 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_4_1.F index 638ca7bc9d..f5b98c34fb 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_3_1_4_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_3_1_4_1.F,v 1.1 2008-09-17 04:40:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h7 h9 p3 p4 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_5_1.F index 6badc39099..20ff8653a8 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_3_1_5_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_3_1_5_1.F,v 1.1 2008-09-17 04:40:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h9 p2 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_6_1.F index a9967aa202..2234371ab3 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_3_1_6_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_3_1_6_1.F,v 1.1 2008-09-17 04:40:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h7 h9 p3 p4 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_1.F index 68e832fbc6..b64f226bf8 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_1_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_4_1_1.F,v 1.1 2008-09-17 04:40:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h2 )_vtrctratrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_1_1.F index 4a780469c0..8d7d0106fb 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_1_1_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_1_1_1.F,v 1.1 2008-09-17 04:40:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h2 )_vtrctra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_1_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_1_1_1.F index 7d357e9658..e9dcad0149 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_1_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_1_1_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_1_1_1_1.F,v 1.1 2008-09-17 04:40:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p1 )_vtrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_1_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_1_2_1.F index e0c9dc5a9f..76546a8275 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_1_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_1_1_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_1_1_2_1.F,v 1.1 2008-09-17 04:40:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p1 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_2_1.F index a2fde7de5f..368eccc5f5 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_1_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_1_2_1.F,v 1.1 2008-09-17 04:40:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h2 )_vtrbtrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_2_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_2_1_1.F index 38b1c63fa7..8c5cd52c5c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_2_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_1_2_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_1_2_1_1.F,v 1.1 2008-09-17 04:40:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_2_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_2_2_1.F index 78ea79d9c0..8508574eab 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_2_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_1_2_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_1_2_2_1.F,v 1.1 2008-09-17 04:40:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p1 )_vtrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_3_1.F index 3aa8c0d360..b0b4f7dfe2 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_1_3_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_1_3_1.F,v 1.1 2008-09-17 04:40:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h2 )_vtratrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_3_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_3_1_1.F index 424393f92f..58ea4faa49 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_3_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_3_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_1_3_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_1_3_1_1.F,v 1.1 2008-09-17 04:40:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p1 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_3_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_3_2_1.F index b6c41eca46..4e685ad62f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_3_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_1_3_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_1_3_2_1.F,v 1.1 2008-09-17 04:40:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_1.F index 65fade751a..99bff0c304 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_4_2_1.F,v 1.1 2008-09-17 04:40:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p11 h10 h12 )_ytrctrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_1_1.F index 125f05c1d2..425b107901 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_1_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_2_1_1.F,v 1.1 2008-09-17 04:40:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h10 h12 )_ytrctrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_1_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_1_1_1.F index e0194369f8..7ea631b40a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_1_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_1_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_2_1_1_1.F,v 1.1 2008-09-17 04:40:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_1_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_1_2_1.F index eb1e5945fb..7645efe05d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_1_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_1_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_2_1_2_1.F,v 1.1 2008-09-17 04:40:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_2_1.F index 285eb6c990..8dfd6c2623 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_2_2_1.F,v 1.1 2008-09-17 04:40:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p11 h10 p1 )_ytrbtrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_2_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_2_1_1.F index 331cb8a125..7dee90e831 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_2_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_2_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_2_2_1_1.F,v 1.1 2008-09-17 04:40:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h8 h10 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_2_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_2_2_1.F index 2de2c012d4..4623ccc338 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_2_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_2_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_2_2_2_1.F,v 1.1 2008-09-17 04:40:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h8 h10 p1 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_3_1.F index e8f381e4fe..0d494b055e 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_3_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_2_3_1.F,v 1.1 2008-09-17 04:40:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h10 h12 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_3_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_3_1_1.F index 8b31fcb74d..3f33bf2ddf 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_3_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_3_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_3_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_2_3_1_1.F,v 1.1 2008-09-17 04:40:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_3_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_3_2_1.F index e7e71fee26..e231140ae2 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_3_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_3_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_2_3_2_1.F,v 1.1 2008-09-17 04:40:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_4_1.F index 027155177d..989153425c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_4_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_2_4_1.F,v 1.1 2008-09-17 04:40:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p11 h10 p1 )_ytratrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_4_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_4_1_1.F index c610074aef..f08486fc51 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_4_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_4_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_4_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_2_4_1_1.F,v 1.1 2008-09-17 04:40:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h8 h10 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_4_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_4_2_1.F index 585aaa5368..824aed4163 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_4_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_4_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_2_4_2_1.F,v 1.1 2008-09-17 04:40:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h8 h10 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_5_1.F index ab20a49a05..552f713f7a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_5_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_2_5_1.F,v 1.1 2008-09-17 04:40:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h10 h12 )_ytratrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_5_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_5_1_1.F index bcf7d68fb0..150b19a051 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_5_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_5_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_5_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_2_5_1_1.F,v 1.1 2008-09-17 04:40:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_5_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_5_2_1.F index 2c57cc77e1..c1ef8a6b04 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_5_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_5_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_5_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_2_5_2_1.F,v 1.1 2008-09-17 04:40:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_6_1.F index 5c5eb78bd3..e382d848c8 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_6_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_2_6_1.F,v 1.1 2008-09-17 04:40:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p11 h10 p1 )_ytrctra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_6_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_6_1_1.F index 3eb523eb85..12a561aa35 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_6_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_6_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_6_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_2_6_1_1.F,v 1.1 2008-09-17 04:40:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h8 h10 p1 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_6_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_6_2_1.F index fd2b6c746a..2f853e7394 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_6_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_6_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_6_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_2_6_2_1.F,v 1.1 2008-09-17 04:40:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h8 h10 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1.F index 7eb4e63072..9f5f3c45d9 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_4_3_1.F,v 1.1 2008-09-17 04:40:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h9 h10 )_vtrbtratrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_1.F index 5613d8c250..9bc20cb766 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_1_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_3_1_1.F,v 1.1 2008-09-17 04:40:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_1_1.F index 5b3f1b34c1..b5a0e35f1a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_1_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_1_1_1.F,v 1.1 2008-09-17 04:40:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h10 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_2_1.F index 4c2f9d6690..2482d4b00f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_1_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_1_2_1.F,v 1.1 2008-09-17 04:40:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h9 h10 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_3_1.F index 379c0f66f6..e200f73d06 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_1_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_1_3_1.F,v 1.1 2008-09-17 04:40:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p6 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_4_1.F index d1be2ba958..e36d862d4b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_1_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_1_4_1.F,v 1.1 2008-09-17 04:40:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h10 p1 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_5_1.F index 1ef410de6d..4fd2384130 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_1_5_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_1_5_1.F,v 1.1 2008-09-17 04:40:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h9 h10 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_6_1.F index 39137129b3..242ed480b5 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_1_6_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_1_6_1.F,v 1.1 2008-09-17 04:40:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p6 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_2_1.F index 0d5d785a07..5b1c429d06 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_3_2_1.F,v 1.1 2008-09-17 04:40:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_vtrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_2_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_2_1_1.F index a2e2b07608..988b385548 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_2_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_2_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_2_1_1.F,v 1.1 2008-09-17 04:40:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_2_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_2_2_1.F index ed0901c607..598f596ecb 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_2_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_2_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_2_2_1.F,v 1.1 2008-09-17 04:40:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_1.F index 1fd5c34f38..67c385cea2 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_3_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_3_3_1.F,v 1.1 2008-09-17 04:40:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtrctrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_1_1.F index b4a1328178..cffc03d839 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_3_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_3_1_1.F,v 1.1 2008-09-17 04:40:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h9 h10 )_vtrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_2_1.F index 50297e5266..16cd5f6f01 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_3_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_3_2_1.F,v 1.1 2008-09-17 04:40:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p6 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_3_1.F index e90992ec8c..4ec0c05f22 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_3_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_3_3_1.F,v 1.1 2008-09-17 04:40:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h10 p1 )_vtrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_4_1.F index f8140bc73d..f020f30f65 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_3_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_3_4_1.F,v 1.1 2008-09-17 04:40:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h9 h10 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_5_1.F index c109e4c21f..9029df442d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_3_5_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_3_5_1.F,v 1.1 2008-09-17 04:40:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p6 )_vtrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_6_1.F index b8b63396ad..96a53c7444 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_3_6_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_3_6_1.F,v 1.1 2008-09-17 04:40:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h10 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_1.F index 05b0172063..049977ca5a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_4_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_3_4_1.F,v 1.1 2008-09-17 04:40:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtratrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_1_1.F index c7f224040e..e4fe2a4bb4 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_4_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_4_1_1.F,v 1.1 2008-09-17 04:40:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h10 p1 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_2_1.F index 8bf04092e6..f04e580f10 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_4_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_4_2_1.F,v 1.1 2008-09-17 04:40:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h9 h10 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_3_1.F index c1cf11981f..29952cbc66 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_4_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_4_3_1.F,v 1.1 2008-09-17 04:40:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p6 )_vtrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_4_1.F index 5e288b7527..fb6d607f0b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_4_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_4_4_1.F,v 1.1 2008-09-17 04:40:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h10 p1 )_vtrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_5_1.F index affe8db051..e320c7dccf 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_4_5_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_4_5_1.F,v 1.1 2008-09-17 04:40:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h9 h10 )_vtrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_6_1.F index fbc8452690..4964f5b95f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_4_6_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_4_6_1.F,v 1.1 2008-09-17 04:40:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p6 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_5_1.F index 4b5e4aba22..6635394409 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_5_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_3_5_1.F,v 1.1 2008-09-17 04:40:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_vtratrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_5_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_5_1_1.F index b2d89258d7..9c2085d3ab 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_5_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_5_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_5_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_5_1_1.F,v 1.1 2008-09-17 04:40:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_5_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_5_2_1.F index 247311d3e6..aed43b83df 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_5_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_5_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_5_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_5_2_1.F,v 1.1 2008-09-17 04:40:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_6_1.F index 043df44d23..812d58f628 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_6_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_3_6_1.F,v 1.1 2008-09-17 04:40:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_vtrctrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_6_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_6_1_1.F index 9ed2182d5b..f1fee5e2ad 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_6_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_6_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_6_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_6_1_1.F,v 1.1 2008-09-17 04:40:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_6_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_6_2_1.F index 1d134fbd23..0a4ceb7932 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_6_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_6_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_6_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_6_2_1.F,v 1.1 2008-09-17 04:40:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1.F index 12ecf0ff33..a0348d34bc 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1.F,v 1.1 2008-09-17 04:40:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrctrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_10_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_10_1.F index 841ea68255..fe9c12029a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_10_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_10_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_4_4_10_1.F,v 1.1 2008-09-17 04:40:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h15 )_ytrbtrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_10_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_10_1_1.F index f06471f6fb..03d0628984 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_10_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_10_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_10_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_10_1_1.F,v 1.1 2008-09-17 04:40:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_10_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_10_2_1.F index c19968864f..1b15d19b48 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_10_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_10_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_10_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_10_2_1.F,v 1.1 2008-09-17 04:40:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_11_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_11_1.F index df1ec1ae9a..33f89abdb6 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_11_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_11_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_11_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_4_4_11_1.F,v 1.1 2008-09-17 04:40:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h10 h12 h15 p5 )_ytratrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_11_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_11_1_1.F index 9ace8701ea..af80d4e260 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_11_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_11_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_11_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_11_1_1.F,v 1.1 2008-09-17 04:40:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h15 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_11_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_11_2_1.F index 6389cf813d..ba8296e09a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_11_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_11_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_11_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_11_2_1.F,v 1.1 2008-09-17 04:40:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h15 p1 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_12_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_12_1.F index 31ed9a478f..7e10d07e04 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_12_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_12_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_12_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_4_4_12_1.F,v 1.1 2008-09-17 04:40:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p14 h12 )_ytrctrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_12_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_12_1_1.F index 0e85395eb8..91f4e1841d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_12_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_12_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_12_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_12_1_1.F,v 1.1 2008-09-17 04:40:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h12 p5 p6 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_12_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_12_2_1.F index 41356d4363..efaacd80de 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_12_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_12_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_12_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_12_2_1.F,v 1.1 2008-09-17 04:40:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h12 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_1.F index 24c2152b64..59370cf629 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_13_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_4_4_13_1.F,v 1.1 2008-09-17 04:40:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p13 h12 h15 )_ytrctra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_1_1.F index 489d0e6c49..382841878c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_13_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_13_1_1.F,v 1.1 2008-09-17 04:40:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p13 p5 p6 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_2_1.F index 55ffdc3428..d95b637932 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_13_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_13_2_1.F,v 1.1 2008-09-17 04:40:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h12 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_3_1.F index b571617c76..7ac7e9d4db 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_13_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_13_3_1.F,v 1.1 2008-09-17 04:40:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p13 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_4_1.F index 097b995815..040ab8bf9b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_13_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_13_4_1.F,v 1.1 2008-09-17 04:40:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h12 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_14_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_14_1.F index db718f5ebf..f9387e5ab4 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_14_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_14_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_14_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_4_4_14_1.F,v 1.1 2008-09-17 04:40:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p13 h15 p5 )_ytrbtrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_14_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_14_1_1.F index 58ba64f3c3..e16048df59 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_14_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_14_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_14_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_14_1_1.F,v 1.1 2008-09-17 04:40:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_14_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_14_2_1.F index 6025b50c93..42b9a96f6f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_14_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_14_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_14_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_14_2_1.F,v 1.1 2008-09-17 04:40:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_15_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_15_1.F index 2b0f8303c7..2e25fe8b50 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_15_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_15_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_15_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_4_4_15_1.F,v 1.1 2008-09-17 04:40:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h12 h15 )_ytrctrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_15_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_15_1_1.F index a366ae160f..fc91388d4b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_15_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_15_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_15_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_15_1_1.F,v 1.1 2008-09-17 04:40:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h12 p9 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_15_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_15_2_1.F index 70850906b4..d0fbeae3b8 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_15_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_15_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_15_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_15_2_1.F,v 1.1 2008-09-17 04:40:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h12 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_16_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_16_1.F index b8d196b64f..48a76907eb 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_16_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_16_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_16_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_4_4_16_1.F,v 1.1 2008-09-17 04:40:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h12 )_ytratrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_16_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_16_1_1.F index 1624d7b116..dc00831825 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_16_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_16_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_16_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_16_1_1.F,v 1.1 2008-09-17 04:40:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h12 p1 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_16_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_16_2_1.F index 4a6de8a5a1..ef817e5553 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_16_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_16_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_16_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_16_2_1.F,v 1.1 2008-09-17 04:40:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h12 p1 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_1.F index a309f0c204..0f4e39e804 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_1.F,v 1.1 2008-09-17 04:40:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytratrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_10_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_10_1.F index 744310369b..0e14cb5b28 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_10_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_10_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_10_1.F,v 1.1 2008-09-17 04:40:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrctra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_10_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_10_1_1.F index 2a102bd917..b676f0ec6b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_10_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_10_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_10_1_1(l_a_offset,k_a_offse &t,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_10_1_1.F,v 1.1 2008-09-17 04:40:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_10_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_10_2_1.F index 91015c334a..d618dfe589 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_10_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_10_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_10_2_1(l_a_offset,k_a_offse &t,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_10_2_1.F,v 1.1 2008-09-17 04:40:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_1_1.F index ae513ff702..9bc1b02085 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_1_1.F,v 1.1 2008-09-17 04:40:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_1_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_1_3_1.F index 2c5101d52b..75ed123042 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_1_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_1_3_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_1_3_1.F,v 1.1 2008-09-17 04:40:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_1_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_1_4_1.F index 9a508c2a98..fb49efcec6 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_1_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_1_4_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_1_4_1.F,v 1.1 2008-09-17 04:40:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_2_1.F index 90a659b077..b00d930c3a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_2_1.F,v 1.1 2008-09-17 04:40:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_3_1.F index ed16788691..afc8d6a626 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_3_1.F,v 1.1 2008-09-17 04:40:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h12 p5 p6 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_4_1.F index 2b51ca67fb..16f21898d0 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_4_1.F,v 1.1 2008-09-17 04:40:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_4_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_4_3_1.F index 083be0f291..5e2d12e4e5 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_4_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_4_3_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_4_3_1.F,v 1.1 2008-09-17 04:40:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_4_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_4_4_1.F index fa5a6aa693..f7cb6c6d4c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_4_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_4_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_4_4_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_4_4_1.F,v 1.1 2008-09-17 04:40:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_5_1.F index e84849f34d..1217234630 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_5_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_5_1.F,v 1.1 2008-09-17 04:40:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_6_1.F index 59ce159fde..9ebf23d2fb 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_6_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_6_1.F,v 1.1 2008-09-17 04:40:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h12 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_7_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_7_1.F index f36536e84d..b7d0d0e21f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_7_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_7_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_7_1.F,v 1.1 2008-09-17 04:40:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_yttra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_7_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_7_1_1.F index cb8d8d30c8..6e3af67e11 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_7_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_7_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_7_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_7_1_1.F,v 1.1 2008-09-17 04:40:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_7_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_7_2_1.F index 18b2028462..00589fef97 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_7_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_7_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_7_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_7_2_1.F,v 1.1 2008-09-17 04:40:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_8_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_8_1.F index b94f585ab7..78d46dfe51 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_8_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_8_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_8_1.F,v 1.1 2008-09-17 04:40:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrct diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_8_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_8_1_1.F index 207a5991c4..5701269acf 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_8_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_8_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_8_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_8_1_1.F,v 1.1 2008-09-17 04:40:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_8_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_8_2_1.F index 52d9641457..4bfd897402 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_8_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_8_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_8_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_8_2_1.F,v 1.1 2008-09-17 04:40:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_9_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_9_1.F index 27e9b23d45..a76e589de7 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_9_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_9_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_9_1.F,v 1.1 2008-09-17 04:40:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytratrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_9_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_9_1_1.F index 8aa772bad8..8c526404e5 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_9_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_9_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_9_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_9_1_1.F,v 1.1 2008-09-17 04:40:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_9_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_9_2_1.F index 41caa1597d..aced825e12 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_9_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_9_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_9_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_9_2_1.F,v 1.1 2008-09-17 04:40:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_18_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_18_1.F index c1d322c4e2..d9f9f55fd4 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_18_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_18_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_18_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_4_4_18_1.F,v 1.1 2008-09-17 04:40:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h15 )_ytratrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_18_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_18_1_1.F index 5a609a83ac..36d8918cd3 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_18_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_18_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_18_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_18_1_1.F,v 1.1 2008-09-17 04:40:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_18_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_18_2_1.F index af59e4bf79..918c9167e3 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_18_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_18_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_18_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_18_2_1.F,v 1.1 2008-09-17 04:40:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_19_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_19_1.F index 4bba7ed754..46a67b7f69 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_19_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_19_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_19_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_4_4_19_1.F,v 1.1 2008-09-17 04:40:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h10 h12 h15 p5 )_ytrctrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_19_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_19_1_1.F index 4d220a2b44..5a120d7234 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_19_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_19_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_19_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_19_1_1.F,v 1.1 2008-09-17 04:40:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h15 p1 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_19_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_19_2_1.F index cdca20f110..bae89f1586 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_19_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_19_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_19_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_19_2_1.F,v 1.1 2008-09-17 04:40:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h15 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1.F index a6c2d67559..4a78545917 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_1.F,v 1.1 2008-09-17 04:40:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrctrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_10_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_10_1.F index 32e017d111..47f3b5cf81 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_10_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_10_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_10_1.F,v 1.1 2008-09-17 04:40:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrctrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_10_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_10_1_1.F index b38b2867a9..daaf7ba68f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_10_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_10_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_10_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_10_1_1.F,v 1.1 2008-09-17 04:40:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_10_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_10_2_1.F index 3b57860911..ad9c5633a0 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_10_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_10_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_10_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_10_2_1.F,v 1.1 2008-09-17 04:40:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1_1.F index 28d218ad9e..80fdbda773 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_1_1.F,v 1.1 2008-09-17 04:40:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1_2_1.F index 6f815d55c3..ec1184ca55 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_1_2_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_1_2_1.F,v 1.1 2008-09-17 04:40:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1_3_1.F index f59f30b32f..7e674da32d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_1_3_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_1_3_1.F,v 1.1 2008-09-17 04:40:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1_4_1.F index a9dbaefc34..f54d77f445 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_1_4_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_1_4_1.F,v 1.1 2008-09-17 04:40:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_2_1.F index 2c1370c681..38637de63d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_2_1.F,v 1.1 2008-09-17 04:40:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_3_1.F index 1659b7dc36..66f075a602 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_3_1.F,v 1.1 2008-09-17 04:40:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h12 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_4_1.F index 6cc2f947f4..86671ea211 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_4_1.F,v 1.1 2008-09-17 04:40:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_4_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_4_2_1.F index b23bed1a49..f0c3fac9a4 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_4_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_4_2_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_4_2_1.F,v 1.1 2008-09-17 04:40:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_4_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_4_3_1.F index b2ad365207..63f21d31a2 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_4_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_4_3_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_4_3_1.F,v 1.1 2008-09-17 04:40:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_5_1.F index e9624b0067..fcf480cd7b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_5_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_5_1.F,v 1.1 2008-09-17 04:40:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_6_1.F index 4ba77ff2a8..dc4aaf7845 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_6_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_6_1.F,v 1.1 2008-09-17 04:40:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h12 p5 p6 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_7_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_7_1.F index 0503a7aa40..3afcd29a64 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_7_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_7_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_7_1.F,v 1.1 2008-09-17 04:40:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrct diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_7_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_7_1_1.F index 7dd4a7eb3d..1e312ec3aa 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_7_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_7_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_7_1_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_7_1_1.F,v 1.1 2008-09-17 04:40:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_7_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_7_2_1.F index 1628911dfa..35e0200215 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_7_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_7_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_7_2_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_7_2_1.F,v 1.1 2008-09-17 04:40:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_8_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_8_1.F index 145cffea24..7a97e50ca4 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_8_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_8_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_8_1.F,v 1.1 2008-09-17 04:40:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_yttrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_8_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_8_1_1.F index f24afa3477..7d4631a4f9 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_8_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_8_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_8_1_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_8_1_1.F,v 1.1 2008-09-17 04:41:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_8_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_8_2_1.F index 6e01655775..87d0992187 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_8_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_8_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_8_2_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_8_2_1.F,v 1.1 2008-09-17 04:41:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_9_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_9_1.F index 18ae39514e..be4d553f9d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_9_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_9_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_9_1.F,v 1.1 2008-09-17 04:41:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrbtrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_9_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_9_1_1.F index d5d967f109..1430c9c6d3 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_9_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_9_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_9_1_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_9_1_1.F,v 1.1 2008-09-17 04:41:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_9_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_9_2_1.F index f0018ed2c4..696157b5a6 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_9_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_9_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_9_2_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_9_2_1.F,v 1.1 2008-09-17 04:41:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_20_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_20_1.F index c75c50a8e1..b66f31f1f7 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_20_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_20_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_20_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_4_4_20_1.F,v 1.1 2008-09-17 04:41:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p14 h12 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_20_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_20_1_1.F index d2e264bff9..1373ffdf0b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_20_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_20_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_20_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_20_1_1.F,v 1.1 2008-09-17 04:41:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h12 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_20_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_20_2_1.F index 4722ae44a1..2c56aa925f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_20_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_20_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_20_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_20_2_1.F,v 1.1 2008-09-17 04:41:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h12 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_1.F index f6067c425a..87caeda6ea 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_21_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_4_4_21_1.F,v 1.1 2008-09-17 04:41:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p13 h12 h15 )_ytrbtrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_1_1.F index 4c42bad2e2..c60989d3e0 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_21_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_21_1_1.F,v 1.1 2008-09-17 04:41:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p13 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_2_1.F index 5423f52a5e..5e1e1cad89 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_21_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_21_2_1.F,v 1.1 2008-09-17 04:41:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h12 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_3_1.F index d2d72c0c97..826a91f8c7 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_21_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_21_3_1.F,v 1.1 2008-09-17 04:41:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p13 p5 p6 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_4_1.F index 7e0c041460..87a19926ac 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_21_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_21_4_1.F,v 1.1 2008-09-17 04:41:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h12 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_22_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_22_1.F index c7606ad8fd..ced95c3ff0 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_22_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_22_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_22_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_4_4_22_1.F,v 1.1 2008-09-17 04:41:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p13 h15 p5 )_ytratrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_22_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_22_1_1.F index f644d8ddd6..09a36a7cce 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_22_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_22_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_22_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_22_1_1.F,v 1.1 2008-09-17 04:41:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_22_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_22_2_1.F index 2de8c7d42a..88034ed58f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_22_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_22_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_22_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_22_2_1.F,v 1.1 2008-09-17 04:41:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_23_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_23_1.F index 66110b24ce..285ff9b6f3 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_23_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_23_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_23_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_4_4_23_1.F,v 1.1 2008-09-17 04:41:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h12 h15 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_23_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_23_1_1.F index 5881a58d15..2236beb65d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_23_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_23_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_23_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_23_1_1.F,v 1.1 2008-09-17 04:41:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h12 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_23_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_23_2_1.F index ccecc8ff28..a582cf4ac2 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_23_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_23_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_23_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_23_2_1.F,v 1.1 2008-09-17 04:41:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h12 p9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_24_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_24_1.F index fdf24973bc..305c9859a1 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_24_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_24_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_24_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_4_4_24_1.F,v 1.1 2008-09-17 04:41:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h12 )_ytrctrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_24_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_24_1_1.F index b2849f3050..b4c6c9a2de 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_24_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_24_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_24_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_24_1_1.F,v 1.1 2008-09-17 04:41:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h12 p1 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_24_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_24_2_1.F index 866dd4fa78..a5a1ae1e0d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_24_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_24_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_24_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_24_2_1.F,v 1.1 2008-09-17 04:41:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h12 p1 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_1.F index 5d90c7487d..b0f9a54152 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_1.F,v 1.1 2008-09-17 04:41:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrctrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_1_1.F index 46e9cb0e31..06e56ece81 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_1_1.F,v 1.1 2008-09-17 04:41:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrctrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_1_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_1_1_1.F index 867ea4e86f..bd1cf3f934 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_1_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_1_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_1_1_1.F,v 1.1 2008-09-17 04:41:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_1_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_1_2_1.F index 88a757da4d..5bf3ee3c88 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_1_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_1_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_1_2_1.F,v 1.1 2008-09-17 04:41:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_2_1.F index 9b4c24cd3a..bd4fc2b06b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_2_1.F,v 1.1 2008-09-17 04:41:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrbtrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_2_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_2_1_1.F index b36c5751fe..f3ba5ec038 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_2_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_2_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_2_1_1.F,v 1.1 2008-09-17 04:41:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_2_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_2_2_1.F index 6c59d20cde..a0a7a8f102 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_2_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_2_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_2_2_1.F,v 1.1 2008-09-17 04:41:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_3_1.F index 7679d437d7..d30c1456ea 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_3_1.F,v 1.1 2008-09-17 04:41:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_3_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_3_1_1.F index 5c1e66d870..00a5b330cf 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_3_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_3_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_3_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_3_1_1.F,v 1.1 2008-09-17 04:41:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_3_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_3_2_1.F index 9422a54f98..527cd4f134 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_3_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_3_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_3_2_1.F,v 1.1 2008-09-17 04:41:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_4_1.F index 5f207f5728..9c8570483a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_4_1.F,v 1.1 2008-09-17 04:41:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytratrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_4_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_4_1_1.F index 191f2e6f85..1b34d82192 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_4_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_4_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_4_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_4_1_1.F,v 1.1 2008-09-17 04:41:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_4_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_4_2_1.F index 6ccccea5d8..d96d266d7f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_4_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_4_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_4_2_1.F,v 1.1 2008-09-17 04:41:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_5_1.F index 1242094154..fb6bfe7e13 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_5_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_5_1.F,v 1.1 2008-09-17 04:41:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrctra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_5_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_5_1_1.F index 4f728d47bb..f8e92c9b30 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_5_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_5_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_5_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_5_1_1.F,v 1.1 2008-09-17 04:41:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_5_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_5_2_1.F index 068f9f2818..9b36412e9b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_5_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_5_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_5_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_5_2_1.F,v 1.1 2008-09-17 04:41:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_6_1.F index 590a5d643e..9893d7159d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_6_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_6_1.F,v 1.1 2008-09-17 04:41:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytratrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_6_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_6_1_1.F index c108d2fa0c..d092618e6a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_6_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_6_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_6_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_6_1_1.F,v 1.1 2008-09-17 04:41:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_6_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_6_2_1.F index 6cadaa8351..ce1746e6ae 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_6_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_6_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_6_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_6_2_1.F,v 1.1 2008-09-17 04:41:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_2_1.F index 68449caa84..70cf24c54c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_4_2_1.F,v 1.1 2008-09-17 04:41:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h15 )_ytrctra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_2_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_2_1_1.F index 0dee22d44b..4de5d2c8f2 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_2_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_2_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_2_1_1.F,v 1.1 2008-09-17 04:41:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_2_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_2_2_1.F index 33b1e290e1..cf843d31bf 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_2_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_2_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_2_2_1.F,v 1.1 2008-09-17 04:41:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_3_1.F index 6ce2a30cfe..f9a8fd4f1d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_3_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_4_3_1.F,v 1.1 2008-09-17 04:41:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h10 h12 h15 p5 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_3_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_3_1_1.F index c2ebf181e7..b7826e446b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_3_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_3_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_3_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_3_1_1.F,v 1.1 2008-09-17 04:41:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h15 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_3_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_3_2_1.F index 381d6a07bb..f25b78da06 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_3_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_3_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_3_2_1.F,v 1.1 2008-09-17 04:41:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h15 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_4_1.F index 0c099a776d..21860c5ad5 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_4_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_4_4_1.F,v 1.1 2008-09-17 04:41:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p14 h12 )_ytratrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_4_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_4_1_1.F index b61a04ad22..f6f4d18b57 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_4_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_4_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_4_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_4_1_1.F,v 1.1 2008-09-17 04:41:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h12 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_4_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_4_2_1.F index 421485b2c9..333a119568 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_4_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_4_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_4_2_1.F,v 1.1 2008-09-17 04:41:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h12 p5 p6 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_1.F index fe14e97c59..74ebddfd6f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_5_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_4_5_1.F,v 1.1 2008-09-17 04:41:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p13 h12 h15 )_ytratrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_1_1.F index 485350bc44..051a83aaf5 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_5_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_5_1_1.F,v 1.1 2008-09-17 04:41:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p13 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_2_1.F index f584699b1c..3ac9e6baa2 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_5_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_5_2_1.F,v 1.1 2008-09-17 04:41:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h12 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_3_1.F index cbc327e7c1..2efc76818c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_5_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_5_3_1.F,v 1.1 2008-09-17 04:41:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p13 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_4_1.F index e6ab457ef3..c90a8c0263 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_5_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_5_4_1.F,v 1.1 2008-09-17 04:41:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h12 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_6_1.F index e7127927b9..96a4c3ae87 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_6_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_4_6_1.F,v 1.1 2008-09-17 04:41:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p13 h15 p5 )_ytrctra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_6_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_6_1_1.F index 858220a2aa..159a4f937c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_6_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_6_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_6_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_6_1_1.F,v 1.1 2008-09-17 04:41:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_6_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_6_2_1.F index 0da7d31f63..46c4dfdafe 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_6_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_6_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_6_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_6_2_1.F,v 1.1 2008-09-17 04:41:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_7_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_7_1.F index 919de4a9da..7b4adb7b7b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_7_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_7_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_4_7_1.F,v 1.1 2008-09-17 04:41:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h12 h15 )_ytratrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_7_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_7_1_1.F index f2cd9076b4..1840cfde31 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_7_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_7_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_7_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_7_1_1.F,v 1.1 2008-09-17 04:41:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h12 p9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_7_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_7_2_1.F index 7374fd5fbd..3eb0cd036c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_7_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_7_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_7_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_7_2_1.F,v 1.1 2008-09-17 04:41:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h12 p9 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_8_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_8_1.F index 0418736d56..b8536dae95 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_8_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_8_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_4_8_1.F,v 1.1 2008-09-17 04:41:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h12 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_8_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_8_1_1.F index ecdb3b7488..189ada911b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_8_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_8_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_8_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_8_1_1.F,v 1.1 2008-09-17 04:41:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h12 p1 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_8_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_8_2_1.F index 33bd3a1d05..14b9b05f6e 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_8_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_8_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_8_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_8_2_1.F,v 1.1 2008-09-17 04:41:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h12 p1 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_1.F index b1097f9db3..446c4e61ae 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_1.F,v 1.1 2008-09-17 04:41:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_10_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_10_1.F index 3acc09db04..fe75ae9d81 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_10_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_10_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_10_1.F,v 1.1 2008-09-17 04:41:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrat diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_10_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_10_1_1.F index 262e477c17..ff1f558f36 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_10_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_10_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_10_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_10_1_1.F,v 1.1 2008-09-17 04:41:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_10_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_10_2_1.F index 06bcdaab06..098deb3ae4 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_10_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_10_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_10_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_10_2_1.F,v 1.1 2008-09-17 04:41:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_1_1.F index 1543195755..677a82f415 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_1_1.F,v 1.1 2008-09-17 04:41:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_1_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_1_3_1.F index ee45b5a6c5..0fd4dfa924 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_1_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_1_3_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_1_3_1.F,v 1.1 2008-09-17 04:41:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_1_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_1_4_1.F index 28f4d72a1b..2dd83cd253 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_1_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_1_4_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_1_4_1.F,v 1.1 2008-09-17 04:41:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_2_1.F index 4b01089277..557e83a0d8 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_2_1.F,v 1.1 2008-09-17 04:41:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_3_1.F index 81fbdeec25..8c8451381a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_3_1.F,v 1.1 2008-09-17 04:41:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h12 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_4_1.F index ff39dcec10..7de415388b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_4_1.F,v 1.1 2008-09-17 04:41:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_4_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_4_3_1.F index 7d1804f177..c9a8844924 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_4_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_4_3_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_4_3_1.F,v 1.1 2008-09-17 04:41:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_4_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_4_4_1.F index 8b73f89476..e74e24d0c0 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_4_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_4_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_4_4_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_4_4_1.F,v 1.1 2008-09-17 04:41:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_5_1.F index 22f9c66637..5b1c7327c0 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_5_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_5_1.F,v 1.1 2008-09-17 04:41:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_6_1.F index 149981a283..d11f67f747 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_6_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_6_1.F,v 1.1 2008-09-17 04:41:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h12 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_7_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_7_1.F index 9a4a98d156..4739df283a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_7_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_7_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_7_1.F,v 1.1 2008-09-17 04:41:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrbt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_7_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_7_1_1.F index 2fe692f7fd..551e28779a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_7_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_7_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_7_1_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_7_1_1.F,v 1.1 2008-09-17 04:41:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_7_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_7_2_1.F index 005d984d8f..b0f99af5ad 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_7_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_7_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_7_2_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_7_2_1.F,v 1.1 2008-09-17 04:41:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_8_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_8_1.F index 945887b078..6b838a45fe 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_8_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_8_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_8_1.F,v 1.1 2008-09-17 04:41:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_8_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_8_1_1.F index 6dbda557e1..3b3d9d466d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_8_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_8_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_8_1_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_8_1_1.F,v 1.1 2008-09-17 04:41:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_8_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_8_2_1.F index 39b931e565..b743477564 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_8_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_8_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_8_2_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_8_2_1.F,v 1.1 2008-09-17 04:41:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_9_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_9_1.F index ee07aef6fa..7a2cd64170 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_9_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_9_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_9_1.F,v 1.1 2008-09-17 04:41:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytratrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_9_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_9_1_1.F index 0df43059f4..8de5843238 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_9_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_9_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_9_1_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_9_1_1.F,v 1.1 2008-09-17 04:41:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_9_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_9_2_1.F index 0c5969785b..ea2fcbc692 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_9_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_9_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_9_2_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_9_2_1.F,v 1.1 2008-09-17 04:41:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1.F index d9cffa7061..7e1bf29865 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_5_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_4_5_1.F,v 1.1 2008-09-17 04:41:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p10 h12 p9 )_ytrctrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_1.F index 9c88d706eb..04174c55e1 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_5_1_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_5_1_1.F,v 1.1 2008-09-17 04:41:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p10 h12 p9 )_ytrctrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_1_1.F index 5bb7da527c..c6642dfa04 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_5_1_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_5_1_1_1.F,v 1.1 2008-09-17 04:41:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 p9 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_2_1.F index 94b86ea011..95b4c4b408 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_5_1_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_5_1_2_1.F,v 1.1 2008-09-17 04:41:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h12 p5 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_3_1.F index f3d969831f..c46f90bac9 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_5_1_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_5_1_3_1.F,v 1.1 2008-09-17 04:41:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_4_1.F index 544d2833c4..8566742ab5 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_5_1_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_5_1_4_1.F,v 1.1 2008-09-17 04:41:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h12 p5 p9 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_1.F index 06a96044e3..1845c12eb1 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_5_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_5_2_1.F,v 1.1 2008-09-17 04:41:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p10 h12 p9 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_1_1.F index c1bbbb9dfb..a77487a9c2 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_5_2_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_5_2_1_1.F,v 1.1 2008-09-17 04:41:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_2_1.F index 6ed14ca67f..5758dc40ec 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_5_2_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_5_2_2_1.F,v 1.1 2008-09-17 04:41:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h12 p5 p9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_3_1.F index 3d05e8af0c..5a7f950550 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_5_2_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_5_2_3_1.F,v 1.1 2008-09-17 04:41:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 p9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_4_1.F index 8378549f0f..572e42a42b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_5_2_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_5_2_4_1.F,v 1.1 2008-09-17 04:41:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h12 p5 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_1.F index 2ff7bf1aa3..625afc6468 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_5_3_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_5_3_1.F,v 1.1 2008-09-17 04:41:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p10 h12 p9 )_ytratrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_1_1.F index 7b42aedccf..a4bf66b181 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_5_3_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_5_3_1_1.F,v 1.1 2008-09-17 04:41:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 p9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_2_1.F index 2d21367f28..eeee4eccc0 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_5_3_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_5_3_2_1.F,v 1.1 2008-09-17 04:41:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h12 p5 p9 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_3_1.F index 0ccc99f44b..54d31f31fe 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_5_3_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_5_3_3_1.F,v 1.1 2008-09-17 04:41:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 p9 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_4_1.F index b2f1b1615f..63b04315f8 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_5_3_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_5_3_4_1.F,v 1.1 2008-09-17 04:41:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h12 p5 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1.F index 31dc64e1cf..00928bf1be 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1.F @@ -2,7 +2,7 @@ &tr3,d_y1,d_y2,d_y3,k_i0_offset,k_o1_offset,k_t1_offset,k_t2_offset &,k_t3_offset,k_tr1_offset,k_tr2_offset,k_tr3_offset,k_y1_offset,k_ &y2_offset,k_y3_offset) -C $Id: ccsdt_lr_beta_1.F,v 1.3 2008-09-17 19:23:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytro + = -1 * Sum ( h2 h1 ) * o ( h1 h2 )_o * i1 ( h2 h1 )_ytr diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_1.F index b88a40378b..8bf2939a99 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_1_1.F,v 1.1 2008-09-17 04:41:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytro + = -1 * Sum ( h2 h1 ) * o ( h1 h2 )_o * i1 ( h2 h1 )_ytr diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_1_1.F index 845d8ec40c..4ffa62dfd5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_1_1_1.F,v 1.1 2008-09-17 04:41:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_ytr + = 1 * Sum ( p3 ) * tr ( p3 h1 )_tr * y ( h2 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_1_2.F index 0f4d6eda4f..3c73e3dc7b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_1_1_2.F,v 1.1 2008-09-17 04:41:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_ytr + = 1/2 * Sum ( h5 p3 p4 ) * tr ( p3 p4 h1 h5 )_tr * y ( h2 h5 p3 p4 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_1_3.F index 9c40fbd0ea..a30978a071 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_1_1_3.F,v 1.1 2008-09-17 04:41:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_ytr + = 1/12 * Sum ( h6 h7 p3 p4 p5 ) * tr ( p3 p4 p5 h1 h6 h7 )_tr * y ( h2 h6 h7 p3 p4 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_2.F index 687f0f127d..13eb954b63 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_1_2.F,v 1.1 2008-09-17 04:41:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_otry + = 1 * Sum ( p1 h3 ) * y ( h3 p1 )_y * i1 ( p1 h3 )_otr diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_2_1.F index 3f5b1dd0ca..91032ed162 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_1_2_1.F,v 1.1 2008-09-17 04:41:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 h3 )_otr + = 1 * Sum ( p2 ) * o ( p1 p2 )_o * tr ( p2 h3 )_tr diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3.F index dc53fd8d2f..3f986d1966 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_1_3.F,v 1.1 2008-09-17 04:41:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytro + = 1 * Sum ( p10 h11 ) * o ( h11 p10 )_o * i1 ( p10 h11 )_ytr diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_1.F index d29a6670e3..b707b5a3d2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_1_3_1.F,v 1.1 2008-09-17 04:41:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h11 )_ytr + = 1 * Sum ( h4 p3 ) * tr ( p3 p10 h4 h11 )_tr * y ( h4 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_2.F index 54e75b9af5..b789f1ca6c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_1_3_2.F,v 1.1 2008-09-17 04:41:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h11 )_ytr + = 1/4 * Sum ( h5 h6 p3 p4 ) * tr ( p3 p4 p10 h5 h6 h11 )_tr * y ( h5 h6 p3 p4 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3.F index 4418a9c3b4..d3f6eea02a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_1_3_3.F,v 1.1 2008-09-17 04:41:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h11 )_yttr + = -1 * Sum ( h2 ) * tr ( p10 h2 )_tr * i2 ( h2 h11 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3_1.F index a458dfee98..16929da2fb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_1_3_3_1.F,v 1.1 2008-09-17 04:41:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h11 )_yt + = 1 * Sum ( p3 ) * t ( p3 h11 )_t * y ( h2 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3_2.F index 6f8524cb54..0c3ecb4cd8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_1_3_3_2.F,v 1.1 2008-09-17 04:41:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h11 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h11 )_t * y ( h2 h5 p3 p4 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3_3.F index caa589b96d..14004fe064 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_1_3_3_3.F,v 1.1 2008-09-17 04:41:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h11 )_yt + = 1/12 * Sum ( h6 h7 p3 p4 p5 ) * t ( p3 p4 p5 h6 h7 h11 )_t * y ( h2 h6 h7 p3 p4 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4.F index 693ce483ff..3a48d59daa 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_1_3_4.F,v 1.1 2008-09-17 04:41:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h11 )_ytrt + = 1/2 * Sum ( h8 ) * t ( p10 h8 )_t * i2 ( h8 h11 )_ytr diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4_1.F index 7f3cf4a624..8ec597bb35 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_1_3_4_1.F,v 1.1 2008-09-17 04:41:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h11 )_ytr + = -1 * Sum ( h5 p3 p4 ) * tr ( p3 p4 h5 h11 )_tr * y ( h5 h8 p3 p4 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4_2.F index b2d7e1da74..23974aae15 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_1_3_4_2.F,v 1.1 2008-09-17 04:41:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h11 )_ytr + = -1/6 * Sum ( h6 h7 p3 p4 p5 ) * tr ( p3 p4 p5 h6 h7 h11 )_tr * y ( h6 h7 h8 p3 p4 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4_3.F index ddd5dc0217..c95f1b6ee4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_1_3_4_3.F,v 1.1 2008-09-17 04:41:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h11 )_ytr + = -2 * Sum ( p3 ) * tr ( p3 h11 )_tr * y ( h8 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_5.F index 501c8a2a7f..394abe332f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_1_3_5.F,v 1.1 2008-09-17 04:41:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h11 )_yttr + = 1/2 * Sum ( h1 h3 p2 ) * tr ( p2 p10 h1 h3 )_tr * i2 ( h1 h3 h11 p2 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_5_1.F index fbc1d7076d..4951ccec3f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_1_3_5_1.F,v 1.1 2008-09-17 04:41:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h11 p2 )_yt + = -1 * Sum ( p6 ) * t ( p6 h11 )_t * y ( h1 h3 p2 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_5_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_5_2.F index 6e7ab23fee..258aa83680 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_5_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_1_3_5_2.F,v 1.1 2008-09-17 04:41:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h11 p2 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h7 h11 )_t * y ( h1 h3 h7 p2 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_6.F index dd716a7d2b..e024a9b5e0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_1_3_6.F,v 1.1 2008-09-17 04:41:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h11 )_yttr + = -1/12 * Sum ( h5 h6 h7 p3 p4 ) * tr ( p3 p4 p10 h5 h6 h7 )_tr * i2 ( h5 h6 h7 h11 p3 p4 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_6_1.F index bcf202fcfb..6db97bc8df 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_1_3_6_1.F,v 1.1 2008-09-17 04:41:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h7 h11 p3 p4 )_yt + = 1 * Sum ( p8 ) * t ( p8 h11 )_t * y ( h5 h6 h7 p3 p4 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_7.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_7.F index a2838e3f43..3d7b24c569 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_7.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_1_3_7.F,v 1.1 2008-09-17 04:41:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h11 )_ytrt + = 1/2 * Sum ( h1 h3 p2 ) * t ( p2 p10 h1 h3 )_t * i2 ( h1 h3 h11 p2 )_ytr diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_7_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_7_1.F index 5bb83bab8f..31e289f8f5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_7_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_1_3_7_1.F,v 1.1 2008-09-17 04:41:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h11 p2 )_ytr + = -1 * Sum ( p6 ) * tr ( p6 h11 )_tr * y ( h1 h3 p2 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_7_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_7_2.F index 2765a0a355..ca27333652 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_7_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_7_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_1_3_7_2.F,v 1.1 2008-09-17 04:41:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h11 p2 )_ytr + = 1/2 * Sum ( h7 p5 p6 ) * tr ( p5 p6 h7 h11 )_tr * y ( h1 h3 h7 p2 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_8.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_8.F index 86023804a0..fae47e6fb1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_8.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_1_3_8.F,v 1.1 2008-09-17 04:41:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h11 )_ytrt + = -1/12 * Sum ( h5 h6 h7 p3 p4 ) * t ( p3 p4 p10 h5 h6 h7 )_t * i2 ( h5 h6 h7 h11 p3 p4 )_ytr diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_8_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_8_1.F index 036f0fcd8f..4fa0a66ab1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_8_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_1_3_8_1.F,v 1.1 2008-09-17 04:41:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h7 h11 p3 p4 )_ytr + = 1 * Sum ( p8 ) * tr ( p8 h11 )_tr * y ( h5 h6 h7 p3 p4 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_4.F index 3ec6d7c2fa..fb8a024325 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_1_4.F,v 1.1 2008-09-17 04:41:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytro + = 1/2 * Sum ( p2 p1 ) * o ( p1 p2 )_o * i1 ( p2 p1 )_ytr diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_4_1.F index 3afcff2da9..c0b420fce0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_1_4_1.F,v 1.1 2008-09-17 04:41:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p1 )_ytr + = 1 * Sum ( h4 h5 p3 ) * tr ( p2 p3 h4 h5 )_tr * y ( h4 h5 p1 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_4_2.F index 789858b5cb..a3619b5b04 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_1_4_2.F,v 1.1 2008-09-17 04:41:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p1 )_ytr + = 1/6 * Sum ( h5 h6 h7 p3 p4 ) * tr ( p2 p3 p4 h5 h6 h7 )_tr * y ( h5 h6 h7 p1 p3 p4 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2.F index 5bed182d8e..383ca19d53 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2.F @@ -3,7 +3,7 @@ &ffset,k_t1_offset,k_t2_offset,k_t3_offset,k_tra1_offset,k_tra2_off &set,k_tra3_offset,k_trb1_offset,k_trb2_offset,k_trb3_offset,k_v2_o &ffset,k_y1_offset,k_y2_offset,k_y3_offset) -C $Id: ccsdt_lr_beta_2.F,v 1.3 2008-09-17 19:23:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytrbtraf + = -1 * Sum ( p10 h9 ) * i1 ( p10 h9 )_ytrbtra * f ( h9 p10 )_f diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1.F index f0b9fdd5a5..3e0398dece 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_2_1.F,v 1.1 2008-09-17 04:41:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytrbtraf + = -1 * Sum ( p10 h9 ) * i1 ( p10 h9 )_ytrbtra * f ( h9 p10 )_f diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1.F index 7f0d644e5e..7815583d30 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_1_1.F,v 1.1 2008-09-17 04:41:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytrbtra + = 1 * Sum ( h2 ) * tra ( p10 h2 )_tra * i2 ( h2 h9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1_1.F index bae2334564..e153f2b204 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_1_1_1.F,v 1.1 2008-09-17 04:41:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h9 )_ytrb + = 1 * Sum ( p3 ) * trb ( p3 h9 )_trb * y ( h2 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1_2.F index fd33d7198e..12e49452c7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_1_1_2.F,v 1.1 2008-09-17 04:41:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h9 )_ytrb + = -1/2 * Sum ( h5 p3 p4 ) * trb ( p3 p4 h5 h9 )_trb * y ( h2 h5 p3 p4 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1_3.F index 8fbc18774a..5cce71c425 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_1_1_3.F,v 1.1 2008-09-17 04:41:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h9 )_ytrb + = 1/12 * Sum ( h6 h7 p3 p4 p5 ) * trb ( p3 p4 p5 h6 h7 h9 )_trb * y ( h2 h6 h7 p3 p4 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2.F index 33bf4242fd..6f94a55d9e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_1_2.F,v 1.1 2008-09-17 04:41:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytratrb + = -1/2 * Sum ( h8 ) * trb ( p10 h8 )_trb * i2 ( h8 h9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2_1.F index c65db3aaad..2c3afec1fb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_1_2_1.F,v 1.1 2008-09-17 04:41:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_ytra + = -1 * Sum ( h5 p3 p4 ) * tra ( p3 p4 h5 h9 )_tra * y ( h5 h8 p3 p4 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2_2.F index 97fc78e339..3c59a8a133 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_1_2_2.F,v 1.1 2008-09-17 04:41:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_ytra + = -1/6 * Sum ( h6 h7 p3 p4 p5 ) * tra ( p3 p4 p5 h6 h7 h9 )_tra * y ( h6 h7 h8 p3 p4 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2_3.F index f80b2a5654..3d9920d6e7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_1_2_3.F,v 1.1 2008-09-17 04:41:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_ytra + = -2 * Sum ( p3 ) * tra ( p3 h9 )_tra * y ( h8 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_3.F index 46c975ee14..ba1bdf4db7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_1_3.F,v 1.1 2008-09-17 04:41:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytrbtra + = -1/2 * Sum ( h1 h3 p2 ) * tra ( p2 p10 h1 h3 )_tra * i2 ( h1 h3 h9 p2 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_3_1.F index 13cef2753d..7b9643ca3d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_1_3_1.F,v 1.1 2008-09-17 04:41:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h9 p2 )_ytrb + = -1 * Sum ( p6 ) * trb ( p6 h9 )_trb * y ( h1 h3 p2 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_3_2.F index 24f4a5fbc7..8888dac3e6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_1_3_2.F,v 1.1 2008-09-17 04:41:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h9 p2 )_ytrb + = 1/2 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h9 )_trb * y ( h1 h3 h7 p2 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_4.F index 7874f034a6..85dd3080db 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_1_4.F,v 1.1 2008-09-17 04:41:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytrbtra + = 1/12 * Sum ( h5 h6 h7 p3 p4 ) * tra ( p3 p4 p10 h5 h6 h7 )_tra * i2 ( h5 h6 h7 h9 p3 p4 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_4_1.F index 7e94d7ac22..1d7d2baeda 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_1_4_1.F,v 1.1 2008-09-17 04:41:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h7 h9 p3 p4 )_ytrb + = 1 * Sum ( p8 ) * trb ( p8 h9 )_trb * y ( h5 h6 h7 p3 p4 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_5.F index 4fc9dcd786..14cef7975d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_1_5.F,v 1.1 2008-09-17 04:41:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytratrb + = -1/2 * Sum ( h1 h3 p2 ) * trb ( p2 p10 h1 h3 )_trb * i2 ( h1 h3 h9 p2 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_5_1.F index 8c4f44e2bc..fd5ab662b6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_1_5_1.F,v 1.1 2008-09-17 04:41:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h9 p2 )_ytra + = -1 * Sum ( p6 ) * tra ( p6 h9 )_tra * y ( h1 h3 p2 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_5_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_5_2.F index 6c9535a850..6616f56be6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_5_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_1_5_2.F,v 1.1 2008-09-17 04:41:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h9 p2 )_ytra + = 1/2 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h9 )_tra * y ( h1 h3 h7 p2 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_6.F index 5a321490ad..ded45919eb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_1_6.F,v 1.1 2008-09-17 04:41:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytratrb + = 1/12 * Sum ( h5 h6 h7 p3 p4 ) * trb ( p3 p4 p10 h5 h6 h7 )_trb * i2 ( h5 h6 h7 h9 p3 p4 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_6_1.F index a1c7137fb8..68027bb7ff 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_1_6_1.F,v 1.1 2008-09-17 04:41:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h7 h9 p3 p4 )_ytra + = 1 * Sum ( p8 ) * tra ( p8 h9 )_tra * y ( h5 h6 h7 p3 p4 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2.F index 0697556649..7e188cb17c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_2_2.F,v 1.1 2008-09-17 04:41:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vtrbtray + = 1 * Sum ( p9 h7 ) * y ( h7 p9 )_y * i1 ( p9 h7 )_vtrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1.F index 507c60c3e1..031fb259e6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_2_1.F,v 1.1 2008-09-17 04:41:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h7 )_vtrbtra + = 1 * Sum ( h10 ) * tra ( p9 h10 )_tra * i2 ( h10 h7 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_1.F index 71182c2192..fcfeabe3ca 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_1_1.F,v 1.1 2008-09-17 04:41:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h7 )_vtrb + = 1 * Sum ( h4 p3 ) * trb ( p3 h4 )_trb * v ( h4 h10 h7 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_2.F index 7a073aaa95..f7cfb64e9b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_1_2.F,v 1.1 2008-09-17 04:41:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h7 )_vtrb + = -1/2 * Sum ( h4 p1 p2 ) * trb ( p1 p2 h4 h7 )_trb * v ( h4 h10 p1 p2 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_3.F index edab96e092..5c23c6ac85 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_1_3.F,v 1.1 2008-09-17 04:41:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h7 )_vtrbt + = -1 * Sum ( p1 ) * t ( p1 h7 )_t * i3 ( h10 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_3_1.F index d3fb53c460..cac1ab326a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_1_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_1_3_1.F,v 1.1 2008-09-17 04:41:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p1 )_vtrb + = -1 * Sum ( h6 p5 ) * trb ( p5 h6 )_trb * v ( h6 h10 p1 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_4.F index b920544d49..26af7053cf 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_1_4.F,v 1.1 2008-09-17 04:41:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h7 )_vttrb + = -1 * Sum ( p1 ) * trb ( p1 h7 )_trb * i3 ( h10 p1 )_vt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_4_1.F index 0e85a80cf2..ff484d3b6f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_1_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_1_4_1.F,v 1.1 2008-09-17 04:41:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h10 p1 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_2.F index f2835292f7..2e514b01cf 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_2_2.F,v 1.1 2008-09-17 04:41:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h7 )_vtrbtra + = 1 * Sum ( p1 ) * tra ( p1 h7 )_tra * i2 ( p9 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_2_1.F index 43eee2a1ea..132c1c675f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_2_1.F,v 1.1 2008-09-17 04:41:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p9 p1 )_vtrb + = -1 * Sum ( h4 p3 ) * trb ( p3 h4 )_trb * v ( h4 p9 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_3.F index dd671e71ea..36d5d4971c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_2_3.F,v 1.1 2008-09-17 04:41:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h7 )_vtrbtra + = 1/2 * Sum ( h3 h4 p2 ) * tra ( p2 p9 h3 h4 )_tra * i2 ( h3 h4 h7 p2 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_3_1.F index 7186dc169f..b28bf1c306 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_3_1.F,v 1.1 2008-09-17 04:41:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h7 p2 )_vtrb + = -1 * Sum ( p5 ) * trb ( p5 h7 )_trb * v ( h3 h4 p2 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4.F index c10945f23d..3b4383e34b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_2_4.F,v 1.1 2008-09-17 04:41:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h7 )_vtratrb + = -1/2 * Sum ( h10 ) * trb ( p9 h10 )_trb * i2 ( h10 h7 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_1.F index a4a4eed092..9c8c5ffcb3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_4_1.F,v 1.1 2008-09-17 04:41:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h7 )_vtra + = 1 * Sum ( h4 p1 p2 ) * tra ( p1 p2 h4 h7 )_tra * v ( h4 h10 p1 p2 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_2.F index b4d84e1654..ec2a261932 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_4_2.F,v 1.1 2008-09-17 04:41:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h7 )_vtra + = -2 * Sum ( h4 p3 ) * tra ( p3 h4 )_tra * v ( h4 h10 h7 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_3.F index bad9282e42..148204820d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_4_3.F,v 1.1 2008-09-17 04:41:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h7 )_vttra + = 2 * Sum ( p1 ) * tra ( p1 h7 )_tra * i3 ( h10 p1 )_vt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_3_1.F index 4b80f96179..88e370cc30 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_4_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_4_3_1.F,v 1.1 2008-09-17 04:41:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h10 p1 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_4.F index 4949068c94..6a3dbfeb3d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_4_4.F,v 1.1 2008-09-17 04:41:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h7 )_vtrat + = 2 * Sum ( p1 ) * t ( p1 h7 )_t * i3 ( h10 p1 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_4_1.F index f2b63c375b..d24f5a4c7e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_4_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_4_4_1.F,v 1.1 2008-09-17 04:41:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p1 )_vtra + = -1 * Sum ( h6 p5 ) * tra ( p5 h6 )_tra * v ( h6 h10 p1 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_5.F index 48a53c369e..f4b5a08528 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_2_5.F,v 1.1 2008-09-17 04:41:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h7 )_vtrbtra + = 1 * Sum ( h4 p2 ) * tra ( p2 p9 h4 h7 )_tra * i2 ( h4 p2 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_5_1.F index fcb4e90f50..65a0793f10 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_5_1.F,v 1.1 2008-09-17 04:41:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p2 )_vtrb + = 1 * Sum ( h6 p5 ) * trb ( p5 h6 )_trb * v ( h4 h6 p2 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_6.F index 572155fdae..259daf2c9a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_2_6.F,v 1.1 2008-09-17 04:41:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h7 )_vtratrb + = 1 * Sum ( p1 ) * trb ( p1 h7 )_trb * i2 ( p9 p1 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_6_1.F index 84df80b9c6..22a91efebd 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_6_1.F,v 1.1 2008-09-17 04:41:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p9 p1 )_vtra + = -1 * Sum ( h4 p3 ) * tra ( p3 h4 )_tra * v ( h4 p9 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_7.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_7.F index 3b3688d504..bcee89a44f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_7.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_2_7.F,v 1.1 2008-09-17 04:41:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h7 )_vtratrb + = 1/2 * Sum ( h3 h4 p2 ) * trb ( p2 p9 h3 h4 )_trb * i2 ( h3 h4 h7 p2 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_7_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_7_1.F index 9fce972fe1..84b33f9039 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_7_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_7_1.F,v 1.1 2008-09-17 04:41:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h7 p2 )_vtra + = -1 * Sum ( p5 ) * tra ( p5 h7 )_tra * v ( h3 h4 p2 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_8.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_8.F index eaf4a9b62b..8347a6bd9a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_8.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_2_8.F,v 1.1 2008-09-17 04:41:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h7 )_vtratrb + = 1 * Sum ( h4 p2 ) * trb ( p2 p9 h4 h7 )_trb * i2 ( h4 p2 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_8_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_8_1.F index 9354a88e9b..c61af21aee 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_8_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_8_1.F,v 1.1 2008-09-17 04:41:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p2 )_vtra + = 1 * Sum ( h6 p5 ) * tra ( p5 h6 )_tra * v ( h4 h6 p2 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9.F index b99f3b60b9..fc6b7dcf9f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_2_9.F,v 1.1 2008-09-17 04:41:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h7 )_vtratrbt + = -1 * Sum ( h4 ) * t ( p9 h4 )_t * i2 ( h4 h7 )_vtratrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_1.F index 9de9e17bff..6a708001c2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_9_1.F,v 1.1 2008-09-17 04:41:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h7 )_vtratrb + = 1 * Sum ( p1 ) * trb ( p1 h7 )_trb * i3 ( h4 p1 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_1_1.F index 9e17a9adfe..b1cad606e0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_9_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_9_1_1.F,v 1.1 2008-09-17 04:41:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p1 )_vtra + = 1 * Sum ( h6 p5 ) * tra ( p5 h6 )_tra * v ( h4 h6 p1 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_2.F index 698fb3f059..fcd6a10689 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_9_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_9_2.F,v 1.1 2008-09-17 04:41:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h7 )_vtrbtra + = 1 * Sum ( p1 ) * tra ( p1 h7 )_tra * i3 ( h4 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_2_1.F index fc95d785bb..9a9ee43576 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_9_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_9_2_1.F,v 1.1 2008-09-17 04:41:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p1 )_vtrb + = 1 * Sum ( h6 p5 ) * trb ( p5 h6 )_trb * v ( h4 h6 p1 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3.F index 4359133181..6f51ebc542 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_2_3.F,v 1.1 2008-09-17 04:42:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytrbtrav + = -1/4 * Sum ( h6 h7 h11 h12 ) * i1 ( h6 h7 h11 h12 )_ytrbtra * v ( h11 h12 h6 h7 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_1.F index 321b0e142a..0079304cbf 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_3_1.F,v 1.1 2008-09-17 04:42:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h11 h12 )_ytrbtra + = 1 * Sum ( p1 ) * tra ( p1 h11 )_tra * i2 ( h6 h7 h12 p1 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_1_1.F index 46d9d4a4c6..f3fa302c3a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_3_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_3_1_1.F,v 1.1 2008-09-17 04:42:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h12 p1 )_ytrb + = -1 * Sum ( p3 ) * trb ( p3 h12 )_trb * y ( h6 h7 p1 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_2.F index 8c39af8109..216291bfbf 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_3_2.F,v 1.1 2008-09-17 04:42:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h11 h12 )_ytratrb + = -1 * Sum ( p5 ) * trb ( p5 h12 )_trb * i2 ( h6 h7 h11 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_2_1.F index 562600e1fd..537f3e05d6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_3_2_1.F,v 1.1 2008-09-17 04:42:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h11 p5 )_ytra + = 1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h11 )_tra * y ( h3 h6 h7 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_3.F index f3da7c672e..5489a20ab9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_3_3.F,v 1.1 2008-09-17 04:42:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h11 h12 )_ytratrb + = 1 * Sum ( p1 ) * trb ( p1 h11 )_trb * i2 ( h6 h7 h12 p1 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_3_1.F index eb7e7e25cb..418ed9ad7c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_3_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_3_3_1.F,v 1.1 2008-09-17 04:42:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h12 p1 )_ytra + = -1 * Sum ( p3 ) * tra ( p3 h12 )_tra * y ( h6 h7 p1 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_4.F index d41a57ca1c..19e659883f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_3_4.F,v 1.1 2008-09-17 04:42:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h11 h12 )_ytrbtra + = -1 * Sum ( p5 ) * tra ( p5 h12 )_tra * i2 ( h6 h7 h11 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_4_1.F index 347dc3cb1e..433cd1c59f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_3_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_3_4_1.F,v 1.1 2008-09-17 04:42:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h11 p5 )_ytrb + = 1 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h11 )_trb * y ( h3 h6 h7 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4.F index 4da30ffed5..9307c153a0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_2_4.F,v 1.1 2008-09-17 04:42:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytrbtrav + = 1 * Sum ( h11 p7 h9 p10 ) * i1 ( h11 p7 h9 p10 )_ytrbtra * v ( h9 p10 h11 p7 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_1.F index a965cc7d44..c771b131f9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_4_1.F,v 1.1 2008-09-17 04:42:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p7 h9 p10 )_ytrbtra + = 1 * Sum ( h4 ) * tra ( p7 h4 )_tra * i2 ( h4 h11 h9 p10 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_1_1.F index 214b4a0c37..ac7064795c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_4_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_4_1_1.F,v 1.1 2008-09-17 04:42:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h11 h9 p10 )_ytrb + = 1 * Sum ( p3 ) * trb ( p3 h9 )_trb * y ( h4 h11 p3 p10 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_1_2.F index 129c70921e..68d4bede9d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_4_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_4_1_2.F,v 1.1 2008-09-17 04:42:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h11 h9 p10 )_ytrb + = 1/2 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h9 )_trb * y ( h3 h4 h11 p1 p2 p10 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_2.F index 89a2ff4234..b53c435f70 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_4_2.F,v 1.1 2008-09-17 04:42:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p7 h9 p10 )_ytratrb + = -1/2 * Sum ( h4 ) * trb ( p7 h4 )_trb * i2 ( h4 h11 h9 p10 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_2_1.F index 9628d012e9..a330771e4a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_4_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_4_2_1.F,v 1.1 2008-09-17 04:42:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h11 h9 p10 )_ytra + = -1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h9 )_tra * y ( h3 h4 h11 p1 p2 p10 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_2_2.F index bb85feb7c4..b4d693f969 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_4_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_4_2_2.F,v 1.1 2008-09-17 04:42:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h11 h9 p10 )_ytra + = -2 * Sum ( p3 ) * tra ( p3 h9 )_tra * y ( h4 h11 p3 p10 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_3.F index 77eda075e9..5b94264c59 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_4_3.F,v 1.1 2008-09-17 04:42:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p7 h9 p10 )_ytrbtra + = -1/2 * Sum ( h3 h4 p1 ) * tra ( p1 p7 h3 h4 )_tra * i2 ( h3 h4 h11 h9 p1 p10 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_3_1.F index 35263757d8..5510f12d33 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_4_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_4_3_1.F,v 1.1 2008-09-17 04:42:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h11 h9 p1 p10 )_ytrb + = -1 * Sum ( p5 ) * trb ( p5 h9 )_trb * y ( h3 h4 h11 p1 p5 p10 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_4.F index 4355e52d10..1627aede2d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_4_4.F,v 1.1 2008-09-17 04:42:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p7 h9 p10 )_ytratrb + = -1/2 * Sum ( h3 h4 p1 ) * trb ( p1 p7 h3 h4 )_trb * i2 ( h3 h4 h11 h9 p1 p10 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_4_1.F index dccbea0132..bf93dc2010 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_4_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_4_4_1.F,v 1.1 2008-09-17 04:42:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h11 h9 p1 p10 )_ytra + = -1 * Sum ( p5 ) * tra ( p5 h9 )_tra * y ( h3 h4 h11 p1 p5 p10 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5.F index c6011ff2a9..b06616b1bf 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_2_5.F,v 1.1 2008-09-17 04:42:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vtrbtray + = 1/4 * Sum ( p10 p11 h13 h9 ) * y ( h9 h13 p10 p11 )_y * i1 ( p10 p11 h9 h13 )_vtrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_1.F index b36437f2f0..ab0de529ab 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_5_1.F,v 1.1 2008-09-17 04:42:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtrbtra + = 1 * Sum ( p1 ) * tra ( p1 h13 )_tra * i2 ( p10 p11 h9 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10.F index c27e74007a..2c6829a5d9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_10(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_5_10.F,v 1.1 2008-09-17 04:42:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtrbtra + = 1 * Sum ( h7 ) * tra ( p10 h7 )_tra * i2 ( h7 p11 h9 h13 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_1.F index e927564c1f..4f11ab1075 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_10_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_10_1.F,v 1.1 2008-09-17 04:42:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h9 h13 )_vtrb + = -1 * Sum ( p1 p2 ) * trb ( p1 p2 h9 h13 )_trb * v ( h7 p11 p1 p2 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_2.F index d6c34f6c07..9b9d34ac74 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_10_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_10_2.F,v 1.1 2008-09-17 04:42:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h9 h13 )_vttrb + = 1/2 * Sum ( h4 ) * trb ( p11 h4 )_trb * i3 ( h4 h7 h9 h13 )_vt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_2_1.F index c525529fea..5dcb576e7e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_10_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_10_2_1.F,v 1.1 2008-09-17 04:42:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h9 h13 )_vt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h9 h13 )_t * v ( h4 h7 p5 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_3.F index ab5536abe5..cbb7e49da2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_10_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_10_3.F,v 1.1 2008-09-17 04:42:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h9 h13 )_vtrbt + = 2 * Sum ( p6 ) * t ( p6 p11 h9 h13 )_t * i3 ( h7 p6 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_3_1.F index 5b046875a5..0626ce4e0c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_10_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_10_3_1.F,v 1.1 2008-09-17 04:42:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 p6 )_vtrb + = -1 * Sum ( h4 p3 ) * trb ( p3 h4 )_trb * v ( h4 h7 p3 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_4.F index 7da542ec7b..2b4d5d1605 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_10_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_10_4.F,v 1.1 2008-09-17 04:42:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h9 h13 )_vttrb + = -2 * Sum ( p1 ) * trb ( p1 h13 )_trb * i3 ( h7 p11 h9 p1 )_vt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_4_1.F index d80796d59b..71aa61320a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_10_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_10_4_1.F,v 1.1 2008-09-17 04:42:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 p11 h9 p1 )_vt + = -1 * Sum ( p3 ) * t ( p3 h9 )_t * v ( h7 p11 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_5.F index dd76d006f4..082d501102 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_10_5(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_10_5.F,v 1.1 2008-09-17 04:42:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h9 h13 )_vtrbt + = 1/2 * Sum ( h4 ) * t ( p11 h4 )_t * i3 ( h4 h7 h9 h13 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_5_1.F index fca6cde5f6..a0371260f1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_10_5_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_10_5_1.F,v 1.1 2008-09-17 04:42:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h9 h13 )_vtrb + = -1 * Sum ( p5 p6 ) * trb ( p5 p6 h9 h13 )_trb * v ( h4 h7 p5 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_6.F index b1ee5c91e9..54abd8d01d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_10_6(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_10_6.F,v 1.1 2008-09-17 04:42:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h9 h13 )_vttrb + = 2 * Sum ( p6 ) * trb ( p6 p11 h9 h13 )_trb * i3 ( h7 p6 )_vt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_6_1.F index bdeaae0e8a..9cf4fa6155 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_10_6_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_10_6_1.F,v 1.1 2008-09-17 04:42:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 p6 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h7 p3 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_7.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_7.F index ae4e1fb02f..93b449d134 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_7.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_10_7(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_10_7.F,v 1.1 2008-09-17 04:42:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h9 h13 )_vtrbt + = -2 * Sum ( p1 ) * t ( p1 h13 )_t * i3 ( h7 p11 h9 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_7_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_7_1.F index 441fae845c..3217a4f3ae 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_7_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_10_7_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_10_7_1.F,v 1.1 2008-09-17 04:42:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 p11 h9 p1 )_vtrb + = -1 * Sum ( p3 ) * trb ( p3 h9 )_trb * v ( h7 p11 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_11.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_11.F index 4cf39b4f41..47ce3609e0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_11.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_11.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_11(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_5_11.F,v 1.1 2008-09-17 04:42:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtratrb + = -2 * Sum ( p2 ) * trb ( p2 p10 h9 h13 )_trb * i2 ( p11 p2 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_11_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_11_1.F index 4fd6c8432c..2021f40eca 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_11_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_11_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_11_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_11_1.F,v 1.1 2008-09-17 04:42:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 p2 )_vtra + = -1 * Sum ( h6 p5 ) * tra ( p5 h6 )_tra * v ( h6 p11 p2 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_11_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_11_2.F index ae9302554c..1eac8a5dc9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_11_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_11_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_11_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_11_2.F,v 1.1 2008-09-17 04:42:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 p2 )_vtra + = 1/2 * Sum ( h7 h8 p6 ) * tra ( p6 p11 h7 h8 )_tra * v ( h7 h8 p2 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_12.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_12.F index d24be510f9..0203068ac7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_12.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_12.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_12(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_5_12.F,v 1.1 2008-09-17 04:42:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtratrb + = 1 * Sum ( h5 h6 p3 ) * trb ( p3 p10 p11 h5 h6 h13 )_trb * i2 ( h5 h6 h9 p3 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_12_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_12_1.F index 3853a11fb4..96b78397e7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_12_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_12_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_12_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_12_1.F,v 1.1 2008-09-17 04:42:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h9 p3 )_vtra + = -1 * Sum ( p7 ) * tra ( p7 h9 )_tra * v ( h5 h6 p3 p7 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_13.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_13.F index 6bd6f526e8..b0ff8d4a9b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_13.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_13.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_13(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_5_13.F,v 1.1 2008-09-17 04:42:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtratrb + = 1 * Sum ( h6 p3 ) * trb ( p3 p10 p11 h6 h9 h13 )_trb * i2 ( h6 p3 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_13_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_13_1.F index 637e796c85..b4104c93af 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_13_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_13_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_13_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_13_1.F,v 1.1 2008-09-17 04:42:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p3 )_vtra + = 1 * Sum ( h8 p7 ) * tra ( p7 h8 )_tra * v ( h6 h8 p3 p7 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_14.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_14.F index 5a449fb66b..0ded2df018 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_14.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_14.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_14(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_5_14.F,v 1.1 2008-09-17 04:42:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtratrb + = 1 * Sum ( h4 ) * trb ( p10 p11 h4 h13 )_trb * i2 ( h4 h9 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_14_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_14_1.F index 930c07ec81..ce6a8e7d35 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_14_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_14_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_14_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_14_1.F,v 1.1 2008-09-17 04:42:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h9 )_vtra + = 1 * Sum ( h8 p5 p6 ) * tra ( p5 p6 h8 h9 )_tra * v ( h4 h8 p5 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15.F index 72b14afec5..66ce6b6600 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_15(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_5_15.F,v 1.1 2008-09-17 04:42:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtrbtrat + = -2 * Sum ( h2 ) * t ( p10 h2 )_t * i2 ( h2 p11 h9 h13 )_vtrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_1.F index a1e1c644eb..696f3579f6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_15_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_15_1.F,v 1.1 2008-09-17 04:42:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h9 h13 )_vtrbtra + = 1 * Sum ( p1 ) * tra ( p1 h13 )_tra * i3 ( h2 p11 h9 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_1_1.F index 38dd4af98d..b00f14ae40 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_15_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_15_1_1.F,v 1.1 2008-09-17 04:42:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p11 h9 p1 )_vtrb + = -1 * Sum ( p3 ) * trb ( p3 h9 )_trb * v ( h2 p11 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_2.F index 517b29ebb9..f2e86920e0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_15_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_15_2.F,v 1.1 2008-09-17 04:42:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h9 h13 )_vtrbtra + = -1/4 * Sum ( h4 ) * tra ( p11 h4 )_tra * i3 ( h2 h4 h9 h13 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_2_1.F index 6a1be381d7..c6cd363c7d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_15_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_15_2_1.F,v 1.1 2008-09-17 04:42:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h9 h13 )_vtrb + = 1 * Sum ( p5 p6 ) * trb ( p5 p6 h9 h13 )_trb * v ( h2 h4 p5 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_3.F index 9dbb2b99b9..3b8a46c93c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_15_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_15_3.F,v 1.1 2008-09-17 04:42:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h9 h13 )_vtratrb + = -1 * Sum ( p6 ) * trb ( p6 p11 h9 h13 )_trb * i3 ( h2 p6 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_3_1.F index a30da5ac38..5f94fa3a2c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_15_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_15_3_1.F,v 1.1 2008-09-17 04:42:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p6 )_vtra + = 1 * Sum ( h4 p3 ) * tra ( p3 h4 )_tra * v ( h2 h4 p3 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_4.F index 127a6cfcb7..2cf2904547 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_15_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_15_4.F,v 1.1 2008-09-17 04:42:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h9 h13 )_vtratrb + = 1 * Sum ( p1 ) * trb ( p1 h13 )_trb * i3 ( h2 p11 h9 p1 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_4_1.F index f5ad15d564..127a47939c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_15_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_15_4_1.F,v 1.1 2008-09-17 04:42:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p11 h9 p1 )_vtra + = -1 * Sum ( p3 ) * tra ( p3 h9 )_tra * v ( h2 p11 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_5.F index c7ba5ae23c..af15e8c896 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_15_5(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_15_5.F,v 1.1 2008-09-17 04:42:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h9 h13 )_vtratrb + = -1/4 * Sum ( h4 ) * trb ( p11 h4 )_trb * i3 ( h2 h4 h9 h13 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_5_1.F index fa04c40893..e3a4bd2518 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_15_5_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_15_5_1.F,v 1.1 2008-09-17 04:42:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h9 h13 )_vtra + = 1 * Sum ( p5 p6 ) * tra ( p5 p6 h9 h13 )_tra * v ( h2 h4 p5 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_6.F index 820713de08..4519603d7a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_15_6(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_15_6.F,v 1.1 2008-09-17 04:42:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h9 h13 )_vtrbtra + = -1 * Sum ( p6 ) * tra ( p6 p11 h9 h13 )_tra * i3 ( h2 p6 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_6_1.F index 9bafa57b1f..5778da0bdf 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_15_6_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_15_6_1.F,v 1.1 2008-09-17 04:42:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p6 )_vtrb + = 1 * Sum ( h4 p3 ) * trb ( p3 h4 )_trb * v ( h2 h4 p3 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16.F index 93ac701993..d987c5a909 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_16(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_5_16.F,v 1.1 2008-09-17 04:42:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtrbtrat + = -2 * Sum ( h8 ) * t ( p10 p11 h8 h9 )_t * i2 ( h8 h13 )_vtrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_1.F index 5c95fa8541..91b6d4a57a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_16_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_16_1.F,v 1.1 2008-09-17 04:42:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 )_vtrbtra + = 1 * Sum ( p1 ) * tra ( p1 h13 )_tra * i3 ( h8 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_1_1.F index e5422b5c67..2b5dcdb228 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_16_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_16_1_1.F,v 1.1 2008-09-17 04:42:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtrb + = 1 * Sum ( h4 p3 ) * trb ( p3 h4 )_trb * v ( h4 h8 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_2.F index d2a817502b..1fbc34cc5b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_16_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_16_2.F,v 1.1 2008-09-17 04:42:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 )_vtratrb + = 1 * Sum ( p1 ) * trb ( p1 h13 )_trb * i3 ( h8 p1 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_2_1.F index e39c86db79..e2b16dda28 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_16_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_16_2_1.F,v 1.1 2008-09-17 04:42:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtra + = 1 * Sum ( h4 p3 ) * tra ( p3 h4 )_tra * v ( h4 h8 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17.F index 6bac7b9b89..499f009080 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_17(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_5_17.F,v 1.1 2008-09-17 04:42:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtrattrb + = -2 * Sum ( h8 ) * trb ( p10 p11 h8 h9 )_trb * i2 ( h8 h13 )_vtrat diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_1.F index 46b00d7ec3..9d6e59e9c4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_17_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_17_1.F,v 1.1 2008-09-17 04:42:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 )_vtrat + = 1 * Sum ( p1 ) * t ( p1 h13 )_t * i3 ( h8 p1 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_1_1.F index 1e79e54f01..f4e2ab31d3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_17_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_17_1_1.F,v 1.1 2008-09-17 04:42:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtra + = 1 * Sum ( h4 p3 ) * tra ( p3 h4 )_tra * v ( h4 h8 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_2.F index 8689257865..6c30e8a902 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_17_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_17_2.F,v 1.1 2008-09-17 04:42:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 )_vttra + = 1 * Sum ( p1 ) * tra ( p1 h13 )_tra * i3 ( h8 p1 )_vt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_2_1.F index 7fa364850e..0069d037b8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_17_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_17_2_1.F,v 1.1 2008-09-17 04:42:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h8 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18.F index 25b5fd538f..b92d43e3bf 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_18(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_5_18.F,v 1.1 2008-09-17 04:42:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vttrbtra + = -2 * Sum ( h8 ) * tra ( p10 p11 h8 h9 )_tra * i2 ( h8 h13 )_vttrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_1.F index 41eb80cb20..33d6fdde4b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_18_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_18_1.F,v 1.1 2008-09-17 04:42:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 )_vttrb + = 1 * Sum ( p1 ) * trb ( p1 h13 )_trb * i3 ( h8 p1 )_vt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_1_1.F index 9440876212..9bb9ec61c0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_18_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_18_1_1.F,v 1.1 2008-09-17 04:42:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h8 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_2.F index 1e3ec05b67..ff89e773fa 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_18_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_18_2.F,v 1.1 2008-09-17 04:42:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 )_vtrbt + = 1 * Sum ( p1 ) * t ( p1 h13 )_t * i3 ( h8 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_2_1.F index f307bcea16..4006ebb491 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_18_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_18_2_1.F,v 1.1 2008-09-17 04:42:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtrb + = 1 * Sum ( h4 p3 ) * trb ( p3 h4 )_trb * v ( h4 h8 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_1_1.F index 73cfda365c..37fde6dcb8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_1_1.F,v 1.1 2008-09-17 04:42:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p10 p11 h9 p1 )_vtrb + = -1 * Sum ( p3 ) * trb ( p3 h9 )_trb * v ( p10 p11 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_2.F index 6bce4d23ed..b0c35121b1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_5_2.F,v 1.1 2008-09-17 04:42:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtrbtra + = 4 * Sum ( h4 p2 ) * tra ( p2 p10 h4 h13 )_tra * i2 ( h4 p11 h9 p2 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_2_1.F index 2e72e500f9..0b6d0a704a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_2_1.F,v 1.1 2008-09-17 04:42:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p11 h9 p2 )_vtrb + = -1 * Sum ( p5 ) * trb ( p5 h9 )_trb * v ( h4 p11 p2 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_2_2.F index 8660068905..30f1d2a564 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_2_2.F,v 1.1 2008-09-17 04:42:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p11 h9 p2 )_vtrb + = -1/2 * Sum ( h8 p6 ) * trb ( p6 p11 h8 h9 )_trb * v ( h4 h8 p2 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3.F index ba97532f16..fd30f68f7d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_5_3.F,v 1.1 2008-09-17 04:42:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtratrb + = 1 * Sum ( h7 ) * trb ( p10 h7 )_trb * i2 ( h7 p11 h9 h13 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_1.F index f298fc9200..086cb76123 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_3_1.F,v 1.1 2008-09-17 04:42:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h9 h13 )_vtra + = -1 * Sum ( p1 p2 ) * tra ( p1 p2 h9 h13 )_tra * v ( h7 p11 p1 p2 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_2.F index 6f36fcfa00..c5ee2aa330 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_3_2.F,v 1.1 2008-09-17 04:42:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h9 h13 )_vtrat + = -2 * Sum ( p1 ) * t ( p1 h13 )_t * i3 ( h7 p11 h9 p1 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_2_1.F index ade572ea3b..f901cc217c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_3_2_1.F,v 1.1 2008-09-17 04:42:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 p11 h9 p1 )_vtra + = -1 * Sum ( p3 ) * tra ( p3 h9 )_tra * v ( h7 p11 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_3.F index 56a4d8c7c7..0bb152649f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_3_3.F,v 1.1 2008-09-17 04:42:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h9 h13 )_vtrat + = 1/2 * Sum ( h4 ) * t ( p11 h4 )_t * i3 ( h4 h7 h9 h13 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_3_1.F index 1f5ac00a4c..8a4162b5fd 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_3_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_3_3_1.F,v 1.1 2008-09-17 04:42:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h9 h13 )_vtra + = -1 * Sum ( p5 p6 ) * tra ( p5 p6 h9 h13 )_tra * v ( h4 h7 p5 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_4.F index 24d94425e2..c064cfc7f4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_3_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_3_4.F,v 1.1 2008-09-17 04:42:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h9 h13 )_vttra + = 2 * Sum ( p6 ) * tra ( p6 p11 h9 h13 )_tra * i3 ( h7 p6 )_vt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_4_1.F index 0213500a0e..c7fb5d2a05 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_3_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_3_4_1.F,v 1.1 2008-09-17 04:42:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 p6 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h7 p3 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_5.F index 891226fe18..8c14ec5d35 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_3_5(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_3_5.F,v 1.1 2008-09-17 04:42:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h9 h13 )_vttra + = -2 * Sum ( p1 ) * tra ( p1 h13 )_tra * i3 ( h7 p11 h9 p1 )_vt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_5_1.F index 2e913ecc1f..e6121095b5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_3_5_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_3_5_1.F,v 1.1 2008-09-17 04:42:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 p11 h9 p1 )_vt + = -1 * Sum ( p3 ) * t ( p3 h9 )_t * v ( h7 p11 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_6.F index 99e5e3a5e1..36c94198ba 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_3_6(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_3_6.F,v 1.1 2008-09-17 04:42:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h9 h13 )_vttra + = 1/2 * Sum ( h4 ) * tra ( p11 h4 )_tra * i3 ( h4 h7 h9 h13 )_vt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_6_1.F index fd478fb2bc..6206816c59 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_3_6_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_3_6_1.F,v 1.1 2008-09-17 04:42:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h9 h13 )_vt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h9 h13 )_t * v ( h4 h7 p5 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_7.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_7.F index 1368b48279..1f71d2e4c3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_7.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_3_7(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_3_7.F,v 1.1 2008-09-17 04:42:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h9 h13 )_vtrat + = 2 * Sum ( p6 ) * t ( p6 p11 h9 h13 )_t * i3 ( h7 p6 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_7_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_7_1.F index 6d030dfcb0..37397f4d70 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_7_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_3_7_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_3_7_1.F,v 1.1 2008-09-17 04:42:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 p6 )_vtra + = -1 * Sum ( h4 p3 ) * tra ( p3 h4 )_tra * v ( h4 h7 p3 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_4.F index 9a9b6eef4b..ed52d5fffd 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_5_4.F,v 1.1 2008-09-17 04:42:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtrbtra + = -2 * Sum ( p2 ) * tra ( p2 p10 h9 h13 )_tra * i2 ( p11 p2 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_4_1.F index 53572d179e..438040a0b2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_4_1.F,v 1.1 2008-09-17 04:42:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 p2 )_vtrb + = -1 * Sum ( h6 p5 ) * trb ( p5 h6 )_trb * v ( h6 p11 p2 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_4_2.F index 073e11aada..6c223d3f65 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_4_2.F,v 1.1 2008-09-17 04:42:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 p2 )_vtrb + = 1/2 * Sum ( h7 h8 p6 ) * trb ( p6 p11 h7 h8 )_trb * v ( h7 h8 p2 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_5.F index 128616f8fd..be176ba501 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_5_5.F,v 1.1 2008-09-17 04:42:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtrbtra + = 1 * Sum ( h5 h6 p3 ) * tra ( p3 p10 p11 h5 h6 h13 )_tra * i2 ( h5 h6 h9 p3 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_5_1.F index 523be90045..a7bdc5b733 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_5_1.F,v 1.1 2008-09-17 04:42:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h9 p3 )_vtrb + = -1 * Sum ( p7 ) * trb ( p7 h9 )_trb * v ( h5 h6 p3 p7 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_6.F index 5ecb40a655..f205a01dce 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_5_6.F,v 1.1 2008-09-17 04:42:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtrbtra + = 1 * Sum ( h6 p3 ) * tra ( p3 p10 p11 h6 h9 h13 )_tra * i2 ( h6 p3 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_6_1.F index 82f764edfb..a1198c1bfa 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_6_1.F,v 1.1 2008-09-17 04:42:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p3 )_vtrb + = 1 * Sum ( h8 p7 ) * trb ( p7 h8 )_trb * v ( h6 h8 p3 p7 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_7.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_7.F index 296ac937e2..445bff4f73 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_7.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_5_7.F,v 1.1 2008-09-17 04:42:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtrbtra + = 1 * Sum ( h4 ) * tra ( p10 p11 h4 h13 )_tra * i2 ( h4 h9 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_7_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_7_1.F index 8fa34a4dfb..3d0844539f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_7_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_7_1.F,v 1.1 2008-09-17 04:42:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h9 )_vtrb + = 1 * Sum ( h8 p5 p6 ) * trb ( p5 p6 h8 h9 )_trb * v ( h4 h8 p5 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_8.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_8.F index 556b12f54d..bc61b6b833 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_8.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_5_8.F,v 1.1 2008-09-17 04:42:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtratrb + = 1 * Sum ( p1 ) * trb ( p1 h13 )_trb * i2 ( p10 p11 h9 p1 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_8_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_8_1.F index 5cccee3f6a..668ca4f46e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_8_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_8_1.F,v 1.1 2008-09-17 04:42:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p10 p11 h9 p1 )_vtra + = -1 * Sum ( p3 ) * tra ( p3 h9 )_tra * v ( p10 p11 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_9.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_9.F index 7bfa7d0f09..1835fb589b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_9.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_9.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_5_9.F,v 1.1 2008-09-17 04:42:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtratrb + = 4 * Sum ( h4 p2 ) * trb ( p2 p10 h4 h13 )_trb * i2 ( h4 p11 h9 p2 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_9_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_9_1.F index 2cf4c4f46c..31e4af448f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_9_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_9_1.F,v 1.1 2008-09-17 04:42:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p11 h9 p2 )_vtra + = -1 * Sum ( p5 ) * tra ( p5 h9 )_tra * v ( h4 p11 p2 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_9_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_9_2.F index df8ac48664..b2faed6cda 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_9_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_9_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_9_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_9_2.F,v 1.1 2008-09-17 04:42:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p11 h9 p2 )_vtra + = -1/2 * Sum ( h8 p6 ) * tra ( p6 p11 h8 h9 )_tra * v ( h4 h8 p2 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6.F index fc998b62f5..3b534f924d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_2_6.F,v 1.1 2008-09-17 04:42:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytratrbv + = 1/4 * Sum ( h13 p10 h11 h12 ) * i1 ( h13 p10 h11 h12 )_ytratrb * v ( h11 h12 h13 p10 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1.F index 0ff8f3f525..e3f349a569 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_6_1.F,v 1.1 2008-09-17 04:42:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p10 h11 h12 )_ytratrb + = 1 * Sum ( h8 ) * trb ( p10 h8 )_trb * i2 ( h8 h13 h11 h12 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_10.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_10.F index 12d86140ae..5b5a299815 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_10.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_10.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_10(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_6_10.F,v 1.1 2008-09-17 04:42:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p10 h11 h12 )_ytrbtra + = -1/2 * Sum ( p5 p6 ) * tra ( p5 p6 h11 h12 )_tra * i2 ( h13 p10 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_10_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_10_1.F index 6917ad9e0b..1b1e34fc7f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_10_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_10_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_10_1.F,v 1.1 2008-09-17 04:42:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p10 p5 p6 )_ytrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p10 h3 h4 )_trb * y ( h3 h4 h13 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_11.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_11.F index efd3737ff5..2a0164c5cc 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_11.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_11.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_11(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_6_11.F,v 1.1 2008-09-17 04:42:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p10 h11 h12 )_ytrbtra + = -2 * Sum ( h7 p5 ) * tra ( p5 p10 h7 h12 )_tra * i2 ( h7 h13 h11 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_11_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_11_1.F index 6fb555a0cc..299081f293 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_11_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_11_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_11_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_11_1.F,v 1.1 2008-09-17 04:42:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h13 h11 p5 )_ytrb + = -1 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h11 )_trb * y ( h3 h7 h13 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12.F index 9c3b53ee39..6dbf2cd784 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_12(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_6_12.F,v 1.1 2008-09-17 04:42:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p10 h11 h12 )_ytrbttra + = 1 * Sum ( p1 ) * tra ( p1 h11 )_tra * i2 ( h13 p10 h12 p1 )_ytrbt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_1.F index 24ed015866..c0afda2125 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_12_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_12_1.F,v 1.1 2008-09-17 04:42:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p10 h12 p1 )_ytrbt + = 1 * Sum ( h7 h8 p5 ) * t ( p5 p10 h7 h8 )_t * i3 ( h7 h8 h13 h12 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_1_1.F index 39937a5312..b7d97ca168 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_12_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_12_1_1.F,v 1.1 2008-09-17 04:42:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h13 h12 p1 p5 )_ytrb + = -1 * Sum ( p3 ) * trb ( p3 h12 )_trb * y ( h7 h8 h13 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_2.F index 326f7a5e65..22cf47c092 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_12_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_12_2.F,v 1.1 2008-09-17 04:42:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p10 h12 p1 )_yttrb + = 1 * Sum ( h7 h8 p5 ) * trb ( p5 p10 h7 h8 )_trb * i3 ( h7 h8 h13 h12 p1 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_2_1.F index 11df7c8058..7420d62391 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_12_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_12_2_1.F,v 1.1 2008-09-17 04:42:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h13 h12 p1 p5 )_yt + = -1 * Sum ( p3 ) * t ( p3 h12 )_t * y ( h7 h8 h13 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13.F index c7ad422696..4391ca67c5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_13(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_6_13.F,v 1.1 2008-09-17 04:42:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p10 h11 h12 )_ytrbtrat + = -2 * Sum ( h2 ) * t ( p10 h2 )_t * i2 ( h2 h13 h11 h12 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_1.F index bc3baca051..c8a6fa6219 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_13_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_13_1.F,v 1.1 2008-09-17 04:42:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h13 h11 h12 )_ytrbtra + = 1 * Sum ( p3 ) * tra ( p3 h11 )_tra * i3 ( h2 h13 h12 p3 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_1_1.F index a74108db38..d1e1b1544b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_13_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_13_1_1.F,v 1.1 2008-09-17 04:42:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h13 h12 p3 )_ytrb + = 1 * Sum ( p5 ) * trb ( p5 h12 )_trb * y ( h2 h13 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_1_2.F index a7f208674a..70fbae3fef 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_13_1_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_13_1_2.F,v 1.1 2008-09-17 04:42:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h13 h12 p3 )_ytrb + = 1 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h12 )_trb * y ( h2 h7 h13 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_2.F index eda1ab01c3..32cb02cb80 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_13_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_13_2.F,v 1.1 2008-09-17 04:42:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h13 h11 h12 )_ytratrb + = 1 * Sum ( p3 ) * trb ( p3 h11 )_trb * i3 ( h2 h13 h12 p3 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_2_1.F index 7f2cb4d1a9..e591fee10b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_13_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_13_2_1.F,v 1.1 2008-09-17 04:42:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h13 h12 p3 )_ytra + = 1 * Sum ( p5 ) * tra ( p5 h12 )_tra * y ( h2 h13 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_2_2.F index 7ca6b1da72..b84d273993 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_13_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_13_2_2.F,v 1.1 2008-09-17 04:42:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h13 h12 p3 )_ytra + = 1 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h12 )_tra * y ( h2 h7 h13 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14.F index dd2b51bc92..e07d375498 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_14(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_6_14.F,v 1.1 2008-09-17 04:42:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p10 h11 h12 )_ytratrbt + = 1 * Sum ( p1 ) * t ( p1 h11 )_t * i2 ( h13 p10 h12 p1 )_ytratrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_1.F index fd26a37071..13577aa3c7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_14_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_14_1.F,v 1.1 2008-09-17 04:42:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p10 h12 p1 )_ytratrb + = 1 * Sum ( h7 h8 p5 ) * trb ( p5 p10 h7 h8 )_trb * i3 ( h7 h8 h13 h12 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_1_1.F index 1883086233..761a12974e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_14_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_14_1_1.F,v 1.1 2008-09-17 04:42:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h13 h12 p1 p5 )_ytra + = -1 * Sum ( p3 ) * tra ( p3 h12 )_tra * y ( h7 h8 h13 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_2.F index 22b9d3eeab..bb78c8624a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_14_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_14_2.F,v 1.1 2008-09-17 04:42:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p10 h12 p1 )_ytrbtra + = 1 * Sum ( h7 h8 p5 ) * tra ( p5 p10 h7 h8 )_tra * i3 ( h7 h8 h13 h12 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_2_1.F index 7b2a8ad7ba..a01c2c9d98 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_14_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_14_2_1.F,v 1.1 2008-09-17 04:42:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h13 h12 p1 p5 )_ytrb + = -1 * Sum ( p3 ) * trb ( p3 h12 )_trb * y ( h7 h8 h13 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15.F index b4157c4144..9d6b49e191 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_15(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_6_15.F,v 1.1 2008-09-17 04:42:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p10 h11 h12 )_yttratrb + = 1 * Sum ( p1 ) * trb ( p1 h11 )_trb * i2 ( h13 p10 h12 p1 )_yttra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_1.F index a4c6144574..be2eda70e1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_15_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_15_1.F,v 1.1 2008-09-17 04:42:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p10 h12 p1 )_yttra + = 1 * Sum ( h7 h8 p5 ) * tra ( p5 p10 h7 h8 )_tra * i3 ( h7 h8 h13 h12 p1 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_1_1.F index d0651590a2..a20a0d99c1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_15_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_15_1_1.F,v 1.1 2008-09-17 04:42:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h13 h12 p1 p5 )_yt + = -1 * Sum ( p3 ) * t ( p3 h12 )_t * y ( h7 h8 h13 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_2.F index 85d2a0a5d7..1ec08de5b9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_15_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_15_2.F,v 1.1 2008-09-17 04:42:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p10 h12 p1 )_ytrat + = 1 * Sum ( h7 h8 p5 ) * t ( p5 p10 h7 h8 )_t * i3 ( h7 h8 h13 h12 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_2_1.F index c55558c4d4..dd0b8241ad 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_15_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_15_2_1.F,v 1.1 2008-09-17 04:42:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h13 h12 p1 p5 )_ytra + = -1 * Sum ( p3 ) * tra ( p3 h12 )_tra * y ( h7 h8 h13 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_1.F index 141b8f91c5..7ed1a5cc3b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_1_1.F,v 1.1 2008-09-17 04:42:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 h11 h12 )_ytra + = -1 * Sum ( p1 p2 ) * tra ( p1 p2 h11 h12 )_tra * y ( h8 h13 p1 p2 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_2.F index 3449a9cee0..962655241a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_1_2.F,v 1.1 2008-09-17 04:42:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 h11 h12 )_ytra + = -1/3 * Sum ( h4 p1 p2 p3 ) * tra ( p1 p2 p3 h4 h11 h12 )_tra * y ( h4 h8 h13 p1 p2 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_3.F index ee197fa224..be20775e4b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_1_3.F,v 1.1 2008-09-17 04:42:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 h11 h12 )_ytrat + = -2 * Sum ( p3 ) * t ( p3 h11 )_t * i3 ( h8 h13 h12 p3 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_3_1.F index b717d86403..a0c0f94ecc 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_1_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_1_3_1.F,v 1.1 2008-09-17 04:42:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h13 h12 p3 )_ytra + = 1 * Sum ( p5 ) * tra ( p5 h12 )_tra * y ( h8 h13 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_3_2.F index 30d1cba602..d9794360cc 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_1_3_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_1_3_2.F,v 1.1 2008-09-17 04:42:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h13 h12 p3 )_ytra + = -1 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h12 )_tra * y ( h7 h8 h13 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_4.F index 11a4141158..38abc32610 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_1_4.F,v 1.1 2008-09-17 04:42:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 h11 h12 )_yttra + = -2 * Sum ( p3 ) * tra ( p3 h11 )_tra * i3 ( h8 h13 h12 p3 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_4_1.F index 9c2f334d2a..8c346606f8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_1_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_1_4_1.F,v 1.1 2008-09-17 04:42:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h13 h12 p3 )_yt + = 1 * Sum ( p5 ) * t ( p5 h12 )_t * y ( h8 h13 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_4_2.F index 1c0e597218..e46362912c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_1_4_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_1_4_2.F,v 1.1 2008-09-17 04:42:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h13 h12 p3 )_yt + = -1 * Sum ( h7 p5 p6 ) * t ( p5 p6 h7 h12 )_t * y ( h7 h8 h13 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_2.F index 5ecaa3979f..09eb9c8af8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_6_2.F,v 1.1 2008-09-17 04:42:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p10 h11 h12 )_ytrbtra + = 4 * Sum ( h3 p1 ) * tra ( p1 p10 h3 h11 )_tra * i2 ( h3 h13 h12 p1 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_2_1.F index 642015df24..c48c84bc7d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_2_1.F,v 1.1 2008-09-17 04:42:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h13 h12 p1 )_ytrb + = 1 * Sum ( p5 ) * trb ( p5 h12 )_trb * y ( h3 h13 p1 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_3.F index d7f3e8b3c8..92a2a6c286 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_6_3.F,v 1.1 2008-09-17 04:42:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p10 h11 h12 )_ytratrb + = 2 * trb ( p10 h12 )_trb * i2 ( h13 h11 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_3_1.F index 12e094a1b7..9dc869472b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_3_1.F,v 1.1 2008-09-17 04:42:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h11 )_ytra + = -1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h11 )_tra * y ( h3 h13 p1 p2 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_3_2.F index e970cba297..cbc1386c56 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_3_2.F,v 1.1 2008-09-17 04:42:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h11 )_ytra + = -1/6 * Sum ( h4 h5 p1 p2 p3 ) * tra ( p1 p2 p3 h4 h5 h11 )_tra * y ( h4 h5 h13 p1 p2 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4.F index 70587e98e2..38bd30a6b3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_6_4.F,v 1.1 2008-09-17 04:42:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p10 h11 h12 )_ytratrb + = 1 * Sum ( h4 h5 p1 p2 ) * trb ( p1 p2 p10 h4 h5 h11 )_trb * i2 ( h4 h5 h13 h12 p1 p2 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4_1.F index 86904f8491..ec9876563a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_4_1.F,v 1.1 2008-09-17 04:42:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h13 h12 p1 p2 )_ytra + = 1 * Sum ( p7 ) * tra ( p7 h12 )_tra * i3 ( h4 h5 h13 p1 p2 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4_1_1.F index fe52b7f500..2ad24e7e41 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4_1_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lr_beta_2_6_4_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_4_1_1.F,v 1.1 2008-09-17 04:42:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h5 h13 p1 p2 p7 )_y + = 1 * y ( h4 h5 h13 p1 p2 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4_1_2.F index 9d51c768e9..b45ece9d17 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4_1_2.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lr_beta_2_6_4_1_2(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_4_1_2.F,v 1.1 2008-09-17 04:42:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h5 h13 p1 p2 p7 )_y + = 1 * y ( h4 h5 h13 p1 p2 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_5.F index 304baff160..ae95b23666 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_6_5.F,v 1.1 2008-09-17 04:42:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p10 h11 h12 )_ytrbtrb + = -1/2 * Sum ( p5 p6 ) * trb ( p5 p6 h11 h12 )_trb * i2 ( h13 p10 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_5_1.F index 846ba5cecf..5865b05740 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_5_1.F,v 1.1 2008-09-17 04:42:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p10 p5 p6 )_ytrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p10 h3 h4 )_trb * y ( h3 h4 h13 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_6.F index d1cf3a4448..a11d63cbcb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_6_6.F,v 1.1 2008-09-17 04:42:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p10 h11 h12 )_ytratrb + = -2 * Sum ( h7 p5 ) * trb ( p5 p10 h7 h12 )_trb * i2 ( h7 h13 h11 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_6_1.F index 8bfbe4db20..29756b6379 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_6_1.F,v 1.1 2008-09-17 04:42:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h13 h11 p5 )_ytra + = -1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h11 )_tra * y ( h3 h7 h13 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7.F index dda01391ca..dd4e687273 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_6_7.F,v 1.1 2008-09-17 04:42:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p10 h11 h12 )_ytrbtra + = 1 * Sum ( h8 ) * tra ( p10 h8 )_tra * i2 ( h8 h13 h11 h12 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_1.F index 0a77f36395..6ec50f6fcb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_7_1.F,v 1.1 2008-09-17 04:42:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 h11 h12 )_ytrb + = -1 * Sum ( p1 p2 ) * trb ( p1 p2 h11 h12 )_trb * y ( h8 h13 p1 p2 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_2.F index 21297fc352..c85af658fd 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_7_2.F,v 1.1 2008-09-17 04:42:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 h11 h12 )_ytrb + = -1/3 * Sum ( h4 p1 p2 p3 ) * trb ( p1 p2 p3 h4 h11 h12 )_trb * y ( h4 h8 h13 p1 p2 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_3.F index 51e0593cfd..89591069e3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_7_3.F,v 1.1 2008-09-17 04:42:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 h11 h12 )_yttrb + = -2 * Sum ( p3 ) * trb ( p3 h11 )_trb * i3 ( h8 h13 h12 p3 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_3_1.F index b1349cde3f..21da35edfa 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_7_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_7_3_1.F,v 1.1 2008-09-17 04:42:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h13 h12 p3 )_yt + = 1 * Sum ( p5 ) * t ( p5 h12 )_t * y ( h8 h13 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_3_2.F index 1f04ff65d3..a330a997bb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_7_3_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_7_3_2.F,v 1.1 2008-09-17 04:42:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h13 h12 p3 )_yt + = -1 * Sum ( h7 p5 p6 ) * t ( p5 p6 h7 h12 )_t * y ( h7 h8 h13 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_4.F index e369759240..f60ac4525c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_7_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_7_4.F,v 1.1 2008-09-17 04:42:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 h11 h12 )_ytrbt + = -2 * Sum ( p3 ) * t ( p3 h11 )_t * i3 ( h8 h13 h12 p3 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_4_1.F index d50ced9972..c569594d53 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_7_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_7_4_1.F,v 1.1 2008-09-17 04:42:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h13 h12 p3 )_ytrb + = 1 * Sum ( p5 ) * trb ( p5 h12 )_trb * y ( h8 h13 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_4_2.F index 355db12e89..e44b04c050 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_7_4_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_7_4_2.F,v 1.1 2008-09-17 04:42:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h13 h12 p3 )_ytrb + = -1 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h12 )_trb * y ( h7 h8 h13 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_8.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_8.F index d58b2a2a78..d3eb8fe035 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_8.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_6_8.F,v 1.1 2008-09-17 04:42:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p10 h11 h12 )_ytratrb + = 4 * Sum ( h3 p1 ) * trb ( p1 p10 h3 h11 )_trb * i2 ( h3 h13 h12 p1 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_8_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_8_1.F index 77f86d9cf1..ea3b2f97ac 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_8_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_8_1.F,v 1.1 2008-09-17 04:42:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h13 h12 p1 )_ytra + = 1 * Sum ( p5 ) * tra ( p5 h12 )_tra * y ( h3 h13 p1 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_9.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_9.F index ae224c4817..1354e269db 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_9.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_9.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_6_9.F,v 1.1 2008-09-17 04:42:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p10 h11 h12 )_ytrbtra + = 2 * tra ( p10 h12 )_tra * i2 ( h13 h11 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_9_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_9_1.F index 1351776f83..bb1c80c180 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_9_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_9_1.F,v 1.1 2008-09-17 04:42:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h11 )_ytrb + = -1 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h11 )_trb * y ( h3 h13 p1 p2 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_9_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_9_2.F index 9c8c38a466..c33871ba89 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_9_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_9_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_9_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_9_2.F,v 1.1 2008-09-17 04:42:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h11 )_ytrb + = -1/6 * Sum ( h4 h5 p1 p2 p3 ) * trb ( p1 p2 p3 h4 h5 h11 )_trb * y ( h4 h5 h13 p1 p2 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7.F index d039444b6e..93c05acf88 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_2_7.F,v 1.1 2008-09-17 04:42:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytratrbv + = 1/4 * Sum ( p2 p5 p7 p8 ) * i1 ( p2 p5 p7 p8 )_ytratrb * v ( p7 p8 p2 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_1.F index f7e9df4057..2fbffdc778 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_7_1.F,v 1.1 2008-09-17 04:42:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p5 p7 p8 )_ytratrb + = 1 * Sum ( h6 ) * trb ( p5 h6 )_trb * i2 ( h6 p2 p7 p8 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_1_1.F index be0b217d10..c69e4edde0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_7_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_7_1_1.F,v 1.1 2008-09-17 04:42:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p2 p7 p8 )_ytra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p2 h3 h4 )_tra * y ( h3 h4 h6 p1 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_2.F index 6eed090189..4dc20a3991 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_7_2.F,v 1.1 2008-09-17 04:42:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p5 p7 p8 )_ytrbtra + = 1 * Sum ( h6 ) * tra ( p5 h6 )_tra * i2 ( h6 p2 p7 p8 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_2_1.F index 10f3fac701..b0806e58c2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_7_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_7_2_1.F,v 1.1 2008-09-17 04:42:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p2 p7 p8 )_ytrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p2 h3 h4 )_trb * y ( h3 h4 h6 p1 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8.F index 972e3b10e4..ede77c2dde 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_2_8.F,v 1.1 2008-09-17 04:42:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytrbtrav + = -1/4 * Sum ( p11 p12 h14 h15 ) * i1 ( p11 p12 h14 h15 )_ytrbtra * v ( h14 h15 p11 p12 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_1.F index 12dd8c3782..47b5d3b908 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_8_1.F,v 1.1 2008-09-17 04:42:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrbtra + = 1 * Sum ( h4 h5 p1 ) * tra ( p1 p11 p12 h4 h5 h14 )_tra * i2 ( h4 h5 h15 p1 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_10.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_10.F index a18ffda9d1..7b18dcbf26 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_10.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_10.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_10(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_10.F,v 1.1 2008-09-17 04:42:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytratrb + = 1/2 * Sum ( h4 p1 p2 ) * trb ( p1 p2 p11 h4 h14 h15 )_trb * i2 ( h4 p12 p1 p2 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_10_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_10_1.F index 33f2c57537..39a723ac4a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_10_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_10_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_10_1.F,v 1.1 2008-09-17 04:42:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p12 p1 p2 )_ytra + = 1 * Sum ( h9 h10 p7 ) * tra ( p7 p12 h9 h10 )_tra * y ( h4 h9 h10 p1 p2 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_11.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_11.F index 0a2fca8ef3..aa76561038 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_11.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_11.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_11(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_11.F,v 1.1 2008-09-17 04:42:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrbtra + = -1 * Sum ( h9 p7 ) * tra ( p7 p12 h9 h15 )_tra * i2 ( h9 p11 h14 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_11_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_11_1.F index 79eac7795d..cb18f9da3e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_11_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_11_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_11_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_11_1.F,v 1.1 2008-09-17 04:42:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p11 h14 p7 )_ytrb + = 1 * Sum ( h4 h5 p1 p2 ) * trb ( p1 p2 p11 h4 h5 h14 )_trb * y ( h4 h5 h9 p1 p2 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_12.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_12.F index c3a7a3a0df..cbf990db52 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_12.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_12.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_12(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_12.F,v 1.1 2008-09-17 04:42:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrbtra + = 1/6 * Sum ( h9 ) * tra ( p11 p12 h9 h15 )_tra * i2 ( h9 h14 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_12_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_12_1.F index 498b4e19dc..86ce724aa3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_12_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_12_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_12_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_12_1.F,v 1.1 2008-09-17 04:42:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h14 )_ytrb + = 1 * Sum ( h4 h5 p1 p2 p3 ) * trb ( p1 p2 p3 h4 h5 h14 )_trb * y ( h4 h5 h9 p1 p2 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13.F index aa12c0b4f4..d79e74c633 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_13(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_13.F,v 1.1 2008-09-17 04:42:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytratrb + = 1/12 * Sum ( h2 h13 h4 p6 ) * trb ( p6 p11 p12 h2 h4 h13 )_trb * i2 ( h2 h4 h13 h14 h15 p6 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_1.F index 400887b490..f6462393ff 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_13_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_13_1.F,v 1.1 2008-09-17 04:42:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h13 h14 h15 p6 )_ytra + = -1 * Sum ( p7 p8 ) * tra ( p7 p8 h14 h15 )_tra * y ( h2 h4 h13 p6 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_2.F index 0227c6f7b0..fa80dd0196 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_13_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_13_2.F,v 1.1 2008-09-17 04:42:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h13 h14 h15 p6 )_ytrat + = -2 * Sum ( p1 ) * t ( p1 h14 )_t * i3 ( h2 h4 h13 h15 p1 p6 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_2_1.F index c03f59293a..1806d27379 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_13_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_13_2_1.F,v 1.1 2008-09-17 04:42:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h13 h15 p1 p6 )_ytra + = 1 * Sum ( p3 ) * tra ( p3 h15 )_tra * y ( h2 h4 h13 p1 p3 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_3.F index 2f9f553395..f1b6171bd0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_13_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_13_3.F,v 1.1 2008-09-17 04:42:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h13 h14 h15 p6 )_yttra + = -2 * Sum ( p1 ) * tra ( p1 h14 )_tra * i3 ( h2 h4 h13 h15 p1 p6 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_3_1.F index d7934a2fda..75d25d2567 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_13_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_13_3_1.F,v 1.1 2008-09-17 04:42:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h13 h15 p1 p6 )_yt + = 1 * Sum ( p3 ) * t ( p3 h15 )_t * y ( h2 h4 h13 p1 p3 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_14.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_14.F index 67335f1ac3..3c24895b07 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_14.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_14.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_14(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_14.F,v 1.1 2008-09-17 04:42:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrbtra + = 1/6 * Sum ( p7 ) * tra ( p7 p12 h14 h15 )_tra * i2 ( p11 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_14_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_14_1.F index 7f2d1baa0f..466afd64a3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_14_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_14_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_14_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_14_1.F,v 1.1 2008-09-17 04:42:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 p7 )_ytrb + = 1 * Sum ( h4 h5 h6 p1 p2 ) * trb ( p1 p2 p11 h4 h5 h6 )_trb * y ( h4 h5 h6 p1 p2 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15.F index cea8d4d1de..e10171fe44 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15.F,v 1.1 2008-09-17 04:42:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_yttrbtra + = 1/2 * Sum ( h2 ) * tra ( p11 h2 )_tra * i2 ( h2 p12 h14 h15 )_yttrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1.F index 1e8c77b679..5b6e118c9a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_1.F,v 1.1 2008-09-17 04:42:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_yttrb + = 1 * Sum ( h4 ) * trb ( p12 h4 )_trb * i3 ( h2 h4 h14 h15 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_1.F index 087d039e39..6a911730d6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_1_1.F,v 1.1 2008-09-17 04:42:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h14 h15 )_t * y ( h2 h4 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_2.F index 834cd36361..3ed164c8e5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_1_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_1_2.F,v 1.1 2008-09-17 04:42:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_yt + = -1/3 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h8 h14 h15 )_t * i4 ( h2 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_2_1.F index 0a87389829..6f476064d0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_1_2_1(d_a,k_a_offset,d_c,k_c_offse &t) -C $Id: ccsdt_lr_beta_2_8_15_1_2_1.F,v 1.1 2008-09-17 04:42:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h8 p5 p6 p7 )_y + = 1 * y ( h2 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_2_2.F index b4c372c1ec..715231608d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_1_2_2(d_a,k_a_offset,d_c,k_c_offse &t) -C $Id: ccsdt_lr_beta_2_8_15_1_2_2.F,v 1.1 2008-09-17 04:42:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h8 p5 p6 p7 )_y + = 1 * y ( h2 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_3.F index 5bbe3d07d4..4cec25dd3d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_1_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_1_3.F,v 1.1 2008-09-17 04:42:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytt + = -2 * Sum ( p5 ) * t ( p5 h14 )_t * i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_3_1.F index e06537b280..c4cb776a34 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_1_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_1_3_1.F,v 1.1 2008-09-17 04:42:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h15 )_t * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_3_2.F index 96813ca865..08494e4719 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_1_3_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_1_3_2.F,v 1.1 2008-09-17 04:42:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h9 h15 )_t * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_2.F index 12d4b9a01d..22ce6f1641 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_2.F,v 1.1 2008-09-17 04:42:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytrbt + = 8 * Sum ( h7 p5 ) * t ( p5 p12 h7 h15 )_t * i3 ( h2 h7 h14 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_2_1.F index b63d895641..bc64df18d5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_2_1.F,v 1.1 2008-09-17 04:42:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h14 p5 )_ytrb + = 1 * Sum ( p3 ) * trb ( p3 h14 )_trb * y ( h2 h7 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_3.F index 9e36023f9f..771f22e7a4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_3.F,v 1.1 2008-09-17 04:42:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytrbt + = 2 * Sum ( h8 h9 p5 p6 ) * t ( p5 p6 p12 h8 h9 h15 )_t * i3 ( h2 h8 h9 h14 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_3_1.F index 195ee6bb39..df5c7b2b01 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_3_1.F,v 1.1 2008-09-17 04:42:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h14 p5 p6 )_ytrb + = 1 * Sum ( p3 ) * trb ( p3 h14 )_trb * y ( h2 h8 h9 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4.F index 881a3667aa..e77f89ce84 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_4.F,v 1.1 2008-09-17 04:42:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytrbt + = 1 * Sum ( h4 ) * t ( p12 h4 )_t * i3 ( h2 h4 h14 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_1.F index ff7716b9c6..96486c1b01 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_4_1.F,v 1.1 2008-09-17 04:42:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytrb + = -1 * Sum ( p5 p6 ) * trb ( p5 p6 h14 h15 )_trb * y ( h2 h4 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_2.F index a3e73bf62b..0b8d742570 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_4_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_4_2.F,v 1.1 2008-09-17 04:42:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytrbt + = -2 * Sum ( p5 ) * t ( p5 h14 )_t * i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_2_1.F index a167c75019..6f4896e532 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_4_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_4_2_1.F,v 1.1 2008-09-17 04:42:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = 1 * Sum ( p7 ) * trb ( p7 h15 )_trb * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_2_2.F index 9837006338..63cce4f938 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_4_2_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_4_2_2.F,v 1.1 2008-09-17 04:43:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = -1 * Sum ( h9 p7 p8 ) * trb ( p7 p8 h9 h15 )_trb * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_3.F index 9a1739e497..bf0ba69d98 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_4_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_4_3.F,v 1.1 2008-09-17 04:43:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_yttrb + = -2 * Sum ( p5 ) * trb ( p5 h14 )_trb * i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_3_1.F index 3d2d2073c7..e997434c11 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_4_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_4_3_1.F,v 1.1 2008-09-17 04:43:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h15 )_t * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_3_2.F index b17a08704b..3cc9066f28 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_4_3_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_4_3_2.F,v 1.1 2008-09-17 04:43:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h9 h15 )_t * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_5.F index 413193ad42..54e84ff44f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_5(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_5.F,v 1.1 2008-09-17 04:43:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_yttrb + = 8 * Sum ( h7 p5 ) * trb ( p5 p12 h7 h15 )_trb * i3 ( h2 h7 h14 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_5_1.F index 49feee73f9..8d8ef1856d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_5_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_5_1.F,v 1.1 2008-09-17 04:43:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h14 p5 )_yt + = 1 * Sum ( p3 ) * t ( p3 h14 )_t * y ( h2 h7 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_6.F index dd4ccc9ed5..b27db77708 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_6(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_6.F,v 1.1 2008-09-17 04:43:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_yttrb + = 2 * Sum ( h8 h9 p5 p6 ) * trb ( p5 p6 p12 h8 h9 h15 )_trb * i3 ( h2 h8 h9 h14 p5 p6 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_6_1.F index 806e977d6d..b13d0b3af1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_6_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_6_1.F,v 1.1 2008-09-17 04:43:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h14 p5 p6 )_yt + = 1 * Sum ( p3 ) * t ( p3 h14 )_t * y ( h2 h8 h9 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_7.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_7.F index a0ce65f5b2..3e47eaa327 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_7.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_7(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_7.F,v 1.1 2008-09-17 04:43:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytttrb + = -2 * Sum ( p3 ) * trb ( p3 h14 )_trb * i3 ( h2 p12 h15 p3 )_ytt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_7_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_7_1.F index c4aa5648e7..8dcaad0810 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_7_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_7_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_7_1.F,v 1.1 2008-09-17 04:43:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_ytt + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p12 h9 h10 )_t * i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_7_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_7_1_1.F index 05ac8662e8..56c8b4f58b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_7_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_7_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_7_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_7_1_1.F,v 1.1 2008-09-17 04:43:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h15 )_t * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8.F index 4343197154..6a2e8022ca 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_8(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_8.F,v 1.1 2008-09-17 04:43:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_yttrbt + = -2 * Sum ( p3 ) * t ( p3 h14 )_t * i3 ( h2 p12 h15 p3 )_yttrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8_1.F index 773adfff76..fdd2200f38 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_8_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_8_1.F,v 1.1 2008-09-17 04:43:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_yttrb + = 1 * Sum ( h9 h10 p7 ) * trb ( p7 p12 h9 h10 )_trb * i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8_1_1.F index 532f01b8b7..d0938e8c36 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_8_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_8_1_1.F,v 1.1 2008-09-17 04:43:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h15 )_t * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8_2.F index 567d659f25..d934848f90 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_8_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_8_2.F,v 1.1 2008-09-17 04:43:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_ytrbt + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p12 h9 h10 )_t * i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8_2_1.F index be6e94bca7..2aeadbf65e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_8_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_8_2_1.F,v 1.1 2008-09-17 04:43:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb + = -1 * Sum ( p5 ) * trb ( p5 h15 )_trb * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16.F index 4e08e9ab58..f2a3cc1942 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_16(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_16.F,v 1.1 2008-09-17 04:43:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_yttratrb + = -1/3 * trb ( p12 h14 )_trb * i2 ( p11 h15 )_yttra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_1.F index 3ffe8bc4d1..2fca0826af 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_16_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_16_1.F,v 1.1 2008-09-17 04:43:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h15 )_yttra + = 1 * Sum ( h2 ) * tra ( p11 h2 )_tra * i3 ( h2 h15 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_1_1.F index fc3e0c248e..280d6aa1d7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_16_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_16_1_1.F,v 1.1 2008-09-17 04:43:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_yt + = 1 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h8 h9 h15 )_t * y ( h2 h8 h9 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_2.F index 66a750dd4a..5abdf198f2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_16_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_16_2.F,v 1.1 2008-09-17 04:43:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h15 )_ytrat + = 1 * Sum ( h2 ) * t ( p11 h2 )_t * i3 ( h2 h15 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_2_1.F index 38afa24890..c70aa54578 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_16_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_16_2_1.F,v 1.1 2008-09-17 04:43:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytra + = 1 * Sum ( h8 h9 p5 p6 p7 ) * tra ( p5 p6 p7 h8 h9 h15 )_tra * y ( h2 h8 h9 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17.F index 7c79018589..6bbab25c3c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_17(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_17.F,v 1.1 2008-09-17 04:43:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrbtrat + = 1/6 * Sum ( h8 h9 h10 p5 ) * t ( p5 p11 p12 h8 h9 h10 )_t * i2 ( h8 h9 h10 h14 h15 p5 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_1.F index cea73a7c6c..d109edf813 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_17_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_17_1.F,v 1.1 2008-09-17 04:43:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h10 h14 h15 p5 )_ytrbtra + = 1 * Sum ( p1 ) * tra ( p1 h14 )_tra * i3 ( h8 h9 h10 h15 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_1_1.F index 34472031e8..c8850725a7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_17_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_17_1_1.F,v 1.1 2008-09-17 04:43:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h15 p1 p5 )_ytrb + = -1 * Sum ( p3 ) * trb ( p3 h15 )_trb * y ( h8 h9 h10 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_2.F index d01ca7e479..3b9bc61b96 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_17_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_17_2.F,v 1.1 2008-09-17 04:43:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h10 h14 h15 p5 )_ytratrb + = 1 * Sum ( p1 ) * trb ( p1 h14 )_trb * i3 ( h8 h9 h10 h15 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_2_1.F index 725bc24a7c..5e301864cc 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_17_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_17_2_1.F,v 1.1 2008-09-17 04:43:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h15 p1 p5 )_ytra + = -1 * Sum ( p3 ) * tra ( p3 h15 )_tra * y ( h8 h9 h10 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18.F index fdfa3ec639..92e420bd1d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_18(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_18.F,v 1.1 2008-09-17 04:43:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrattrb + = -1/3 * trb ( p11 h15 )_trb * i2 ( p12 h14 )_ytrat diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_1.F index aa0963a624..19f5c394d1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_18_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_18_1.F,v 1.1 2008-09-17 04:43:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p12 h14 )_ytrat + = 1 * Sum ( h8 h9 h10 p5 p6 ) * t ( p5 p6 p12 h8 h9 h10 )_t * i3 ( h8 h9 h10 h14 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_1_1.F index b0e5b5710e..79b5e56fed 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_18_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_18_1_1.F,v 1.1 2008-09-17 04:43:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h14 p5 p6 )_ytra + = 1 * Sum ( p1 ) * tra ( p1 h14 )_tra * y ( h8 h9 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_2.F index 3be330c8e8..5ab4a8e678 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_18_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_18_2.F,v 1.1 2008-09-17 04:43:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p12 h14 )_yttra + = 1 * Sum ( h8 h9 h10 p5 p6 ) * tra ( p5 p6 p12 h8 h9 h10 )_tra * i3 ( h8 h9 h10 h14 p5 p6 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_2_1.F index c7e1e7cc69..595d15681e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_18_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_18_2_1.F,v 1.1 2008-09-17 04:43:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h14 p5 p6 )_yt + = 1 * Sum ( p1 ) * t ( p1 h14 )_t * y ( h8 h9 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19.F index 7f3f26007a..0e56e07498 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_19(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_19.F,v 1.1 2008-09-17 04:43:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytratrbt + = -1/2 * Sum ( h10 ) * t ( p12 h10 )_t * i2 ( h10 p11 h14 h15 )_ytratrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_1.F index d9fe71277c..d8812be40f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_19_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_19_1.F,v 1.1 2008-09-17 04:43:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p11 h14 h15 )_ytratrb + = 1 * Sum ( p5 p6 ) * trb ( p5 p6 h14 h15 )_trb * i3 ( h10 p11 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_1_1.F index ad906a3360..1fa3b770b4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_19_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_19_1_1.F,v 1.1 2008-09-17 04:43:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p11 p5 p6 )_ytra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p11 h3 h4 )_tra * y ( h3 h4 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_2.F index 0106fdad61..71bca6e51d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_19_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_19_2.F,v 1.1 2008-09-17 04:43:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p11 h14 h15 )_ytratrb + = 4 * Sum ( h7 p5 ) * trb ( p5 p11 h7 h15 )_trb * i3 ( h7 h10 h14 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_2_1.F index f5ee7ed7bb..65f24273ec 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_19_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_19_2_1.F,v 1.1 2008-09-17 04:43:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h14 p5 )_ytra + = -1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h14 )_tra * y ( h3 h7 h10 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_3.F index 243abca279..1292d0a70d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_19_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_19_3.F,v 1.1 2008-09-17 04:43:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p11 h14 h15 )_ytrbtra + = 1 * Sum ( p5 p6 ) * tra ( p5 p6 h14 h15 )_tra * i3 ( h10 p11 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_3_1.F index 760526d28b..b268799bb5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_19_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_19_3_1.F,v 1.1 2008-09-17 04:43:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p11 p5 p6 )_ytrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p11 h3 h4 )_trb * y ( h3 h4 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_4.F index 45be750034..80f4affd05 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_19_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_19_4.F,v 1.1 2008-09-17 04:43:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p11 h14 h15 )_ytrbtra + = 4 * Sum ( h7 p5 ) * tra ( p5 p11 h7 h15 )_tra * i3 ( h7 h10 h14 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_4_1.F index 1f525d8769..4b72a8afee 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_19_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_19_4_1.F,v 1.1 2008-09-17 04:43:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h14 p5 )_ytrb + = -1 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h14 )_trb * y ( h3 h7 h10 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_1_1.F index cf3fd7acae..5792c1f4af 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_1_1.F,v 1.1 2008-09-17 04:43:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h15 p1 )_ytrb + = -1 * Sum ( p7 ) * trb ( p7 h15 )_trb * y ( h4 h5 p1 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_1_2.F index 10089f63f9..e9812a9a58 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_1_2.F,v 1.1 2008-09-17 04:43:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h15 p1 )_ytrb + = 1/2 * Sum ( h9 p7 p8 ) * trb ( p7 p8 h9 h15 )_trb * y ( h4 h5 h9 p1 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2.F index 42f9adc5fb..7f39775f93 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_8_2.F,v 1.1 2008-09-17 04:43:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrbtra + = -1/4 * Sum ( h7 h8 ) * tra ( p11 p12 h7 h8 )_tra * i2 ( h7 h8 h14 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20.F index 286d9abddc..d531c614b0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_20(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_20.F,v 1.1 2008-09-17 04:43:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_yttratrb + = -2 * Sum ( h7 p5 ) * trb ( p5 p12 h7 h14 )_trb * i2 ( h7 p11 h15 p5 )_yttra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_1.F index 735e1974d3..671be2d5a1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_20_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_20_1.F,v 1.1 2008-09-17 04:43:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h15 p5 )_yttra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p11 h3 h4 )_tra * i3 ( h3 h4 h7 h15 p1 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_1_1.F index 1988c17a8f..c80ceafdc7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_20_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_20_1_1.F,v 1.1 2008-09-17 04:43:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_yt + = -1 * Sum ( p9 ) * t ( p9 h15 )_t * y ( h3 h4 h7 p1 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_2.F index 2757fe15ff..1958a3fc75 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_20_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_20_2.F,v 1.1 2008-09-17 04:43:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h15 p5 )_ytrat + = 1 * Sum ( h3 h4 p1 ) * t ( p1 p11 h3 h4 )_t * i3 ( h3 h4 h7 h15 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_2_1.F index 2cf2947c1b..f312ec51e0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_20_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_20_2_1.F,v 1.1 2008-09-17 04:43:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytra + = -1 * Sum ( p9 ) * tra ( p9 h15 )_tra * y ( h3 h4 h7 p1 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21.F index b969edede8..668c4bd8eb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_21(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_21.F,v 1.1 2008-09-17 04:43:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrbtrat + = -1 * t ( p12 h15 )_t * i2 ( p11 h14 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_1.F index 842afebf10..4b971668b6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_21_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_21_1.F,v 1.1 2008-09-17 04:43:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h14 )_ytrbtra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p11 h3 h4 )_tra * i3 ( h3 h4 h14 p1 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_1_1.F index 9c29bf03f7..74de419219 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_21_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_21_1_1.F,v 1.1 2008-09-17 04:43:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h14 p1 )_ytrb + = 1 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h14 )_trb * y ( h3 h4 h7 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_2.F index 09e396a45b..c65a3ba429 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_21_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_21_2.F,v 1.1 2008-09-17 04:43:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h14 )_ytratrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p11 h3 h4 )_trb * i3 ( h3 h4 h14 p1 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_2_1.F index 8ec9acb716..0c6e1de183 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_21_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_21_2_1.F,v 1.1 2008-09-17 04:43:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h14 p1 )_ytra + = 1 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h14 )_tra * y ( h3 h4 h7 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22.F index e0a5db7a9c..87fc7410c6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22.F,v 1.1 2008-09-17 04:43:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrbtrat + = 1/2 * Sum ( h2 ) * t ( p11 h2 )_t * i2 ( h2 p12 h14 h15 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1.F index a15fc12bc3..1e9c8905b4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_1.F,v 1.1 2008-09-17 04:43:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytrbtra + = 1 * Sum ( h4 ) * tra ( p12 h4 )_tra * i3 ( h2 h4 h14 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10.F index e16d862f90..e876231312 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_10(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_10.F,v 1.1 2008-09-17 04:43:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytrattrb + = -2 * Sum ( p3 ) * trb ( p3 h14 )_trb * i3 ( h2 p12 h15 p3 )_ytrat diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10_1.F index 059e531f42..76f2bcda1a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_10_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_10_1.F,v 1.1 2008-09-17 04:43:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_ytrat + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p12 h9 h10 )_t * i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10_1_1.F index 786b88d29b..f97c77590c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_10_1_1(d_a,k_a_offset,d_b,k_b_offs &et,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_10_1_1.F,v 1.1 2008-09-17 04:43:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra + = -1 * Sum ( p5 ) * tra ( p5 h15 )_tra * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10_2.F index a53a310a8b..4265a8be66 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_10_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_10_2.F,v 1.1 2008-09-17 04:43:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_yttra + = 1 * Sum ( h9 h10 p7 ) * tra ( p7 p12 h9 h10 )_tra * i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10_2_1.F index 3786102b08..dbee46580c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_10_2_1(d_a,k_a_offset,d_b,k_b_offs &et,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_10_2_1.F,v 1.1 2008-09-17 04:43:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h15 )_t * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_1.F index dded779abd..d6b7f10b4a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_1_1.F,v 1.1 2008-09-17 04:43:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytrb + = -1 * Sum ( p5 p6 ) * trb ( p5 p6 h14 h15 )_trb * y ( h2 h4 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_2.F index 743390d583..e78a4c60fe 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_1_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_1_2.F,v 1.1 2008-09-17 04:43:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytrb + = -1/3 * Sum ( h8 p5 p6 p7 ) * trb ( p5 p6 p7 h8 h14 h15 )_trb * y ( h2 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_3.F index e391af5f05..aada179e84 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_1_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_1_3.F,v 1.1 2008-09-17 04:43:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_yttrb + = -2 * Sum ( p5 ) * trb ( p5 h14 )_trb * i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_3_1.F index 48e2074ba6..60b03dc509 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_1_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_1_3_1.F,v 1.1 2008-09-17 04:43:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h15 )_t * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_3_2.F index 229dd32dde..f6e8ca98a6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_1_3_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_1_3_2.F,v 1.1 2008-09-17 04:43:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h9 h15 )_t * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_4.F index 3a0b5f80b0..2cd716d5a5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_1_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_1_4.F,v 1.1 2008-09-17 04:43:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytrbt + = -2 * Sum ( p5 ) * t ( p5 h14 )_t * i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_4_1.F index 1646177136..40b174f892 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_1_4_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_1_4_1.F,v 1.1 2008-09-17 04:43:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = 1 * Sum ( p7 ) * trb ( p7 h15 )_trb * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_4_2.F index 7b63b522a5..6a968805d6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_1_4_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_1_4_2.F,v 1.1 2008-09-17 04:43:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = -1 * Sum ( h9 p7 p8 ) * trb ( p7 p8 h9 h15 )_trb * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_2.F index e9f59ef754..dab414a240 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_2.F,v 1.1 2008-09-17 04:43:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytratrb + = 8 * Sum ( h7 p5 ) * trb ( p5 p12 h7 h15 )_trb * i3 ( h2 h7 h14 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_2_1.F index 8c14e9885e..de309751be 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_2_1.F,v 1.1 2008-09-17 04:43:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h14 p5 )_ytra + = 1 * Sum ( p3 ) * tra ( p3 h14 )_tra * y ( h2 h7 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_3.F index c4db4bf704..5cf22121d5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_3.F,v 1.1 2008-09-17 04:43:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytratrb + = 2 * Sum ( h8 h9 p5 p6 ) * trb ( p5 p6 p12 h8 h9 h15 )_trb * i3 ( h2 h8 h9 h14 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_3_1.F index f0ce3d6fac..20e968f48e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_3_1.F,v 1.1 2008-09-17 04:43:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h14 p5 p6 )_ytra + = 1 * Sum ( p3 ) * tra ( p3 h14 )_tra * y ( h2 h8 h9 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4.F index 7fdc9b4cfe..480351e29c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_4.F,v 1.1 2008-09-17 04:43:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytratrb + = 1 * Sum ( h4 ) * trb ( p12 h4 )_trb * i3 ( h2 h4 h14 h15 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_1.F index b5c2ab1446..aa4a316951 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_4_1.F,v 1.1 2008-09-17 04:43:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytra + = -1 * Sum ( p5 p6 ) * tra ( p5 p6 h14 h15 )_tra * y ( h2 h4 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_2.F index 43e65ea10e..eb65ef0c33 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_4_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_4_2.F,v 1.1 2008-09-17 04:43:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytra + = -1/3 * Sum ( h8 p5 p6 p7 ) * tra ( p5 p6 p7 h8 h14 h15 )_tra * y ( h2 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_3.F index f570348aab..27ef41f269 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_4_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_4_3.F,v 1.1 2008-09-17 04:43:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_yttra + = -2 * Sum ( p5 ) * tra ( p5 h14 )_tra * i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_3_1.F index c21271f345..e1053b767d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_4_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_4_3_1.F,v 1.1 2008-09-17 04:43:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h15 )_t * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_3_2.F index a2bd87141d..bd62e96ad5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_4_3_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_4_3_2.F,v 1.1 2008-09-17 04:43:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h9 h15 )_t * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_4.F index c5a5f5a02b..c3824cc258 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_4_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_4_4.F,v 1.1 2008-09-17 04:43:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytrat + = -2 * Sum ( p5 ) * t ( p5 h14 )_t * i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_4_1.F index ec2cb075e9..ff7947c2bc 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_4_4_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_4_4_1.F,v 1.1 2008-09-17 04:43:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = 1 * Sum ( p7 ) * tra ( p7 h15 )_tra * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_4_2.F index 51de0c5119..b0d11e9381 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_4_4_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_4_4_2.F,v 1.1 2008-09-17 04:43:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = -1 * Sum ( h9 p7 p8 ) * tra ( p7 p8 h9 h15 )_tra * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_5.F index bf371f0d75..312708a84c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_5(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_5.F,v 1.1 2008-09-17 04:43:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytrbtra + = 8 * Sum ( h7 p5 ) * tra ( p5 p12 h7 h15 )_tra * i3 ( h2 h7 h14 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_5_1.F index e715269ca6..549b90df5b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_5_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_5_1.F,v 1.1 2008-09-17 04:43:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h14 p5 )_ytrb + = 1 * Sum ( p3 ) * trb ( p3 h14 )_trb * y ( h2 h7 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_6.F index d0460d504c..653d587b4b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_6(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_6.F,v 1.1 2008-09-17 04:43:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytrbtra + = 2 * Sum ( h8 h9 p5 p6 ) * tra ( p5 p6 p12 h8 h9 h15 )_tra * i3 ( h2 h8 h9 h14 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_6_1.F index e497ecd5c3..bfa85a9aca 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_6_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_6_1.F,v 1.1 2008-09-17 04:43:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h14 p5 p6 )_ytrb + = 1 * Sum ( p3 ) * trb ( p3 h14 )_trb * y ( h2 h8 h9 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7.F index 52259335f1..a348b69280 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_7(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_7.F,v 1.1 2008-09-17 04:43:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytrbttra + = -2 * Sum ( p3 ) * tra ( p3 h14 )_tra * i3 ( h2 p12 h15 p3 )_ytrbt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7_1.F index 053573111a..5a80b04246 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_7_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_7_1.F,v 1.1 2008-09-17 04:43:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_ytrbt + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p12 h9 h10 )_t * i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7_1_1.F index 8684aa2af1..6e60d6e185 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_7_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_7_1_1.F,v 1.1 2008-09-17 04:43:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb + = -1 * Sum ( p5 ) * trb ( p5 h15 )_trb * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7_2.F index 87df4e3380..928c0789ba 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_7_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_7_2.F,v 1.1 2008-09-17 04:43:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_yttrb + = 1 * Sum ( h9 h10 p7 ) * trb ( p7 p12 h9 h10 )_trb * i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7_2_1.F index 4010c91409..1e899e4fcc 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_7_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_7_2_1.F,v 1.1 2008-09-17 04:43:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h15 )_t * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8.F index ce8a2e2aae..8889f7d858 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_8(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_8.F,v 1.1 2008-09-17 04:43:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytrbtrat + = -2 * Sum ( h4 ) * t ( p12 h4 )_t * i3 ( h2 h4 h14 h15 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_1.F index 280c25a816..dc5e156c32 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_8_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_8_1.F,v 1.1 2008-09-17 04:43:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytrbtra + = 1 * Sum ( p5 ) * tra ( p5 h14 )_tra * i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_1_1.F index 3f7840e7be..c60b3b4026 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_8_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_8_1_1.F,v 1.1 2008-09-17 04:43:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = 1 * Sum ( p7 ) * trb ( p7 h15 )_trb * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_1_2.F index 5b02ffa0ab..8385b4087f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_8_1_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_8_1_2.F,v 1.1 2008-09-17 04:43:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = -1 * Sum ( h9 p7 p8 ) * trb ( p7 p8 h9 h15 )_trb * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_2.F index e4a3d7ee31..8e2232626c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_8_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_8_2.F,v 1.1 2008-09-17 04:43:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytratrb + = 1 * Sum ( p5 ) * trb ( p5 h14 )_trb * i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_2_1.F index 69fc03683d..30f47e417d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_8_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_8_2_1.F,v 1.1 2008-09-17 04:43:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = 1 * Sum ( p7 ) * tra ( p7 h15 )_tra * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_2_2.F index ee31b20346..6f9857d344 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_8_2_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_8_2_2.F,v 1.1 2008-09-17 04:43:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = -1 * Sum ( h9 p7 p8 ) * tra ( p7 p8 h9 h15 )_tra * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9.F index 9c623182b5..29fe8db065 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_9(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_9.F,v 1.1 2008-09-17 04:43:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytratrbt + = -2 * Sum ( p3 ) * t ( p3 h14 )_t * i3 ( h2 p12 h15 p3 )_ytratrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9_1.F index 2d5dfa3c3f..511da063db 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_9_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_9_1.F,v 1.1 2008-09-17 04:43:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_ytratrb + = 1 * Sum ( h9 h10 p7 ) * trb ( p7 p12 h9 h10 )_trb * i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9_1_1.F index 32aee76708..3f41de01bc 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_9_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_9_1_1.F,v 1.1 2008-09-17 04:43:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra + = -1 * Sum ( p5 ) * tra ( p5 h15 )_tra * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9_2.F index 9b01ca9e41..a135725bd6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_9_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_9_2.F,v 1.1 2008-09-17 04:43:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_ytrbtra + = 1 * Sum ( h9 h10 p7 ) * tra ( p7 p12 h9 h10 )_tra * i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9_2_1.F index 46c274a015..31e696018a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_9_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_9_2_1.F,v 1.1 2008-09-17 04:43:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb + = -1 * Sum ( p5 ) * trb ( p5 h15 )_trb * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23.F index 237bacbc89..79548950e6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_23(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_23.F,v 1.1 2008-09-17 04:43:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrbttra + = -1/3 * tra ( p12 h14 )_tra * i2 ( p11 h15 )_ytrbt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_1.F index f9e141c07e..fa1e8508c9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_23_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_23_1.F,v 1.1 2008-09-17 04:43:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h15 )_ytrbt + = 1 * Sum ( h2 ) * t ( p11 h2 )_t * i3 ( h2 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_1_1.F index 2bffab1f49..3da1f99d06 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_23_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_23_1_1.F,v 1.1 2008-09-17 04:43:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytrb + = 1 * Sum ( h8 h9 p5 p6 p7 ) * trb ( p5 p6 p7 h8 h9 h15 )_trb * y ( h2 h8 h9 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_2.F index c0407ad6db..1af49e8f25 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_23_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_23_2.F,v 1.1 2008-09-17 04:43:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h15 )_yttrb + = 1 * Sum ( h2 ) * trb ( p11 h2 )_trb * i3 ( h2 h15 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_2_1.F index 40a6c9c397..fb8e1fa856 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_23_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_23_2_1.F,v 1.1 2008-09-17 04:43:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_yt + = 1 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h8 h9 h15 )_t * y ( h2 h8 h9 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24.F index 2c4e4f010f..76353e357a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_24(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_24.F,v 1.1 2008-09-17 04:43:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_yttrbtra + = -1/3 * tra ( p11 h15 )_tra * i2 ( p12 h14 )_yttrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_1.F index a32012b3d0..c9d8223f2e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_24_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_24_1.F,v 1.1 2008-09-17 04:43:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p12 h14 )_yttrb + = 1 * Sum ( h8 h9 h10 p5 p6 ) * trb ( p5 p6 p12 h8 h9 h10 )_trb * i3 ( h8 h9 h10 h14 p5 p6 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_1_1.F index a1602c2d8b..c917cbacb9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_24_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_24_1_1.F,v 1.1 2008-09-17 04:43:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h14 p5 p6 )_yt + = 1 * Sum ( p1 ) * t ( p1 h14 )_t * y ( h8 h9 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_2.F index 21b9cbce46..9083ddeaff 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_24_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_24_2.F,v 1.1 2008-09-17 04:43:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p12 h14 )_ytrbt + = 1 * Sum ( h8 h9 h10 p5 p6 ) * t ( p5 p6 p12 h8 h9 h10 )_t * i3 ( h8 h9 h10 h14 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_2_1.F index 6e258dd7dd..27ab0e4d2e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_24_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_24_2_1.F,v 1.1 2008-09-17 04:43:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h14 p5 p6 )_ytrb + = 1 * Sum ( p1 ) * trb ( p1 h14 )_trb * y ( h8 h9 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25.F index 05d4865100..bae20d9b44 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_25(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_25.F,v 1.1 2008-09-17 04:43:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_yttratrb + = -1/2 * Sum ( h10 ) * trb ( p12 h10 )_trb * i2 ( h10 p11 h14 h15 )_yttra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_1.F index d2e78cd316..fdd2086936 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_25_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_25_1.F,v 1.1 2008-09-17 04:43:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p11 h14 h15 )_yttra + = 1 * Sum ( p5 p6 ) * tra ( p5 p6 h14 h15 )_tra * i3 ( h10 p11 p5 p6 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_1_1.F index b4b4819ba9..542876d926 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_25_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_25_1_1.F,v 1.1 2008-09-17 04:43:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p11 p5 p6 )_yt + = 1 * Sum ( h3 h4 p1 ) * t ( p1 p11 h3 h4 )_t * y ( h3 h4 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_2.F index cc66d72104..7fdfc14fba 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_25_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_25_2.F,v 1.1 2008-09-17 04:43:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p11 h14 h15 )_yttra + = 4 * Sum ( h7 p5 ) * tra ( p5 p11 h7 h15 )_tra * i3 ( h7 h10 h14 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_2_1.F index 856a788f0d..cf8a704de7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_25_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_25_2_1.F,v 1.1 2008-09-17 04:43:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h14 p5 )_yt + = -1 * Sum ( h3 p1 p2 ) * t ( p1 p2 h3 h14 )_t * y ( h3 h7 h10 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_3.F index b10c62ce17..c173643d95 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_25_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_25_3.F,v 1.1 2008-09-17 04:43:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p11 h14 h15 )_ytrat + = 1 * Sum ( p5 p6 ) * t ( p5 p6 h14 h15 )_t * i3 ( h10 p11 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_3_1.F index 21ddf89fae..50f4f5a0ba 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_25_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_25_3_1.F,v 1.1 2008-09-17 04:43:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p11 p5 p6 )_ytra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p11 h3 h4 )_tra * y ( h3 h4 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_4.F index 608c91ce8a..464b153c18 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_25_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_25_4.F,v 1.1 2008-09-17 04:43:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p11 h14 h15 )_ytrat + = 4 * Sum ( h7 p5 ) * t ( p5 p11 h7 h15 )_t * i3 ( h7 h10 h14 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_4_1.F index 22dc47947d..50d0ea462a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_25_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_25_4_1.F,v 1.1 2008-09-17 04:43:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h14 p5 )_ytra + = -1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h14 )_tra * y ( h3 h7 h10 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26.F index 10fc7a2c54..b402fc34a4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_26(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_26.F,v 1.1 2008-09-17 04:43:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrbttra + = -2 * Sum ( h7 p5 ) * tra ( p5 p12 h7 h14 )_tra * i2 ( h7 p11 h15 p5 )_ytrbt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_1.F index 1c2c90e214..fe5f624d1d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_26_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_26_1.F,v 1.1 2008-09-17 04:43:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h15 p5 )_ytrbt + = 1 * Sum ( h3 h4 p1 ) * t ( p1 p11 h3 h4 )_t * i3 ( h3 h4 h7 h15 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_1_1.F index 7cefacefca..3cd8e2ee56 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_26_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_26_1_1.F,v 1.1 2008-09-17 04:43:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytrb + = -1 * Sum ( p9 ) * trb ( p9 h15 )_trb * y ( h3 h4 h7 p1 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_2.F index 2e4e4f493c..9aef267645 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_26_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_26_2.F,v 1.1 2008-09-17 04:43:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h15 p5 )_yttrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p11 h3 h4 )_trb * i3 ( h3 h4 h7 h15 p1 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_2_1.F index 9c55b9a2c4..800900a017 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_26_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_26_2_1.F,v 1.1 2008-09-17 04:43:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_yt + = -1 * Sum ( p9 ) * t ( p9 h15 )_t * y ( h3 h4 h7 p1 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27.F index cea163b91f..591b8bd398 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_27(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_27.F,v 1.1 2008-09-17 04:43:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrattrb + = -1 * trb ( p12 h15 )_trb * i2 ( p11 h14 )_ytrat diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_1.F index ad7e48141a..9c0496faa5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_27_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_27_1.F,v 1.1 2008-09-17 04:43:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h14 )_ytrat + = 1 * Sum ( h3 h4 p1 ) * t ( p1 p11 h3 h4 )_t * i3 ( h3 h4 h14 p1 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_1_1.F index 9708ee2d1a..23dcf1050f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_27_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_27_1_1.F,v 1.1 2008-09-17 04:43:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h14 p1 )_ytra + = 1 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h14 )_tra * y ( h3 h4 h7 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_2.F index 93496f98d0..2d31f51276 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_27_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_27_2.F,v 1.1 2008-09-17 04:43:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h14 )_yttra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p11 h3 h4 )_tra * i3 ( h3 h4 h14 p1 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_2_1.F index 84f61f8164..2230c8437a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_27_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_27_2_1.F,v 1.1 2008-09-17 04:43:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h14 p1 )_yt + = 1 * Sum ( h7 p5 p6 ) * t ( p5 p6 h7 h14 )_t * y ( h3 h4 h7 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28.F index be82e1d95c..eac6639189 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28.F,v 1.1 2008-09-17 04:43:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrattrb + = 1/2 * Sum ( h2 ) * trb ( p11 h2 )_trb * i2 ( h2 p12 h14 h15 )_ytrat diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1.F index 33359915c0..0b1b597acd 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_1.F,v 1.1 2008-09-17 04:43:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytrat + = 1 * Sum ( h4 ) * t ( p12 h4 )_t * i3 ( h2 h4 h14 h15 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_1.F index 81d7c2641c..81f878a875 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_1_1.F,v 1.1 2008-09-17 04:43:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytra + = -1 * Sum ( p5 p6 ) * tra ( p5 p6 h14 h15 )_tra * y ( h2 h4 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_2.F index 597b219c49..4f025a12bf 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_1_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_1_2.F,v 1.1 2008-09-17 04:43:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytra + = -1/3 * Sum ( h8 p5 p6 p7 ) * tra ( p5 p6 p7 h8 h14 h15 )_tra * y ( h2 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_3.F index 9d069fc805..14dd09243f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_1_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_1_3.F,v 1.1 2008-09-17 04:43:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytrat + = -2 * Sum ( p5 ) * t ( p5 h14 )_t * i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_3_1.F index 94e2f9cd93..1b410ac5e6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_1_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_1_3_1.F,v 1.1 2008-09-17 04:43:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = 1 * Sum ( p7 ) * tra ( p7 h15 )_tra * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_3_2.F index 7b344637eb..a4a1aa0ea9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_1_3_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_1_3_2.F,v 1.1 2008-09-17 04:43:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = -1 * Sum ( h9 p7 p8 ) * tra ( p7 p8 h9 h15 )_tra * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_4.F index 4d8f8706e3..bd51e10103 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_1_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_1_4.F,v 1.1 2008-09-17 04:43:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_yttra + = -2 * Sum ( p5 ) * tra ( p5 h14 )_tra * i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_4_1.F index c7bbd69baf..528d7c1035 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_1_4_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_1_4_1.F,v 1.1 2008-09-17 04:43:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h15 )_t * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_4_2.F index 3046b087a9..b240aae1fc 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_1_4_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_1_4_2.F,v 1.1 2008-09-17 04:43:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h9 h15 )_t * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_2.F index b1e62f64a4..390573956f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_2.F,v 1.1 2008-09-17 04:43:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_yttra + = 8 * Sum ( h7 p5 ) * tra ( p5 p12 h7 h15 )_tra * i3 ( h2 h7 h14 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_2_1.F index ee1d125852..da0bcadb27 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_2_1.F,v 1.1 2008-09-17 04:43:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h14 p5 )_yt + = 1 * Sum ( p3 ) * t ( p3 h14 )_t * y ( h2 h7 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_3.F index 54683e3169..fa8dd1b306 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_3.F,v 1.1 2008-09-17 04:43:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_yttra + = 2 * Sum ( h8 h9 p5 p6 ) * tra ( p5 p6 p12 h8 h9 h15 )_tra * i3 ( h2 h8 h9 h14 p5 p6 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_3_1.F index e61459d1eb..9e3db136e9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_3_1.F,v 1.1 2008-09-17 04:43:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h14 p5 p6 )_yt + = 1 * Sum ( p3 ) * t ( p3 h14 )_t * y ( h2 h8 h9 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4.F index 628e527f3a..da4b7a7853 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_4.F,v 1.1 2008-09-17 04:43:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_yttra + = 1 * Sum ( h4 ) * tra ( p12 h4 )_tra * i3 ( h2 h4 h14 h15 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_1.F index 172b70209d..91c969c6b6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_4_1.F,v 1.1 2008-09-17 04:43:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h14 h15 )_t * y ( h2 h4 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_2.F index da800980ca..c5490048a1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_4_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_4_2.F,v 1.1 2008-09-17 04:43:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_yt + = -1/3 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h8 h14 h15 )_t * y ( h2 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_3.F index 7c305f8e6f..ec82fe1346 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_4_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_4_3.F,v 1.1 2008-09-17 04:43:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytt + = -2 * Sum ( p5 ) * t ( p5 h14 )_t * i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_3_1.F index f58c5ae200..6921fe76ce 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_4_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_4_3_1.F,v 1.1 2008-09-17 04:43:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h15 )_t * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_3_2.F index 4db0ce0c27..429e00a0c0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_4_3_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_4_3_2.F,v 1.1 2008-09-17 04:43:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h9 h15 )_t * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_5.F index 6d7d503a8c..82f94e1748 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_5(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_5.F,v 1.1 2008-09-17 04:43:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytrat + = 8 * Sum ( h7 p5 ) * t ( p5 p12 h7 h15 )_t * i3 ( h2 h7 h14 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_5_1.F index b7a178a42a..3290f4cc3e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_5_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_5_1.F,v 1.1 2008-09-17 04:43:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h14 p5 )_ytra + = 1 * Sum ( p3 ) * tra ( p3 h14 )_tra * y ( h2 h7 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_6.F index 020a8d06e5..8f652fb044 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_6(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_6.F,v 1.1 2008-09-17 04:43:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytrat + = 2 * Sum ( h8 h9 p5 p6 ) * t ( p5 p6 p12 h8 h9 h15 )_t * i3 ( h2 h8 h9 h14 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_6_1.F index 09e7bcb5e8..6b1e95512b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_6_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_6_1.F,v 1.1 2008-09-17 04:43:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h14 p5 p6 )_ytra + = 1 * Sum ( p3 ) * tra ( p3 h14 )_tra * y ( h2 h8 h9 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7.F index 08f062bfaf..6c5d1c4f89 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_7(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_7.F,v 1.1 2008-09-17 04:43:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_yttrat + = -2 * Sum ( p3 ) * t ( p3 h14 )_t * i3 ( h2 p12 h15 p3 )_yttra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7_1.F index 9535f129a6..381ae581f0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_7_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_7_1.F,v 1.1 2008-09-17 04:43:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_yttra + = 1 * Sum ( h9 h10 p7 ) * tra ( p7 p12 h9 h10 )_tra * i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7_1_1.F index 836b95b6d6..a405308672 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_7_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_7_1_1.F,v 1.1 2008-09-17 04:43:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h15 )_t * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7_2.F index adafff28ed..b6b86da04e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_7_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_7_2.F,v 1.1 2008-09-17 04:43:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_ytrat + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p12 h9 h10 )_t * i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7_2_1.F index 460ce85333..6a43d47100 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_7_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_7_2_1.F,v 1.1 2008-09-17 04:43:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra + = -1 * Sum ( p5 ) * tra ( p5 h15 )_tra * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_8.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_8.F index e8414d1307..e7c5135ae0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_8.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_8(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_8.F,v 1.1 2008-09-17 04:43:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytttra + = -2 * Sum ( p3 ) * tra ( p3 h14 )_tra * i3 ( h2 p12 h15 p3 )_ytt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_8_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_8_1.F index 74793f13e1..175f67b043 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_8_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_8_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_8_1.F,v 1.1 2008-09-17 04:43:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_ytt + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p12 h9 h10 )_t * i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_8_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_8_1_1.F index f39499ff07..ba38584d73 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_8_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_8_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_8_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_8_1_1.F,v 1.1 2008-09-17 04:43:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h15 )_t * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29.F index cb013e5353..c653d03c94 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_29(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_29.F,v 1.1 2008-09-17 04:43:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytratrbt + = -1/3 * t ( p12 h14 )_t * i2 ( p11 h15 )_ytratrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_1.F index 8c81341bc2..ae6ed941f5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_29_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_29_1.F,v 1.1 2008-09-17 04:43:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h15 )_ytratrb + = 1 * Sum ( h2 ) * trb ( p11 h2 )_trb * i3 ( h2 h15 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_1_1.F index af35fe0258..bd4491579a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_29_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_29_1_1.F,v 1.1 2008-09-17 04:43:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytra + = 1 * Sum ( h8 h9 p5 p6 p7 ) * tra ( p5 p6 p7 h8 h9 h15 )_tra * y ( h2 h8 h9 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_2.F index bf94e09b6c..9911ed64c9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_29_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_29_2.F,v 1.1 2008-09-17 04:43:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h15 )_ytrbtra + = 1 * Sum ( h2 ) * tra ( p11 h2 )_tra * i3 ( h2 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_2_1.F index f142b91078..ab2583279d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_29_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_29_2_1.F,v 1.1 2008-09-17 04:43:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytrb + = 1 * Sum ( h8 h9 p5 p6 p7 ) * trb ( p5 p6 p7 h8 h9 h15 )_trb * y ( h2 h8 h9 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_1.F index 3aaead214d..6364a8258b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_2_1.F,v 1.1 2008-09-17 04:43:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h14 h15 )_ytrb + = 1 * Sum ( p5 p6 ) * trb ( p5 p6 h14 h15 )_trb * y ( h7 h8 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_2.F index 1b4da48396..6bce0f1f47 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_2_2.F,v 1.1 2008-09-17 04:43:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h14 h15 )_ytrb + = 1/3 * Sum ( h4 p1 p2 p3 ) * trb ( p1 p2 p3 h4 h14 h15 )_trb * y ( h4 h7 h8 p1 p2 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_3.F index d05bc1e81e..808ec910fc 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_2_3.F,v 1.1 2008-09-17 04:43:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h14 h15 )_yttrb + = 2 * Sum ( p9 ) * trb ( p9 h15 )_trb * i3 ( h7 h8 h14 p9 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_3_1.F index 316eba1dbc..4b12ecb012 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_2_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_2_3_1.F,v 1.1 2008-09-17 04:43:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h14 p9 )_yt + = 1 * Sum ( h3 p1 p2 ) * t ( p1 p2 h3 h14 )_t * y ( h3 h7 h8 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_4.F index 9e164d6e14..9411f90367 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_2_4.F,v 1.1 2008-09-17 04:43:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h14 h15 )_ytrbt + = 2 * Sum ( p9 ) * t ( p9 h15 )_t * i3 ( h7 h8 h14 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_4_1.F index 2735df3a0e..c4b2036cf8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_2_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_2_4_1.F,v 1.1 2008-09-17 04:43:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h14 p9 )_ytrb + = 1 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h14 )_trb * y ( h3 h7 h8 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_3.F index 789dbc45d5..e20329f3e4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_8_3.F,v 1.1 2008-09-17 04:43:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrbtra + = 1/2 * Sum ( h4 p1 p2 ) * tra ( p1 p2 p11 h4 h14 h15 )_tra * i2 ( h4 p12 p1 p2 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30.F index 0983645f05..dd6c947ec7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_30(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_30.F,v 1.1 2008-09-17 04:43:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrbtrat + = -1/3 * t ( p11 h15 )_t * i2 ( p12 h14 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_1.F index 9ed1d90de7..69e618874c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_30_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_30_1.F,v 1.1 2008-09-17 04:43:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p12 h14 )_ytrbtra + = 1 * Sum ( h8 h9 h10 p5 p6 ) * tra ( p5 p6 p12 h8 h9 h10 )_tra * i3 ( h8 h9 h10 h14 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_1_1.F index 1940c15611..e16d0db2f7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_30_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_30_1_1.F,v 1.1 2008-09-17 04:43:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h14 p5 p6 )_ytrb + = 1 * Sum ( p1 ) * trb ( p1 h14 )_trb * y ( h8 h9 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_2.F index 0a0a6860f2..2688bc220d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_30_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_30_2.F,v 1.1 2008-09-17 04:43:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p12 h14 )_ytratrb + = 1 * Sum ( h8 h9 h10 p5 p6 ) * trb ( p5 p6 p12 h8 h9 h10 )_trb * i3 ( h8 h9 h10 h14 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_2_1.F index 604745ff04..4a004b3610 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_30_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_30_2_1.F,v 1.1 2008-09-17 04:43:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h14 p5 p6 )_ytra + = 1 * Sum ( p1 ) * tra ( p1 h14 )_tra * y ( h8 h9 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31.F index 1cf4e3d739..4a06aac3c9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_31(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_31.F,v 1.1 2008-09-17 04:43:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrbttra + = -1/2 * Sum ( h10 ) * tra ( p12 h10 )_tra * i2 ( h10 p11 h14 h15 )_ytrbt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_1.F index 44af1c9813..167ed28699 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_31_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_31_1.F,v 1.1 2008-09-17 04:43:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p11 h14 h15 )_ytrbt + = 1 * Sum ( p5 p6 ) * t ( p5 p6 h14 h15 )_t * i3 ( h10 p11 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_1_1.F index e816c081ee..bfb10f8cc4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_31_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_31_1_1.F,v 1.1 2008-09-17 04:43:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p11 p5 p6 )_ytrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p11 h3 h4 )_trb * y ( h3 h4 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_2.F index 9b73674acc..d42b54721d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_31_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_31_2.F,v 1.1 2008-09-17 04:43:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p11 h14 h15 )_ytrbt + = 4 * Sum ( h7 p5 ) * t ( p5 p11 h7 h15 )_t * i3 ( h7 h10 h14 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_2_1.F index 2f3c0da72c..ac5ef2e198 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_31_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_31_2_1.F,v 1.1 2008-09-17 04:43:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h14 p5 )_ytrb + = -1 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h14 )_trb * y ( h3 h7 h10 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_3.F index 59a98ff574..a2ad1672ac 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_31_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_31_3.F,v 1.1 2008-09-17 04:43:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p11 h14 h15 )_yttrb + = 1 * Sum ( p5 p6 ) * trb ( p5 p6 h14 h15 )_trb * i3 ( h10 p11 p5 p6 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_3_1.F index 68fb4abde9..6ccb330828 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_31_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_31_3_1.F,v 1.1 2008-09-17 04:43:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p11 p5 p6 )_yt + = 1 * Sum ( h3 h4 p1 ) * t ( p1 p11 h3 h4 )_t * y ( h3 h4 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_4.F index 8ba84549ec..67216e3268 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_31_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_31_4.F,v 1.1 2008-09-17 04:43:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p11 h14 h15 )_yttrb + = 4 * Sum ( h7 p5 ) * trb ( p5 p11 h7 h15 )_trb * i3 ( h7 h10 h14 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_4_1.F index 7ff8986c58..4231b5b885 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_31_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_31_4_1.F,v 1.1 2008-09-17 04:43:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h14 p5 )_yt + = -1 * Sum ( h3 p1 p2 ) * t ( p1 p2 h3 h14 )_t * y ( h3 h7 h10 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32.F index 1204db69ea..bf7b28eb0c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_32(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_32.F,v 1.1 2008-09-17 04:43:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytratrbt + = -2 * Sum ( h7 p5 ) * t ( p5 p12 h7 h14 )_t * i2 ( h7 p11 h15 p5 )_ytratrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_1.F index 1d933c0194..323ad2f765 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_32_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_32_1.F,v 1.1 2008-09-17 04:43:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h15 p5 )_ytratrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p11 h3 h4 )_trb * i3 ( h3 h4 h7 h15 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_1_1.F index 9d24149447..09e7cb6fb7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_32_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_32_1_1.F,v 1.1 2008-09-17 04:43:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytra + = -1 * Sum ( p9 ) * tra ( p9 h15 )_tra * y ( h3 h4 h7 p1 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_2.F index fb0056bd25..33aaf74ccd 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_32_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_32_2.F,v 1.1 2008-09-17 04:43:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h15 p5 )_ytrbtra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p11 h3 h4 )_tra * i3 ( h3 h4 h7 h15 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_2_1.F index 603992536e..8433f938c8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_32_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_32_2_1.F,v 1.1 2008-09-17 04:43:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytrb + = -1 * Sum ( p9 ) * trb ( p9 h15 )_trb * y ( h3 h4 h7 p1 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33.F index 4ed06fccfc..3cc0b4e233 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_33(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_33.F,v 1.1 2008-09-17 04:43:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrbtrat + = -1/2 * Sum ( h7 h8 ) * t ( p11 p12 h7 h8 )_t * i2 ( h7 h8 h14 h15 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_1.F index 05d4d4b9e4..f9a966a49b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_33_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_33_1.F,v 1.1 2008-09-17 04:43:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h14 h15 )_ytrbtra + = 1 * Sum ( p9 ) * tra ( p9 h15 )_tra * i3 ( h7 h8 h14 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_1_1.F index 052519a3cd..c0317758b4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_33_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_33_1_1.F,v 1.1 2008-09-17 04:43:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h14 p9 )_ytrb + = 1 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h14 )_trb * y ( h3 h7 h8 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_2.F index 2c33a6135e..490346ada9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_33_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_33_2.F,v 1.1 2008-09-17 04:44:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h14 h15 )_ytratrb + = 1 * Sum ( p9 ) * trb ( p9 h15 )_trb * i3 ( h7 h8 h14 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_2_1.F index d669230719..48b75c8e9f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_33_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_33_2_1.F,v 1.1 2008-09-17 04:44:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h14 p9 )_ytra + = 1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h14 )_tra * y ( h3 h7 h8 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34.F index eb3b04579a..b38eef2ccd 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_34(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_34.F,v 1.1 2008-09-17 04:44:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_yttrbtra + = -1 * tra ( p12 h15 )_tra * i2 ( p11 h14 )_yttrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_1.F index e067f4ca6c..7fd776d47b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_34_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_34_1.F,v 1.1 2008-09-17 04:44:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h14 )_yttrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p11 h3 h4 )_trb * i3 ( h3 h4 h14 p1 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_1_1.F index 356983fd97..336c015abc 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_34_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_34_1_1.F,v 1.1 2008-09-17 04:44:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h14 p1 )_yt + = 1 * Sum ( h7 p5 p6 ) * t ( p5 p6 h7 h14 )_t * y ( h3 h4 h7 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_2.F index c40ffd6771..0489fea479 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_34_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_34_2.F,v 1.1 2008-09-17 04:44:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h14 )_ytrbt + = 1 * Sum ( h3 h4 p1 ) * t ( p1 p11 h3 h4 )_t * i3 ( h3 h4 h14 p1 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_2_1.F index 9d52d101e9..a0eb2dc2b9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_34_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_34_2_1.F,v 1.1 2008-09-17 04:44:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h14 p1 )_ytrb + = 1 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h14 )_trb * y ( h3 h4 h7 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_3_1.F index c0d6c12086..f250abd1a8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_3_1.F,v 1.1 2008-09-17 04:44:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p12 p1 p2 )_ytrb + = 1 * Sum ( h9 h10 p7 ) * trb ( p7 p12 h9 h10 )_trb * y ( h4 h9 h10 p1 p2 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4.F index d3919d72d8..772bdc3f8b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_8_4.F,v 1.1 2008-09-17 04:44:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytratrb + = -1/12 * Sum ( h7 h8 ) * trb ( p11 p12 h7 h8 )_trb * i2 ( h7 h8 h14 h15 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_1.F index c2d75b4161..444a522134 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_4_1.F,v 1.1 2008-09-17 04:44:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h14 h15 )_ytra + = 1 * Sum ( h4 p1 p2 p3 ) * tra ( p1 p2 p3 h4 h14 h15 )_tra * y ( h4 h7 h8 p1 p2 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_2.F index 5227da6784..7bf27edcec 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_4_2.F,v 1.1 2008-09-17 04:44:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h14 h15 )_ytra + = 3 * Sum ( p5 p6 ) * tra ( p5 p6 h14 h15 )_tra * y ( h7 h8 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_3.F index 5ece7fe121..7ab425dbac 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_4_3.F,v 1.1 2008-09-17 04:44:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h14 h15 )_ytrat + = 6 * Sum ( p9 ) * t ( p9 h15 )_t * i3 ( h7 h8 h14 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_3_1.F index 166353f2e0..9fee440a47 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_4_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_4_3_1.F,v 1.1 2008-09-17 04:44:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h14 p9 )_ytra + = 1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h14 )_tra * y ( h3 h7 h8 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_4.F index 912d553cdf..f01f5f33ba 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_4_4.F,v 1.1 2008-09-17 04:44:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h14 h15 )_yttra + = 6 * Sum ( p9 ) * tra ( p9 h15 )_tra * i3 ( h7 h8 h14 p9 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_4_1.F index 2476ab2870..f19cb5d464 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_4_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_4_4_1.F,v 1.1 2008-09-17 04:44:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h14 p9 )_yt + = 1 * Sum ( h3 p1 p2 ) * t ( p1 p2 h3 h14 )_t * y ( h3 h7 h8 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_5.F index 026e8b7b8a..879bbbcf26 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_8_5.F,v 1.1 2008-09-17 04:44:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytratrb + = -1 * Sum ( h9 p7 ) * trb ( p7 p12 h9 h15 )_trb * i2 ( h9 p11 h14 p7 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_5_1.F index a07d303193..2cc728cb21 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_5_1.F,v 1.1 2008-09-17 04:44:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p11 h14 p7 )_ytra + = 1 * Sum ( h4 h5 p1 p2 ) * tra ( p1 p2 p11 h4 h5 h14 )_tra * y ( h4 h5 h9 p1 p2 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_6.F index 8a92717f72..9fff1ee9a4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_8_6.F,v 1.1 2008-09-17 04:44:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytratrb + = 1/6 * Sum ( h9 ) * trb ( p11 p12 h9 h15 )_trb * i2 ( h9 h14 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_6_1.F index e1214cd456..da8dc87821 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_6_1.F,v 1.1 2008-09-17 04:44:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h14 )_ytra + = 1 * Sum ( h4 h5 p1 p2 p3 ) * tra ( p1 p2 p3 h4 h5 h14 )_tra * y ( h4 h5 h9 p1 p2 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7.F index 97cd42ac57..224805ea1b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_8_7.F,v 1.1 2008-09-17 04:44:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrbtra + = 1/12 * Sum ( h2 h13 h4 p6 ) * tra ( p6 p11 p12 h2 h4 h13 )_tra * i2 ( h2 h4 h13 h14 h15 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_1.F index f956950408..d432a1dacd 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_7_1.F,v 1.1 2008-09-17 04:44:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h13 h14 h15 p6 )_ytrb + = -1 * Sum ( p7 p8 ) * trb ( p7 p8 h14 h15 )_trb * y ( h2 h4 h13 p6 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_2.F index 2fe87d1cb6..c3e73e677f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_7_2.F,v 1.1 2008-09-17 04:44:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h13 h14 h15 p6 )_yttrb + = -2 * Sum ( p1 ) * trb ( p1 h14 )_trb * i3 ( h2 h4 h13 h15 p1 p6 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_2_1.F index c27bb17d92..2a557c0d2f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_7_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_7_2_1.F,v 1.1 2008-09-17 04:44:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h13 h15 p1 p6 )_yt + = 1 * Sum ( p3 ) * t ( p3 h15 )_t * y ( h2 h4 h13 p1 p3 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_3.F index 3d838d7411..ae150d7e1c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_7_3.F,v 1.1 2008-09-17 04:44:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h13 h14 h15 p6 )_ytrbt + = -2 * Sum ( p1 ) * t ( p1 h14 )_t * i3 ( h2 h4 h13 h15 p1 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_3_1.F index 07faf570f8..d3a7974c09 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_7_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_7_3_1.F,v 1.1 2008-09-17 04:44:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h13 h15 p1 p6 )_ytrb + = 1 * Sum ( p3 ) * trb ( p3 h15 )_trb * y ( h2 h4 h13 p1 p3 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_8.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_8.F index bbc929b6e7..6c7a765f0c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_8.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_8_8.F,v 1.1 2008-09-17 04:44:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytratrb + = 1/6 * Sum ( p7 ) * trb ( p7 p12 h14 h15 )_trb * i2 ( p11 p7 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_8_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_8_1.F index b7b4bdc495..c66a81d150 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_8_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_8_1.F,v 1.1 2008-09-17 04:44:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 p7 )_ytra + = 1 * Sum ( h4 h5 h6 p1 p2 ) * tra ( p1 p2 p11 h4 h5 h6 )_tra * y ( h4 h5 h6 p1 p2 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_9.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_9.F index 4ee2f90f7c..d6aa44902c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_9.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_9.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_8_9.F,v 1.1 2008-09-17 04:44:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytratrb + = 1 * Sum ( h4 h5 p1 ) * trb ( p1 p11 p12 h4 h5 h14 )_trb * i2 ( h4 h5 h15 p1 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_9_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_9_1.F index 07dfd9c214..551c286f22 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_9_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_9_1.F,v 1.1 2008-09-17 04:44:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h15 p1 )_ytra + = -1 * Sum ( p7 ) * tra ( p7 h15 )_tra * y ( h4 h5 p1 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_9_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_9_2.F index a39d1ab43a..cc75b3e18f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_9_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_9_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_9_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_9_2.F,v 1.1 2008-09-17 04:44:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h15 p1 )_ytra + = 1/2 * Sum ( h9 p7 p8 ) * tra ( p7 p8 h9 h15 )_tra * y ( h4 h5 h9 p1 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9.F index b5bdda7fc6..1154552370 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_2_9.F,v 1.1 2008-09-17 04:44:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytratrbv + = -1/4 * Sum ( p13 p11 h10 p9 ) * i1 ( p11 p13 h10 p9 )_ytratrb * v ( h10 p9 p11 p13 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_1.F index 57a269c599..faef2c28bb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_9_1.F,v 1.1 2008-09-17 04:44:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h10 p9 )_ytratrb + = 1 * Sum ( h8 ) * trb ( p11 h8 )_trb * i2 ( h8 p13 h10 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_10.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_10.F index d0705378e1..a6319e83f6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_10.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_10.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_10(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_9_10.F,v 1.1 2008-09-17 04:44:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h10 p9 )_ytrbtra + = 1/2 * Sum ( h7 h8 ) * tra ( p11 p13 h7 h8 )_tra * i2 ( h7 h8 h10 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_10_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_10_1.F index 29edeee0b3..25952d754d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_10_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_10_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_10_1.F,v 1.1 2008-09-17 04:44:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h10 p9 )_ytrb + = 1 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h10 )_trb * y ( h3 h7 h8 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11.F index 10157a63b8..bf5c723d1d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_11(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_9_11.F,v 1.1 2008-09-17 04:44:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h10 p9 )_yttrbtra + = 1 * Sum ( h2 ) * tra ( p13 h2 )_tra * i2 ( h2 p11 h10 p9 )_yttrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_1.F index 1526ed269e..0981579a99 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_11_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_11_1.F,v 1.1 2008-09-17 04:44:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h10 p9 )_yttrb + = 1 * Sum ( h4 ) * trb ( p11 h4 )_trb * i3 ( h2 h4 h10 p9 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_1_1.F index ab1d2793a5..70bafa4d12 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_11_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_11_1_1.F,v 1.1 2008-09-17 04:44:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p9 )_yt + = -1 * Sum ( h7 p5 p6 ) * t ( p5 p6 h7 h10 )_t * y ( h2 h4 h7 p5 p6 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_2.F index 86aa86b2d2..6879d66db8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_11_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_11_2.F,v 1.1 2008-09-17 04:44:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h10 p9 )_ytrbt + = 2 * Sum ( h7 h8 p5 ) * t ( p5 p11 h7 h8 )_t * i3 ( h2 h7 h8 h10 p5 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_2_1.F index 7751820a28..f29f7625de 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_11_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_11_2_1.F,v 1.1 2008-09-17 04:44:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h10 p5 p9 )_ytrb + = -1 * Sum ( p3 ) * trb ( p3 h10 )_trb * y ( h2 h7 h8 p3 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_3.F index fd728333bf..0839ea5fe9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_11_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_11_3.F,v 1.1 2008-09-17 04:44:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h10 p9 )_ytrbt + = 1 * Sum ( h4 ) * t ( p11 h4 )_t * i3 ( h2 h4 h10 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_3_1.F index 8501429d26..3d1cc0c866 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_11_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_11_3_1.F,v 1.1 2008-09-17 04:44:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p9 )_ytrb + = -1 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h10 )_trb * y ( h2 h4 h7 p5 p6 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_4.F index c79b503b75..aad9092283 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_11_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_11_4.F,v 1.1 2008-09-17 04:44:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h10 p9 )_yttrb + = 2 * Sum ( h7 h8 p5 ) * trb ( p5 p11 h7 h8 )_trb * i3 ( h2 h7 h8 h10 p5 p9 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_4_1.F index 446b3705cb..77d5c14d7f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_11_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_11_4_1.F,v 1.1 2008-09-17 04:44:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h10 p5 p9 )_yt + = -1 * Sum ( p3 ) * t ( p3 h10 )_t * y ( h2 h7 h8 p3 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12.F index be2a9b2152..7b57805252 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_12(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_9_12.F,v 1.1 2008-09-17 04:44:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h10 p9 )_ytrbtrat + = 1 * Sum ( h2 ) * t ( p13 h2 )_t * i2 ( h2 p11 h10 p9 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_1.F index 560ee3a90a..6f4ef3cef9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_12_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_12_1.F,v 1.1 2008-09-17 04:44:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h10 p9 )_ytrbtra + = 1 * Sum ( h4 ) * tra ( p11 h4 )_tra * i3 ( h2 h4 h10 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_1_1.F index a71e3e77ba..8f0d119be0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_12_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_12_1_1.F,v 1.1 2008-09-17 04:44:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p9 )_ytrb + = -1 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h10 )_trb * y ( h2 h4 h7 p5 p6 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_2.F index 145e1933dc..2e218a0736 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_12_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_12_2.F,v 1.1 2008-09-17 04:44:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h10 p9 )_ytratrb + = 2 * Sum ( h7 h8 p5 ) * trb ( p5 p11 h7 h8 )_trb * i3 ( h2 h7 h8 h10 p5 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_2_1.F index 5180947bb3..a7cdfd73df 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_12_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_12_2_1.F,v 1.1 2008-09-17 04:44:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h10 p5 p9 )_ytra + = -1 * Sum ( p3 ) * tra ( p3 h10 )_tra * y ( h2 h7 h8 p3 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_3.F index fc59880b9f..660602bbae 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_12_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_12_3.F,v 1.1 2008-09-17 04:44:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h10 p9 )_ytratrb + = 1 * Sum ( h4 ) * trb ( p11 h4 )_trb * i3 ( h2 h4 h10 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_3_1.F index 58fe07a677..a946aba66e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_12_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_12_3_1.F,v 1.1 2008-09-17 04:44:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p9 )_ytra + = -1 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h10 )_tra * y ( h2 h4 h7 p5 p6 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_4.F index 49990b224a..119f2a3f2b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_12_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_12_4.F,v 1.1 2008-09-17 04:44:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h10 p9 )_ytrbtra + = 2 * Sum ( h7 h8 p5 ) * tra ( p5 p11 h7 h8 )_tra * i3 ( h2 h7 h8 h10 p5 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_4_1.F index efcda5cb89..3c51b778cb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_12_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_12_4_1.F,v 1.1 2008-09-17 04:44:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h10 p5 p9 )_ytrb + = -1 * Sum ( p3 ) * trb ( p3 h10 )_trb * y ( h2 h7 h8 p3 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13.F index 0fbaa8162f..5ec3b33595 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_13(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_9_13.F,v 1.1 2008-09-17 04:44:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h10 p9 )_ytrattrb + = 1 * Sum ( h2 ) * trb ( p13 h2 )_trb * i2 ( h2 p11 h10 p9 )_ytrat diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_1.F index 8798c192ae..3afe313ab7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_13_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_13_1.F,v 1.1 2008-09-17 04:44:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h10 p9 )_ytrat + = 1 * Sum ( h4 ) * t ( p11 h4 )_t * i3 ( h2 h4 h10 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_1_1.F index 270f6f8091..bdc6856a1d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_13_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_13_1_1.F,v 1.1 2008-09-17 04:44:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p9 )_ytra + = -1 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h10 )_tra * y ( h2 h4 h7 p5 p6 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_2.F index 22ce8b7d3f..f1f874c895 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_13_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_13_2.F,v 1.1 2008-09-17 04:44:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h10 p9 )_yttra + = 2 * Sum ( h7 h8 p5 ) * tra ( p5 p11 h7 h8 )_tra * i3 ( h2 h7 h8 h10 p5 p9 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_2_1.F index 84193373d8..9263f2b1d0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_13_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_13_2_1.F,v 1.1 2008-09-17 04:44:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h10 p5 p9 )_yt + = -1 * Sum ( p3 ) * t ( p3 h10 )_t * y ( h2 h7 h8 p3 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_3.F index 3965cd5509..54d1687c86 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_13_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_13_3.F,v 1.1 2008-09-17 04:44:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h10 p9 )_yttra + = 1 * Sum ( h4 ) * tra ( p11 h4 )_tra * i3 ( h2 h4 h10 p9 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_3_1.F index 239b54b093..f800c4e663 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_13_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_13_3_1.F,v 1.1 2008-09-17 04:44:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p9 )_yt + = -1 * Sum ( h7 p5 p6 ) * t ( p5 p6 h7 h10 )_t * y ( h2 h4 h7 p5 p6 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_4.F index 8b2c6f9e5d..83e3c015db 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_13_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_13_4.F,v 1.1 2008-09-17 04:44:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h10 p9 )_ytrat + = 2 * Sum ( h7 h8 p5 ) * t ( p5 p11 h7 h8 )_t * i3 ( h2 h7 h8 h10 p5 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_4_1.F index 4873da96bc..0e5ef57339 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_13_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_13_4_1.F,v 1.1 2008-09-17 04:44:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h10 p5 p9 )_ytra + = -1 * Sum ( p3 ) * tra ( p3 h10 )_tra * y ( h2 h7 h8 p3 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_1_1.F index fa7f6fdf2b..025fcb5673 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_1_1.F,v 1.1 2008-09-17 04:44:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p13 h10 p9 )_ytra + = 1 * Sum ( h4 h5 p1 p2 ) * tra ( p1 p2 p13 h4 h5 h10 )_tra * y ( h4 h5 h8 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_2.F index bb380176ba..13599440d4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_9_2.F,v 1.1 2008-09-17 04:44:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h10 p9 )_ytrbtra + = -1/3 * Sum ( h4 h5 h6 p1 ) * tra ( p1 p11 p13 h4 h5 h6 )_tra * i2 ( h4 h5 h6 h10 p1 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_2_1.F index 95e5eb2706..35b4e868a7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_2_1.F,v 1.1 2008-09-17 04:44:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h6 h10 p1 p9 )_ytrb + = -1 * Sum ( p7 ) * trb ( p7 h10 )_trb * y ( h4 h5 h6 p1 p7 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_3.F index cd041411c4..10525f4428 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_9_3.F,v 1.1 2008-09-17 04:44:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h10 p9 )_ytratrb + = -1/3 * trb ( p11 h10 )_trb * i2 ( p13 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_3_1.F index e849fb8e34..a25af402e2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_3_1.F,v 1.1 2008-09-17 04:44:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 p9 )_ytra + = 1 * Sum ( h4 h5 h6 p1 p2 ) * tra ( p1 p2 p13 h4 h5 h6 )_tra * y ( h4 h5 h6 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_4.F index a1592095e3..ad71ef8f47 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_9_4.F,v 1.1 2008-09-17 04:44:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h10 p9 )_ytratrb + = -2 * Sum ( h7 p5 ) * trb ( p5 p11 h7 h10 )_trb * i2 ( h7 p13 p5 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_4_1.F index 08c10ab033..37bec89735 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_4_1.F,v 1.1 2008-09-17 04:44:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p13 p5 p9 )_ytra + = -1 * Sum ( h3 h4 p1 ) * tra ( p1 p13 h3 h4 )_tra * y ( h3 h4 h7 p1 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_5.F index fe6277967e..5db215cda3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_9_5.F,v 1.1 2008-09-17 04:44:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h10 p9 )_ytratrb + = 1/2 * Sum ( h7 h8 ) * trb ( p11 p13 h7 h8 )_trb * i2 ( h7 h8 h10 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_5_1.F index 8f5c3ef2c5..b2ebff3904 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_5_1.F,v 1.1 2008-09-17 04:44:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h10 p9 )_ytra + = 1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h10 )_tra * y ( h3 h7 h8 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_6.F index c3602ebfad..8aabd19656 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_9_6.F,v 1.1 2008-09-17 04:44:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h10 p9 )_ytrbtra + = 1 * Sum ( h8 ) * tra ( p11 h8 )_tra * i2 ( h8 p13 h10 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_6_1.F index 854bc351b1..3e5723e3c7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_6_1.F,v 1.1 2008-09-17 04:44:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p13 h10 p9 )_ytrb + = 1 * Sum ( h4 h5 p1 p2 ) * trb ( p1 p2 p13 h4 h5 h10 )_trb * y ( h4 h5 h8 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_7.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_7.F index 6fd6a02b26..a73376280e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_7.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_9_7.F,v 1.1 2008-09-17 04:44:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h10 p9 )_ytratrb + = -1/3 * Sum ( h4 h5 h6 p1 ) * trb ( p1 p11 p13 h4 h5 h6 )_trb * i2 ( h4 h5 h6 h10 p1 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_7_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_7_1.F index d66a02e53a..76f9d7f7e6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_7_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_7_1.F,v 1.1 2008-09-17 04:44:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h6 h10 p1 p9 )_ytra + = -1 * Sum ( p7 ) * tra ( p7 h10 )_tra * y ( h4 h5 h6 p1 p7 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_8.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_8.F index 0f87f4ec56..ebeccbec99 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_8.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_9_8.F,v 1.1 2008-09-17 04:44:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h10 p9 )_ytrbtra + = -1/3 * tra ( p11 h10 )_tra * i2 ( p13 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_8_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_8_1.F index f4fa47d783..25c957320d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_8_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_8_1.F,v 1.1 2008-09-17 04:44:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 p9 )_ytrb + = 1 * Sum ( h4 h5 h6 p1 p2 ) * trb ( p1 p2 p13 h4 h5 h6 )_trb * y ( h4 h5 h6 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_9.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_9.F index f7cfa7134b..c70b86a4a8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_9.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_9.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_9_9.F,v 1.1 2008-09-17 04:44:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h10 p9 )_ytrbtra + = -2 * Sum ( h7 p5 ) * tra ( p5 p11 h7 h10 )_tra * i2 ( h7 p13 p5 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_9_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_9_1.F index 5bbab8e74e..0b2ccba942 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_9_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_9_1.F,v 1.1 2008-09-17 04:44:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p13 p5 p9 )_ytrb + = -1 * Sum ( h3 h4 p1 ) * trb ( p1 p13 h3 h4 )_trb * y ( h3 h4 h7 p1 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3.F index cc3d0fd2a2..e2cfd8beae 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3.F @@ -2,7 +2,7 @@ &_trb2,d_trb3,d_y1,d_y2,d_y3,k_i0_offset,k_o1_offset,k_tra1_offset, &k_tra2_offset,k_tra3_offset,k_trb1_offset,k_trb2_offset,k_trb3_off &set,k_y1_offset,k_y2_offset,k_y3_offset) -C $Id: ccsdt_lr_beta_3.F,v 1.3 2008-09-17 19:23:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytrbtrao + = -1 * Sum ( p10 h9 ) * o ( h9 p10 )_o * i1 ( p10 h9 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1.F index 5f7baf81bb..36a75583be 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_3_1.F,v 1.1 2008-09-17 04:44:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytrbtrao + = -1 * Sum ( p10 h9 ) * o ( h9 p10 )_o * i1 ( p10 h9 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1.F index 15cd6b81ad..da71de44cd 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_3_1_1.F,v 1.1 2008-09-17 04:44:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytrbtra + = 1 * Sum ( h2 ) * tra ( p10 h2 )_tra * i2 ( h2 h9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1_1.F index 375cd75df2..def459e8e1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_3_1_1_1.F,v 1.1 2008-09-17 04:44:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h9 )_ytrb + = 1 * Sum ( p3 ) * trb ( p3 h9 )_trb * y ( h2 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1_2.F index fda71e9cac..82eb5599cf 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_3_1_1_2.F,v 1.1 2008-09-17 04:44:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h9 )_ytrb + = -1/2 * Sum ( h5 p3 p4 ) * trb ( p3 p4 h5 h9 )_trb * y ( h2 h5 p3 p4 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1_3.F index 5c92c7c8ff..cff667bdf4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_3_1_1_3.F,v 1.1 2008-09-17 04:44:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h9 )_ytrb + = 1/12 * Sum ( h6 h7 p3 p4 p5 ) * trb ( p3 p4 p5 h6 h7 h9 )_trb * y ( h2 h6 h7 p3 p4 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2.F index f176cc61d6..36bb570797 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_3_1_2.F,v 1.1 2008-09-17 04:44:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytratrb + = -1/2 * Sum ( h8 ) * trb ( p10 h8 )_trb * i2 ( h8 h9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2_1.F index b266be6480..18821197b4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_3_1_2_1.F,v 1.1 2008-09-17 04:44:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_ytra + = -1 * Sum ( h5 p3 p4 ) * tra ( p3 p4 h5 h9 )_tra * y ( h5 h8 p3 p4 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2_2.F index 3174c3100d..00ee7857e8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_3_1_2_2.F,v 1.1 2008-09-17 04:44:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_ytra + = -1/6 * Sum ( h6 h7 p3 p4 p5 ) * tra ( p3 p4 p5 h6 h7 h9 )_tra * y ( h6 h7 h8 p3 p4 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2_3.F index 5b98e080c8..542405579a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_3_1_2_3.F,v 1.1 2008-09-17 04:44:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_ytra + = -2 * Sum ( p3 ) * tra ( p3 h9 )_tra * y ( h8 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_3.F index f935a5ed62..d65240c53f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_3_1_3.F,v 1.1 2008-09-17 04:44:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytrbtra + = -1/2 * Sum ( h1 h3 p2 ) * tra ( p2 p10 h1 h3 )_tra * i2 ( h1 h3 h9 p2 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_3_1.F index 5197014df4..2ed5b1c9c3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_3_1_3_1.F,v 1.1 2008-09-17 04:44:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h9 p2 )_ytrb + = -1 * Sum ( p6 ) * trb ( p6 h9 )_trb * y ( h1 h3 p2 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_3_2.F index 0a90c4b82e..02700624a6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_3_1_3_2.F,v 1.1 2008-09-17 04:44:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h9 p2 )_ytrb + = 1/2 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h9 )_trb * y ( h1 h3 h7 p2 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_4.F index f63fd36ead..b9cb1d0cd6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_3_1_4.F,v 1.1 2008-09-17 04:44:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytrbtra + = 1/12 * Sum ( h5 h6 h7 p3 p4 ) * tra ( p3 p4 p10 h5 h6 h7 )_tra * i2 ( h5 h6 h7 h9 p3 p4 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_4_1.F index c8a27c7191..228575b9e1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_3_1_4_1.F,v 1.1 2008-09-17 04:44:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h7 h9 p3 p4 )_ytrb + = 1 * Sum ( p8 ) * trb ( p8 h9 )_trb * y ( h5 h6 h7 p3 p4 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_5.F index 918a3c608e..8dc79b50ba 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_3_1_5.F,v 1.1 2008-09-17 04:44:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytratrb + = -1/2 * Sum ( h1 h3 p2 ) * trb ( p2 p10 h1 h3 )_trb * i2 ( h1 h3 h9 p2 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_5_1.F index 746e1ca0f5..fab71c06ac 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_3_1_5_1.F,v 1.1 2008-09-17 04:44:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h9 p2 )_ytra + = -1 * Sum ( p6 ) * tra ( p6 h9 )_tra * y ( h1 h3 p2 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_5_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_5_2.F index 563df96dd4..6932ca0b71 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_5_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_3_1_5_2.F,v 1.1 2008-09-17 04:44:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h9 p2 )_ytra + = 1/2 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h9 )_tra * y ( h1 h3 h7 p2 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_6.F index aaeeb7b709..118a2e51b3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_3_1_6.F,v 1.1 2008-09-17 04:44:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytratrb + = 1/12 * Sum ( h5 h6 h7 p3 p4 ) * trb ( p3 p4 p10 h5 h6 h7 )_trb * i2 ( h5 h6 h7 h9 p3 p4 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_6_1.F index 9f85fbb737..f26a8ac7ae 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_3_1_6_1.F,v 1.1 2008-09-17 04:44:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h7 h9 p3 p4 )_ytra + = 1 * Sum ( p8 ) * tra ( p8 h9 )_tra * y ( h5 h6 h7 p3 p4 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4.F index b3847b91dc..debf63fbf5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4.F @@ -4,7 +4,7 @@ &fset,k_trb1_offset,k_trb2_offset,k_trb3_offset,k_trc1_offset,k_trc &2_offset,k_trc3_offset,k_v2_offset,k_y1_offset,k_y2_offset,k_y3_of &fset) -C $Id: ccsdt_lr_beta_4.F,v 1.3 2008-09-17 19:23:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vtrctratrby + = -1 * Sum ( p3 h2 ) * y ( h2 p3 )_y * i1 ( p3 h2 )_vtrctratrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1.F index 3ac2edacf4..ffecee7312 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_4_1.F,v 1.1 2008-09-17 04:44:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vtrctratrby + = -1 * Sum ( p3 h2 ) * y ( h2 p3 )_y * i1 ( p3 h2 )_vtrctratrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1.F index c3fe45ec4f..9d657dc84c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_1_1.F,v 1.1 2008-09-17 04:44:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h2 )_vtrctratrb + = 1 * Sum ( h4 ) * trb ( p3 h4 )_trb * i2 ( h4 h2 )_vtrctra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_1.F index c88eb1d318..8e170eab14 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_1_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_1_1_1.F,v 1.1 2008-09-17 04:44:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h2 )_vtrctra + = 1 * Sum ( p1 ) * tra ( p1 h2 )_tra * i3 ( h4 p1 )_vtrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_1_1.F index 6ad10ddd03..8d8ed29b8a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_1_1_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_1_1_1_1.F,v 1.1 2008-09-17 04:44:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p1 )_vtrc + = 1 * Sum ( h6 p5 ) * trc ( p5 h6 )_trc * v ( h4 h6 p1 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_2.F index 171b893059..6094bbd547 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_1_1_2.F,v 1.1 2008-09-17 04:44:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h2 )_vtratrc + = 1 * Sum ( p1 ) * trc ( p1 h2 )_trc * i3 ( h4 p1 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_2_1.F index 4dc06319da..b30360f1b7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_1_1_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_1_1_2_1.F,v 1.1 2008-09-17 04:44:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p1 )_vtra + = 1 * Sum ( h6 p5 ) * tra ( p5 h6 )_tra * v ( h4 h6 p1 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2.F index f00f10b59f..4f08ea2c8f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_1_2.F,v 1.1 2008-09-17 04:44:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h2 )_vtrbtrctra + = 1 * Sum ( h4 ) * tra ( p3 h4 )_tra * i2 ( h4 h2 )_vtrbtrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_1.F index 7ed8f0d1f7..640afc8054 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_1_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_1_2_1.F,v 1.1 2008-09-17 04:44:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h2 )_vtrbtrc + = 1 * Sum ( p1 ) * trc ( p1 h2 )_trc * i3 ( h4 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_1_1.F index 890678a78f..d6125b0ae4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_1_2_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_1_2_1_1.F,v 1.1 2008-09-17 04:44:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p1 )_vtrb + = 1 * Sum ( h6 p5 ) * trb ( p5 h6 )_trb * v ( h4 h6 p1 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_2.F index ca1d3e0695..8286f2d4ec 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_1_2_2.F,v 1.1 2008-09-17 04:44:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h2 )_vtrctrb + = 1 * Sum ( p1 ) * trb ( p1 h2 )_trb * i3 ( h4 p1 )_vtrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_2_1.F index b7243d4fa3..d98f21f392 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_1_2_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_1_2_2_1.F,v 1.1 2008-09-17 04:44:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p1 )_vtrc + = 1 * Sum ( h6 p5 ) * trc ( p5 h6 )_trc * v ( h4 h6 p1 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3.F index 96e89242e3..31c4e83bda 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_1_3.F,v 1.1 2008-09-17 04:44:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h2 )_vtratrbtrc + = 1 * Sum ( h4 ) * trc ( p3 h4 )_trc * i2 ( h4 h2 )_vtratrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_1.F index f36d021a04..614c9ce757 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_1_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_1_3_1.F,v 1.1 2008-09-17 04:44:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h2 )_vtratrb + = 1 * Sum ( p1 ) * trb ( p1 h2 )_trb * i3 ( h4 p1 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_1_1.F index 0450f1b618..9093626cc9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_1_3_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_1_3_1_1.F,v 1.1 2008-09-17 04:44:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p1 )_vtra + = 1 * Sum ( h6 p5 ) * tra ( p5 h6 )_tra * v ( h4 h6 p1 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_2.F index 8ec8064ed9..e85a51890e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_1_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_1_3_2.F,v 1.1 2008-09-17 04:44:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h2 )_vtrbtra + = 1 * Sum ( p1 ) * tra ( p1 h2 )_tra * i3 ( h4 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_2_1.F index 86f26c5ddb..257172b158 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_1_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_1_3_2_1.F,v 1.1 2008-09-17 04:44:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p1 )_vtrb + = 1 * Sum ( h6 p5 ) * trb ( p5 h6 )_trb * v ( h4 h6 p1 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2.F index 7116dccd2e..e532b78d42 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_4_2.F,v 1.1 2008-09-17 04:44:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytrctrbtrav + = 1/2 * Sum ( h4 p11 h12 h10 ) * i1 ( h4 p11 h10 h12 )_ytrctrbtra * v ( h10 h12 h4 p11 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1.F index 01e8a3ea22..867f1efde5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_2_1.F,v 1.1 2008-09-17 04:44:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p11 h10 h12 )_ytrctrbtra + = 1 * Sum ( h2 ) * tra ( p11 h2 )_tra * i2 ( h2 h4 h10 h12 )_ytrctrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_1.F index 4d69ad12bf..3759b9bfff 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_1_1.F,v 1.1 2008-09-17 04:44:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h10 h12 )_ytrctrb + = 1 * Sum ( p3 ) * trb ( p3 h12 )_trb * i3 ( h2 h4 h10 p3 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_1_1.F index 2fe010a7ca..53ce2203ce 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_1_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_1_1_1.F,v 1.1 2008-09-17 04:44:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytrc + = 1 * Sum ( p5 ) * trc ( p5 h10 )_trc * y ( h2 h4 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_1_2.F index c24136e773..78fd249eba 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_1_1_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_1_1_2.F,v 1.1 2008-09-17 04:44:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytrc + = -1 * Sum ( h7 p5 p6 ) * trc ( p5 p6 h7 h10 )_trc * y ( h2 h4 h7 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_2.F index fd7f632fbb..2a6bb666bc 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_1_2.F,v 1.1 2008-09-17 04:44:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h10 h12 )_ytrbtrc + = 1 * Sum ( p3 ) * trc ( p3 h12 )_trc * i3 ( h2 h4 h10 p3 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_2_1.F index 72aadee1f4..b0d138b297 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_1_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_1_2_1.F,v 1.1 2008-09-17 04:44:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytrb + = 1 * Sum ( p5 ) * trb ( p5 h10 )_trb * y ( h2 h4 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_2_2.F index 2dbb12c185..f1d3ec3035 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_1_2_2.F,v 1.1 2008-09-17 04:44:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytrb + = -1 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h10 )_trb * y ( h2 h4 h7 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2.F index 84fa830fb8..3b852621bf 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_2_2.F,v 1.1 2008-09-17 04:44:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p11 h10 h12 )_ytrbtrctra + = -1/2 * Sum ( p1 ) * tra ( p1 h12 )_tra * i2 ( h4 p11 h10 p1 )_ytrbtrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_1.F index fcbf9ac9ef..a494af258f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_2_1.F,v 1.1 2008-09-17 04:44:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p11 h10 p1 )_ytrbtrc + = 1 * Sum ( h7 h8 p5 ) * trc ( p5 p11 h7 h8 )_trc * i3 ( h4 h7 h8 h10 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_1_1.F index 744ed5e0a8..309fd3c418 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_2_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_2_1_1.F,v 1.1 2008-09-17 04:44:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h8 h10 p1 p5 )_ytrb + = -1 * Sum ( p3 ) * trb ( p3 h10 )_trb * y ( h4 h7 h8 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_2.F index 88022420cc..cc50d0659e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_2_2.F,v 1.1 2008-09-17 04:44:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p11 h10 p1 )_ytrctrb + = 1 * Sum ( h7 h8 p5 ) * trb ( p5 p11 h7 h8 )_trb * i3 ( h4 h7 h8 h10 p1 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_2_1.F index 55fe307dd4..f1d5b4c49d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_2_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_2_2_1.F,v 1.1 2008-09-17 04:44:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h8 h10 p1 p5 )_ytrc + = -1 * Sum ( p3 ) * trc ( p3 h10 )_trc * y ( h4 h7 h8 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3.F index af600ccfba..b9d6f4d795 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_2_3.F,v 1.1 2008-09-17 04:44:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p11 h10 h12 )_ytrbtratrc + = 1 * Sum ( h2 ) * trc ( p11 h2 )_trc * i2 ( h2 h4 h10 h12 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_1.F index e145679338..e8cf7f89dd 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_3_1.F,v 1.1 2008-09-17 04:44:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h10 h12 )_ytrbtra + = 1 * Sum ( p3 ) * tra ( p3 h12 )_tra * i3 ( h2 h4 h10 p3 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_1_1.F index 73ecb80978..237c7ac600 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_3_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_3_1_1.F,v 1.1 2008-09-17 04:44:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytrb + = 1 * Sum ( p5 ) * trb ( p5 h10 )_trb * y ( h2 h4 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_1_2.F index a2317798bf..753996bea8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_3_1_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_3_1_2.F,v 1.1 2008-09-17 04:44:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytrb + = -1 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h10 )_trb * y ( h2 h4 h7 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_2.F index cc06e9f5d5..6fad74c324 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_3_2.F,v 1.1 2008-09-17 04:44:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h10 h12 )_ytratrb + = 1 * Sum ( p3 ) * trb ( p3 h12 )_trb * i3 ( h2 h4 h10 p3 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_2_1.F index aa015216ed..3dc44a4a8b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_3_2_1.F,v 1.1 2008-09-17 04:44:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytra + = 1 * Sum ( p5 ) * tra ( p5 h10 )_tra * y ( h2 h4 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_2_2.F index a0be4c8468..e8965b6e84 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_3_2_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_3_2_2.F,v 1.1 2008-09-17 04:44:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytra + = -1 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h10 )_tra * y ( h2 h4 h7 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4.F index c8aa3c38ce..b30c5c4185 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_2_4.F,v 1.1 2008-09-17 04:44:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p11 h10 h12 )_ytratrbtrc + = -1/2 * Sum ( p1 ) * trc ( p1 h12 )_trc * i2 ( h4 p11 h10 p1 )_ytratrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_1.F index eada4bb6a6..96ef081b9b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_4_1.F,v 1.1 2008-09-17 04:44:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p11 h10 p1 )_ytratrb + = 1 * Sum ( h7 h8 p5 ) * trb ( p5 p11 h7 h8 )_trb * i3 ( h4 h7 h8 h10 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_1_1.F index 461d221b11..ea1a82066a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_4_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_4_1_1.F,v 1.1 2008-09-17 04:44:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h8 h10 p1 p5 )_ytra + = -1 * Sum ( p3 ) * tra ( p3 h10 )_tra * y ( h4 h7 h8 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_2.F index 2bb25e63f0..1793ec11b2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_4_2.F,v 1.1 2008-09-17 04:44:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p11 h10 p1 )_ytrbtra + = 1 * Sum ( h7 h8 p5 ) * tra ( p5 p11 h7 h8 )_tra * i3 ( h4 h7 h8 h10 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_2_1.F index 8862633b83..492c2c1618 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_4_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_4_2_1.F,v 1.1 2008-09-17 04:44:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h8 h10 p1 p5 )_ytrb + = -1 * Sum ( p3 ) * trb ( p3 h10 )_trb * y ( h4 h7 h8 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5.F index 99abe1a221..30c0dc70c3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_2_5.F,v 1.1 2008-09-17 04:44:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p11 h10 h12 )_ytratrctrb + = 1 * Sum ( h2 ) * trb ( p11 h2 )_trb * i2 ( h2 h4 h10 h12 )_ytratrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_1.F index 94a3387711..0e092cb9a3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_5_1.F,v 1.1 2008-09-17 04:44:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h10 h12 )_ytratrc + = 1 * Sum ( p3 ) * trc ( p3 h12 )_trc * i3 ( h2 h4 h10 p3 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_1_1.F index e518134cea..0432119d0f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_5_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_5_1_1.F,v 1.1 2008-09-17 04:44:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytra + = 1 * Sum ( p5 ) * tra ( p5 h10 )_tra * y ( h2 h4 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_1_2.F index 911690897a..046d199ff2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_5_1_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_5_1_2.F,v 1.1 2008-09-17 04:44:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytra + = -1 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h10 )_tra * y ( h2 h4 h7 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_2.F index 1e479513e8..3cf409372f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_5_2.F,v 1.1 2008-09-17 04:44:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h10 h12 )_ytrctra + = 1 * Sum ( p3 ) * tra ( p3 h12 )_tra * i3 ( h2 h4 h10 p3 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_2_1.F index e9e533e9a2..dc8d08b77f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_5_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_5_2_1.F,v 1.1 2008-09-17 04:44:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytrc + = 1 * Sum ( p5 ) * trc ( p5 h10 )_trc * y ( h2 h4 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_2_2.F index d93daa1b10..89601d2713 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_5_2_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_5_2_2.F,v 1.1 2008-09-17 04:44:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytrc + = -1 * Sum ( h7 p5 p6 ) * trc ( p5 p6 h7 h10 )_trc * y ( h2 h4 h7 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6.F index d259e3c4b4..4fc3b0529d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_2_6.F,v 1.1 2008-09-17 04:44:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p11 h10 h12 )_ytrctratrb + = -1/2 * Sum ( p1 ) * trb ( p1 h12 )_trb * i2 ( h4 p11 h10 p1 )_ytrctra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_1.F index 10c75f5279..9f672424b5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_6_1.F,v 1.1 2008-09-17 04:44:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p11 h10 p1 )_ytrctra + = 1 * Sum ( h7 h8 p5 ) * tra ( p5 p11 h7 h8 )_tra * i3 ( h4 h7 h8 h10 p1 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_1_1.F index 2330a99ec3..b6a6fc9ca2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_6_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_6_1_1.F,v 1.1 2008-09-17 04:44:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h8 h10 p1 p5 )_ytrc + = -1 * Sum ( p3 ) * trc ( p3 h10 )_trc * y ( h4 h7 h8 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_2.F index 90f7ada7a2..97c6399d11 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_6_2.F,v 1.1 2008-09-17 04:44:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p11 h10 p1 )_ytratrc + = 1 * Sum ( h7 h8 p5 ) * trc ( p5 p11 h7 h8 )_trc * i3 ( h4 h7 h8 h10 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_2_1.F index 3e81801022..0d8eecdfbf 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_6_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_6_2_1.F,v 1.1 2008-09-17 04:44:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h8 h10 p1 p5 )_ytra + = -1 * Sum ( p3 ) * tra ( p3 h10 )_tra * y ( h4 h7 h8 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3.F index 140d9bc6d6..719f833ad5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_4_3.F,v 1.1 2008-09-17 04:44:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vtrbtratrcy + = 1/2 * Sum ( p11 p12 h9 h10 ) * y ( h9 h10 p11 p12 )_y * i1 ( p11 p12 h9 h10 )_vtrbtratrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1.F index bd756fb5e8..5511ffe17d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_3_1.F,v 1.1 2008-09-17 04:44:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h9 h10 )_vtrbtratrc + = 1 * Sum ( h2 ) * trc ( p11 h2 )_trc * i2 ( h2 p12 h9 h10 )_vtrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_1.F index 207cd0c6c2..065306d8b1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_1_1.F,v 1.1 2008-09-17 04:44:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtrbtra + = 1 * Sum ( p1 ) * tra ( p1 h9 )_tra * i3 ( h2 p12 h10 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_1_1.F index 23bdc29f7c..4ba4977373 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_1_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_1_1_1.F,v 1.1 2008-09-17 04:44:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h10 p1 )_vtrb + = -1 * Sum ( p3 ) * trb ( p3 h10 )_trb * v ( h2 p12 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_2.F index 9750b48545..4f4f12f0d5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_1_2.F,v 1.1 2008-09-17 04:44:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtrbtra + = -1/4 * Sum ( h4 ) * tra ( p12 h4 )_tra * i3 ( h2 h4 h9 h10 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_2_1.F index ab7875ba28..bb6a7e6c62 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_1_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_1_2_1.F,v 1.1 2008-09-17 04:44:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h9 h10 )_vtrb + = -1 * Sum ( p5 p6 ) * trb ( p5 p6 h9 h10 )_trb * v ( h2 h4 p5 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_3.F index e70525138c..6cfb1d1167 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_1_3.F,v 1.1 2008-09-17 04:44:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtratrb + = 1 * Sum ( p6 ) * trb ( p6 p12 h9 h10 )_trb * i3 ( h2 p6 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_3_1.F index 7b2d9418a7..b7dca861b9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_1_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_1_3_1.F,v 1.1 2008-09-17 04:44:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p6 )_vtra + = 1 * Sum ( h4 p3 ) * tra ( p3 h4 )_tra * v ( h2 h4 p3 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_4.F index 7b72e69b04..922f386288 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_1_4.F,v 1.1 2008-09-17 04:44:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtratrb + = 1 * Sum ( p1 ) * trb ( p1 h9 )_trb * i3 ( h2 p12 h10 p1 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_4_1.F index c8b5f932e5..f8835dd32e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_1_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_1_4_1.F,v 1.1 2008-09-17 04:44:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h10 p1 )_vtra + = -1 * Sum ( p3 ) * tra ( p3 h10 )_tra * v ( h2 p12 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_5.F index a50de34393..35f6c17de1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_1_5(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_1_5.F,v 1.1 2008-09-17 04:44:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtratrb + = -1/4 * Sum ( h4 ) * trb ( p12 h4 )_trb * i3 ( h2 h4 h9 h10 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_5_1.F index 81b9afcc8a..1ccb1239eb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_1_5_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_1_5_1.F,v 1.1 2008-09-17 04:44:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h9 h10 )_vtra + = -1 * Sum ( p5 p6 ) * tra ( p5 p6 h9 h10 )_tra * v ( h2 h4 p5 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_6.F index 6d5e1b7709..d64e99118d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_1_6(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_1_6.F,v 1.1 2008-09-17 04:44:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtrbtra + = 1 * Sum ( p6 ) * tra ( p6 p12 h9 h10 )_tra * i3 ( h2 p6 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_6_1.F index af652ab406..ae848494a3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_1_6_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_1_6_1.F,v 1.1 2008-09-17 04:44:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p6 )_vtrb + = 1 * Sum ( h4 p3 ) * trb ( p3 h4 )_trb * v ( h2 h4 p3 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2.F index 85303fb085..e4091f2e2d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_3_2.F,v 1.1 2008-09-17 04:44:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h9 h10 )_vtrbtratrc + = 1 * Sum ( h8 ) * trc ( p11 p12 h8 h10 )_trc * i2 ( h8 h9 )_vtrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_1.F index 81cfc044aa..da4cbde5b1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_2_1.F,v 1.1 2008-09-17 04:44:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_vtrbtra + = 1 * Sum ( p1 ) * tra ( p1 h9 )_tra * i3 ( h8 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_1_1.F index fc791afc97..acc9aa6b58 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_2_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_2_1_1.F,v 1.1 2008-09-17 04:44:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtrb + = 1 * Sum ( h4 p3 ) * trb ( p3 h4 )_trb * v ( h4 h8 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_2.F index 2794bbc65c..9510a252c4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_2_2.F,v 1.1 2008-09-17 04:44:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_vtratrb + = 1 * Sum ( p1 ) * trb ( p1 h9 )_trb * i3 ( h8 p1 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_2_1.F index df723afb36..5f290cce92 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_2_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_2_2_1.F,v 1.1 2008-09-17 04:44:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtra + = 1 * Sum ( h4 p3 ) * tra ( p3 h4 )_tra * v ( h4 h8 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3.F index 1406e23b70..9e793fea9d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_3_3.F,v 1.1 2008-09-17 04:44:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h9 h10 )_vtrctrbtra + = -1/4 * Sum ( h2 ) * tra ( p11 h2 )_tra * i2 ( h2 p12 h9 h10 )_vtrctrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_1.F index 6fe1ab5f39..84e0293801 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_3_1.F,v 1.1 2008-09-17 04:44:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtrctrb + = 1 * Sum ( h4 ) * trb ( p12 h4 )_trb * i3 ( h2 h4 h9 h10 )_vtrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_1_1.F index 3dadd41583..93b925dc89 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_3_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_3_1_1.F,v 1.1 2008-09-17 04:44:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h9 h10 )_vtrc + = -1 * Sum ( p5 p6 ) * trc ( p5 p6 h9 h10 )_trc * v ( h2 h4 p5 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_2.F index 9b40398db8..9caa515b77 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_3_2.F,v 1.1 2008-09-17 04:44:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtrbtrc + = -4 * Sum ( p6 ) * trc ( p6 p12 h9 h10 )_trc * i3 ( h2 p6 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_2_1.F index 01059ca233..b971a25c48 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_3_2_1.F,v 1.1 2008-09-17 04:44:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p6 )_vtrb + = 1 * Sum ( h4 p3 ) * trb ( p3 h4 )_trb * v ( h2 h4 p3 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_3.F index 1e12898d1b..e7b29d874f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_3_3.F,v 1.1 2008-09-17 04:45:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtrctrb + = -4 * Sum ( p1 ) * trb ( p1 h9 )_trb * i3 ( h2 p12 h10 p1 )_vtrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_3_1.F index 307264bd7c..edf39deab0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_3_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_3_3_1.F,v 1.1 2008-09-17 04:45:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h10 p1 )_vtrc + = -1 * Sum ( p3 ) * trc ( p3 h10 )_trc * v ( h2 p12 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_4.F index 9ae72b971d..d9c2893005 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_3_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_3_4.F,v 1.1 2008-09-17 04:45:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtrbtrc + = 1 * Sum ( h4 ) * trc ( p12 h4 )_trc * i3 ( h2 h4 h9 h10 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_4_1.F index d90ba64834..8e47b9cb57 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_3_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_3_4_1.F,v 1.1 2008-09-17 04:45:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h9 h10 )_vtrb + = -1 * Sum ( p5 p6 ) * trb ( p5 p6 h9 h10 )_trb * v ( h2 h4 p5 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_5.F index 6bf2401eda..f3774ea83d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_3_5(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_3_5.F,v 1.1 2008-09-17 04:45:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtrctrb + = -4 * Sum ( p6 ) * trb ( p6 p12 h9 h10 )_trb * i3 ( h2 p6 )_vtrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_5_1.F index cb774701fc..93f323e273 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_3_5_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_3_5_1.F,v 1.1 2008-09-17 04:45:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p6 )_vtrc + = 1 * Sum ( h4 p3 ) * trc ( p3 h4 )_trc * v ( h2 h4 p3 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_6.F index 90b92f46fb..743d87eced 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_3_6(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_3_6.F,v 1.1 2008-09-17 04:45:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtrbtrc + = -4 * Sum ( p1 ) * trc ( p1 h9 )_trc * i3 ( h2 p12 h10 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_6_1.F index ed5ac16e32..0ae834c81a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_3_6_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_3_6_1.F,v 1.1 2008-09-17 04:45:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h10 p1 )_vtrb + = -1 * Sum ( p3 ) * trb ( p3 h10 )_trb * v ( h2 p12 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4.F index 1d8b4181ce..0e195c72b2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_3_4.F,v 1.1 2008-09-17 04:45:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h9 h10 )_vtratrctrb + = 1 * Sum ( h2 ) * trb ( p11 h2 )_trb * i2 ( h2 p12 h9 h10 )_vtratrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_1.F index cbdb957714..7bbb20494f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_4_1.F,v 1.1 2008-09-17 04:45:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtratrc + = 1 * Sum ( p1 ) * trc ( p1 h9 )_trc * i3 ( h2 p12 h10 p1 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_1_1.F index 79a984872a..ab4de60635 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_4_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_4_1_1.F,v 1.1 2008-09-17 04:45:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h10 p1 )_vtra + = -1 * Sum ( p3 ) * tra ( p3 h10 )_tra * v ( h2 p12 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_2.F index 09a22f6205..683305de43 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_4_2.F,v 1.1 2008-09-17 04:45:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtratrc + = -1/4 * Sum ( h4 ) * trc ( p12 h4 )_trc * i3 ( h2 h4 h9 h10 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_2_1.F index 7819cce2b9..763cb3c04f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_4_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_4_2_1.F,v 1.1 2008-09-17 04:45:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h9 h10 )_vtra + = -1 * Sum ( p5 p6 ) * tra ( p5 p6 h9 h10 )_tra * v ( h2 h4 p5 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_3.F index 52a37aef84..e7839d48ec 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_4_3.F,v 1.1 2008-09-17 04:45:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtrctra + = 1 * Sum ( p6 ) * tra ( p6 p12 h9 h10 )_tra * i3 ( h2 p6 )_vtrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_3_1.F index 79506b9f1f..8247b4f9c8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_4_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_4_3_1.F,v 1.1 2008-09-17 04:45:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p6 )_vtrc + = 1 * Sum ( h4 p3 ) * trc ( p3 h4 )_trc * v ( h2 h4 p3 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_4.F index b9d1a24d33..75acb7eebd 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_4_4.F,v 1.1 2008-09-17 04:45:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtrctra + = 1 * Sum ( p1 ) * tra ( p1 h9 )_tra * i3 ( h2 p12 h10 p1 )_vtrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_4_1.F index 0ade05b896..d3504972f7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_4_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_4_4_1.F,v 1.1 2008-09-17 04:45:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h10 p1 )_vtrc + = -1 * Sum ( p3 ) * trc ( p3 h10 )_trc * v ( h2 p12 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_5.F index 8e32dbdffe..7db6b4fc89 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_4_5(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_4_5.F,v 1.1 2008-09-17 04:45:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtrctra + = -1/4 * Sum ( h4 ) * tra ( p12 h4 )_tra * i3 ( h2 h4 h9 h10 )_vtrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_5_1.F index 92149c78ed..c68b647f7b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_4_5_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_4_5_1.F,v 1.1 2008-09-17 04:45:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h9 h10 )_vtrc + = -1 * Sum ( p5 p6 ) * trc ( p5 p6 h9 h10 )_trc * v ( h2 h4 p5 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_6.F index dbb23b1c68..467b0a10b4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_4_6(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_4_6.F,v 1.1 2008-09-17 04:45:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtratrc + = 1 * Sum ( p6 ) * trc ( p6 p12 h9 h10 )_trc * i3 ( h2 p6 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_6_1.F index c245cb6509..4415da4275 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_4_6_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_4_6_1.F,v 1.1 2008-09-17 04:45:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p6 )_vtra + = 1 * Sum ( h4 p3 ) * tra ( p3 h4 )_tra * v ( h2 h4 p3 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5.F index 2efe3d80e6..e52465e8ca 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_3_5.F,v 1.1 2008-09-17 04:45:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h9 h10 )_vtratrctrb + = 1 * Sum ( h8 ) * trb ( p11 p12 h8 h10 )_trb * i2 ( h8 h9 )_vtratrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_1.F index 51eebbdb81..c3bb449a16 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_5_1.F,v 1.1 2008-09-17 04:45:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_vtratrc + = 1 * Sum ( p1 ) * trc ( p1 h9 )_trc * i3 ( h8 p1 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_1_1.F index 7ceb81dd2b..c43e6da62f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_5_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_5_1_1.F,v 1.1 2008-09-17 04:45:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtra + = 1 * Sum ( h4 p3 ) * tra ( p3 h4 )_tra * v ( h4 h8 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_2.F index 4f8f88028d..e661c8a88d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_5_2.F,v 1.1 2008-09-17 04:45:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_vtrctra + = 1 * Sum ( p1 ) * tra ( p1 h9 )_tra * i3 ( h8 p1 )_vtrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_2_1.F index b4d6fb9321..19015d319e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_5_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_5_2_1.F,v 1.1 2008-09-17 04:45:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtrc + = 1 * Sum ( h4 p3 ) * trc ( p3 h4 )_trc * v ( h4 h8 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6.F index ade0c2edd8..9398f469bc 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_3_6.F,v 1.1 2008-09-17 04:45:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h9 h10 )_vtrctrbtra + = 1 * Sum ( h8 ) * tra ( p11 p12 h8 h10 )_tra * i2 ( h8 h9 )_vtrctrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_1.F index fcfd504fd3..9d87ee98bc 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_6_1.F,v 1.1 2008-09-17 04:45:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_vtrctrb + = 1 * Sum ( p1 ) * trb ( p1 h9 )_trb * i3 ( h8 p1 )_vtrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_1_1.F index 09832a73b5..983273be06 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_6_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_6_1_1.F,v 1.1 2008-09-17 04:45:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtrc + = 1 * Sum ( h4 p3 ) * trc ( p3 h4 )_trc * v ( h4 h8 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_2.F index bde9fe3320..64e0a10efe 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_6_2.F,v 1.1 2008-09-17 04:45:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_vtrbtrc + = 1 * Sum ( p1 ) * trc ( p1 h9 )_trc * i3 ( h8 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_2_1.F index 68f402d20d..7d10d6cf24 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_6_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_6_2_1.F,v 1.1 2008-09-17 04:45:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtrb + = 1 * Sum ( h4 p3 ) * trb ( p3 h4 )_trb * v ( h4 h8 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4.F index 85e39c75f5..b1d054e676 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_4_4.F,v 1.1 2008-09-17 04:45:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytrctrbtrav + = -1/8 * Sum ( p13 p14 h12 h15 ) * i1 ( p13 p14 h12 h15 )_ytrctrbtra * v ( h12 h15 p13 p14 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1.F index 25aa1168a8..6a87cd9a83 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_4_1.F,v 1.1 2008-09-17 04:45:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrctrbtra + = 1 * Sum ( h2 ) * tra ( p13 h2 )_tra * i2 ( h2 p14 h12 h15 )_ytrctrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10.F index 5a66f42981..d80d945a99 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_10(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_4_4_10.F,v 1.1 2008-09-17 04:45:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrbtrctra + = -2/3 * tra ( p14 h12 )_tra * i2 ( p13 h15 )_ytrbtrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_1.F index 7100d2e06c..b9a0d857c9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_10_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_10_1.F,v 1.1 2008-09-17 04:45:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h15 )_ytrbtrc + = 1 * Sum ( h2 ) * trc ( p13 h2 )_trc * i3 ( h2 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_1_1.F index 3695451c07..0783078090 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_10_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_10_1_1.F,v 1.1 2008-09-17 04:45:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytrb + = 1 * Sum ( h8 h9 p5 p6 p7 ) * trb ( p5 p6 p7 h8 h9 h15 )_trb * y ( h2 h8 h9 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_2.F index 828bc81605..c47cbc9d66 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_10_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_10_2.F,v 1.1 2008-09-17 04:45:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h15 )_ytrctrb + = 1 * Sum ( h2 ) * trb ( p13 h2 )_trb * i3 ( h2 h15 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_2_1.F index 839cbc6085..84ffb11199 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_10_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_10_2_1.F,v 1.1 2008-09-17 04:45:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytrc + = 1 * Sum ( h8 h9 p5 p6 p7 ) * trc ( p5 p6 p7 h8 h9 h15 )_trc * y ( h2 h8 h9 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11.F index 385ed2c456..a7006bba3a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_11(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_4_4_11.F,v 1.1 2008-09-17 04:45:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytratrctrb + = 1/3 * Sum ( h8 h9 h10 p5 ) * trb ( p5 p13 p14 h8 h9 h10 )_trb * i2 ( h8 h9 h10 h12 h15 p5 )_ytratrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_1.F index b499b1b51f..a8dc2e1f3b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_11_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_11_1.F,v 1.1 2008-09-17 04:45:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h10 h12 h15 p5 )_ytratrc + = 1 * Sum ( p1 ) * trc ( p1 h12 )_trc * i3 ( h8 h9 h10 h15 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_1_1.F index a0af099e76..b188c79245 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_11_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_11_1_1.F,v 1.1 2008-09-17 04:45:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h15 p1 p5 )_ytra + = -1 * Sum ( p3 ) * tra ( p3 h15 )_tra * y ( h8 h9 h10 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_2.F index 3d10b06a69..7b75cac657 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_11_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_11_2.F,v 1.1 2008-09-17 04:45:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h10 h12 h15 p5 )_ytrctra + = 1 * Sum ( p1 ) * tra ( p1 h12 )_tra * i3 ( h8 h9 h10 h15 p1 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_2_1.F index 8be8a588f5..3a6d1e4074 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_11_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_11_2_1.F,v 1.1 2008-09-17 04:45:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h15 p1 p5 )_ytrc + = -1 * Sum ( p3 ) * trc ( p3 h15 )_trc * y ( h8 h9 h10 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12.F index bccffa1e0e..b98804784a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_12(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_4_4_12.F,v 1.1 2008-09-17 04:45:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrctrbtra + = -2/3 * tra ( p13 h15 )_tra * i2 ( p14 h12 )_ytrctrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_1.F index c6d052e41a..d8d97f1b13 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_12_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_12_1.F,v 1.1 2008-09-17 04:45:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p14 h12 )_ytrctrb + = 1 * Sum ( h8 h9 h10 p5 p6 ) * trb ( p5 p6 p14 h8 h9 h10 )_trb * i3 ( h8 h9 h10 h12 p5 p6 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_1_1.F index 126d8b55b9..46173d0335 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_12_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_12_1_1.F,v 1.1 2008-09-17 04:45:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h12 p5 p6 )_ytrc + = 1 * Sum ( p1 ) * trc ( p1 h12 )_trc * y ( h8 h9 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_2.F index a7d172de02..601c8e02f6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_12_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_12_2.F,v 1.1 2008-09-17 04:45:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p14 h12 )_ytrbtrc + = 1 * Sum ( h8 h9 h10 p5 p6 ) * trc ( p5 p6 p14 h8 h9 h10 )_trc * i3 ( h8 h9 h10 h12 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_2_1.F index f18f124cb1..66dc676529 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_12_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_12_2_1.F,v 1.1 2008-09-17 04:45:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h12 p5 p6 )_ytrb + = 1 * Sum ( p1 ) * trb ( p1 h12 )_trb * y ( h8 h9 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13.F index 29de387e76..de3050e7a8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_13(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_4_4_13.F,v 1.1 2008-09-17 04:45:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrctratrb + = -1 * Sum ( h10 ) * trb ( p14 h10 )_trb * i2 ( h10 p13 h12 h15 )_ytrctra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_1.F index 2ed7f767bc..3318f962da 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_13_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_13_1.F,v 1.1 2008-09-17 04:45:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p13 h12 h15 )_ytrctra + = 1 * Sum ( p5 p6 ) * tra ( p5 p6 h12 h15 )_tra * i3 ( h10 p13 p5 p6 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_1_1.F index 004a16a741..d7b366f057 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_13_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_13_1_1.F,v 1.1 2008-09-17 04:45:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p13 p5 p6 )_ytrc + = 1 * Sum ( h3 h4 p1 ) * trc ( p1 p13 h3 h4 )_trc * y ( h3 h4 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_2.F index fb9bf4a19a..c2e2564a38 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_13_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_13_2.F,v 1.1 2008-09-17 04:45:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p13 h12 h15 )_ytrctra + = 4 * Sum ( h7 p5 ) * tra ( p5 p13 h7 h15 )_tra * i3 ( h7 h10 h12 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_2_1.F index 983446294a..c5a5dec172 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_13_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_13_2_1.F,v 1.1 2008-09-17 04:45:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h12 p5 )_ytrc + = -1 * Sum ( h3 p1 p2 ) * trc ( p1 p2 h3 h12 )_trc * y ( h3 h7 h10 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_3.F index a76e1784e0..2e504d81cc 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_13_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_13_3.F,v 1.1 2008-09-17 04:45:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p13 h12 h15 )_ytratrc + = 1 * Sum ( p5 p6 ) * trc ( p5 p6 h12 h15 )_trc * i3 ( h10 p13 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_3_1.F index 88191267ff..bef0199cfb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_13_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_13_3_1.F,v 1.1 2008-09-17 04:45:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p13 p5 p6 )_ytra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p13 h3 h4 )_tra * y ( h3 h4 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_4.F index 07515022d5..16306ac3e5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_13_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_13_4.F,v 1.1 2008-09-17 04:45:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p13 h12 h15 )_ytratrc + = 4 * Sum ( h7 p5 ) * trc ( p5 p13 h7 h15 )_trc * i3 ( h7 h10 h12 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_4_1.F index 0c3a9a6fee..2731887e92 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_13_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_13_4_1.F,v 1.1 2008-09-17 04:45:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h12 p5 )_ytra + = -1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h12 )_tra * y ( h3 h7 h10 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14.F index 5850694b6a..19a6a78c8e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_14(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_4_4_14.F,v 1.1 2008-09-17 04:45:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrbtrctra + = -4 * Sum ( h7 p5 ) * tra ( p5 p14 h7 h12 )_tra * i2 ( h7 p13 h15 p5 )_ytrbtrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_1.F index 330ea78903..b75627224f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_14_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_14_1.F,v 1.1 2008-09-17 04:45:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p13 h15 p5 )_ytrbtrc + = 1 * Sum ( h3 h4 p1 ) * trc ( p1 p13 h3 h4 )_trc * i3 ( h3 h4 h7 h15 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_1_1.F index 34578bc374..a17d033fdb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_14_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_14_1_1.F,v 1.1 2008-09-17 04:45:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytrb + = -1 * Sum ( p9 ) * trb ( p9 h15 )_trb * y ( h3 h4 h7 p1 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_2.F index e8f97e4af5..74af669c0d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_14_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_14_2.F,v 1.1 2008-09-17 04:45:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p13 h15 p5 )_ytrctrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p13 h3 h4 )_trb * i3 ( h3 h4 h7 h15 p1 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_2_1.F index fd483bfd29..d2b58dc2e8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_14_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_14_2_1.F,v 1.1 2008-09-17 04:45:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytrc + = -1 * Sum ( p9 ) * trc ( p9 h15 )_trc * y ( h3 h4 h7 p1 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15.F index b1c6ba87fb..24f40c8804 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_15(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_4_4_15.F,v 1.1 2008-09-17 04:45:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrctrbtra + = -1 * Sum ( h7 h8 ) * tra ( p13 p14 h7 h8 )_tra * i2 ( h7 h8 h12 h15 )_ytrctrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_1.F index 06060f37a5..c2f66c7188 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_15_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_15_1.F,v 1.1 2008-09-17 04:45:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h12 h15 )_ytrctrb + = 1 * Sum ( p9 ) * trb ( p9 h15 )_trb * i3 ( h7 h8 h12 p9 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_1_1.F index 9ebeed6e36..376b00c578 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_15_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_15_1_1.F,v 1.1 2008-09-17 04:45:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h12 p9 )_ytrc + = 1 * Sum ( h3 p1 p2 ) * trc ( p1 p2 h3 h12 )_trc * y ( h3 h7 h8 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_2.F index 995fe8fb49..e5d6719566 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_15_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_15_2.F,v 1.1 2008-09-17 04:45:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h12 h15 )_ytrbtrc + = 1 * Sum ( p9 ) * trc ( p9 h15 )_trc * i3 ( h7 h8 h12 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_2_1.F index e7d4acc608..345a47f2c2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_15_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_15_2_1.F,v 1.1 2008-09-17 04:45:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h12 p9 )_ytrb + = 1 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h12 )_trb * y ( h3 h7 h8 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16.F index f284a45804..047bc84414 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_16(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_4_4_16.F,v 1.1 2008-09-17 04:45:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytratrctrb + = -2 * trb ( p14 h15 )_trb * i2 ( p13 h12 )_ytratrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_1.F index d8a583a735..51e50e5ed6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_16_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_16_1.F,v 1.1 2008-09-17 04:45:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h12 )_ytratrc + = 1 * Sum ( h3 h4 p1 ) * trc ( p1 p13 h3 h4 )_trc * i3 ( h3 h4 h12 p1 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_1_1.F index a98e80a44c..1dbe92f429 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_16_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_16_1_1.F,v 1.1 2008-09-17 04:45:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h12 p1 )_ytra + = 1 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h12 )_tra * y ( h3 h4 h7 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_2.F index 5de650b892..1033df3470 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_16_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_16_2.F,v 1.1 2008-09-17 04:45:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h12 )_ytrctra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p13 h3 h4 )_tra * i3 ( h3 h4 h12 p1 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_2_1.F index c58586d4bf..9c9b8a47c7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_16_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_16_2_1.F,v 1.1 2008-09-17 04:45:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h12 p1 )_ytrc + = 1 * Sum ( h7 p5 p6 ) * trc ( p5 p6 h7 h12 )_trc * y ( h3 h4 h7 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17.F index 2defff46d1..f5e0e9f40d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17.F,v 1.1 2008-09-17 04:45:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytratrctrb + = 1 * Sum ( h2 ) * trb ( p13 h2 )_trb * i2 ( h2 p14 h12 h15 )_ytratrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1.F index 128dfa5308..c6f42899c9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_1.F,v 1.1 2008-09-17 04:45:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytratrc + = 1 * Sum ( h4 ) * trc ( p14 h4 )_trc * i3 ( h2 h4 h12 h15 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10.F index 662234790b..755f19242b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_10(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_10.F,v 1.1 2008-09-17 04:45:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrctrat + = -2 * Sum ( p3 ) * t ( p3 h12 )_t * i3 ( h2 p14 h15 p3 )_ytrctra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10_1.F index e4ce527c72..dbe021298d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_10_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_10_1.F,v 1.1 2008-09-17 04:45:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrctra + = 1 * Sum ( h9 h10 p7 ) * tra ( p7 p14 h9 h10 )_tra * i4 ( h2 h9 h10 h15 p3 p7 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10_1_1.F index 223001aeb3..1866366d2b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_10_1_1(d_a,k_a_offset,d_b,k_b_offs &et,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_10_1_1.F,v 1.1 2008-09-17 04:45:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrc + = -1 * Sum ( p5 ) * trc ( p5 h15 )_trc * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10_2.F index 5056679557..5d3c71e77f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_10_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_10_2.F,v 1.1 2008-09-17 04:45:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytratrc + = 1 * Sum ( h9 h10 p7 ) * trc ( p7 p14 h9 h10 )_trc * i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10_2_1.F index 1d0d70ad44..ed8185c71e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_10_2_1(d_a,k_a_offset,d_b,k_b_offs &et,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_10_2_1.F,v 1.1 2008-09-17 04:45:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra + = -1 * Sum ( p5 ) * tra ( p5 h15 )_tra * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_1.F index 5903df7cd4..034365668e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_1_1.F,v 1.1 2008-09-17 04:45:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytra + = -1 * Sum ( p5 p6 ) * tra ( p5 p6 h12 h15 )_tra * y ( h2 h4 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_2.F index 3643194859..7e812843e9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_1_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_1_2.F,v 1.1 2008-09-17 04:45:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytra + = -1/3 * Sum ( h8 p5 p6 p7 ) * tra ( p5 p6 p7 h8 h12 h15 )_tra * y ( h2 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_3.F index 1deac372b6..8ce4304749 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_1_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_1_3.F,v 1.1 2008-09-17 04:45:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrat + = -2 * Sum ( p5 ) * t ( p5 h12 )_t * i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_3_1.F index c430be60b4..383518e097 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_1_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_1_3_1.F,v 1.1 2008-09-17 04:45:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = 1 * Sum ( p7 ) * tra ( p7 h15 )_tra * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_3_2.F index e781313b18..6f58ea3d53 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_1_3_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_1_3_2.F,v 1.1 2008-09-17 04:45:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = -1 * Sum ( h9 p7 p8 ) * tra ( p7 p8 h9 h15 )_tra * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_4.F index 335e3d0456..276e18c4c8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_1_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_1_4.F,v 1.1 2008-09-17 04:45:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_yttra + = -2 * Sum ( p5 ) * tra ( p5 h12 )_tra * i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_4_1.F index 038234af70..d4634b14c5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_1_4_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_1_4_1.F,v 1.1 2008-09-17 04:45:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h15 )_t * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_4_2.F index 5ca59853ae..d897e88b8b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_1_4_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_1_4_2.F,v 1.1 2008-09-17 04:45:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h9 h15 )_t * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_2.F index 3ff2b9025d..f13c4c2409 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_2.F,v 1.1 2008-09-17 04:45:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrctra + = 8 * Sum ( h7 p5 ) * tra ( p5 p14 h7 h15 )_tra * i3 ( h2 h7 h12 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_2_1.F index d8ef3d2864..f839dd067e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_2_1.F,v 1.1 2008-09-17 04:45:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p5 )_ytrc + = 1 * Sum ( p3 ) * trc ( p3 h12 )_trc * y ( h2 h7 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_3.F index cd65ad31fd..9b954c5c08 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_3.F,v 1.1 2008-09-17 04:45:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrctra + = 2 * Sum ( h8 h9 p5 p6 ) * tra ( p5 p6 p14 h8 h9 h15 )_tra * i3 ( h2 h8 h9 h12 p5 p6 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_3_1.F index 6e3ec2b4cd..1ef572a0c9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_3_1.F,v 1.1 2008-09-17 04:45:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h12 p5 p6 )_ytrc + = 1 * Sum ( p3 ) * trc ( p3 h12 )_trc * y ( h2 h8 h9 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4.F index 2d88c0390d..05fcc1934c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_4.F,v 1.1 2008-09-17 04:45:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrctra + = 1 * Sum ( h4 ) * tra ( p14 h4 )_tra * i3 ( h2 h4 h12 h15 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_1.F index b49ba10516..8d5893bec3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_4_1.F,v 1.1 2008-09-17 04:45:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrc + = -1 * Sum ( p5 p6 ) * trc ( p5 p6 h12 h15 )_trc * y ( h2 h4 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_2.F index f271a59287..7d9ef37fd8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_4_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_4_2.F,v 1.1 2008-09-17 04:45:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrc + = -1/3 * Sum ( h8 p5 p6 p7 ) * trc ( p5 p6 p7 h8 h12 h15 )_trc * y ( h2 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_3.F index c358b0c68b..32bcfa75ca 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_4_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_4_3.F,v 1.1 2008-09-17 04:45:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_yttrc + = -2 * Sum ( p5 ) * trc ( p5 h12 )_trc * i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_3_1.F index afec4f07f9..73f2711900 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_4_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_4_3_1.F,v 1.1 2008-09-17 04:45:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h15 )_t * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_3_2.F index 45fcdc0a50..9f7620cf07 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_4_3_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_4_3_2.F,v 1.1 2008-09-17 04:45:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h9 h15 )_t * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_4.F index 6f38f9ee35..5c69098e60 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_4_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_4_4.F,v 1.1 2008-09-17 04:45:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrct + = -2 * Sum ( p5 ) * t ( p5 h12 )_t * i4 ( h2 h4 h15 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_4_1.F index d71c0e7a1a..c58b907336 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_4_4_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_4_4_1.F,v 1.1 2008-09-17 04:45:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc + = 1 * Sum ( p7 ) * trc ( p7 h15 )_trc * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_4_2.F index bcf704935d..650ec37ec0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_4_4_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_4_4_2.F,v 1.1 2008-09-17 04:45:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc + = -1 * Sum ( h9 p7 p8 ) * trc ( p7 p8 h9 h15 )_trc * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_5.F index cf58efcf90..446bb58369 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_5(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_5.F,v 1.1 2008-09-17 04:45:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytratrc + = 8 * Sum ( h7 p5 ) * trc ( p5 p14 h7 h15 )_trc * i3 ( h2 h7 h12 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_5_1.F index e64c042335..814df9dd0c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_5_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_5_1.F,v 1.1 2008-09-17 04:45:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p5 )_ytra + = 1 * Sum ( p3 ) * tra ( p3 h12 )_tra * y ( h2 h7 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_6.F index 81cab2e96a..c4ac7e939a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_6(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_6.F,v 1.1 2008-09-17 04:45:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytratrc + = 2 * Sum ( h8 h9 p5 p6 ) * trc ( p5 p6 p14 h8 h9 h15 )_trc * i3 ( h2 h8 h9 h12 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_6_1.F index b8ad830392..98d129c693 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_6_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_6_1.F,v 1.1 2008-09-17 04:45:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h12 p5 p6 )_ytra + = 1 * Sum ( p3 ) * tra ( p3 h12 )_tra * y ( h2 h8 h9 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7.F index 37ccf08430..06500c270c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_7(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_7.F,v 1.1 2008-09-17 04:45:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_yttratrc + = -2 * Sum ( p3 ) * trc ( p3 h12 )_trc * i3 ( h2 p14 h15 p3 )_yttra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7_1.F index b878a73348..a5772ba14c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_7_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_7_1.F,v 1.1 2008-09-17 04:45:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_yttra + = 1 * Sum ( h9 h10 p7 ) * tra ( p7 p14 h9 h10 )_tra * i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7_1_1.F index 8915465189..e4eb54bb4a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_7_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_7_1_1.F,v 1.1 2008-09-17 04:45:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h15 )_t * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7_2.F index 8067735f46..d3b9cf964d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_7_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_7_2.F,v 1.1 2008-09-17 04:45:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrat + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p14 h9 h10 )_t * i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7_2_1.F index 400a2094fb..dc1f696f92 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_7_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_7_2_1.F,v 1.1 2008-09-17 04:45:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra + = -1 * Sum ( p5 ) * tra ( p5 h15 )_tra * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8.F index 58ebe631ec..099aad5064 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_8(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_8.F,v 1.1 2008-09-17 04:45:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrcttra + = -2 * Sum ( p3 ) * tra ( p3 h12 )_tra * i3 ( h2 p14 h15 p3 )_ytrct diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8_1.F index e1713b92fb..246e469b58 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_8_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_8_1.F,v 1.1 2008-09-17 04:45:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrct + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p14 h9 h10 )_t * i4 ( h2 h9 h10 h15 p3 p7 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8_1_1.F index 2e24eabe0d..9348e8e17d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_8_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_8_1_1.F,v 1.1 2008-09-17 04:45:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrc + = -1 * Sum ( p5 ) * trc ( p5 h15 )_trc * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8_2.F index e7624175c0..f4f5ca26ff 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_8_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_8_2.F,v 1.1 2008-09-17 04:45:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_yttrc + = 1 * Sum ( h9 h10 p7 ) * trc ( p7 p14 h9 h10 )_trc * i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8_2_1.F index 79f35b69df..dc1bb5970f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_8_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_8_2_1.F,v 1.1 2008-09-17 04:45:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h15 )_t * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9.F index 796aa7d756..8f19070bb6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_9(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_9.F,v 1.1 2008-09-17 04:45:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytratrct + = -2 * Sum ( h4 ) * t ( p14 h4 )_t * i3 ( h2 h4 h12 h15 )_ytratrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_1.F index a7f1f79315..88ad710c21 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_9_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_9_1.F,v 1.1 2008-09-17 04:45:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytratrc + = 1 * Sum ( p5 ) * trc ( p5 h12 )_trc * i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_1_1.F index ab95ceaef9..73dd67fbe9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_9_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_9_1_1.F,v 1.1 2008-09-17 04:45:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = 1 * Sum ( p7 ) * tra ( p7 h15 )_tra * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_1_2.F index e46a259389..69147aeff1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_9_1_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_9_1_2.F,v 1.1 2008-09-17 04:45:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = -1 * Sum ( h9 p7 p8 ) * tra ( p7 p8 h9 h15 )_tra * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_2.F index 3e860afd44..4189fac8e9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_9_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_9_2.F,v 1.1 2008-09-17 04:45:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrctra + = 1 * Sum ( p5 ) * tra ( p5 h12 )_tra * i4 ( h2 h4 h15 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_2_1.F index aa729f0f60..790a5af96d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_9_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_9_2_1.F,v 1.1 2008-09-17 04:45:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc + = 1 * Sum ( p7 ) * trc ( p7 h15 )_trc * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_2_2.F index db1791b962..da1226876a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_9_2_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_9_2_2.F,v 1.1 2008-09-17 04:45:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc + = -1 * Sum ( h9 p7 p8 ) * trc ( p7 p8 h9 h15 )_trc * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18.F index 0e88b4eeec..881b39a2ea 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_18(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_4_4_18.F,v 1.1 2008-09-17 04:45:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytratrbtrc + = -2/3 * trc ( p14 h12 )_trc * i2 ( p13 h15 )_ytratrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_1.F index 5f6c54d5fa..ef389be94c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_18_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_18_1.F,v 1.1 2008-09-17 04:45:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h15 )_ytratrb + = 1 * Sum ( h2 ) * trb ( p13 h2 )_trb * i3 ( h2 h15 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_1_1.F index 7e7a2d7996..946bee032b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_18_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_18_1_1.F,v 1.1 2008-09-17 04:45:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytra + = 1 * Sum ( h8 h9 p5 p6 p7 ) * tra ( p5 p6 p7 h8 h9 h15 )_tra * y ( h2 h8 h9 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_2.F index 3a5fa607ab..f060f7cacb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_18_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_18_2.F,v 1.1 2008-09-17 04:45:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h15 )_ytrbtra + = 1 * Sum ( h2 ) * tra ( p13 h2 )_tra * i3 ( h2 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_2_1.F index e62faf8d56..bfcaed3d2c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_18_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_18_2_1.F,v 1.1 2008-09-17 04:45:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytrb + = 1 * Sum ( h8 h9 p5 p6 p7 ) * trb ( p5 p6 p7 h8 h9 h15 )_trb * y ( h2 h8 h9 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19.F index e9e5b96609..1c4ce6d74d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_19(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_4_4_19.F,v 1.1 2008-09-17 04:45:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrctrbtra + = 1/3 * Sum ( h8 h9 h10 p5 ) * tra ( p5 p13 p14 h8 h9 h10 )_tra * i2 ( h8 h9 h10 h12 h15 p5 )_ytrctrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_1.F index 7a4605ea91..200cc07595 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_19_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_19_1.F,v 1.1 2008-09-17 04:45:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h10 h12 h15 p5 )_ytrctrb + = 1 * Sum ( p1 ) * trb ( p1 h12 )_trb * i3 ( h8 h9 h10 h15 p1 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_1_1.F index aa241fb6df..af6e82203a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_19_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_19_1_1.F,v 1.1 2008-09-17 04:45:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h15 p1 p5 )_ytrc + = -1 * Sum ( p3 ) * trc ( p3 h15 )_trc * y ( h8 h9 h10 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_2.F index 69ff9ea76a..e80d726764 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_19_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_19_2.F,v 1.1 2008-09-17 04:45:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h10 h12 h15 p5 )_ytrbtrc + = 1 * Sum ( p1 ) * trc ( p1 h12 )_trc * i3 ( h8 h9 h10 h15 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_2_1.F index 2aa896d365..363781e3a8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_19_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_19_2_1.F,v 1.1 2008-09-17 04:45:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h15 p1 p5 )_ytrb + = -1 * Sum ( p3 ) * trb ( p3 h15 )_trb * y ( h8 h9 h10 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1.F index a9370cadeb..f5ff1efdf2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_1.F,v 1.1 2008-09-17 04:45:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrctrb + = 1 * Sum ( h4 ) * trb ( p14 h4 )_trb * i3 ( h2 h4 h12 h15 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10.F index aa3a707106..78fc61b5c2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_10(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_10.F,v 1.1 2008-09-17 04:45:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrctrbt + = -2 * Sum ( p3 ) * t ( p3 h12 )_t * i3 ( h2 p14 h15 p3 )_ytrctrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10_1.F index 32c4f5d3a2..eef718838c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_10_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_10_1.F,v 1.1 2008-09-17 04:45:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrctrb + = 1 * Sum ( h9 h10 p7 ) * trb ( p7 p14 h9 h10 )_trb * i4 ( h2 h9 h10 h15 p3 p7 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10_1_1.F index 44bf73aa25..42743449ce 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_10_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_10_1_1.F,v 1.1 2008-09-17 04:45:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrc + = -1 * Sum ( p5 ) * trc ( p5 h15 )_trc * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10_2.F index efeee5e2e5..51a018f071 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_10_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_10_2.F,v 1.1 2008-09-17 04:45:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrbtrc + = 1 * Sum ( h9 h10 p7 ) * trc ( p7 p14 h9 h10 )_trc * i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10_2_1.F index 016d304eeb..677b79f717 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_10_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_10_2_1.F,v 1.1 2008-09-17 04:45:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb + = -1 * Sum ( p5 ) * trb ( p5 h15 )_trb * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_1.F index 3575e9b89c..aaef18cd59 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_1_1.F,v 1.1 2008-09-17 04:45:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrc + = -1 * Sum ( p5 p6 ) * trc ( p5 p6 h12 h15 )_trc * y ( h2 h4 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_2.F index b5fb91d9a8..4634ba9ad2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_1_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_1_2.F,v 1.1 2008-09-17 04:45:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrc + = -1/3 * Sum ( h8 p5 p6 p7 ) * trc ( p5 p6 p7 h8 h12 h15 )_trc * i4 ( h2 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_2_1.F index 6422bceb14..287b798f00 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_1_2_1(d_a,k_a_offset,d_c,k_c_offset &) -C $Id: ccsdt_lr_beta_4_4_1_1_2_1.F,v 1.1 2008-09-17 04:45:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h8 p5 p6 p7 )_y + = 1 * y ( h2 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_2_2.F index de8782bdfc..4026511842 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_1_2_2(d_a,k_a_offset,d_c,k_c_offset &) -C $Id: ccsdt_lr_beta_4_4_1_1_2_2.F,v 1.1 2008-09-17 04:45:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h8 p5 p6 p7 )_y + = 1 * y ( h2 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_3.F index 4a7bb7fd27..eded8702a7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_1_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_1_3.F,v 1.1 2008-09-17 04:45:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_yttrc + = -2 * Sum ( p5 ) * trc ( p5 h12 )_trc * i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_3_1.F index 86b4855618..54c245ce94 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_1_3_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_1_3_1.F,v 1.1 2008-09-17 04:45:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h15 )_t * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_3_2.F index bb343a34ed..a2a6ff9bf8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_1_3_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_1_3_2.F,v 1.1 2008-09-17 04:45:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h9 h15 )_t * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_4.F index 7826186262..5399bc2361 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_1_4(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_1_4.F,v 1.1 2008-09-17 04:45:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrct + = -2 * Sum ( p5 ) * t ( p5 h12 )_t * i4 ( h2 h4 h15 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_4_1.F index 5c2d6df3b8..d0e9b4dfa3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_1_4_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_1_4_1.F,v 1.1 2008-09-17 04:45:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc + = 1 * Sum ( p7 ) * trc ( p7 h15 )_trc * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_4_2.F index fd3ce20fd5..db6d7aa85d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_1_4_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_1_4_2.F,v 1.1 2008-09-17 04:45:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc + = -1 * Sum ( h9 p7 p8 ) * trc ( p7 p8 h9 h15 )_trc * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_2.F index fbb84b78f4..977f38f4d6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_2.F,v 1.1 2008-09-17 04:45:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrbtrc + = 8 * Sum ( h7 p5 ) * trc ( p5 p14 h7 h15 )_trc * i3 ( h2 h7 h12 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_2_1.F index aa80bb4b68..99189e7275 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_2_1.F,v 1.1 2008-09-17 04:45:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p5 )_ytrb + = 1 * Sum ( p3 ) * trb ( p3 h12 )_trb * y ( h2 h7 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_3.F index ac7241a6d9..8b8ed58a36 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_3.F,v 1.1 2008-09-17 04:45:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrbtrc + = 2 * Sum ( h8 h9 p5 p6 ) * trc ( p5 p6 p14 h8 h9 h15 )_trc * i3 ( h2 h8 h9 h12 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_3_1.F index 54c7639691..94fc5f55df 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_3_1.F,v 1.1 2008-09-17 04:45:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h12 p5 p6 )_ytrb + = 1 * Sum ( p3 ) * trb ( p3 h12 )_trb * y ( h2 h8 h9 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4.F index 2741f9d908..afe39f0f87 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_4.F,v 1.1 2008-09-17 04:45:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrbtrc + = 1 * Sum ( h4 ) * trc ( p14 h4 )_trc * i3 ( h2 h4 h12 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_1.F index 75410c76b1..e5db9a7647 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_4_1.F,v 1.1 2008-09-17 04:45:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrb + = -1 * Sum ( p5 p6 ) * trb ( p5 p6 h12 h15 )_trb * y ( h2 h4 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_2.F index f9eabbe224..c8745bcf0a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_4_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_4_2.F,v 1.1 2008-09-17 04:45:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrbt + = -2 * Sum ( p5 ) * t ( p5 h12 )_t * i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_2_1.F index 4948dd2122..361182d747 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_4_2_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_4_2_1.F,v 1.1 2008-09-17 04:45:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = 1 * Sum ( p7 ) * trb ( p7 h15 )_trb * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_2_2.F index c036b2a05c..9e12205e3c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_4_2_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_4_2_2.F,v 1.1 2008-09-17 04:45:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = -1 * Sum ( h9 p7 p8 ) * trb ( p7 p8 h9 h15 )_trb * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_3.F index 5e79b637b5..353c984dea 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_4_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_4_3.F,v 1.1 2008-09-17 04:45:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_yttrb + = -2 * Sum ( p5 ) * trb ( p5 h12 )_trb * i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_3_1.F index 30981b69d3..ffb116494f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_4_3_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_4_3_1.F,v 1.1 2008-09-17 04:45:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h15 )_t * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_3_2.F index a8135c0287..ca83143362 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_4_3_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_4_3_2.F,v 1.1 2008-09-17 04:45:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h9 h15 )_t * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_5.F index 5ff21aa66e..b0a764962a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_5(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_5.F,v 1.1 2008-09-17 04:45:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrctrb + = 8 * Sum ( h7 p5 ) * trb ( p5 p14 h7 h15 )_trb * i3 ( h2 h7 h12 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_5_1.F index 91d47ed4a8..8e0117b964 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_5_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_5_1.F,v 1.1 2008-09-17 04:45:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p5 )_ytrc + = 1 * Sum ( p3 ) * trc ( p3 h12 )_trc * y ( h2 h7 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_6.F index 9ab7d37cf2..f95a0b9bff 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_6(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_6.F,v 1.1 2008-09-17 04:45:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrctrb + = 2 * Sum ( h8 h9 p5 p6 ) * trb ( p5 p6 p14 h8 h9 h15 )_trb * i3 ( h2 h8 h9 h12 p5 p6 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_6_1.F index c48669f805..1799bb7f50 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_6_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_6_1.F,v 1.1 2008-09-17 04:45:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h12 p5 p6 )_ytrc + = 1 * Sum ( p3 ) * trc ( p3 h12 )_trc * y ( h2 h8 h9 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7.F index ef269f5685..e409085edb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_7(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_7.F,v 1.1 2008-09-17 04:45:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrcttrb + = -2 * Sum ( p3 ) * trb ( p3 h12 )_trb * i3 ( h2 p14 h15 p3 )_ytrct diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7_1.F index ef0341acfc..fdc66673ce 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_7_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_7_1.F,v 1.1 2008-09-17 04:45:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrct + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p14 h9 h10 )_t * i4 ( h2 h9 h10 h15 p3 p7 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7_1_1.F index 5e337f5429..566155751e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_7_1_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_7_1_1.F,v 1.1 2008-09-17 04:45:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrc + = -1 * Sum ( p5 ) * trc ( p5 h15 )_trc * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7_2.F index 81e1a13dc0..0233bf52aa 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_7_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_7_2.F,v 1.1 2008-09-17 04:45:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_yttrc + = 1 * Sum ( h9 h10 p7 ) * trc ( p7 p14 h9 h10 )_trc * i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7_2_1.F index fa7a1c8248..d11f5f5267 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_7_2_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_7_2_1.F,v 1.1 2008-09-17 04:45:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h15 )_t * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8.F index fd53682e76..c65adf2b50 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_8(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_8.F,v 1.1 2008-09-17 04:45:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_yttrbtrc + = -2 * Sum ( p3 ) * trc ( p3 h12 )_trc * i3 ( h2 p14 h15 p3 )_yttrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8_1.F index 5124c3db11..dcf3578d96 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_8_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_8_1.F,v 1.1 2008-09-17 04:45:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_yttrb + = 1 * Sum ( h9 h10 p7 ) * trb ( p7 p14 h9 h10 )_trb * i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8_1_1.F index 936f844b4e..e8aa08895a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_8_1_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_8_1_1.F,v 1.1 2008-09-17 04:45:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h15 )_t * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8_2.F index 95a533114a..4dfcdff942 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_8_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_8_2.F,v 1.1 2008-09-17 04:45:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrbt + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p14 h9 h10 )_t * i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8_2_1.F index 2fcb133206..c5bf88ac37 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_8_2_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_8_2_1.F,v 1.1 2008-09-17 04:45:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb + = -1 * Sum ( p5 ) * trb ( p5 h15 )_trb * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9.F index e0c8394da6..3d515d0ac4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_9(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_9.F,v 1.1 2008-09-17 04:45:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrbtrct + = -2 * Sum ( h4 ) * t ( p14 h4 )_t * i3 ( h2 h4 h12 h15 )_ytrbtrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_1.F index 12e75fff7d..cd316e95f6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_9_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_9_1.F,v 1.1 2008-09-17 04:45:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrbtrc + = 1 * Sum ( p5 ) * trc ( p5 h12 )_trc * i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_1_1.F index 654ab5df94..d595d35c1b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_9_1_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_9_1_1.F,v 1.1 2008-09-17 04:45:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = 1 * Sum ( p7 ) * trb ( p7 h15 )_trb * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_1_2.F index f612273a7c..10b702d1e1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_9_1_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_9_1_2.F,v 1.1 2008-09-17 04:45:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = -1 * Sum ( h9 p7 p8 ) * trb ( p7 p8 h9 h15 )_trb * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_2.F index a98088a7bc..93ff141d8b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_9_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_9_2.F,v 1.1 2008-09-17 04:45:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrctrb + = 1 * Sum ( p5 ) * trb ( p5 h12 )_trb * i4 ( h2 h4 h15 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_2_1.F index 447d54f9cd..34fa3f3dc7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_9_2_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_9_2_1.F,v 1.1 2008-09-17 04:45:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc + = 1 * Sum ( p7 ) * trc ( p7 h15 )_trc * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_2_2.F index 6ce27382f8..7040693634 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_9_2_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_9_2_2.F,v 1.1 2008-09-17 04:45:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc + = -1 * Sum ( h9 p7 p8 ) * trc ( p7 p8 h9 h15 )_trc * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2.F index a7e42ea07d..54444d895e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_4_2.F,v 1.1 2008-09-17 04:45:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrctratrb + = -2/3 * trb ( p14 h12 )_trb * i2 ( p13 h15 )_ytrctra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20.F index 5e0ba08735..b3f40e71a8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_20(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_4_4_20.F,v 1.1 2008-09-17 04:45:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrbtratrc + = -2/3 * trc ( p13 h15 )_trc * i2 ( p14 h12 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_1.F index 2e2384f315..8578d235af 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_20_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_20_1.F,v 1.1 2008-09-17 04:46:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p14 h12 )_ytrbtra + = 1 * Sum ( h8 h9 h10 p5 p6 ) * tra ( p5 p6 p14 h8 h9 h10 )_tra * i3 ( h8 h9 h10 h12 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_1_1.F index 1093759aa2..d459c9d2fd 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_20_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_20_1_1.F,v 1.1 2008-09-17 04:46:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h12 p5 p6 )_ytrb + = 1 * Sum ( p1 ) * trb ( p1 h12 )_trb * y ( h8 h9 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_2.F index 4ef9824fa3..959988e48f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_20_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_20_2.F,v 1.1 2008-09-17 04:46:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p14 h12 )_ytratrb + = 1 * Sum ( h8 h9 h10 p5 p6 ) * trb ( p5 p6 p14 h8 h9 h10 )_trb * i3 ( h8 h9 h10 h12 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_2_1.F index 115899cf0d..86f8b6e71c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_20_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_20_2_1.F,v 1.1 2008-09-17 04:46:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h12 p5 p6 )_ytra + = 1 * Sum ( p1 ) * tra ( p1 h12 )_tra * y ( h8 h9 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21.F index bcc530e3dc..07c2802300 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_21(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_4_4_21.F,v 1.1 2008-09-17 04:46:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrbtrctra + = -1 * Sum ( h10 ) * tra ( p14 h10 )_tra * i2 ( h10 p13 h12 h15 )_ytrbtrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_1.F index b124f32380..026f15214a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_21_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_21_1.F,v 1.1 2008-09-17 04:46:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p13 h12 h15 )_ytrbtrc + = 1 * Sum ( p5 p6 ) * trc ( p5 p6 h12 h15 )_trc * i3 ( h10 p13 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_1_1.F index ac0ce89244..9ebb97a0fd 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_21_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_21_1_1.F,v 1.1 2008-09-17 04:46:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p13 p5 p6 )_ytrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p13 h3 h4 )_trb * y ( h3 h4 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_2.F index 1376a89895..80748ea78f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_21_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_21_2.F,v 1.1 2008-09-17 04:46:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p13 h12 h15 )_ytrbtrc + = 4 * Sum ( h7 p5 ) * trc ( p5 p13 h7 h15 )_trc * i3 ( h7 h10 h12 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_2_1.F index b3ce206051..ed32ace5e5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_21_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_21_2_1.F,v 1.1 2008-09-17 04:46:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h12 p5 )_ytrb + = -1 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h12 )_trb * y ( h3 h7 h10 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_3.F index fdf6fc37a4..2b5ea05116 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_21_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_21_3.F,v 1.1 2008-09-17 04:46:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p13 h12 h15 )_ytrctrb + = 1 * Sum ( p5 p6 ) * trb ( p5 p6 h12 h15 )_trb * i3 ( h10 p13 p5 p6 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_3_1.F index 34e8fa46cd..a56aff59ac 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_21_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_21_3_1.F,v 1.1 2008-09-17 04:46:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p13 p5 p6 )_ytrc + = 1 * Sum ( h3 h4 p1 ) * trc ( p1 p13 h3 h4 )_trc * y ( h3 h4 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_4.F index 3821c43dc2..3853e3dbac 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_21_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_21_4.F,v 1.1 2008-09-17 04:46:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p13 h12 h15 )_ytrctrb + = 4 * Sum ( h7 p5 ) * trb ( p5 p13 h7 h15 )_trb * i3 ( h7 h10 h12 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_4_1.F index 64fa8d0b10..d684b739f4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_21_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_21_4_1.F,v 1.1 2008-09-17 04:46:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h12 p5 )_ytrc + = -1 * Sum ( h3 p1 p2 ) * trc ( p1 p2 h3 h12 )_trc * y ( h3 h7 h10 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22.F index d8771a8ac0..975493a5f4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_22(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_4_4_22.F,v 1.1 2008-09-17 04:46:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytratrbtrc + = -4 * Sum ( h7 p5 ) * trc ( p5 p14 h7 h12 )_trc * i2 ( h7 p13 h15 p5 )_ytratrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_1.F index 295b7c0bc7..eac5c89bed 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_22_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_22_1.F,v 1.1 2008-09-17 04:46:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p13 h15 p5 )_ytratrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p13 h3 h4 )_trb * i3 ( h3 h4 h7 h15 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_1_1.F index f9e3d0b110..2a421daf5d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_22_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_22_1_1.F,v 1.1 2008-09-17 04:46:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytra + = -1 * Sum ( p9 ) * tra ( p9 h15 )_tra * y ( h3 h4 h7 p1 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_2.F index 90c279ef43..93dddf11fb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_22_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_22_2.F,v 1.1 2008-09-17 04:46:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p13 h15 p5 )_ytrbtra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p13 h3 h4 )_tra * i3 ( h3 h4 h7 h15 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_2_1.F index 65d4cf95cf..e065a681e4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_22_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_22_2_1.F,v 1.1 2008-09-17 04:46:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytrb + = -1 * Sum ( p9 ) * trb ( p9 h15 )_trb * y ( h3 h4 h7 p1 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23.F index 81d0c574c8..ff4e6a127b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_23(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_4_4_23.F,v 1.1 2008-09-17 04:46:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrbtratrc + = -1 * Sum ( h7 h8 ) * trc ( p13 p14 h7 h8 )_trc * i2 ( h7 h8 h12 h15 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_1.F index d9191c6669..251a41e06b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_23_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_23_1.F,v 1.1 2008-09-17 04:46:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h12 h15 )_ytrbtra + = 1 * Sum ( p9 ) * tra ( p9 h15 )_tra * i3 ( h7 h8 h12 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_1_1.F index f59cfd4d0c..1e76ccb434 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_23_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_23_1_1.F,v 1.1 2008-09-17 04:46:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h12 p9 )_ytrb + = 1 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h12 )_trb * y ( h3 h7 h8 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_2.F index 9665a7b32b..f5cee481d0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_23_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_23_2.F,v 1.1 2008-09-17 04:46:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h12 h15 )_ytratrb + = 1 * Sum ( p9 ) * trb ( p9 h15 )_trb * i3 ( h7 h8 h12 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_2_1.F index bdaf56b110..4295ef24c1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_23_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_23_2_1.F,v 1.1 2008-09-17 04:46:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h12 p9 )_ytra + = 1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h12 )_tra * y ( h3 h7 h8 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24.F index 9b786c1cdf..674410ccfb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_24(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_4_4_24.F,v 1.1 2008-09-17 04:46:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrctrbtra + = -2 * tra ( p14 h15 )_tra * i2 ( p13 h12 )_ytrctrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_1.F index 5726623837..4dec817ff8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_24_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_24_1.F,v 1.1 2008-09-17 04:46:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h12 )_ytrctrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p13 h3 h4 )_trb * i3 ( h3 h4 h12 p1 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_1_1.F index dc36fe5c48..9d97355770 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_24_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_24_1_1.F,v 1.1 2008-09-17 04:46:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h12 p1 )_ytrc + = 1 * Sum ( h7 p5 p6 ) * trc ( p5 p6 h7 h12 )_trc * y ( h3 h4 h7 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_2.F index ed436d2013..0fb7bae165 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_24_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_24_2.F,v 1.1 2008-09-17 04:46:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h12 )_ytrbtrc + = 1 * Sum ( h3 h4 p1 ) * trc ( p1 p13 h3 h4 )_trc * i3 ( h3 h4 h12 p1 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_2_1.F index a6a291b942..9bcf40e8f2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_24_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_24_2_1.F,v 1.1 2008-09-17 04:46:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h12 p1 )_ytrb + = 1 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h12 )_trb * y ( h3 h4 h7 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25.F index 96f4e4d702..7617531dbe 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25.F,v 1.1 2008-09-17 04:46:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrctrbtrat + = -2 * Sum ( h2 ) * t ( p13 h2 )_t * i2 ( h2 p14 h12 h15 )_ytrctrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1.F index 7a6dbe80d8..0f3434ef2d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_1.F,v 1.1 2008-09-17 04:46:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrctrbtra + = 1 * Sum ( h4 ) * tra ( p14 h4 )_tra * i3 ( h2 h4 h12 h15 )_ytrctrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_1.F index b79f8de9d2..4e5d3e9568 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_1_1.F,v 1.1 2008-09-17 04:46:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrctrb + = 1 * Sum ( p5 ) * trb ( p5 h12 )_trb * i4 ( h2 h4 h15 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_1_1.F index fe262445cc..a7cee0b434 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_1_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_1_1_1.F,v 1.1 2008-09-17 04:46:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc + = 1 * Sum ( p7 ) * trc ( p7 h15 )_trc * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_1_2.F index ec4a946468..419acd575e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_1_1_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_1_1_2.F,v 1.1 2008-09-17 04:46:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc + = -1 * Sum ( h9 p7 p8 ) * trc ( p7 p8 h9 h15 )_trc * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_2.F index 16da08cce2..41b70acfdd 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_1_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_1_2.F,v 1.1 2008-09-17 04:46:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrbtrc + = 1 * Sum ( p5 ) * trc ( p5 h12 )_trc * i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_2_1.F index 5161737a52..5e4d88f7e8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_1_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_1_2_1.F,v 1.1 2008-09-17 04:46:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = 1 * Sum ( p7 ) * trb ( p7 h15 )_trb * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_2_2.F index bcb2de6dbc..e5ac6ae0e5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_1_2_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_1_2_2.F,v 1.1 2008-09-17 04:46:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = -1 * Sum ( h9 p7 p8 ) * trb ( p7 p8 h9 h15 )_trb * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2.F index a5eed36044..f250e9ca8f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_2.F,v 1.1 2008-09-17 04:46:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrbtrctra + = 1 * Sum ( p3 ) * tra ( p3 h12 )_tra * i3 ( h2 p14 h15 p3 )_ytrbtrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2_1.F index e0bfeb84f7..12890783b1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_2_1.F,v 1.1 2008-09-17 04:46:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrbtrc + = 1 * Sum ( h9 h10 p7 ) * trc ( p7 p14 h9 h10 )_trc * i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2_1_1.F index 5f585dc154..f7b32349e1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_2_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_2_1_1.F,v 1.1 2008-09-17 04:46:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb + = -1 * Sum ( p5 ) * trb ( p5 h15 )_trb * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2_2.F index 7b039fcf88..07f11e3e04 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_2_2.F,v 1.1 2008-09-17 04:46:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrctrb + = 1 * Sum ( h9 h10 p7 ) * trb ( p7 p14 h9 h10 )_trb * i4 ( h2 h9 h10 h15 p3 p7 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2_2_1.F index d5a6392db1..fa8c64917f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_2_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_2_2_1.F,v 1.1 2008-09-17 04:46:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrc + = -1 * Sum ( p5 ) * trc ( p5 h15 )_trc * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3.F index ee3c68911f..11ac45094a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_3.F,v 1.1 2008-09-17 04:46:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrbtratrc + = 1 * Sum ( h4 ) * trc ( p14 h4 )_trc * i3 ( h2 h4 h12 h15 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_1.F index 540c8ae4ab..140c6c26d5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_3_1.F,v 1.1 2008-09-17 04:46:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrbtra + = 1 * Sum ( p5 ) * tra ( p5 h12 )_tra * i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_1_1.F index c23cd76e7a..b08d5419c5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_3_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_3_1_1.F,v 1.1 2008-09-17 04:46:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = 1 * Sum ( p7 ) * trb ( p7 h15 )_trb * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_1_2.F index 76b3764a5b..6c153b2271 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_3_1_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_3_1_2.F,v 1.1 2008-09-17 04:46:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = -1 * Sum ( h9 p7 p8 ) * trb ( p7 p8 h9 h15 )_trb * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_2.F index d46f405497..1096bce7d7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_3_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_3_2.F,v 1.1 2008-09-17 04:46:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytratrb + = 1 * Sum ( p5 ) * trb ( p5 h12 )_trb * i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_2_1.F index 97a30c8917..ff8f2cf05b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_3_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_3_2_1.F,v 1.1 2008-09-17 04:46:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = 1 * Sum ( p7 ) * tra ( p7 h15 )_tra * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_2_2.F index 9ab6554b32..6655bc308e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_3_2_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_3_2_2.F,v 1.1 2008-09-17 04:46:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = -1 * Sum ( h9 p7 p8 ) * tra ( p7 p8 h9 h15 )_tra * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4.F index 5cec9f09b2..7d4c150691 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_4.F,v 1.1 2008-09-17 04:46:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytratrbtrc + = 1 * Sum ( p3 ) * trc ( p3 h12 )_trc * i3 ( h2 p14 h15 p3 )_ytratrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4_1.F index 4f3e666acc..debfdcfc51 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_4_1.F,v 1.1 2008-09-17 04:46:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytratrb + = 1 * Sum ( h9 h10 p7 ) * trb ( p7 p14 h9 h10 )_trb * i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4_1_1.F index 7bbb69e763..e6e8e12352 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_4_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_4_1_1.F,v 1.1 2008-09-17 04:46:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra + = -1 * Sum ( p5 ) * tra ( p5 h15 )_tra * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4_2.F index 559eb1bf2b..ae23612cde 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_4_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_4_2.F,v 1.1 2008-09-17 04:46:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrbtra + = 1 * Sum ( h9 h10 p7 ) * tra ( p7 p14 h9 h10 )_tra * i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4_2_1.F index 70a94414e3..5212c90a93 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_4_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_4_2_1.F,v 1.1 2008-09-17 04:46:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb + = -1 * Sum ( p5 ) * trb ( p5 h15 )_trb * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5.F index d48573ae22..5b12db2a5f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_5(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_5.F,v 1.1 2008-09-17 04:46:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrctratrb + = 1 * Sum ( h4 ) * trb ( p14 h4 )_trb * i3 ( h2 h4 h12 h15 )_ytrctra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_1.F index d8db1b85ae..076ea73815 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_5_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_5_1.F,v 1.1 2008-09-17 04:46:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrctra + = 1 * Sum ( p5 ) * tra ( p5 h12 )_tra * i4 ( h2 h4 h15 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_1_1.F index 81a28fba6a..397764f139 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_5_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_5_1_1.F,v 1.1 2008-09-17 04:46:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc + = 1 * Sum ( p7 ) * trc ( p7 h15 )_trc * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_1_2.F index 4e3aea4621..a1148d69a6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_5_1_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_5_1_2.F,v 1.1 2008-09-17 04:46:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc + = -1 * Sum ( h9 p7 p8 ) * trc ( p7 p8 h9 h15 )_trc * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_2.F index c8170b538d..535f2f7230 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_5_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_5_2.F,v 1.1 2008-09-17 04:46:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytratrc + = 1 * Sum ( p5 ) * trc ( p5 h12 )_trc * i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_2_1.F index 1b59f22b97..35cd5fd78a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_5_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_5_2_1.F,v 1.1 2008-09-17 04:46:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = 1 * Sum ( p7 ) * tra ( p7 h15 )_tra * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_2_2.F index 777dd4edc1..e717b9a69c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_5_2_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_5_2_2.F,v 1.1 2008-09-17 04:46:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = -1 * Sum ( h9 p7 p8 ) * tra ( p7 p8 h9 h15 )_tra * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6.F index ff3ee159b6..ffbf4467db 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_6(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_6.F,v 1.1 2008-09-17 04:46:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytratrctrb + = 1 * Sum ( p3 ) * trb ( p3 h12 )_trb * i3 ( h2 p14 h15 p3 )_ytratrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6_1.F index ab201d0bf1..de183bba9f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_6_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_6_1.F,v 1.1 2008-09-17 04:46:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytratrc + = 1 * Sum ( h9 h10 p7 ) * trc ( p7 p14 h9 h10 )_trc * i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6_1_1.F index 53ac9b9cf1..1203f959c4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_6_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_6_1_1.F,v 1.1 2008-09-17 04:46:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra + = -1 * Sum ( p5 ) * tra ( p5 h15 )_tra * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6_2.F index e9828fa5e0..562962e20c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_6_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_6_2.F,v 1.1 2008-09-17 04:46:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrctra + = 1 * Sum ( h9 h10 p7 ) * tra ( p7 p14 h9 h10 )_tra * i4 ( h2 h9 h10 h15 p3 p7 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6_2_1.F index d6e5156f88..75008f733e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_6_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_6_2_1.F,v 1.1 2008-09-17 04:46:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrc + = -1 * Sum ( p5 ) * trc ( p5 h15 )_trc * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_1.F index e771747239..a209328df2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_2_1.F,v 1.1 2008-09-17 04:46:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h15 )_ytrctra + = 1 * Sum ( h2 ) * tra ( p13 h2 )_tra * i3 ( h2 h15 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_1_1.F index fef45fd257..288600ceff 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_2_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_2_1_1.F,v 1.1 2008-09-17 04:46:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytrc + = 1 * Sum ( h8 h9 p5 p6 p7 ) * trc ( p5 p6 p7 h8 h9 h15 )_trc * y ( h2 h8 h9 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_2.F index 1ddb82d042..18181596b7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_2_2.F,v 1.1 2008-09-17 04:46:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h15 )_ytratrc + = 1 * Sum ( h2 ) * trc ( p13 h2 )_trc * i3 ( h2 h15 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_2_1.F index f4f2b736fb..da3140f5e3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_2_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_2_2_1.F,v 1.1 2008-09-17 04:46:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytra + = 1 * Sum ( h8 h9 p5 p6 p7 ) * tra ( p5 p6 p7 h8 h9 h15 )_tra * y ( h2 h8 h9 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3.F index 283be0751e..6f8797a2d3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_4_3.F,v 1.1 2008-09-17 04:46:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrbtratrc + = 1/3 * Sum ( h8 h9 h10 p5 ) * trc ( p5 p13 p14 h8 h9 h10 )_trc * i2 ( h8 h9 h10 h12 h15 p5 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_1.F index 9d1edb2d81..8df2203936 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_3_1.F,v 1.1 2008-09-17 04:46:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h10 h12 h15 p5 )_ytrbtra + = 1 * Sum ( p1 ) * tra ( p1 h12 )_tra * i3 ( h8 h9 h10 h15 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_1_1.F index f62f025ec8..dcf6a9917f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_3_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_3_1_1.F,v 1.1 2008-09-17 04:46:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h15 p1 p5 )_ytrb + = -1 * Sum ( p3 ) * trb ( p3 h15 )_trb * y ( h8 h9 h10 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_2.F index 7da3f664f0..4dd29ad42e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_3_2.F,v 1.1 2008-09-17 04:46:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h10 h12 h15 p5 )_ytratrb + = 1 * Sum ( p1 ) * trb ( p1 h12 )_trb * i3 ( h8 h9 h10 h15 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_2_1.F index baaeddd4c3..9e64de286b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_3_2_1.F,v 1.1 2008-09-17 04:46:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h15 p1 p5 )_ytra + = -1 * Sum ( p3 ) * tra ( p3 h15 )_tra * y ( h8 h9 h10 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4.F index 288ac9b283..bda0f3bb0f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_4_4.F,v 1.1 2008-09-17 04:46:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytratrctrb + = -2/3 * trb ( p13 h15 )_trb * i2 ( p14 h12 )_ytratrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_1.F index ca35690df9..a221061623 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_4_1.F,v 1.1 2008-09-17 04:46:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p14 h12 )_ytratrc + = 1 * Sum ( h8 h9 h10 p5 p6 ) * trc ( p5 p6 p14 h8 h9 h10 )_trc * i3 ( h8 h9 h10 h12 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_1_1.F index cd9ede6ffc..e2063e2233 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_4_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_4_1_1.F,v 1.1 2008-09-17 04:46:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h12 p5 p6 )_ytra + = 1 * Sum ( p1 ) * tra ( p1 h12 )_tra * y ( h8 h9 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_2.F index 508088adbb..0c8675eb08 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_4_2.F,v 1.1 2008-09-17 04:46:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p14 h12 )_ytrctra + = 1 * Sum ( h8 h9 h10 p5 p6 ) * tra ( p5 p6 p14 h8 h9 h10 )_tra * i3 ( h8 h9 h10 h12 p5 p6 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_2_1.F index 0ad9f9c705..1daabd4cc0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_4_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_4_2_1.F,v 1.1 2008-09-17 04:46:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h12 p5 p6 )_ytrc + = 1 * Sum ( p1 ) * trc ( p1 h12 )_trc * y ( h8 h9 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5.F index 9effcf460e..d8a703394b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_4_5.F,v 1.1 2008-09-17 04:46:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytratrbtrc + = -1 * Sum ( h10 ) * trc ( p14 h10 )_trc * i2 ( h10 p13 h12 h15 )_ytratrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_1.F index 66f0b356e3..4e7314dab1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_5_1.F,v 1.1 2008-09-17 04:46:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p13 h12 h15 )_ytratrb + = 1 * Sum ( p5 p6 ) * trb ( p5 p6 h12 h15 )_trb * i3 ( h10 p13 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_1_1.F index b9074f804f..369717c603 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_5_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_5_1_1.F,v 1.1 2008-09-17 04:46:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p13 p5 p6 )_ytra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p13 h3 h4 )_tra * y ( h3 h4 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_2.F index 65cae367d3..fc18616d93 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_5_2.F,v 1.1 2008-09-17 04:46:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p13 h12 h15 )_ytratrb + = 4 * Sum ( h7 p5 ) * trb ( p5 p13 h7 h15 )_trb * i3 ( h7 h10 h12 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_2_1.F index e3f8b4abda..9ff31abad4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_5_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_5_2_1.F,v 1.1 2008-09-17 04:46:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h12 p5 )_ytra + = -1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h12 )_tra * y ( h3 h7 h10 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_3.F index 81a6a52310..d1effc4da4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_5_3.F,v 1.1 2008-09-17 04:46:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p13 h12 h15 )_ytrbtra + = 1 * Sum ( p5 p6 ) * tra ( p5 p6 h12 h15 )_tra * i3 ( h10 p13 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_3_1.F index b737c8e7b6..dab9936b24 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_5_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_5_3_1.F,v 1.1 2008-09-17 04:46:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p13 p5 p6 )_ytrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p13 h3 h4 )_trb * y ( h3 h4 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_4.F index 175f7c0a0b..a4f655f42e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_5_4.F,v 1.1 2008-09-17 04:46:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p13 h12 h15 )_ytrbtra + = 4 * Sum ( h7 p5 ) * tra ( p5 p13 h7 h15 )_tra * i3 ( h7 h10 h12 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_4_1.F index 4bbcb6847c..a30c5c3c48 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_5_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_5_4_1.F,v 1.1 2008-09-17 04:46:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h12 p5 )_ytrb + = -1 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h12 )_trb * y ( h3 h7 h10 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6.F index 42362c31d4..eeb7845a51 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_4_6.F,v 1.1 2008-09-17 04:46:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrctratrb + = -4 * Sum ( h7 p5 ) * trb ( p5 p14 h7 h12 )_trb * i2 ( h7 p13 h15 p5 )_ytrctra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_1.F index c107260c23..5d5d70c5b5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_6_1.F,v 1.1 2008-09-17 04:46:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p13 h15 p5 )_ytrctra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p13 h3 h4 )_tra * i3 ( h3 h4 h7 h15 p1 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_1_1.F index 0cd4223138..ed14148905 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_6_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_6_1_1.F,v 1.1 2008-09-17 04:46:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytrc + = -1 * Sum ( p9 ) * trc ( p9 h15 )_trc * y ( h3 h4 h7 p1 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_2.F index 5fd14202dd..fb6fada0ad 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_6_2.F,v 1.1 2008-09-17 04:46:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p13 h15 p5 )_ytratrc + = 1 * Sum ( h3 h4 p1 ) * trc ( p1 p13 h3 h4 )_trc * i3 ( h3 h4 h7 h15 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_2_1.F index f8cb173629..366a4083a2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_6_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_6_2_1.F,v 1.1 2008-09-17 04:46:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytra + = -1 * Sum ( p9 ) * tra ( p9 h15 )_tra * y ( h3 h4 h7 p1 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7.F index 5321a93b80..b1bd75029c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_4_7.F,v 1.1 2008-09-17 04:46:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytratrctrb + = -1 * Sum ( h7 h8 ) * trb ( p13 p14 h7 h8 )_trb * i2 ( h7 h8 h12 h15 )_ytratrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_1.F index 4449ad4273..59778d1636 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_7_1.F,v 1.1 2008-09-17 04:46:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h12 h15 )_ytratrc + = 1 * Sum ( p9 ) * trc ( p9 h15 )_trc * i3 ( h7 h8 h12 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_1_1.F index f0265fb66d..0792e762f1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_7_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_7_1_1.F,v 1.1 2008-09-17 04:46:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h12 p9 )_ytra + = 1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h12 )_tra * y ( h3 h7 h8 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_2.F index 9714c168c4..428c100cd6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_7_2.F,v 1.1 2008-09-17 04:46:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h12 h15 )_ytrctra + = 1 * Sum ( p9 ) * tra ( p9 h15 )_tra * i3 ( h7 h8 h12 p9 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_2_1.F index dde39a95d0..aa713f74dd 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_7_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_7_2_1.F,v 1.1 2008-09-17 04:46:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h12 p9 )_ytrc + = 1 * Sum ( h3 p1 p2 ) * trc ( p1 p2 h3 h12 )_trc * y ( h3 h7 h8 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8.F index 1df722aaff..230d4acbfd 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_4_8.F,v 1.1 2008-09-17 04:46:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrbtratrc + = -2 * trc ( p14 h15 )_trc * i2 ( p13 h12 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_1.F index 4d7f503f30..8ec6c1eb13 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_8_1.F,v 1.1 2008-09-17 04:46:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h12 )_ytrbtra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p13 h3 h4 )_tra * i3 ( h3 h4 h12 p1 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_1_1.F index a6b3dfa00e..a8100f1e7c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_8_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_8_1_1.F,v 1.1 2008-09-17 04:46:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h12 p1 )_ytrb + = 1 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h12 )_trb * y ( h3 h4 h7 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_2.F index c16f6700ba..24dbd5cee7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_8_2.F,v 1.1 2008-09-17 04:46:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h12 )_ytratrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p13 h3 h4 )_trb * i3 ( h3 h4 h12 p1 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_2_1.F index fb0a657ff4..75a3986362 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_8_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_8_2_1.F,v 1.1 2008-09-17 04:46:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h12 p1 )_ytra + = 1 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h12 )_tra * y ( h3 h4 h7 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9.F index 3f72df1ccc..eb90d19507 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_4_9.F,v 1.1 2008-09-17 04:46:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrbtratrc + = 1 * Sum ( h2 ) * trc ( p13 h2 )_trc * i2 ( h2 p14 h12 h15 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1.F index ac8da9153d..9a7984ead9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_1.F,v 1.1 2008-09-17 04:46:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrbtra + = 1 * Sum ( h4 ) * tra ( p14 h4 )_tra * i3 ( h2 h4 h12 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10.F index 0376563151..7a31ed87c3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_10(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_10.F,v 1.1 2008-09-17 04:46:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrattrb + = -2 * Sum ( p3 ) * trb ( p3 h12 )_trb * i3 ( h2 p14 h15 p3 )_ytrat diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10_1.F index 6551c099e2..2e3abd9870 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_10_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_10_1.F,v 1.1 2008-09-17 04:46:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrat + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p14 h9 h10 )_t * i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10_1_1.F index 2111b8c4de..592b43dd46 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_10_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_10_1_1.F,v 1.1 2008-09-17 04:46:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra + = -1 * Sum ( p5 ) * tra ( p5 h15 )_tra * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10_2.F index 0ece9f32a8..c45db488ca 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_10_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_10_2.F,v 1.1 2008-09-17 04:46:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_yttra + = 1 * Sum ( h9 h10 p7 ) * tra ( p7 p14 h9 h10 )_tra * i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10_2_1.F index e62d815b33..fa3cdf0517 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_10_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_10_2_1.F,v 1.1 2008-09-17 04:46:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h15 )_t * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_1.F index 5e9282080a..ded0915aab 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_1_1.F,v 1.1 2008-09-17 04:46:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrb + = -1 * Sum ( p5 p6 ) * trb ( p5 p6 h12 h15 )_trb * y ( h2 h4 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_2.F index e955a01a39..b87389bef8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_1_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_1_2.F,v 1.1 2008-09-17 04:46:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrb + = -1/3 * Sum ( h8 p5 p6 p7 ) * trb ( p5 p6 p7 h8 h12 h15 )_trb * y ( h2 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_3.F index a5547d140c..4ed22642f9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_1_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_1_3.F,v 1.1 2008-09-17 04:46:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_yttrb + = -2 * Sum ( p5 ) * trb ( p5 h12 )_trb * i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_3_1.F index b7ad3bf734..4abcf86d90 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_1_3_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_1_3_1.F,v 1.1 2008-09-17 04:46:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h15 )_t * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_3_2.F index c7face0cdd..b61d1bea0f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_1_3_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_1_3_2.F,v 1.1 2008-09-17 04:46:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h9 h15 )_t * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_4.F index bca2053d21..7d998f637d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_1_4(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_1_4.F,v 1.1 2008-09-17 04:46:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrbt + = -2 * Sum ( p5 ) * t ( p5 h12 )_t * i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_4_1.F index a091ef81bd..0782aa0ff8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_1_4_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_1_4_1.F,v 1.1 2008-09-17 04:46:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = 1 * Sum ( p7 ) * trb ( p7 h15 )_trb * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_4_2.F index b050d4476c..0417275aaf 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_1_4_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_1_4_2.F,v 1.1 2008-09-17 04:46:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = -1 * Sum ( h9 p7 p8 ) * trb ( p7 p8 h9 h15 )_trb * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_2.F index 4ed3153954..bbc7fc733e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_2.F,v 1.1 2008-09-17 04:46:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytratrb + = 8 * Sum ( h7 p5 ) * trb ( p5 p14 h7 h15 )_trb * i3 ( h2 h7 h12 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_2_1.F index 07fae4ec3b..35fa562d33 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_2_1.F,v 1.1 2008-09-17 04:46:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p5 )_ytra + = 1 * Sum ( p3 ) * tra ( p3 h12 )_tra * y ( h2 h7 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_3.F index 4bdc214e9d..d40fe626ca 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_3.F,v 1.1 2008-09-17 04:46:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytratrb + = 2 * Sum ( h8 h9 p5 p6 ) * trb ( p5 p6 p14 h8 h9 h15 )_trb * i3 ( h2 h8 h9 h12 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_3_1.F index 34659e3276..6e0845c1ee 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_3_1.F,v 1.1 2008-09-17 04:46:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h12 p5 p6 )_ytra + = 1 * Sum ( p3 ) * tra ( p3 h12 )_tra * y ( h2 h8 h9 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4.F index 370a0a2209..187f92f1e6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_4.F,v 1.1 2008-09-17 04:46:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytratrb + = 1 * Sum ( h4 ) * trb ( p14 h4 )_trb * i3 ( h2 h4 h12 h15 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_1.F index 3422e43a04..ecf16a7d0a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_4_1.F,v 1.1 2008-09-17 04:46:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytra + = -1 * Sum ( p5 p6 ) * tra ( p5 p6 h12 h15 )_tra * y ( h2 h4 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_2.F index 5a73883862..8541ef7deb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_4_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_4_2.F,v 1.1 2008-09-17 04:46:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytra + = -1/3 * Sum ( h8 p5 p6 p7 ) * tra ( p5 p6 p7 h8 h12 h15 )_tra * y ( h2 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_3.F index 3bca0ba97a..aa470c67a1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_4_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_4_3.F,v 1.1 2008-09-17 04:46:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_yttra + = -2 * Sum ( p5 ) * tra ( p5 h12 )_tra * i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_3_1.F index e65cc6bf08..6df105cd2a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_4_3_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_4_3_1.F,v 1.1 2008-09-17 04:46:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h15 )_t * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_3_2.F index 15efc8dfb0..8c085ee9ba 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_4_3_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_4_3_2.F,v 1.1 2008-09-17 04:46:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h9 h15 )_t * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_4.F index 85fd6940b0..711608a6bb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_4_4(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_4_4.F,v 1.1 2008-09-17 04:46:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrat + = -2 * Sum ( p5 ) * t ( p5 h12 )_t * i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_4_1.F index 198a08d112..9833757198 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_4_4_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_4_4_1.F,v 1.1 2008-09-17 04:46:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = 1 * Sum ( p7 ) * tra ( p7 h15 )_tra * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_4_2.F index 358f17b414..e922fb59a8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_4_4_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_4_4_2.F,v 1.1 2008-09-17 04:46:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = -1 * Sum ( h9 p7 p8 ) * tra ( p7 p8 h9 h15 )_tra * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_5.F index 24eb79f56a..136dcbfa31 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_5(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_5.F,v 1.1 2008-09-17 04:46:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrbtra + = 8 * Sum ( h7 p5 ) * tra ( p5 p14 h7 h15 )_tra * i3 ( h2 h7 h12 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_5_1.F index c2b9ea1c2a..e5e37b57be 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_5_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_5_1.F,v 1.1 2008-09-17 04:46:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p5 )_ytrb + = 1 * Sum ( p3 ) * trb ( p3 h12 )_trb * y ( h2 h7 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_6.F index ca7d09cfec..c5b8f187aa 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_6(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_6.F,v 1.1 2008-09-17 04:46:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrbtra + = 2 * Sum ( h8 h9 p5 p6 ) * tra ( p5 p6 p14 h8 h9 h15 )_tra * i3 ( h2 h8 h9 h12 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_6_1.F index cbb9d724f4..e35b221c50 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_6_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_6_1.F,v 1.1 2008-09-17 04:46:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h12 p5 p6 )_ytrb + = 1 * Sum ( p3 ) * trb ( p3 h12 )_trb * y ( h2 h8 h9 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7.F index bc4b2c5ab4..7de76f0233 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_7(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_7.F,v 1.1 2008-09-17 04:46:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrbttra + = -2 * Sum ( p3 ) * tra ( p3 h12 )_tra * i3 ( h2 p14 h15 p3 )_ytrbt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7_1.F index 5de91adf38..4cf2382035 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_7_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_7_1.F,v 1.1 2008-09-17 04:46:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrbt + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p14 h9 h10 )_t * i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7_1_1.F index 9341ab30ff..a25054c4a0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_7_1_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_7_1_1.F,v 1.1 2008-09-17 04:46:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb + = -1 * Sum ( p5 ) * trb ( p5 h15 )_trb * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7_2.F index 47661c52b6..0453a1da45 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_7_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_7_2.F,v 1.1 2008-09-17 04:46:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_yttrb + = 1 * Sum ( h9 h10 p7 ) * trb ( p7 p14 h9 h10 )_trb * i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7_2_1.F index 469a324bf5..492526d41c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_7_2_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_7_2_1.F,v 1.1 2008-09-17 04:46:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h15 )_t * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8.F index 0b5e21b63e..83eb0d0d2f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_8(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_8.F,v 1.1 2008-09-17 04:46:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrbtrat + = -2 * Sum ( h4 ) * t ( p14 h4 )_t * i3 ( h2 h4 h12 h15 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_1.F index b50b5d0e91..8f821333e3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_8_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_8_1.F,v 1.1 2008-09-17 04:46:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrbtra + = 1 * Sum ( p5 ) * tra ( p5 h12 )_tra * i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_1_1.F index e6fb4b2fa1..877b2797fa 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_8_1_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_8_1_1.F,v 1.1 2008-09-17 04:46:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = 1 * Sum ( p7 ) * trb ( p7 h15 )_trb * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_1_2.F index 3f22298519..26cf0e8c0c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_8_1_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_8_1_2.F,v 1.1 2008-09-17 04:46:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = -1 * Sum ( h9 p7 p8 ) * trb ( p7 p8 h9 h15 )_trb * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_2.F index 42bfed6068..84562695d3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_8_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_8_2.F,v 1.1 2008-09-17 04:46:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytratrb + = 1 * Sum ( p5 ) * trb ( p5 h12 )_trb * i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_2_1.F index 690190913d..30f911adc4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_8_2_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_8_2_1.F,v 1.1 2008-09-17 04:46:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = 1 * Sum ( p7 ) * tra ( p7 h15 )_tra * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_2_2.F index a5d764381f..58c73d8485 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_8_2_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_8_2_2.F,v 1.1 2008-09-17 04:46:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = -1 * Sum ( h9 p7 p8 ) * tra ( p7 p8 h9 h15 )_tra * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9.F index 4d83050436..eea2810394 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_9(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_9.F,v 1.1 2008-09-17 04:46:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytratrbt + = -2 * Sum ( p3 ) * t ( p3 h12 )_t * i3 ( h2 p14 h15 p3 )_ytratrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9_1.F index 82c6e0d10f..0645d621c9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_9_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_9_1.F,v 1.1 2008-09-17 04:46:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytratrb + = 1 * Sum ( h9 h10 p7 ) * trb ( p7 p14 h9 h10 )_trb * i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9_1_1.F index f4bd18d4b0..54cb0152ab 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_9_1_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_9_1_1.F,v 1.1 2008-09-17 04:46:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra + = -1 * Sum ( p5 ) * tra ( p5 h15 )_tra * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9_2.F index c5fd36b447..d8ad588484 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_9_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_9_2.F,v 1.1 2008-09-17 04:46:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrbtra + = 1 * Sum ( h9 h10 p7 ) * tra ( p7 p14 h9 h10 )_tra * i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9_2_1.F index 78022fcd40..585f7fc458 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_9_2_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_9_2_1.F,v 1.1 2008-09-17 04:46:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb + = -1 * Sum ( p5 ) * trb ( p5 h15 )_trb * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5.F index 3871410181..4f82c09b1a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_4_5.F,v 1.1 2008-09-17 04:46:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytrctrbtrav + = 1/4 * Sum ( p1 p10 h12 p9 ) * i1 ( p1 p10 h12 p9 )_ytrctrbtra * v ( h12 p9 p1 p10 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1.F index 096f0d48ac..51ccf9deea 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_5_1.F,v 1.1 2008-09-17 04:46:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p10 h12 p9 )_ytrctrbtra + = 1 * Sum ( h2 ) * tra ( p1 h2 )_tra * i2 ( h2 p10 h12 p9 )_ytrctrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_1.F index 4281541360..33a5b136bb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_1_1.F,v 1.1 2008-09-17 04:46:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p10 h12 p9 )_ytrctrb + = 1 * Sum ( h4 ) * trb ( p10 h4 )_trb * i3 ( h2 h4 h12 p9 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_1_1.F index 910d2f9f30..88e5781623 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_1_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_1_1_1.F,v 1.1 2008-09-17 04:46:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 p9 )_ytrc + = -1 * Sum ( h7 p5 p6 ) * trc ( p5 p6 h7 h12 )_trc * y ( h2 h4 h7 p5 p6 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_2.F index b9d89d32a6..0c24850a92 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_1_2.F,v 1.1 2008-09-17 04:46:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p10 h12 p9 )_ytrbtrc + = 2 * Sum ( h7 h8 p5 ) * trc ( p5 p10 h7 h8 )_trc * i3 ( h2 h7 h8 h12 p5 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_2_1.F index 62c2f53539..cb5fd23385 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_1_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_1_2_1.F,v 1.1 2008-09-17 04:46:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h12 p5 p9 )_ytrb + = -1 * Sum ( p3 ) * trb ( p3 h12 )_trb * y ( h2 h7 h8 p3 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_3.F index 9e9e059dce..e1ac8bd44b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_1_3.F,v 1.1 2008-09-17 04:46:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p10 h12 p9 )_ytrbtrc + = 1 * Sum ( h4 ) * trc ( p10 h4 )_trc * i3 ( h2 h4 h12 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_3_1.F index 8244ab416e..54ac8cf091 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_1_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_1_3_1.F,v 1.1 2008-09-17 04:46:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 p9 )_ytrb + = -1 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h12 )_trb * y ( h2 h4 h7 p5 p6 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_4.F index fcee5a9f97..f5faf44db2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_1_4.F,v 1.1 2008-09-17 04:46:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p10 h12 p9 )_ytrctrb + = 2 * Sum ( h7 h8 p5 ) * trb ( p5 p10 h7 h8 )_trb * i3 ( h2 h7 h8 h12 p5 p9 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_4_1.F index ac921555f6..7d707d9c52 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_1_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_1_4_1.F,v 1.1 2008-09-17 04:46:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h12 p5 p9 )_ytrc + = -1 * Sum ( p3 ) * trc ( p3 h12 )_trc * y ( h2 h7 h8 p3 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2.F index 36b308c428..0e80e114a9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_5_2.F,v 1.1 2008-09-17 04:46:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p10 h12 p9 )_ytrbtratrc + = 1 * Sum ( h2 ) * trc ( p1 h2 )_trc * i2 ( h2 p10 h12 p9 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_1.F index 53b9e79498..11b78e753c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_2_1.F,v 1.1 2008-09-17 04:46:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p10 h12 p9 )_ytrbtra + = 1 * Sum ( h4 ) * tra ( p10 h4 )_tra * i3 ( h2 h4 h12 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_1_1.F index 55891f80c2..18bd3ac660 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_2_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_2_1_1.F,v 1.1 2008-09-17 04:46:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 p9 )_ytrb + = -1 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h12 )_trb * y ( h2 h4 h7 p5 p6 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_2.F index e117b36ddb..4ee5a2cf9c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_2_2.F,v 1.1 2008-09-17 04:46:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p10 h12 p9 )_ytratrb + = 2 * Sum ( h7 h8 p5 ) * trb ( p5 p10 h7 h8 )_trb * i3 ( h2 h7 h8 h12 p5 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_2_1.F index 566392ba67..233ee4c273 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_2_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_2_2_1.F,v 1.1 2008-09-17 04:46:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h12 p5 p9 )_ytra + = -1 * Sum ( p3 ) * tra ( p3 h12 )_tra * y ( h2 h7 h8 p3 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_3.F index 3d697332fd..7cd9fb681b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_2_3.F,v 1.1 2008-09-17 04:46:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p10 h12 p9 )_ytratrb + = 1 * Sum ( h4 ) * trb ( p10 h4 )_trb * i3 ( h2 h4 h12 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_3_1.F index b555609a6e..6345d1d3a2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_2_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_2_3_1.F,v 1.1 2008-09-17 04:46:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 p9 )_ytra + = -1 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h12 )_tra * y ( h2 h4 h7 p5 p6 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_4.F index debbf0cc9d..f36ae92c85 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_2_4.F,v 1.1 2008-09-17 04:46:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p10 h12 p9 )_ytrbtra + = 2 * Sum ( h7 h8 p5 ) * tra ( p5 p10 h7 h8 )_tra * i3 ( h2 h7 h8 h12 p5 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_4_1.F index d4ac55e1d0..46eb96e738 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_2_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_2_4_1.F,v 1.1 2008-09-17 04:46:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h12 p5 p9 )_ytrb + = -1 * Sum ( p3 ) * trb ( p3 h12 )_trb * y ( h2 h7 h8 p3 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3.F index 0cd32d4424..89a1726841 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_5_3.F,v 1.1 2008-09-17 04:46:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p10 h12 p9 )_ytratrctrb + = 1 * Sum ( h2 ) * trb ( p1 h2 )_trb * i2 ( h2 p10 h12 p9 )_ytratrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_1.F index fcd24ba891..d808875230 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_3_1.F,v 1.1 2008-09-17 04:46:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p10 h12 p9 )_ytratrc + = 1 * Sum ( h4 ) * trc ( p10 h4 )_trc * i3 ( h2 h4 h12 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_1_1.F index 8c2b10d610..addce9efe8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_3_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_3_1_1.F,v 1.1 2008-09-17 04:46:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 p9 )_ytra + = -1 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h12 )_tra * y ( h2 h4 h7 p5 p6 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_2.F index 3b33847c61..829faea55e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_3_2.F,v 1.1 2008-09-17 04:46:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p10 h12 p9 )_ytrctra + = 2 * Sum ( h7 h8 p5 ) * tra ( p5 p10 h7 h8 )_tra * i3 ( h2 h7 h8 h12 p5 p9 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_2_1.F index b9dea8be37..933c155b79 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_3_2_1.F,v 1.1 2008-09-17 04:46:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h12 p5 p9 )_ytrc + = -1 * Sum ( p3 ) * trc ( p3 h12 )_trc * y ( h2 h7 h8 p3 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_3.F index b79e39a544..f09c05ed36 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_3_3.F,v 1.1 2008-09-17 04:46:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p10 h12 p9 )_ytrctra + = 1 * Sum ( h4 ) * tra ( p10 h4 )_tra * i3 ( h2 h4 h12 p9 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_3_1.F index f72a6ed799..83b0d92f87 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_3_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_3_3_1.F,v 1.1 2008-09-17 04:46:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 p9 )_ytrc + = -1 * Sum ( h7 p5 p6 ) * trc ( p5 p6 h7 h12 )_trc * y ( h2 h4 h7 p5 p6 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_4.F index 589c4ac9bb..aa43683631 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_3_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_3_4.F,v 1.1 2008-09-17 04:46:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p10 h12 p9 )_ytratrc + = 2 * Sum ( h7 h8 p5 ) * trc ( p5 p10 h7 h8 )_trc * i3 ( h2 h7 h8 h12 p5 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_4_1.F index 044290b7a7..618b0168f7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_3_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_3_4_1.F,v 1.1 2008-09-17 04:46:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h12 p5 p9 )_ytra + = -1 * Sum ( p3 ) * tra ( p3 h12 )_tra * y ( h2 h7 h8 p3 p5 p9 )_y diff --git a/src/tce/ccsdt_lambda/GNUmakefile b/src/tce/ccsdt_lambda/GNUmakefile index 673ed15bbd..9244d0aa57 100644 --- a/src/tce/ccsdt_lambda/GNUmakefile +++ b/src/tce/ccsdt_lambda/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.4 2005-12-20 21:19:40 edo Exp $ +#$Id$ OBJ_OPTIMIZE = ccsdt_lambda3.o ccsdt_density1.o \ ccsdt_lambda1.o\ diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_10_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_10_1.F index 6ebe094d36..84fde02e9e 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_10_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_10_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_10_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_10_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_11_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_11_1.F index e0231c5fdc..e9c297b741 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_11_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_11_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_11_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_11_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 h8 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_12_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_12_1.F index 3c49f3ec90..0e3d2da65e 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_12_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_12_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_12_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_12_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 p10 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_13_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_13_1.F index 30ed24d11d..e3bb9b7118 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_13_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_13_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_13_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_13_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h9 p10 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_1.F index 4caf84de6c..593e7b2942 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_14_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_14_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h12 h13 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_3_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_3_1.F index bced236c55..962abf1231 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_3_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_14_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_14_3_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h12 h13 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_3_3_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_3_3_1.F index a3ef857379..d128fb9a31 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_3_3_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_3_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda1_14_3_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lambda1_14_3_3_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h10 h13 p5 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_4_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_4_1.F index 506005e6a6..de3e2c0fc1 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_4_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_14_4_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_14_4_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h5 h13 p3 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_5_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_5_1.F index b4dee6a0ec..8f9a773d5d 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_5_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_14_5_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_14_5_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h12 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_6_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_6_1.F index 3a81a38c35..90b27c954f 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_6_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_6_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_14_6_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_14_6_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h7 h13 p3 p4 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_7_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_7_1.F index cd2b793b92..efaff5e2ab 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_7_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_7_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_14_7_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_14_7_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 p7 p8 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_8_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_8_1.F index 8ee1546abb..bb4450e2ae 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_8_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_8_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_14_8_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_14_8_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h9 h12 p7 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_8_1_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_8_1_1.F index 2a8435e0d0..474ec8dd2e 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_8_1_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_8_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda1_14_8_1_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lambda1_14_8_1_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h5 h9 p3 p4 p7 )_y diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_9_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_9_1.F index cf5e9b6c56..b7214f4b9a 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_9_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_9_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_14_9_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_14_9_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h13 p3 )_ytt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_9_1_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_9_1_1.F index 78e169e135..5518bba00c 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_9_1_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_9_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda1_14_9_1_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lambda1_14_9_1_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h9 h10 h13 p3 p7 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_15_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_15_1.F index 5d08715ee5..20d0b67e4f 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_15_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_15_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_15_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_15_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h8 h12 h13 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_15_3_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_15_3_1.F index b9acc878c3..cb104ef257 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_15_3_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_15_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_15_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_15_3_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h13 p3 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_15_4_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_15_4_1.F index 97edeab469..c2e47c216a 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_15_4_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_15_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_15_4_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_15_4_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h12 p7 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_16_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_16_1.F index 67145d51be..f7d184853f 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_16_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_16_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_16_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_16_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h10 p12 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_16_3_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_16_3_1.F index f29ea978fd..26d6f9da07 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_16_3_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_16_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_16_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_16_3_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h10 p12 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_16_4_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_16_4_1.F index 84e4f92fbd..082dfac1d2 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_16_4_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_16_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_16_4_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_16_4_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h5 h6 h10 p3 p12 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_17_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_17_1.F index 2ddab25500..04bf32424d 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_17_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_17_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_17_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_17_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h6 p1 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_1.F index 5eabaca8f6..284ef0bc2c 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_18_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_18_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p13 p15 h12 h14 h16 )_vt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_1_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_1_1.F index e08b1943a6..d26bf7952b 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_1_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_1_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_18_1_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_18_1_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p15 h16 p4 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_1_4_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_1_4_1.F index 724890a923..935e6b08a8 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_1_4_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda1_18_1_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lambda1_18_1_4_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h10 p4 p8 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_2_1.F index 79fef9b866..4fc3a87b3c 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_18_2_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_18_2_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p4 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_3_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_3_1.F index df38ec6474..ce8164e7dd 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_3_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_18_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_18_3_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h16 p5 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_5_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_5_1.F index f9c0912d75..0518d09d9d 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_5_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_18_5_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_18_5_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 p13 h12 h14 h16 )_vt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_6_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_6_1.F index d568b07a86..45dd723e11 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_6_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_6_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_18_6_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_18_6_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p13 h12 p8 )_vtt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_6_1_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_6_1_1.F index e1fe22f703..e155f74e4a 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_6_1_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_6_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda1_18_6_1_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lambda1_18_6_1_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h6 h12 p8 )_vt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_19_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_19_1.F index dfadaad091..2480cd935f 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_19_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_19_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_19_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_19_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p4 p7 p8 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_20_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_20_1.F index afb5ac4530..ac5f9029e8 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_20_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_20_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_20_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_20_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p7 h6 p1 )_ytt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_20_1_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_20_1_1.F index 4a59288191..a2bc9a80c3 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_20_1_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_20_1_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_20_1_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_20_1_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h6 p1 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_1.F index 0c38b8b914..5d3b50d24a 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_21_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_21_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p12 p13 h11 p1 )_ytt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_1_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_1_1.F index fc0d816af9..84a37021ea 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_1_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_1_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_21_1_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_21_1_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h11 p1 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_1_1_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_1_1_1.F index 686bab57ab..b58ef629e3 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_1_1_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda1_21_1_1_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lambda1_21_1_1_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h5 h9 h10 p1 p3 p4 )_y diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_2_1.F index 587403ae2a..40a9d398ef 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_21_2_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_21_2_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p13 h11 p1 )_ytt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_2_1_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_2_1_1.F index 72e76ea3a9..c849d24e60 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_2_1_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda1_21_2_1_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lambda1_21_2_1_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h6 h11 p1 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_2_1.F index 0074cd1513..c688d0951a 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_2_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_2_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_2_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_2_2_1.F index 2ff902738c..7e8db9146e 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_2_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_2_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_2_2_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_2_2_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p3 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_3_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_3_1.F index 7cfae80717..253785df19 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_3_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_3_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p1 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_3_3_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_3_3_1.F index 3ee9851223..788333d92c 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_3_3_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_3_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_3_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_3_3_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p1 )_vt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_1.F index e3487e5709..faa2293d53 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_5_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_5_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 h10 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_2_1.F index 57ccf36981..f3752c4ef2 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_5_2_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_5_2_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_2_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_2_2_1.F index 7b41b79a4e..a6deafee72 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_2_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda1_5_2_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lambda1_5_2_2_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 p3 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_3_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_3_1.F index d633654675..f01aae6d2f 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_3_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_5_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_5_3_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 p7 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_5_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_5_1.F index 57acb38104..85ce9c0c74 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_5_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_5_5_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_5_5_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p4 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_6_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_6_1.F index b8022613d3..ff7c5709fb 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_6_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_6_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_5_6_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_5_6_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h10 p4 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_1.F index 16f45184b8..b290d50771 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_6_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_6_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h9 h12 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_2_1.F index 52e9446268..f8eeaf3a7c 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_6_2_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_6_2_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h9 h12 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_2_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_2_2_1.F index 2f5176a812..bcd911e991 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_2_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda1_6_2_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lambda1_6_2_2_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h9 p3 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_3_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_3_1.F index 030ef82b01..2529075fba 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_3_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_6_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_6_3_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h9 p3 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_4_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_4_1.F index 2b05646ed2..aa6a8eb6b3 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_4_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_6_4_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_6_4_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p5 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_5_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_5_1.F index 7f3e3a3f67..7729f28d39 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_5_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_6_5_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_6_5_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h9 p4 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_7_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_7_1.F index 9893a8979e..91caaa957d 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_7_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_7_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_7_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_7_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 p8 h7 p1 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_1.F index c68e43d6a1..d8a7fd8a45 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_8_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p14 p15 h12 h13 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_10_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_10_1.F index 534ea12b84..44ef5966a0 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_10_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_10_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_10_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_8_10_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h13 p5 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_12_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_12_1.F index f76bd64535..d0da41f53b 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_12_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_12_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_12_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_8_12_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h13 )_ft diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_13_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_13_1.F index 3a1ef05f80..d5a409b744 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_13_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_13_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_13_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_8_13_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p15 p4 )_ft diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_14_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_14_1.F index 4c4c7ab66e..dd64a4316e 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_14_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_14_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_14_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_8_14_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p14 h12 h13 )_vt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_1.F index 6b4f21d24a..5fca3da92c 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_2_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_8_2_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p15 h12 h13 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_2_1.F index 3e84eea828..61719a35ce 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_2_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lambda1_8_2_2_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h9 h12 h13 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_2_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_2_2_1.F index d0d1e6240b..cf4a320a23 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_2_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_2_2_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lambda1_8_2_2_2_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h4 h9 h13 p3 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_3_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_3_1.F index ab2cc20557..d2c9b0669b 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_3_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_2_3_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lambda1_8_2_3_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 p15 h13 p3 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_5_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_5_1.F index 73c6f32e41..2c71f917db 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_5_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_2_5_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lambda1_8_2_5_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h12 p8 )_vt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_3_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_3_1.F index 63ace4970b..8f9c4b7dd7 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_3_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_8_3_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p14 p15 h13 p3 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_4_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_4_1.F index f13b6520b1..f2910a1ee8 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_4_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_4_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_8_4_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h12 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_4_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_4_2_1.F index 9fd03daacd..2829a77d97 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_4_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_4_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lambda1_8_4_2_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p3 )_vt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_5_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_5_1.F index 425341ca59..e92af021ba 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_5_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_5_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_8_5_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p14 p3 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_5_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_5_2_1.F index 81765ba5cc..5cd49e1a59 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_5_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_5_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_5_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lambda1_8_5_2_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p3 )_vt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_6_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_6_1.F index 548e8fb9e2..5942441f8b 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_6_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_6_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_6_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_8_6_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h8 h12 h13 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_6_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_6_2_1.F index 29793fa662..58165b2204 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_6_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_6_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_6_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lambda1_8_6_2_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h6 h8 h13 p4 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_7_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_7_1.F index b1fac47c7a..71e0f8c4ac 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_7_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_7_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_7_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_8_7_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p15 h13 p4 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_9_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_9_1.F index 2db57e14db..73ab08ff27 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_9_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_9_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_9_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_8_9_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p6 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_1.F index 7d8cb2f66b..e3b9029355 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_9_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_9_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 h12 )_t diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_4_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_4_1.F index 2aa68531b6..13b6534b29 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_4_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_9_4_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_9_4_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h12 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_5_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_5_1.F index 9bbd70b35f..690e913e57 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_5_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_9_5_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_9_5_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h12 p3 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_5_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_5_2_1.F index f40e49bc0d..a4c4a3573a 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_5_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_5_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda1_9_5_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lambda1_9_5_2_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h5 h6 h9 p3 p7 p8 )_y diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_6_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_6_1.F index c2eaaab24a..462756f15a 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_6_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_6_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_9_6_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_9_6_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h8 h12 p3 p4 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_1.F index b94957fd40..2afd4b55cb 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_10_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_10_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 h12 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_2_1.F index 98e27df3f6..8469de27a1 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_10_2_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_10_2_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_2_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_2_2_1.F index bc72ac71a2..970507f77d 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_2_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda2_10_2_2_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lambda2_10_2_2_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 p5 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_3_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_3_1.F index 6fd0d1417f..6e1ae33ecf 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_3_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_10_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_10_3_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 p9 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_5_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_5_1.F index f7b8754269..2639898d02 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_5_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_10_5_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_10_5_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p6 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_1.F index b742921925..db06b3a600 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_11_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_11_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p13 h11 h14 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_2_1.F index 1fd2b933be..68952f94c3 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_11_2_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_11_2_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h9 h11 h14 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_2_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_2_2_1.F index 16ef213ba6..502222d028 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_2_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda2_11_2_2_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lambda2_11_2_2_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h9 h11 p5 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_3_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_3_1.F index b4b5351d4b..88e6ec5bba 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_3_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_11_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_11_3_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p13 h11 p5 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_4_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_4_1.F index d9716950b3..c681c49fd0 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_4_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_11_4_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_11_4_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p7 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_5_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_5_1.F index 6312afe8b0..a073cff3f2 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_5_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_11_5_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_11_5_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h8 h11 p6 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_12_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_12_1.F index 50f0a5981d..19489d7f41 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_12_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_12_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_12_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_12_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h12 p1 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_12_3_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_12_3_1.F index 2aa2458295..8de715fcb0 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_12_3_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_12_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_12_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_12_3_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h12 p1 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_12_6_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_12_6_1.F index f0cfb0779c..ceb0b2d98e 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_12_6_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_12_6_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_12_6_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_12_6_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p11 h12 p1 )_vt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_12_7_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_12_7_1.F index 05c122e851..729b147594 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_12_7_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_12_7_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_12_7_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_12_7_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p13 h12 p1 )_vt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_13_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_13_1.F index 9fa74078a8..8cbde11065 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_13_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_13_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_13_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_13_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h11 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_14_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_14_1.F index 5bff0bdd4e..24f59ef675 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_14_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_14_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_14_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_14_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h5 p1 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_15_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_15_1.F index cd8c8489fa..b07f18556a 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_15_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_15_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_15_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_15_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h8 h10 p1 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_16_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_16_1.F index f1af3bf54f..418b3f0c8a 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_16_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_16_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_16_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_16_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h10 p8 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_17_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_17_1.F index b7deafd57c..7a3e28e1d6 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_17_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_17_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_17_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_17_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h8 h6 p1 p7 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_18_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_18_1.F index 8535ec82ee..14e55c8632 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_18_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_18_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_18_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_18_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p1 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_19_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_19_1.F index 2f6aeb5ace..a8585f570f 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_19_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_19_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_19_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_19_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h12 h13 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_19_3_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_19_3_1.F index 86dbd759a2..ad82ac0d71 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_19_3_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_19_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_19_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_19_3_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h13 p5 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_19_4_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_19_4_1.F index 968a0d3e4c..d18c5aa4e4 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_19_4_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_19_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_19_4_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_19_4_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h12 p9 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_20_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_20_1.F index 5a6a85c3e0..91ca02e9c7 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_20_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_20_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_20_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_20_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p6 p1 p2 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_21_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_21_1.F index f0ee4f959d..41a6604c04 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_21_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_21_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_21_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_21_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p6 p1 p9 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_22_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_22_1.F index 08ad739d63..d131ba9e99 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_22_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_22_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_22_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_22_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 p5 h8 h9 h10 )_vt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_23_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_23_1.F index 5b0ed270d7..8afeb0522f 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_23_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_23_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_23_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_23_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p12 h13 p1 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_23_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_23_2_1.F index 29f6a5d4c6..4d7cebf72a 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_23_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_23_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_23_2_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_23_2_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h8 h13 p1 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_23_3_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_23_3_1.F index 40327b79d3..eb751f4288 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_23_3_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_23_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_23_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_23_3_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h7 h8 h13 p1 p5 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_24_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_24_1.F index fd05b04a05..4921159901 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_24_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_24_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_24_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_24_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h6 h8 p1 )_ytt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_24_1_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_24_1_1.F index 7f4a536227..d148eee498 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_24_1_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_24_1_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_24_1_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_24_1_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h9 h8 p1 p5 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_25_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_25_1.F index ee59f3a2f5..8d2ab3a811 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_25_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_25_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_25_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_25_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p6 p9 p1 p2 )_ytt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_25_1_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_25_1_1.F index 50b96a5fbe..fd7e23dc49 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_25_1_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_25_1_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_25_1_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_25_1_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p6 p1 p2 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_26_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_26_1.F index 34fa8e3fba..7fe8b2dfa6 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_26_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_26_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_26_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_26_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 p11 h8 h10 p1 )_ytt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_26_1_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_26_1_1.F index 5cff915057..8030b54d6d 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_26_1_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_26_1_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_26_1_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_26_1_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h8 p1 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_26_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_26_2_1.F index 7564d602c1..360a534ee9 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_26_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_26_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_26_2_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_26_2_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h6 h8 h10 p1 )_ytt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_26_2_1_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_26_2_1_1.F index 8aab094a27..33c4d6d35f 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_26_2_1_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_26_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda2_26_2_1_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lambda2_26_2_1_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h6 h10 p1 p7 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_2_1.F index a70209ffe6..c82b122d4c 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_2_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_2_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_3_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_3_1.F index 569432a916..44058bc2fd 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_3_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_3_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h7 p1 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_5_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_5_1.F index b04aa2402b..8fdc6f3a42 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_5_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_5_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_5_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_5_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_5_2_1.F index 773b548c5f..64418b1b9a 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_5_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_5_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_5_2_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_5_2_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_6_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_6_1.F index 33afccfd0b..b737e9c159 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_6_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_6_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_6_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_6_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_6_4_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_6_4_1.F index af7e08b850..8f900d4d0c 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_6_4_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_6_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_6_4_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_6_4_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p1 )_vt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_7_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_7_1.F index fb55b57750..2ac0aa4b8e 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_7_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_7_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_7_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_7_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_7_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_7_2_1.F index edce179288..5da33ef92a 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_7_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_7_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_7_2_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_7_2_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h10 p5 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_8_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_8_1.F index 7478d99ac3..839e23e2a0 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_8_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_8_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_8_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_8_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p7 h9 p1 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_density1.F b/src/tce/ccsdt_lambda/ccsdt_density1.F index b016c3bc05..a827678cb3 100644 --- a/src/tce/ccsdt_lambda/ccsdt_density1.F +++ b/src/tce/ccsdt_lambda/ccsdt_density1.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdt_density1(d_d1,d_i0,d_t1,d_t2,d_t3,d_y1,d_y2,d_y3, &k_d1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y1_o &ffset,k_y2_offset,k_y3_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yd + = 1 * Sum ( h4 p1 ) * y ( h4 p1 )_y * i1 ( p1 h4 )_d @@ -171,7 +171,7 @@ C i1 ( p2 p1 )_yt + = -1/6 * Sum ( h7 h6 h5 p4 p3 ) * t ( p2 p3 p4 h5 h6 END SUBROUTINE ccsdt_density1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yd + = 1 * Sum ( h4 p1 ) * y ( h4 p1 )_y * i1 ( p1 h4 )_d @@ -287,7 +287,7 @@ C i0 ( )_yd + = 1 * Sum ( h4 p1 ) * y ( h4 p1 )_y * i1 ( p1 h4 )_d RETURN END SUBROUTINE ccsdt_density1_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 h4 )_d + = 1 * d ( p1 h4 )_d @@ -371,7 +371,7 @@ C i1 ( p1 h4 )_d + = 1 * d ( p1 h4 )_d RETURN END SUBROUTINE OFFSET_ccsdt_density1_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 h4 )_d @@ -427,7 +427,7 @@ C i1 ( p1 h4 )_d END SUBROUTINE ccsdt_density1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 h4 )_dt + = 1 * Sum ( p2 ) * d ( p1 p2 )_d * t ( p2 h4 )_t @@ -555,7 +555,7 @@ C i1 ( p1 h4 )_dt + = 1 * Sum ( p2 ) * d ( p1 p2 )_d * t ( p2 h4 )_t END SUBROUTINE ccsdt_density1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_td + = 1 * Sum ( p11 h9 ) * d ( h9 p11 )_d * i1 ( p11 h9 )_t @@ -671,7 +671,7 @@ C i0 ( )_td + = 1 * Sum ( p11 h9 ) * d ( h9 p11 )_d * i1 ( p11 h9 )_t RETURN END SUBROUTINE ccsdt_density1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 h9 )_t + = 1 * t ( p11 h9 )_t @@ -755,7 +755,7 @@ C i1 ( p11 h9 )_t + = 1 * t ( p11 h9 )_t RETURN END SUBROUTINE OFFSET_ccsdt_density1_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 h9 )_t @@ -811,7 +811,7 @@ C i1 ( p11 h9 )_t END SUBROUTINE ccsdt_density1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 h9 )_yt + = 1 * Sum ( h4 p3 ) * t ( p3 p11 h4 h9 )_t * y ( h4 p3 )_y @@ -973,7 +973,7 @@ C i1 ( p11 h9 )_yt + = 1 * Sum ( h4 p3 ) * t ( p3 p11 h4 h9 )_t * y ( h4 p3 END SUBROUTINE ccsdt_density1_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 h9 )_yt + = 1/4 * Sum ( h6 h5 p4 p3 ) * t ( p3 p4 p11 h5 h6 h9 )_t * y ( h5 h6 p3 p4 )_y @@ -1228,7 +1228,7 @@ C i1 ( p11 h9 )_yt + = 1/4 * Sum ( h6 h5 p4 p3 ) * t ( p3 p4 p11 h5 h6 h9 )_ END SUBROUTINE ccsdt_density1_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 h9 )_ytt + = -1 * Sum ( h2 ) * t ( p11 h2 )_t * i2 ( h2 h9 )_yt @@ -1356,7 +1356,7 @@ C i1 ( p11 h9 )_ytt + = -1 * Sum ( h2 ) * t ( p11 h2 )_t * i2 ( h2 h9 )_yt END SUBROUTINE ccsdt_density1_2_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h9 )_yt + = 1 * Sum ( p3 ) * t ( p3 h9 )_t * y ( h2 p3 )_y @@ -1483,7 +1483,7 @@ C i2 ( h2 h9 )_yt + = 1 * Sum ( p3 ) * t ( p3 h9 )_t * y ( h2 p3 )_y RETURN END SUBROUTINE OFFSET_ccsdt_density1_2_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h9 )_yt @@ -1539,7 +1539,7 @@ C i2 ( h2 h9 )_yt END SUBROUTINE ccsdt_density1_2_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h9 )_yt + = -1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h9 )_t * y ( h2 h5 p3 p4 )_y @@ -1715,7 +1715,7 @@ C i2 ( h2 h9 )_yt + = -1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h9 )_t * y ( h2 END SUBROUTINE ccsdt_density1_2_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h9 )_yt + = 1/12 * Sum ( h7 h6 p5 p4 p3 ) * t ( p3 p4 p5 h6 h7 h9 )_t * y ( h2 h6 h7 p3 p4 p5 )_y @@ -1938,7 +1938,7 @@ C i2 ( h2 h9 )_yt + = 1/12 * Sum ( h7 h6 p5 p4 p3 ) * t ( p3 p4 p5 h6 h7 h9 END SUBROUTINE ccsdt_density1_2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 h9 )_ytt + = 1/2 * Sum ( h2 h1 p8 ) * t ( p8 p11 h1 h2 )_t * i2 ( h1 h2 h9 p8 )_yt @@ -2106,7 +2106,7 @@ C i1 ( p11 h9 )_ytt + = 1/2 * Sum ( h2 h1 p8 ) * t ( p8 p11 h1 h2 )_t * i2 ( END SUBROUTINE ccsdt_density1_2_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h2 h9 p8 )_yt + = 1 * Sum ( p6 ) * t ( p6 h9 )_t * y ( h1 h2 p6 p8 )_y @@ -2259,7 +2259,7 @@ C i2 ( h1 h2 h9 p8 )_yt + = 1 * Sum ( p6 ) * t ( p6 h9 )_t * y ( h1 h2 p6 p8 RETURN END SUBROUTINE OFFSET_ccsdt_density1_2_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h2 h9 p8 )_yt @@ -2331,7 +2331,7 @@ C i2 ( h1 h2 h9 p8 )_yt END SUBROUTINE ccsdt_density1_2_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h2 h9 p8 )_yt + = 5/18 * Sum ( h7 p6 p5 ) * t ( p5 p6 h7 h9 )_t * i3 ( h1 h2 h7 p5 p6 p8 )_y @@ -2578,7 +2578,7 @@ C i2 ( h1 h2 h9 p8 )_yt + = 5/18 * Sum ( h7 p6 p5 ) * t ( p5 p6 h7 h9 )_t * RETURN END SUBROUTINE ccsdt_density1_2_5_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h1 h2 h7 p5 p6 p8 )_y + = 1 * y ( h1 h2 h7 p5 p6 p8 )_y @@ -2692,7 +2692,7 @@ C i3 ( h1 h2 h7 p5 p6 p8 )_y + = 1 * y ( h1 h2 h7 p5 p6 p8 )_y END SUBROUTINE OFFSET_ccsdt_density1_2_5_2_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h1 h2 h7 p5 p6 p8 )_y @@ -2779,7 +2779,7 @@ C i3 ( h1 h2 h7 p5 p6 p8 )_y RETURN END SUBROUTINE ccsdt_density1_2_5_2_2(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h1 h2 h7 p5 p6 p8 )_y + = 4/5 * y ( h1 h2 h7 p5 p6 p8 )_y @@ -2894,7 +2894,7 @@ C i3 ( h1 h2 h7 p5 p6 p8 )_y + = 4/5 * y ( h1 h2 h7 p5 p6 p8 )_y END SUBROUTINE ccsdt_density1_2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 h9 )_ytt + = -1/12 * Sum ( h5 h6 h7 p3 p4 ) * t ( p3 p4 p11 h5 h6 h7 )_t * i2 ( h5 h6 h7 h9 p3 p4 )_yt @@ -3104,7 +3104,7 @@ C i1 ( p11 h9 )_ytt + = -1/12 * Sum ( h5 h6 h7 p3 p4 ) * t ( p3 p4 p11 h5 h6 END SUBROUTINE ccsdt_density1_2_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h7 h9 p3 p4 )_yt + = 1 * Sum ( p8 ) * t ( p8 h9 )_t * y ( h5 h6 h7 p3 p4 p8 )_y @@ -3277,7 +3277,7 @@ C i2 ( h5 h6 h7 h9 p3 p4 )_yt + = 1 * Sum ( p8 ) * t ( p8 h9 )_t * y ( h5 h6 RETURN END SUBROUTINE OFFSET_ccsdt_density1_2_6_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h7 h9 p3 p4 )_yt @@ -3365,7 +3365,7 @@ C i2 ( h5 h6 h7 h9 p3 p4 )_yt END SUBROUTINE ccsdt_density1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytd + = -1 * Sum ( h2 h1 ) * d ( h1 h2 )_d * i1 ( h2 h1 )_yt @@ -3482,7 +3482,7 @@ C i0 ( )_ytd + = -1 * Sum ( h2 h1 ) * d ( h1 h2 )_d * i1 ( h2 h1 )_yt END SUBROUTINE ccsdt_density1_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -3609,7 +3609,7 @@ C i1 ( h2 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y RETURN END SUBROUTINE OFFSET_ccsdt_density1_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt @@ -3665,7 +3665,7 @@ C i1 ( h2 h1 )_yt END SUBROUTINE ccsdt_density1_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h1 h5 )_t * y ( h2 h5 p3 p4 )_y @@ -3841,7 +3841,7 @@ C i1 ( h2 h1 )_yt + = 1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h1 h5 )_t * y ( h2 END SUBROUTINE ccsdt_density1_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1/12 * Sum ( h7 h6 p5 p4 p3 ) * t ( p3 p4 p5 h1 h6 h7 )_t * y ( h2 h6 h7 p3 p4 p5 )_y @@ -4064,7 +4064,7 @@ C i1 ( h2 h1 )_yt + = 1/12 * Sum ( h7 h6 p5 p4 p3 ) * t ( p3 p4 p5 h1 h6 h7 END SUBROUTINE ccsdt_density1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytd + = -1/2 * Sum ( p2 p1 ) * d ( p1 p2 )_d * i1 ( p2 p1 )_yt @@ -4181,7 +4181,7 @@ C i0 ( )_ytd + = -1/2 * Sum ( p2 p1 ) * d ( p1 p2 )_d * i1 ( p2 p1 )_yt END SUBROUTINE ccsdt_density1_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p1 )_yt + = -1 * Sum ( h5 h4 p3 ) * t ( p2 p3 h4 h5 )_t * y ( h4 h5 p1 p3 )_y @@ -4356,7 +4356,7 @@ C i1 ( p2 p1 )_yt + = -1 * Sum ( h5 h4 p3 ) * t ( p2 p3 h4 h5 )_t * y ( h4 h RETURN END SUBROUTINE OFFSET_ccsdt_density1_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p1 )_yt @@ -4412,7 +4412,7 @@ C i1 ( p2 p1 )_yt END SUBROUTINE ccsdt_density1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p1 )_yt + = -1/6 * Sum ( h7 h6 h5 p4 p3 ) * t ( p2 p3 p4 h5 h6 h7 )_t * y ( h5 h6 h7 p1 p3 p4 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1.F index d902b6ae10..f6e3e96a0f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdt_lambda1(d_f1,d_i0,d_t1,d_t2,d_t3,d_v2,d_y1,d_y2,d &_y3,k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_ &v2_offset,k_y1_offset,k_y2_offset,k_y3_offset) -C $Id: ccsdt_lambda1.F,v 1.4 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_f + = 1 * f ( h2 p1 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_1.F index 1af83437ea..a809798caf 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_f + = 1 * f ( h2 p1 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_10.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_10.F index c405e4d475..ab73d7e4b6 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_10.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_10.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda1_10.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytf + = -1 * Sum ( h3 ) * i1 ( h2 h3 )_yt * f ( h3 p1 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_10_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_10_1.F index 37a1e3b8d5..a479841572 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_10_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_10_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_yt + = 1 * Sum ( p4 ) * t ( p4 h3 )_t * y ( h2 p4 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_10_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_10_2.F index f82470a928..9181ad639d 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_10_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_10_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_10_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_10_2.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_yt + = 1/2 * Sum ( h6 p5 p4 ) * t ( p4 p5 h3 h6 )_t * y ( h2 h6 p4 p5 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_10_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_10_3.F index 05874ad9aa..f047c0769f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_10_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_10_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_10_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_10_3.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_yt + = 1/12 * Sum ( h8 h7 p6 p5 p4 ) * t ( p4 p5 p6 h3 h7 h8 )_t * y ( h2 h7 h8 p4 p5 p6 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_11.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_11.F index a984856045..1812732425 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_11.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_11.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda1_11.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = 1 * Sum ( h10 h8 ) * i1 ( h10 h8 )_yt * v ( h2 h8 h10 p1 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_11_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_11_1.F index 332e63fcab..b603310666 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_11_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_11_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_11_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 h8 )_yt + = 1 * Sum ( p3 ) * t ( p3 h8 )_t * y ( h10 p3 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_11_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_11_2.F index 06fe26dd98..c8820eb800 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_11_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_11_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_11_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_11_2.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 h8 )_yt + = 1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h8 )_t * y ( h5 h10 p3 p4 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_11_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_11_3.F index fa51069026..a7855bb564 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_11_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_11_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_11_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_11_3.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 h8 )_yt + = 1/12 * Sum ( h7 h6 p5 p4 p3 ) * t ( p3 p4 p5 h6 h7 h8 )_t * y ( h6 h7 h10 p3 p4 p5 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_12.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_12.F index 1aa91a6dbd..b43d439291 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_12.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_12.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda1_12.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = 1 * Sum ( p9 p10 ) * i1 ( p9 p10 )_yt * v ( h2 p10 p1 p9 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_12_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_12_1.F index 0ce97965fd..08c156a569 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_12_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_12_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_12_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 p10 )_yt + = 1 * Sum ( h4 ) * t ( p9 h4 )_t * y ( h4 p10 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_12_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_12_2.F index 303e006001..ff6f410dac 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_12_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_12_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_12_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_12_2.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 p10 )_yt + = 1/2 * Sum ( h6 h5 p3 ) * t ( p3 p9 h5 h6 )_t * y ( h5 h6 p3 p10 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_12_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_12_3.F index b19c91f815..6959191cdc 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_12_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_12_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_12_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_12_3.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 p10 )_yt + = 1/12 * Sum ( h8 h7 h6 p4 p3 ) * t ( p3 p4 p9 h6 h7 h8 )_t * y ( h6 h7 h8 p3 p4 p10 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_13.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_13.F index 43d946a148..ac891544ff 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_13.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_13.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda1_13.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = 1 * Sum ( h7 h9 p10 ) * i1 ( h2 h7 h9 p10 )_yt * v ( h9 p10 h7 p1 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_13_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_13_1.F index a86e45a5ff..fddd0616b6 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_13_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_13_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_13_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h9 p10 )_yt + = 1 * Sum ( p3 ) * t ( p3 h9 )_t * y ( h2 h7 p3 p10 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_13_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_13_2.F index f5843ef2ed..127aabfcd7 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_13_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_13_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_13_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_13_2.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h9 p10 )_yt + = -1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h9 )_t * y ( h2 h5 h7 p3 p4 p10 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14.F index 7496c74045..28ac6f02ea 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda1_14.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = -1/2 * Sum ( p11 h12 h13 ) * i1 ( h2 p11 h12 h13 )_yt * v ( h12 h13 p1 p11 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_1.F index 925664f195..ee26edc052 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_14_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h12 h13 )_yt + = 1 * Sum ( p3 ) * t ( p3 p11 h12 h13 )_t * y ( h2 p3 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_2.F index f06358057f..34ec5e38de 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_14_2.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h12 h13 )_yt + = -1/2 * Sum ( h6 p4 p3 ) * t ( p3 p4 p11 h6 h12 h13 )_t * y ( h2 h6 p3 p4 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3.F index 477322fbab..8221cc71f2 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_14_3.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h12 h13 )_ytt + = -1/2 * Sum ( h10 ) * t ( p11 h10 )_t * i2 ( h2 h10 h12 h13 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_1.F index 9507a98801..194029424f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_14_3_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h12 h13 )_yt + = 1 * Sum ( p4 p3 ) * t ( p3 p4 h12 h13 )_t * y ( h2 h10 p3 p4 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_2.F index eaf0918846..d97f54ceeb 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_14_3_2.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h12 h13 )_yt + = -1/3 * Sum ( h6 p5 p4 p3 ) * t ( p3 p4 p5 h6 h12 h13 )_t * y ( h2 h6 h10 p3 p4 p5 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_3.F index 2d69b0d1c0..015af776cb 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_14_3_3.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h12 h13 )_ytt + = 2 * Sum ( p5 ) * t ( p5 h12 )_t * i3 ( h2 h10 h13 p5 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_3_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_3_1.F index 5c0fe23848..77b48f3621 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_3_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_3_3_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lambda1_14_3_3_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h10 h13 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h13 )_t * y ( h2 h10 p5 p7 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_3_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_3_2.F index 743c0ed38f..1e1d910878 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_3_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_3_3_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lambda1_14_3_3_2.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h10 h13 p5 )_yt + = 1 * Sum ( h9 p8 p7 ) * t ( p7 p8 h9 h13 )_t * y ( h2 h9 h10 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_4.F index 20785316ea..fbbdc6cf56 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_14_4.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h12 h13 )_ytt + = 2 * Sum ( h5 p3 ) * t ( p3 p11 h5 h12 )_t * i2 ( h2 h5 h13 p3 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_4_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_4_1.F index 6cd048831a..9d19849470 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_4_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_14_4_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h5 h13 p3 )_yt + = 1 * Sum ( p7 ) * t ( p7 h13 )_t * y ( h2 h5 p3 p7 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_5.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_5.F index 56a3f776b8..5b29cb4a24 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_5.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_14_5.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h12 h13 )_ytt + = -1 * t ( p11 h13 )_t * i2 ( h2 h12 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_5_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_5_1.F index 3ebdedb9d6..3a5d9ef0f8 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_5_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_14_5_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h12 )_yt + = 1 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h12 )_t * y ( h2 h5 p3 p4 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_5_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_5_2.F index cadf6da357..4974a77f9f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_5_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_14_5_2.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h12 )_yt + = -1/6 * Sum ( h7 h6 p5 p4 p3 ) * t ( p3 p4 p5 h6 h7 h12 )_t * y ( h2 h6 h7 p3 p4 p5 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_6.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_6.F index cb68cd685f..9f59209a0d 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_6.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_14_6.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h12 h13 )_ytt + = -1/2 * Sum ( h6 h7 p3 p4 ) * t ( p3 p4 p11 h6 h7 h12 )_t * i2 ( h2 h6 h7 h13 p3 p4 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_6_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_6_1.F index e6998ab9b9..83d3e7589b 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_6_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_14_6_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h7 h13 p3 p4 )_yt + = 1 * Sum ( p9 ) * t ( p9 h13 )_t * y ( h2 h6 h7 p3 p4 p9 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_7.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_7.F index fd1e0318ba..18284f4150 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_7.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_14_7.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h12 h13 )_ytt + = 1/4 * Sum ( p7 p8 ) * t ( p7 p8 h12 h13 )_t * i2 ( h2 p11 p7 p8 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_7_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_7_1.F index d7c7c4fa2a..908f545af8 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_7_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_14_7_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 p7 p8 )_yt + = 1 * Sum ( h6 h5 p3 ) * t ( p3 p11 h5 h6 )_t * y ( h2 h5 h6 p3 p7 p8 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_8.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_8.F index f128209d5c..c8daa36191 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_8.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_14_8.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h12 h13 )_ytt + = 1/2 * Sum ( h9 p7 ) * t ( p7 p11 h9 h13 )_t * i2 ( h2 h9 h12 p7 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_8_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_8_1.F index 78c027c013..7769c88cab 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_8_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_14_8_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h9 h12 p7 )_yt + = -1 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h12 )_t * i3 ( h2 h5 h9 p3 p4 p7 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_8_1_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_8_1_1.F index 6a667a18ce..b52f2b3baa 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_8_1_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_8_1_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_14_8_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_14_8_1_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h5 h9 p3 p4 p7 )_y + = 1 * y ( h2 h5 h9 p3 p4 p7 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_8_1_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_8_1_2.F index 76dc792157..56c2514834 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_8_1_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_8_1_2.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_14_8_1_2(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_14_8_1_2.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h5 h9 p3 p4 p7 )_y + = 1 * y ( h2 h5 h9 p3 p4 p7 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_9.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_9.F index fa37a87278..4c4cf1c7e2 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_9.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_9.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_14_9.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h12 h13 )_yttt + = 1/2 * Sum ( p3 ) * t ( p3 h12 )_t * i2 ( h2 p11 h13 p3 )_ytt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_9_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_9_1.F index 23383f49cb..b006fc0a32 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_9_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_14_9_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h13 p3 )_ytt + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p11 h9 h10 )_t * i3 ( h2 h9 h10 h13 p3 p7 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_9_1_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_9_1_1.F index d59ff04c36..7513f4f03f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_9_1_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_9_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_9_1_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lambda1_14_9_1_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h9 h10 h13 p3 p7 )_yt + = 1 * Sum ( p5 ) * t ( p5 h13 )_t * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_15.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_15.F index 2678746aaf..fbf5649c98 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_15.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_15.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_15(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda1_15.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = -1/4 * Sum ( h8 h12 h13 ) * i1 ( h2 h8 h12 h13 )_yt * v ( h12 h13 h8 p1 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_15_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_15_1.F index 3669b134d0..11bde8a4e6 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_15_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_15_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_15_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_15_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h8 h12 h13 )_yt + = 1 * Sum ( p4 p3 ) * t ( p3 p4 h12 h13 )_t * y ( h2 h8 p3 p4 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_15_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_15_2.F index adff924aad..36cadb4486 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_15_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_15_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_15_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_15_2.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h8 h12 h13 )_yt + = -1/3 * Sum ( h6 p5 p4 p3 ) * t ( p3 p4 p5 h6 h12 h13 )_t * y ( h2 h6 h8 p3 p4 p5 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_15_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_15_3.F index 19d43c1097..2276a79357 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_15_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_15_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_15_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_15_3.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h8 h12 h13 )_ytt + = 2 * Sum ( p3 ) * t ( p3 h12 )_t * i2 ( h2 h8 h13 p3 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_15_3_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_15_3_1.F index 341a5b7a4c..b3c67be583 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_15_3_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_15_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_15_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_15_3_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h13 p3 )_yt + = 1 * Sum ( p5 ) * t ( p5 h13 )_t * y ( h2 h8 p3 p5 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_15_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_15_4.F index c1ff8ca937..6a461229b3 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_15_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_15_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_15_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_15_4.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h8 h12 h13 )_ytt + = -2 * Sum ( p7 ) * t ( p7 h13 )_t * i2 ( h2 h8 h12 p7 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_15_4_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_15_4_1.F index 9d7f82f3d1..29d8a718d0 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_15_4_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_15_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_15_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_15_4_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h12 p7 )_yt + = 1 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h12 )_t * y ( h2 h5 h8 p3 p4 p7 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_16.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_16.F index d651d5b517..7bbd110226 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_16.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_16.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_16(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda1_16.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = 1 * Sum ( p11 h10 p12 ) * i1 ( h2 p11 h10 p12 )_yt * v ( h10 p12 p1 p11 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_16_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_16_1.F index ee690ac64f..931b67b93b 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_16_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_16_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_16_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_16_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h10 p12 )_yt + = 1 * Sum ( h5 p3 ) * t ( p3 p11 h5 h10 )_t * y ( h2 h5 p3 p12 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_16_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_16_2.F index 7663b8cbd1..c635289e5b 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_16_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_16_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_16_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_16_2.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h10 p12 )_yt + = -1/4 * Sum ( h7 h6 p4 p3 ) * t ( p3 p4 p11 h6 h7 h10 )_t * y ( h2 h6 h7 p3 p4 p12 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_16_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_16_3.F index 98a7f4cf93..6227b2ac11 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_16_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_16_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_16_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_16_3.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h10 p12 )_ytt + = -1 * Sum ( h6 ) * t ( p11 h6 )_t * i2 ( h2 h6 h10 p12 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_16_3_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_16_3_1.F index 8da072deb6..68c42889cb 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_16_3_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_16_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_16_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_16_3_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h10 p12 )_yt + = 1 * Sum ( p5 ) * t ( p5 h10 )_t * y ( h2 h6 p5 p12 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_16_3_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_16_3_2.F index d96e62e8c2..c6065d2ec5 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_16_3_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_16_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_16_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_16_3_2.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h10 p12 )_yt + = -1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h10 )_t * y ( h2 h5 h6 p3 p4 p12 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_16_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_16_4.F index 3c27fdedee..07a434e053 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_16_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_16_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_16_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_16_4.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h10 p12 )_ytt + = 1/2 * Sum ( h5 h6 p3 ) * t ( p3 p11 h5 h6 )_t * i2 ( h2 h5 h6 h10 p3 p12 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_16_4_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_16_4_1.F index fdeaff759d..b7f0ee5758 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_16_4_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_16_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_16_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_16_4_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h5 h6 h10 p3 p12 )_yt + = 1 * Sum ( p7 ) * t ( p7 h10 )_t * y ( h2 h5 h6 p3 p7 p12 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_17.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_17.F index bb06b9032b..f1a98740a9 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_17.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_17.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_17(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda1_17.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = -1/4 * Sum ( h7 h8 h6 ) * i1 ( h7 h8 h6 p1 )_yt * v ( h2 h6 h7 h8 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_17_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_17_1.F index dd8292fc08..b0de0c0688 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_17_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_17_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_17_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_17_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h6 p1 )_yt + = 1 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h6 )_t * y ( h5 h7 h8 p1 p3 p4 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18.F index a823209b0a..91881bbf4a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_18(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda1_18.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_vty + = -1/2 * Sum ( p13 p15 h12 h14 h16 ) * y ( h12 h14 h16 p1 p13 p15 )_y * i1 ( h2 p13 p15 h12 h14 h16 )_vt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1.F index 82abe1430b..0f436d38b0 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_18_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_18_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p13 p15 h12 h14 h16 )_vt + = -1 * Sum ( p4 ) * t ( p4 p13 h12 h14 )_t * i2 ( h2 p15 h16 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_1.F index 938d40af0f..9d2cf3e12f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_18_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_18_1_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p15 h16 p4 )_v + = 1 * v ( h2 p15 h16 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_2.F index 79d4a59ebd..431b3099ef 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_18_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_18_1_2.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p15 h16 p4 )_vt + = -1 * Sum ( h8 ) * t ( p15 h8 )_t * v ( h2 h8 h16 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_3.F index ceafb018cb..2398708558 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_18_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_18_1_3.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p15 h16 p4 )_vt + = -1 * Sum ( p7 ) * t ( p7 h16 )_t * v ( h2 p15 p4 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_4.F index 5a8722928e..de5738875f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_18_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_18_1_4.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p15 h16 p4 )_vt + = -2/3 * Sum ( h10 p8 ) * t ( p8 p15 h10 h16 )_t * i3 ( h2 h10 p4 p8 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_4_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_4_1.F index f9b01ecbb0..a58cdcee28 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_4_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_18_1_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_18_1_4_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h10 p4 p8 )_v + = 1 * v ( h2 h10 p4 p8 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_4_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_4_2.F index 6ceeb3d931..96c77f9c54 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_4_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_4_2.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_18_1_4_2(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_18_1_4_2.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h10 p4 p8 )_v + = 1/2 * v ( h2 h10 p4 p8 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_2.F index dc0bab0e86..56556ec30d 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_18_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_18_2.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p13 p15 h12 h14 h16 )_ft + = 1/6 * Sum ( p4 ) * t ( p4 p13 p15 h12 h14 h16 )_t * i2 ( h2 p4 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_2_1.F index 7605d0ca9f..54cfac43fb 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_18_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_18_2_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p4 )_f + = 1 * f ( h2 p4 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_2_2.F index fb385d31f9..1d204ad5ef 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_18_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_18_2_2.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p4 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h2 h10 p4 p9 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_3.F index a30f591d91..38313136f2 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_18_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_18_3.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p13 p15 h12 h14 h16 )_vt + = 1/2 * Sum ( h8 p5 ) * t ( p5 p13 p15 h8 h12 h14 )_t * i2 ( h2 h8 h16 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_3_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_3_1.F index 126668dc53..f5f17f90cc 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_3_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_18_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_18_3_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h16 p5 )_v + = 1 * v ( h2 h8 h16 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_3_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_3_2.F index 7a1f70bb2f..bf594129a5 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_3_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_18_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_18_3_2.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h16 p5 )_vt + = -1 * Sum ( p9 ) * t ( p9 h16 )_t * v ( h2 h8 p5 p9 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_4.F index 073cd10c2b..f0626c5008 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_18_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_18_4.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p13 p15 h12 h14 h16 )_vt + = -1/6 * Sum ( p4 p5 ) * t ( p4 p5 p13 h12 h14 h16 )_t * v ( h2 p15 p4 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_5.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_5.F index 612179e345..289831ccb2 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_5.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_18_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_18_5.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p13 p15 h12 h14 h16 )_vtt + = -1/6 * Sum ( h10 ) * t ( p15 h10 )_t * i2 ( h2 h10 p13 h12 h14 h16 )_vt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_5_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_5_1.F index 260cff8bb2..055ae31ee5 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_5_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_18_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_18_5_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 p13 h12 h14 h16 )_vt + = -1 * Sum ( p4 p5 ) * t ( p4 p5 p13 h12 h14 h16 )_t * v ( h2 h10 p4 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_6.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_6.F index 15930ee776..a2e4718e76 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_6.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_18_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_18_6.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p13 p15 h12 h14 h16 )_vttt + = -1 * Sum ( p8 ) * t ( p8 p15 h14 h16 )_t * i2 ( h2 p13 h12 p8 )_vtt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_6_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_6_1.F index 7024b98f93..8897ad646e 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_6_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_18_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_18_6_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p13 h12 p8 )_vtt + = 1 * Sum ( h6 ) * t ( p13 h6 )_t * i3 ( h2 h6 h12 p8 )_vt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_6_1_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_6_1_1.F index dfa5f22003..bd89232388 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_6_1_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_6_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_18_6_1_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lambda1_18_6_1_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h6 h12 p8 )_vt + = 1 * Sum ( p3 ) * t ( p3 h12 )_t * v ( h2 h6 p3 p8 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_19.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_19.F index 2798f77603..fd7959ccc3 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_19.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_19.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_19(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda1_19.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = -1/4 * Sum ( p4 p7 p8 ) * i1 ( h2 p4 p7 p8 )_yt * v ( p7 p8 p1 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_19_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_19_1.F index b9a8afe942..d942aaead5 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_19_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_19_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_19_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_19_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p4 p7 p8 )_yt + = 1 * Sum ( h6 h5 p3 ) * t ( p3 p4 h5 h6 )_t * y ( h2 h5 h6 p3 p7 p8 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_2.F index 2935d33409..093d370a5b 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda1_2.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yf + = -1 * Sum ( h7 ) * y ( h7 p1 )_y * i1 ( h2 h7 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_20.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_20.F index 85f9aba86d..fca1a8b443 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_20.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_20.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_20(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda1_20.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yttv + = 1/2 * Sum ( h9 p7 h6 ) * i1 ( h9 p7 h6 p1 )_ytt * v ( h2 h6 h9 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_20_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_20_1.F index bf4b06243d..cbf2ec752a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_20_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_20_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_20_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_20_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p7 h6 p1 )_ytt + = 1 * Sum ( h8 ) * t ( p7 h8 )_t * i2 ( h8 h9 h6 p1 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_20_1_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_20_1_1.F index a84f2e7c48..8259415556 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_20_1_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_20_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_20_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_20_1_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h6 p1 )_yt + = 1 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h6 )_t * y ( h5 h8 h9 p1 p3 p4 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_21.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_21.F index 08c926acac..e5f1ded00c 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_21.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_21.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_21(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda1_21.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yttv + = 1/12 * Sum ( p12 p13 h11 ) * i1 ( p12 p13 h11 p1 )_ytt * v ( h2 h11 p12 p13 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_21_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_21_1.F index 40c82dcf94..f0367a27ff 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_21_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_21_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_21_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_21_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p12 p13 h11 p1 )_ytt + = 1 * Sum ( h9 h10 ) * t ( p12 p13 h9 h10 )_t * i2 ( h9 h10 h11 p1 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_21_1_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_21_1_1.F index dd48cdf221..e64d4fd9d5 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_21_1_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_21_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_21_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_21_1_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h11 p1 )_yt + = -1 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h11 )_t * i3 ( h5 h9 h10 p1 p3 p4 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_21_1_1_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_21_1_1_1.F index dc046f50b6..0f92694145 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_21_1_1_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_21_1_1_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_21_1_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_21_1_1_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h5 h9 h10 p1 p3 p4 )_y + = 1 * y ( h5 h9 h10 p1 p3 p4 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_21_1_1_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_21_1_1_2.F index 0598dd896c..a453a74857 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_21_1_1_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_21_1_1_2.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_21_1_1_2(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_21_1_1_2.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h5 h9 h10 p1 p3 p4 )_y + = 1/2 * y ( h5 h9 h10 p1 p3 p4 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_21_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_21_2.F index dd074a7e23..17ad187aeb 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_21_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_21_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_21_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_21_2.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p12 p13 h11 p1 )_yttt + = -3 * Sum ( h4 ) * t ( p12 h4 )_t * i2 ( h4 p13 h11 p1 )_ytt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_21_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_21_2_1.F index 1bd7239ee9..ced88ce7e8 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_21_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_21_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_21_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_21_2_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p13 h11 p1 )_ytt + = 1 * Sum ( h6 ) * t ( p13 h6 )_t * i3 ( h4 h6 h11 p1 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_21_2_1_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_21_2_1_1.F index 8964370567..517a7099f8 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_21_2_1_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_21_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_21_2_1_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lambda1_21_2_1_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h6 h11 p1 )_yt + = 1 * Sum ( h9 p8 p7 ) * t ( p7 p8 h9 h11 )_t * y ( h4 h6 h9 p1 p7 p8 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_2_1.F index f1c18d4351..70989563b2 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_2_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_f + = 1 * f ( h2 h7 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_2_2.F index c61544bca4..cf0ce764d2 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_2_2.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_ft + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * i2 ( h2 p3 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_2_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_2_2_1.F index 104f5af23e..1010872932 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_2_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_2_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_2_2_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p3 )_f + = 1 * f ( h2 p3 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_2_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_2_2_2.F index 1f4414e85c..77a8d8a298 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_2_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_2_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_2_2_2.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p3 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h2 h6 p3 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_2_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_2_3.F index e546d24132..6115a7ca36 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_2_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_2_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_2_3.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h2 h4 h7 p3 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_2_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_2_4.F index 0a0d9d9d8b..6bedd576f6 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_2_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_2_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_2_4.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_vt + = -1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h7 )_t * v ( h2 h6 p3 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_3.F index 68085d9eef..b570dde91b 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda1_3.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yf + = 1 * Sum ( p7 ) * y ( h2 p7 )_y * i1 ( p7 p1 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_3_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_3_1.F index 716a6182f2..c1602eeae2 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_3_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_3_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p1 )_f + = 1 * f ( p7 p1 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_3_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_3_2.F index f85d3d0944..8763727b62 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_3_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_3_2.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p7 p1 p3 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_3_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_3_3.F index 09d33aa854..9cd920fb61 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_3_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_3_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_3_3.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p1 )_vtt + = -1 * Sum ( h4 ) * t ( p7 h4 )_t * i2 ( h4 p1 )_vt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_3_3_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_3_3_1.F index bccbf44bda..89851138e6 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_3_3_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_3_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_3_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_3_3_1.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h4 h6 p1 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_4.F index b4d5998711..6e125a38dd 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda1_4.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yv + = -1 * Sum ( h4 p3 ) * y ( h4 p3 )_y * v ( h2 p3 h4 p1 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5.F index 5374093da5..51621edc23 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda1_5.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yf + = 1 * Sum ( h10 p11 ) * y ( h2 h10 p1 p11 )_y * i1 ( p11 h10 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_1.F index 49eb310181..f0f4a63955 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_5_1.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 h10 )_f + = 1 * f ( p11 h10 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2.F index 1323cfa4ab..c6c73b9a0f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_5_2.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 h10 )_ft + = -1 * Sum ( h9 ) * t ( p11 h9 )_t * i2 ( h9 h10 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_1.F index 66b9cc6664..1a075b3531 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_5_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_5_2_1.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 )_f + = 1 * f ( h9 h10 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_2.F index 4c0e5071c0..a313edbfa8 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_5_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_5_2_2.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 )_ft + = 1 * Sum ( p3 ) * t ( p3 h10 )_t * i3 ( h9 p3 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_2_1.F index baa22578e6..3e9da01bf7 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_5_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_5_2_2_1.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 p3 )_f + = 1 * f ( h9 p3 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_2_2.F index ff6b4da727..2fe533cb7d 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_5_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lambda1_5_2_2_2.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 p3 )_vt + = -1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 h9 p3 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_3.F index f7fe56ef77..6e5c8d585b 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_5_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_5_2_3.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h9 h10 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_4.F index 37c8f37901..f7429a6bd7 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_5_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_5_2_4.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 )_vt + = 1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h10 )_t * v ( h6 h9 p3 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_3.F index 66af2ea287..86afdd8f02 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_5_3.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 h10 )_ft + = 1 * Sum ( p7 ) * t ( p7 h10 )_t * i2 ( p11 p7 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_3_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_3_1.F index 498b0ce15b..798eb1e5e2 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_3_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_5_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_5_3_1.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 p7 )_f + = 1 * f ( p11 p7 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_3_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_3_2.F index cb35398023..018ade8faf 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_3_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_5_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_5_3_2.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 p7 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p11 p5 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_4.F index 46c1397535..689ab177e6 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_5_4.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 h10 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p11 h10 p3 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_5.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_5.F index 15fafe5f05..85e49e7804 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_5.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_5_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_5_5.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 h10 )_ft + = 1 * Sum ( h5 p4 ) * t ( p4 p11 h5 h10 )_t * i2 ( h5 p4 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_5_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_5_1.F index f8bfc61a0c..acfa6e50ef 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_5_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_5_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_5_5_1.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p4 )_f + = 1 * f ( h5 p4 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_5_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_5_2.F index 114e16f0ec..effdd5dea4 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_5_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_5_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_5_5_2.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p4 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h5 h8 p4 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_6.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_6.F index ee77d30262..f6a2b2f71c 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_6.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_5_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_5_6.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 h10 )_vt + = 1/2 * Sum ( h5 h6 p4 ) * t ( p4 p11 h5 h6 )_t * i2 ( h5 h6 h10 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_6_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_6_1.F index 1e54caadbe..ac8860acf6 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_6_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_6_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_5_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_5_6_1.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h10 p4 )_v + = 1 * v ( h5 h6 h10 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_6_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_6_2.F index 5efa86335b..25d6746525 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_6_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_6_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_5_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_5_6_2.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h10 p4 )_vt + = -1 * Sum ( p7 ) * t ( p7 h10 )_t * v ( h5 h6 p4 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_7.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_7.F index 127453c1ec..1253c6f080 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_7.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_5_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_5_7.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 h10 )_vt + = 1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h10 )_t * v ( h6 p11 p3 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_8.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_8.F index 7815d21c33..7d92f695f5 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_8.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_5_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_5_8.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 h10 )_vt + = 1/4 * Sum ( h7 h8 p4 p5 ) * t ( p4 p5 p11 h7 h8 h10 )_t * v ( h7 h8 p4 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6.F index 0fa5083a23..79b862ac9b 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda1_6.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yv + = 1/2 * Sum ( h9 h12 p11 ) * y ( h9 h12 p1 p11 )_y * i1 ( h2 p11 h9 h12 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_1.F index dbbfb82bbc..7644e486ea 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_6_1.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h9 h12 )_v + = -1 * v ( h2 p11 h9 h12 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2.F index 9cb4eac1a7..be3941b3c5 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_6_2.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h9 h12 )_vt + = 1 * Sum ( h7 ) * t ( p11 h7 )_t * i2 ( h2 h7 h9 h12 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_1.F index 05fef241ae..d5e067678c 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_6_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_6_2_1.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h9 h12 )_v + = 1 * v ( h2 h7 h9 h12 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_2.F index 6ba9d08a82..90023ae7f4 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_6_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_6_2_2.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h9 h12 )_vt + = 2 * Sum ( p3 ) * t ( p3 h12 )_t * i3 ( h2 h7 h9 p3 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_2_1.F index ef3b7b3114..4bf9314381 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_6_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_6_2_2_1.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h9 p3 )_v + = 1 * v ( h2 h7 h9 p3 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_2_2.F index 6241134dfe..c5695b4d22 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_6_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lambda1_6_2_2_2.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h9 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h9 )_t * v ( h2 h7 p3 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_3.F index 8565532039..fef1776107 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_6_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_6_2_3.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h9 h12 )_vt + = 1/2 * Sum ( p3 p4 ) * t ( p3 p4 h9 h12 )_t * v ( h2 h7 p3 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_3.F index d1bad7ba80..b9917e3173 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_6_3.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h9 h12 )_vt + = -2 * Sum ( p3 ) * t ( p3 h12 )_t * i2 ( h2 p11 h9 p3 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_3_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_3_1.F index 77c5ef23a9..61ad98bcb6 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_3_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_6_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_6_3_1.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h9 p3 )_v + = 1 * v ( h2 p11 h9 p3 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_3_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_3_2.F index 5133361148..122707eb51 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_3_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_6_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_6_3_2.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h9 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h9 )_t * v ( h2 p11 p3 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_4.F index 055e34bda5..8ef861f014 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_6_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_6_4.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h9 h12 )_ft + = -1 * Sum ( p5 ) * t ( p5 p11 h9 h12 )_t * i2 ( h2 p5 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_4_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_4_1.F index a012f7b528..d670d7662e 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_4_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_6_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_6_4_1.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p5 )_f + = 1 * f ( h2 p5 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_4_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_4_2.F index 21ba2b308f..1382826e70 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_4_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_6_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_6_4_2.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p5 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h2 h8 p5 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_5.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_5.F index fa0b2cd3a3..3a6aec9f2d 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_5.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_6_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_6_5.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h9 h12 )_vt + = -2 * Sum ( h6 p4 ) * t ( p4 p11 h6 h12 )_t * i2 ( h2 h6 h9 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_5_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_5_1.F index 32c90d08c7..ba6bf2179f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_5_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_6_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_6_5_1.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h9 p4 )_v + = 1 * v ( h2 h6 h9 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_5_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_5_2.F index 915775a98c..ec13f22375 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_5_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_6_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_6_5_2.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h9 p4 )_vt + = -1 * Sum ( p7 ) * t ( p7 h9 )_t * v ( h2 h6 p4 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_6.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_6.F index 8298317b1a..f30cb375b8 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_6.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_6_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_6_6.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h9 h12 )_vt + = -1/2 * Sum ( p3 p4 ) * t ( p3 p4 h9 h12 )_t * v ( h2 p11 p3 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_7.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_7.F index 8ab3685f1a..ec9293ed55 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_7.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_6_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_6_7.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h9 h12 )_vt + = 1/2 * Sum ( h8 p4 p5 ) * t ( p4 p5 p11 h8 h9 h12 )_t * v ( h2 h8 p4 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_7.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_7.F index 838d4b8558..847bf5b297 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_7.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda1_7.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yv + = 1/2 * Sum ( h7 p5 p8 ) * y ( h2 h7 p5 p8 )_y * i1 ( p5 p8 h7 p1 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_7_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_7_1.F index 66d87fb0f5..866aaaa5f5 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_7_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_7_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_7_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_7_1.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 p8 h7 p1 )_v + = -1 * v ( p5 p8 h7 p1 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_7_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_7_2.F index 1dd2c5deb7..09c7195a49 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_7_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_7_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_7_2.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 p8 h7 p1 )_vt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * v ( p5 p8 p1 p3 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8.F index fead9d2fbb..2b82dde74b 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda1_8.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yv + = 1/4 * Sum ( h13 h12 p15 p14 ) * y ( h2 h12 h13 p1 p14 p15 )_y * i1 ( p14 p15 h12 h13 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_1.F index 51f076d31d..08d33f8ae6 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_8_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_8_1.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p14 p15 h12 h13 )_v + = 1 * v ( p14 p15 h12 h13 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_10.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_10.F index 111c25c9e1..e3196abf48 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_10.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_10.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_8_10.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p14 p15 h12 h13 )_vt + = -1 * Sum ( h7 h8 p5 ) * t ( p5 p14 p15 h7 h8 h12 )_t * i2 ( h7 h8 h13 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_10_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_10_1.F index 44b4e3245b..18d9702149 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_10_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_10_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_8_10_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_8_10_1.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h13 p5 )_v + = 1 * v ( h7 h8 h13 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_10_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_10_2.F index 55bc902314..dc534b4cec 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_10_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_10_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_10_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_8_10_2.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h13 p5 )_vt + = -1 * Sum ( p9 ) * t ( p9 h13 )_t * v ( h7 h8 p5 p9 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_11.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_11.F index d50442348f..afcf468ad8 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_11.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_11.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_8_11.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p14 p15 h12 h13 )_vt + = -1 * Sum ( h8 p4 p5 ) * t ( p4 p5 p14 h8 h12 h13 )_t * v ( h8 p15 p4 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_12.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_12.F index 4117542aee..7154f65e93 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_12.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_12.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_8_12.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p14 p15 h12 h13 )_ftt + = 2 * Sum ( h3 ) * t ( p14 p15 h3 h12 )_t * i2 ( h3 h13 )_ft diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_12_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_12_1.F index d90ef158bf..4c8e43cf58 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_12_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_12_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_8_12_1.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h13 )_ft + = 1 * Sum ( p4 ) * t ( p4 h13 )_t * f ( h3 p4 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_12_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_12_2.F index 9983bcd9da..39f3cf3a4a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_12_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_12_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_12_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_8_12_2.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h13 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h3 h8 h13 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_12_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_12_3.F index 9d3a950c05..eff01df753 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_12_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_12_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_12_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_8_12_3.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h13 )_vt + = -1/2 * Sum ( h10 p7 p8 ) * t ( p7 p8 h10 h13 )_t * v ( h3 h10 p7 p8 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_13.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_13.F index e82042d49d..500d1e9d5e 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_13.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_13.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_8_13.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p14 p15 h12 h13 )_ftt + = 2 * Sum ( p4 ) * t ( p4 p14 h12 h13 )_t * i2 ( p15 p4 )_ft diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_13_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_13_1.F index 20564b2fab..a4714e3885 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_13_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_13_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_8_13_1.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p15 p4 )_ft + = 1 * Sum ( h3 ) * t ( p15 h3 )_t * f ( h3 p4 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_13_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_13_2.F index f300a8b459..7b4d38184f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_13_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_13_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_13_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_8_13_2.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p15 p4 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 p15 p4 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_13_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_13_3.F index 2700caa3d4..0bdaa5b17a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_13_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_13_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_13_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_8_13_3.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p15 p4 )_vt + = -1/2 * Sum ( h9 h10 p8 ) * t ( p8 p15 h9 h10 )_t * v ( h9 h10 p4 p8 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_14.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_14.F index 67bd60d242..eb05bfbad4 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_14.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_14.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_14(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_8_14.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p14 p15 h12 h13 )_vtt + = -4 * Sum ( h3 ) * t ( p15 h3 )_t * i2 ( h3 p14 h12 h13 )_vt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_14_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_14_1.F index 4cdc92c062..d902232fd5 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_14_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_14_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_14_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_8_14_1.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p14 h12 h13 )_vt + = 1 * Sum ( h6 p4 ) * t ( p4 p14 h6 h12 )_t * v ( h3 h6 h13 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_14_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_14_2.F index 3f292401a3..f7819b7d5d 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_14_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_14_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_14_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_8_14_2.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p14 h12 h13 )_vt + = 1/4 * Sum ( h8 p4 p5 ) * t ( p4 p5 p14 h8 h12 h13 )_t * v ( h3 h8 p4 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2.F index 45f7fc1975..40c9efc0c6 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_8_2.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p14 p15 h12 h13 )_vt + = -2 * Sum ( h9 ) * t ( p14 h9 )_t * i2 ( h9 p15 h12 h13 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_1.F index 9dce00e4cd..5fa8fb188a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_8_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_8_2_1.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p15 h12 h13 )_v + = 1 * v ( h9 p15 h12 h13 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2.F index f03861e53c..ba7d393e05 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_8_2_2.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p15 h12 h13 )_vt + = 1/2 * Sum ( h4 ) * t ( p15 h4 )_t * i3 ( h4 h9 h12 h13 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_1.F index f6999d565b..4fa9dab78a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_8_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_8_2_2_1.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h9 h12 h13 )_v + = 1 * v ( h4 h9 h12 h13 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_2.F index 2b4d263334..10b7768591 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lambda1_8_2_2_2.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h9 h12 h13 )_vt + = -2 * Sum ( p3 ) * t ( p3 h12 )_t * i4 ( h4 h9 h13 p3 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_2_1.F index ea63ea81eb..bce593d4a3 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_8_2_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_8_2_2_2_1.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h4 h9 h13 p3 )_v + = 1 * v ( h4 h9 h13 p3 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_2_2.F index 1fe8096799..26aa8c2c67 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_2_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lambda1_8_2_2_2_2.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h4 h9 h13 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h13 )_t * v ( h4 h9 p3 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_3.F index 4057ce73a5..3111da09e6 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_2_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lambda1_8_2_2_3.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h9 h12 h13 )_vt + = 1/2 * Sum ( p7 p8 ) * t ( p7 p8 h12 h13 )_t * v ( h4 h9 p7 p8 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_3.F index e5408b17cb..f42b08e1a2 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_8_2_3.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p15 h12 h13 )_vt + = -2 * Sum ( p3 ) * t ( p3 h12 )_t * i3 ( h9 p15 h13 p3 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_3_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_3_1.F index 0249c7914f..c9575b8f05 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_3_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_8_2_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_8_2_3_1.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 p15 h13 p3 )_v + = 1 * v ( h9 p15 h13 p3 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_3_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_3_2.F index 62c24c3add..1e42e50254 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_3_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_2_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lambda1_8_2_3_2.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 p15 h13 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h13 )_t * v ( h9 p15 p3 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_4.F index 27ac931af7..5e810c802f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_8_2_4.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p15 h12 h13 )_vt + = 1/2 * Sum ( p3 p4 ) * t ( p3 p4 h12 h13 )_t * v ( h9 p15 p3 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_5.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_5.F index 8707060be2..989f0c1c14 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_5.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_8_2_5.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p15 h12 h13 )_vtt + = 2 * Sum ( h10 p8 ) * t ( p8 p15 h10 h13 )_t * i3 ( h9 h10 h12 p8 )_vt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_5_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_5_1.F index 062e0f99e3..ee0494fa43 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_5_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_2_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lambda1_8_2_5_1.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h12 p8 )_vt + = 1 * Sum ( p3 ) * t ( p3 h12 )_t * v ( h9 h10 p3 p8 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_3.F index 2e2c1e6ad5..a27b94c1d9 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_8_3.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p14 p15 h12 h13 )_vt + = -2 * Sum ( p3 ) * t ( p3 h12 )_t * i2 ( p14 p15 h13 p3 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_3_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_3_1.F index 5c6a3c7a23..cc3ada266a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_3_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_8_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_8_3_1.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p14 p15 h13 p3 )_v + = 1 * v ( p14 p15 h13 p3 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_3_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_3_2.F index 793e5a02ad..9a1493b186 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_3_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_8_3_2.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p14 p15 h13 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h13 )_t * v ( p14 p15 p3 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_4.F index 5a7a7335d8..1f21d09873 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_8_4.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p14 p15 h12 h13 )_ft + = -2 * Sum ( h4 ) * t ( p14 p15 h4 h13 )_t * i2 ( h4 h12 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_4_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_4_1.F index 692cf0f397..42edcf662f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_4_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_8_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_8_4_1.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h12 )_f + = 1 * f ( h4 h12 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_4_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_4_2.F index 7f6a97b8bb..d3f7cc7900 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_4_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_8_4_2.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h12 )_vtt + = -1 * Sum ( p3 ) * t ( p3 h12 )_t * i3 ( h4 p3 )_vt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_4_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_4_2_1.F index 4cc91bd9fc..e10b601620 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_4_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_4_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lambda1_8_4_2_1.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p3 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h4 h6 p3 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_5.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_5.F index 2a601aa9fc..a19b9f8028 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_5.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_8_5.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p14 p15 h12 h13 )_ft + = 2 * Sum ( p3 ) * t ( p3 p15 h12 h13 )_t * i2 ( p14 p3 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_5_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_5_1.F index 0fb2c0c428..88996005d2 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_5_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_8_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_8_5_1.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p14 p3 )_f + = 1 * f ( p14 p3 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_5_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_5_2.F index 4ee7ef07b5..dc4ec337e4 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_5_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_8_5_2.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p14 p3 )_vtt + = 1 * Sum ( h4 ) * t ( p14 h4 )_t * i3 ( h4 p3 )_vt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_5_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_5_2_1.F index f5100f8599..118c9e3657 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_5_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_5_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_5_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lambda1_8_5_2_1.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p3 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h4 h6 p3 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6.F index c657be4454..4428e58bf9 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_8_6.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p14 p15 h12 h13 )_vt + = 1/2 * Sum ( h6 h8 ) * t ( p14 p15 h6 h8 )_t * i2 ( h6 h8 h12 h13 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_1.F index 1b5719edf4..9550894f76 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_8_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_8_6_1.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h8 h12 h13 )_v + = 1 * v ( h6 h8 h12 h13 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_2.F index c229155fe1..8ff53e2b96 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_8_6_2.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h8 h12 h13 )_vt + = -2 * Sum ( p4 ) * t ( p4 h12 )_t * i3 ( h6 h8 h13 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_2_1.F index 93331b10d3..0b537e0ea1 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_8_6_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_8_6_2_1.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h6 h8 h13 p4 )_v + = 1 * v ( h6 h8 h13 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_2_2.F index ef6a5d4e5e..50f797e03d 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_6_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lambda1_8_6_2_2.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h6 h8 h13 p4 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h13 )_t * v ( h6 h8 p4 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_3.F index 24378f4064..fa8d38d8d0 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_8_6_3.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h8 h12 h13 )_vt + = 1/2 * Sum ( p3 p4 ) * t ( p3 p4 h12 h13 )_t * v ( h6 h8 p3 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_7.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_7.F index 841bba4c60..7eb91c5663 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_7.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_8_7.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p14 p15 h12 h13 )_vt + = -4 * Sum ( h6 p4 ) * t ( p4 p14 h6 h12 )_t * i2 ( h6 p15 h13 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_7_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_7_1.F index f8899273c8..06ae80cdb4 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_7_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_7_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_8_7_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_8_7_1.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p15 h13 p4 )_v + = 1 * v ( h6 p15 h13 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_7_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_7_2.F index ff55cb741e..d5c8f3e537 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_7_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_7_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_8_7_2.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p15 h13 p4 )_vt + = -1 * Sum ( p7 ) * t ( p7 h13 )_t * v ( h6 p15 p4 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_7_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_7_3.F index 8deb8a0516..90ad39c007 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_7_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_7_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_8_7_3.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p15 h13 p4 )_vt + = -1/2 * Sum ( h10 p8 ) * t ( p8 p15 h10 h13 )_t * v ( h6 h10 p4 p8 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_8.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_8.F index 38f742de34..82a450cc3c 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_8.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_8_8.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p14 p15 h12 h13 )_vt + = 1/2 * Sum ( p3 p4 ) * t ( p3 p4 h12 h13 )_t * v ( p14 p15 p3 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_9.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_9.F index 89a977847d..5e2f5a6ca8 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_9.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_9.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_8_9.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p14 p15 h12 h13 )_ft + = 1 * Sum ( h4 p6 ) * t ( p6 p14 p15 h4 h12 h13 )_t * i2 ( h4 p6 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_9_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_9_1.F index 2907393835..ea6b970a92 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_9_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_9_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_8_9_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_8_9_1.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p6 )_f + = 1 * f ( h4 p6 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_9_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_9_2.F index 7cbfe53fd6..01aa11aafd 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_9_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_9_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_9_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_8_9_2.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p6 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h4 h10 p6 p9 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_9.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_9.F index 8fa3b0f853..d969b1c21e 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_9.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_9.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda1_9.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_vt + = 1 * Sum ( h12 p13 ) * i1 ( p13 h12 )_t * v ( h2 h12 p1 p13 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_1.F index e1fd7ac553..896571e0a9 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_9_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_9_1.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 h12 )_t + = 1 * t ( p13 h12 )_t diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_2.F index 4047dc92ea..7548d870a6 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_9_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_9_2.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 h12 )_yt + = 1 * Sum ( h5 p3 ) * t ( p3 p13 h5 h12 )_t * y ( h5 p3 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_3.F index 578ff64318..d4b6ad76d5 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_9_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_9_3.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 h12 )_yt + = 1/4 * Sum ( h7 h6 p4 p3 ) * t ( p3 p4 p13 h6 h7 h12 )_t * y ( h6 h7 p3 p4 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_4.F index e9fb735287..76a42de97f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_9_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_9_4.F,v 1.3 2005-12-16 22:34:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 h12 )_ytt + = -1 * Sum ( h8 ) * t ( p13 h8 )_t * i2 ( h8 h12 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_4_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_4_1.F index f105acfb29..09fbdc8c2b 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_4_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_9_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_9_4_1.F,v 1.3 2005-12-16 22:34:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h12 )_yt + = 1 * Sum ( p5 ) * t ( p5 h12 )_t * y ( h8 p5 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_4_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_4_2.F index 709995e632..bcb823ca37 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_4_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_9_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_9_4_2.F,v 1.3 2005-12-16 22:34:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h12 )_yt + = 1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h12 )_t * y ( h5 h8 p3 p4 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_4_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_4_3.F index 668802326a..00e43c110a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_4_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_4_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_9_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_9_4_3.F,v 1.3 2005-12-16 22:34:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h12 )_yt + = 1/12 * Sum ( h7 h6 p5 p4 p3 ) * t ( p3 p4 p5 h6 h7 h12 )_t * y ( h6 h7 h8 p3 p4 p5 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5.F index b171f41659..96a800a2e8 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_9_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_9_5.F,v 1.3 2005-12-16 22:34:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 h12 )_ytt + = -1/2 * Sum ( h5 h6 p3 ) * t ( p3 p13 h5 h6 )_t * i2 ( h5 h6 h12 p3 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_1.F index a40ae74adf..ad44d06a49 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_9_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_9_5_1.F,v 1.3 2005-12-16 22:34:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h12 p3 )_yt + = 1 * Sum ( p7 ) * t ( p7 h12 )_t * y ( h5 h6 p3 p7 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_2.F index 8f6b68fe46..6f9938e25e 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_9_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_9_5_2.F,v 1.3 2005-12-16 22:34:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h12 p3 )_yt + = -5/18 * Sum ( h9 p8 p7 ) * t ( p7 p8 h9 h12 )_t * i3 ( h5 h6 h9 p3 p7 p8 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_2_1.F index c0337e2c8a..972c3cd5d6 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_9_5_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_9_5_2_1.F,v 1.3 2005-12-16 22:34:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h5 h6 h9 p3 p7 p8 )_y + = 1 * y ( h5 h6 h9 p3 p7 p8 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_2_2.F index b886163912..e49759362a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_2_2.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_9_5_2_2(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_9_5_2_2.F,v 1.3 2005-12-16 22:34:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h5 h6 h9 p3 p7 p8 )_y + = 4/5 * y ( h5 h6 h9 p3 p7 p8 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_6.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_6.F index d69b580908..b22a2738cc 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_6.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_9_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_9_6.F,v 1.3 2005-12-16 22:34:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 h12 )_ytt + = -1/12 * Sum ( h6 h7 h8 p3 p4 ) * t ( p3 p4 p13 h6 h7 h8 )_t * i2 ( h6 h7 h8 h12 p3 p4 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_6_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_6_1.F index 45c6e5ccc6..50933e0afa 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_6_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_9_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_9_6_1.F,v 1.3 2005-12-16 22:34:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h8 h12 p3 p4 )_yt + = 1 * Sum ( p9 ) * t ( p9 h12 )_t * y ( h6 h7 h8 p3 p4 p9 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2.F index 671f392d23..c10a5d0106 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdt_lambda2(d_f1,d_i0,d_t1,d_t2,d_t3,d_v2,d_y1,d_y2,d &_y3,k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_ &v2_offset,k_y1_offset,k_y2_offset,k_y3_offset) -C $Id: ccsdt_lambda2.F,v 1.4 2005-12-16 22:34:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_v + = 1 * v ( h3 h4 p1 p2 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_1.F index dc30ca6062..ee73334277 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_1.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_v + = 1 * v ( h3 h4 p1 p2 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10.F index 1f0d3440bc..f8eea2bca7 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda2_10.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yf + = 1 * Sum ( h12 p13 ) * y ( h3 h4 h12 p1 p2 p13 )_y * i1 ( p13 h12 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_1.F index 68700bc4e8..74bdb4550b 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_10_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_10_1.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 h12 )_f + = 1 * f ( p13 h12 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2.F index 1c61c2f621..0b939b8964 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_10_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_10_2.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 h12 )_ft + = -1 * Sum ( h11 ) * t ( p13 h11 )_t * i2 ( h11 h12 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_1.F index c058ebebbd..c694920ad0 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_10_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_10_2_1.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 )_f + = 1 * f ( h11 h12 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_2.F index ab3ae92083..ee1bfa53cb 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_10_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_10_2_2.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 )_ft + = 1 * Sum ( p5 ) * t ( p5 h12 )_t * i3 ( h11 p5 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_2_1.F index 4309c478e3..1a9ee14ccb 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_10_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_10_2_2_1.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 p5 )_f + = 1 * f ( h11 p5 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_2_2.F index a4f3ac5406..3e13509384 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_10_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lambda2_10_2_2_2.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 p5 )_vt + = -1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h10 h11 p5 p9 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_3.F index bb305a633f..fd412239cf 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_10_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_10_2_3.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 )_vt + = -1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 h11 h12 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_4.F index 07d6e58c44..3eacb4f27c 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_10_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_10_2_4.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 )_vt + = 1/2 * Sum ( h8 p5 p6 ) * t ( p5 p6 h8 h12 )_t * v ( h8 h11 p5 p6 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_3.F index 5bbe83b00d..0358ad24e4 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_10_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_10_3.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 h12 )_ft + = 1 * Sum ( p9 ) * t ( p9 h12 )_t * i2 ( p13 p9 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_3_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_3_1.F index 9f2d1cc4c7..1607cb343f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_3_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_10_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_10_3_1.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 p9 )_f + = 1 * f ( p13 p9 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_3_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_3_2.F index 8cb41cf124..a544dbf33b 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_3_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_10_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_10_3_2.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 p9 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 p13 p7 p9 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_3_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_3_3.F index 9e5902f171..3c85f5c6b0 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_3_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_3_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_10_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_10_3_3.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 p9 )_vt + = -1/2 * Sum ( h7 h8 p6 ) * t ( p6 p13 h7 h8 )_t * v ( h7 h8 p6 p9 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_4.F index d27eb979c7..5065ee751a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_10_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_10_4.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 h12 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p13 h12 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_5.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_5.F index d0b7d52a8b..cd9e4ec080 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_5.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_10_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_10_5.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 h12 )_ft + = 1 * Sum ( h7 p6 ) * t ( p6 p13 h7 h12 )_t * i2 ( h7 p6 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_5_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_5_1.F index 271bd92dba..23e9ba274f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_5_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_10_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_10_5_1.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p6 )_f + = 1 * f ( h7 p6 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_5_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_5_2.F index b4970c4a2e..44888b765c 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_5_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_10_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_10_5_2.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p6 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h7 h10 p6 p9 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_6.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_6.F index 7846ee4339..42a363dada 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_6.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_10_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_10_6.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 h12 )_vt + = 1/2 * Sum ( h7 h8 p6 ) * t ( p6 p13 h7 h8 )_t * v ( h7 h8 h12 p6 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_7.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_7.F index 4a82a8ab5e..ab8b0dc5ba 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_7.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_10_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_10_7.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 h12 )_vt + = 1/2 * Sum ( h8 p5 p6 ) * t ( p5 p6 h8 h12 )_t * v ( h8 p13 p5 p6 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_8.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_8.F index a9b252591e..8992451e81 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_8.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_10_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_10_8.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 h12 )_vt + = 1/4 * Sum ( h9 h10 p6 p7 ) * t ( p6 p7 p13 h9 h10 h12 )_t * v ( h9 h10 p6 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11.F index a4aaf0b2a5..577de38be6 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda2_11.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yv + = 1/2 * P( 2 ) * Sum ( h11 h14 p13 ) * y ( h3 h11 h14 p1 p2 p13 )_y * i1 ( h4 p13 h11 h14 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_1.F index 16d6d539a9..cb2e5905d8 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_11_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_11_1.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p13 h11 h14 )_v + = -1 * v ( h3 p13 h11 h14 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2.F index 8cec0f40ef..065a059497 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_11_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_11_2.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p13 h11 h14 )_vt + = 1 * Sum ( h9 ) * t ( p13 h9 )_t * i2 ( h3 h9 h11 h14 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_1.F index 35184c67d5..c5b1a93964 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_11_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_11_2_1.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h9 h11 h14 )_v + = 1 * v ( h3 h9 h11 h14 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_2.F index 89b2f40da1..8d39884d8d 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_11_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_11_2_2.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h9 h11 h14 )_vt + = 2 * Sum ( p5 ) * t ( p5 h14 )_t * i3 ( h3 h9 h11 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_2_1.F index 6f60a66920..d09a568ec3 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_11_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_11_2_2_1.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h9 h11 p5 )_v + = 1 * v ( h3 h9 h11 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_2_2.F index 54b2ad4f79..fab61b57c7 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_11_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lambda2_11_2_2_2.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h9 h11 p5 )_vt + = -1/2 * Sum ( p7 ) * t ( p7 h11 )_t * v ( h3 h9 p5 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_3.F index b72508a6d0..f41f2cdac1 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_11_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_11_2_3.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h9 h11 h14 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h11 h14 )_t * v ( h3 h9 p5 p6 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_3.F index 2f0d1a2656..e6c97d19c0 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_11_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_11_3.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p13 h11 h14 )_vt + = -2 * Sum ( p5 ) * t ( p5 h14 )_t * i2 ( h3 p13 h11 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_3_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_3_1.F index 6aae5106a6..c6d083436a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_3_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_11_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_11_3_1.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p13 h11 p5 )_v + = 1 * v ( h3 p13 h11 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_3_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_3_2.F index ccf7b4ec98..e906de96d1 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_3_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_11_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_11_3_2.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p13 h11 p5 )_vt + = -1/2 * Sum ( p7 ) * t ( p7 h11 )_t * v ( h3 p13 p5 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_4.F index ca32001cd9..36f2ab8ddd 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_11_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_11_4.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p13 h11 h14 )_ft + = -1 * Sum ( p7 ) * t ( p7 p13 h11 h14 )_t * i2 ( h3 p7 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_4_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_4_1.F index 49e342abdf..81114e2125 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_4_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_11_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_11_4_1.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p7 )_f + = 1 * f ( h3 p7 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_4_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_4_2.F index 545b745e64..121c70f8b8 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_4_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_11_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_11_4_2.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p7 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h3 h10 p7 p9 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_5.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_5.F index 829290a54e..89c6599a4a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_5.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_11_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_11_5.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p13 h11 h14 )_vt + = -2 * Sum ( h8 p6 ) * t ( p6 p13 h8 h14 )_t * i2 ( h3 h8 h11 p6 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_5_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_5_1.F index 69fb0c464f..695a88fdc4 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_5_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_11_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_11_5_1.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h8 h11 p6 )_v + = 1 * v ( h3 h8 h11 p6 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_5_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_5_2.F index 21a37ba4bb..1ccfdd661f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_5_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_11_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_11_5_2.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h8 h11 p6 )_vt + = -1 * Sum ( p9 ) * t ( p9 h11 )_t * v ( h3 h8 p6 p9 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_6.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_6.F index ee3f2d2386..4d83368a3a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_6.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_11_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_11_6.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p13 h11 h14 )_vt + = -1/2 * Sum ( p5 p6 ) * t ( p5 p6 h11 h14 )_t * v ( h3 p13 p5 p6 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_7.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_7.F index c9e0b5cad6..5ebe665b27 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_7.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_11_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_11_7.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p13 h11 h14 )_vt + = 1/2 * Sum ( h10 p6 p7 ) * t ( p6 p7 p13 h10 h11 h14 )_t * v ( h3 h10 p6 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_12.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_12.F index 70fc2d2fba..b2b115caa4 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_12.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_12.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda2_12.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yv + = 1/2 * P( 2 ) * Sum ( h12 p11 p13 ) * y ( h3 h4 h12 p1 p11 p13 )_y * i1 ( p11 p13 h12 p2 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_1.F index ac1dc4eb21..debab30968 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_12_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_12_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h12 p1 )_v + = -1 * v ( p11 p13 h12 p1 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_2.F index 6599bedac0..e2da9492d9 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_12_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_12_2.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h12 p1 )_vt + = 1 * Sum ( p5 ) * t ( p5 h12 )_t * v ( p11 p13 p1 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_3.F index 9e269b9104..40805f3952 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_12_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_12_3.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h12 p1 )_vt + = -1/2 * Sum ( h7 h8 ) * t ( p11 p13 h7 h8 )_t * i2 ( h7 h8 h12 p1 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_3_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_3_1.F index 61ed2cfcca..dd99be3e63 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_3_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_12_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_12_3_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h12 p1 )_v + = 1 * v ( h7 h8 h12 p1 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_3_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_3_2.F index 19412a6e6f..2cae32e317 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_3_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_12_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_12_3_2.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h12 p1 )_vt + = -1 * Sum ( p9 ) * t ( p9 h12 )_t * v ( h7 h8 p1 p9 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_4.F index be1f6793a4..6dc6618393 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_12_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_12_4.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h12 p1 )_vt + = -2 * Sum ( h8 p6 ) * t ( p6 p13 h8 h12 )_t * v ( h8 p11 p1 p6 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_5.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_5.F index 17aa40c825..3dc6ba7e17 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_5.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_12_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_12_5.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h12 p1 )_vt + = 1/2 * Sum ( h9 h10 p7 ) * t ( p7 p11 p13 h9 h10 h12 )_t * v ( h9 h10 p1 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_6.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_6.F index 3118fd28d8..d588bef468 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_6.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_12_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_12_6.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h12 p1 )_vtt + = -2 * Sum ( h8 ) * t ( p13 h8 )_t * i2 ( h8 p11 h12 p1 )_vt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_6_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_6_1.F index 999fbf3f8d..4c7b3c15a4 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_6_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_12_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_12_6_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p11 h12 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h12 )_t * v ( h8 p11 p1 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_7.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_7.F index 678b9c44c1..acbddbe060 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_7.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_12_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_12_7.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h12 p1 )_vtt + = 2 * Sum ( h10 ) * t ( p11 h10 )_t * i2 ( h10 p13 h12 p1 )_vt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_7_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_7_1.F index b42132dbc1..2a903ccbcd 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_7_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_12_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_12_7_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p13 h12 p1 )_vt + = 1 * Sum ( h8 p6 ) * t ( p6 p13 h8 h12 )_t * v ( h8 h10 p1 p6 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_13.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_13.F index 74a2cd36c7..831d494fe0 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_13.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_13.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda2_13.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = 1 * P( 2 ) * Sum ( h11 ) * i1 ( h3 h11 )_yt * v ( h4 h11 p1 p2 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_13_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_13_1.F index 543f39dd93..f4fce3bca5 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_13_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_13_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_13_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h11 )_yt + = 1 * Sum ( p5 ) * t ( p5 h11 )_t * y ( h3 p5 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_13_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_13_2.F index e40f82128f..eab1711d78 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_13_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_13_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_13_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_13_2.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h11 )_yt + = -1/2 * Sum ( h7 p6 p5 ) * t ( p5 p6 h7 h11 )_t * y ( h3 h7 p5 p6 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_13_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_13_3.F index 45cf73b7c4..9d997bdcac 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_13_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_13_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_13_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_13_3.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h11 )_yt + = 1/12 * Sum ( h9 h8 p7 p6 p5 ) * t ( p5 p6 p7 h8 h9 h11 )_t * y ( h3 h8 h9 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_14.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_14.F index 1da4dd82b3..8d055c4a9d 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_14.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_14.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_14(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda2_14.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytf + = 1 * P( 2 ) * Sum ( h5 ) * i1 ( h3 h4 h5 p1 )_yt * f ( h5 p2 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_14_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_14_1.F index 9e6dfd8e9b..c69049e91f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_14_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_14_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_14_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_14_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h5 p1 )_yt + = -1 * Sum ( p6 ) * t ( p6 h5 )_t * y ( h3 h4 p1 p6 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_14_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_14_2.F index 1f1e98d736..646308f904 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_14_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_14_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_14_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_14_2.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h5 p1 )_yt + = -1/2 * Sum ( h8 p7 p6 ) * t ( p6 p7 h5 h8 )_t * y ( h3 h4 h8 p1 p6 p7 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_15.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_15.F index cc92b02acc..0ad57d2632 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_15.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_15.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_15(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda2_15.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = 1 * P( 4 ) * Sum ( h8 h10 ) * i1 ( h3 h8 h10 p1 )_yt * v ( h4 h10 h8 p2 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_15_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_15_1.F index 841491e75a..373154e9aa 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_15_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_15_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_15_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_15_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h8 h10 p1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h10 )_t * y ( h3 h8 p1 p5 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_15_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_15_2.F index e80140afb1..de257737d3 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_15_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_15_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_15_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_15_2.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h8 h10 p1 )_yt + = 1/2 * Sum ( h7 p6 p5 ) * t ( p5 p6 h7 h10 )_t * y ( h3 h7 h8 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_16.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_16.F index 64aa836d45..773ee0be65 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_16.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_16.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_16(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda2_16.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = 1 * Sum ( h10 p8 ) * i1 ( h3 h4 h10 p8 )_yt * v ( h10 p8 p1 p2 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_16_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_16_1.F index ce1e9c831d..bb873f8f6b 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_16_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_16_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_16_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_16_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h10 p8 )_yt + = -1 * Sum ( p5 ) * t ( p5 h10 )_t * y ( h3 h4 p5 p8 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_16_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_16_2.F index 47106eaa2e..8a8182c160 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_16_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_16_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_16_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_16_2.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h10 p8 )_yt + = -1/2 * Sum ( h7 p6 p5 ) * t ( p5 p6 h7 h10 )_t * y ( h3 h4 h7 p5 p6 p8 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_17.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_17.F index aa920fa755..108348e066 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_17.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_17.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_17(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda2_17.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = -1 * P( 2 ) * Sum ( h8 h6 p7 ) * i1 ( h3 h4 h8 h6 p1 p7 )_yt * v ( h6 p7 h8 p2 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_17_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_17_1.F index 7a2b292476..51d4f1ce28 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_17_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_17_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_17_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_17_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h8 h6 p1 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h3 h4 h8 p1 p5 p7 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_18.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_18.F index 1e1c36afbd..8c8bb11f33 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_18.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_18.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_18(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda2_18.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = -1/2 * P( 2 ) * Sum ( p11 ) * i1 ( p11 p1 )_yt * v ( h3 h4 p2 p11 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_18_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_18_1.F index 565f818fdf..a4cc54711e 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_18_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_18_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_18_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_18_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p1 )_yt + = 1 * Sum ( h8 h7 p5 ) * t ( p5 p11 h7 h8 )_t * y ( h7 h8 p1 p5 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_18_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_18_2.F index 2501e24701..3a50eb29b7 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_18_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_18_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_18_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_18_2.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p1 )_yt + = -1/6 * Sum ( h10 h9 h8 p6 p5 ) * t ( p5 p6 p11 h8 h9 h10 )_t * y ( h8 h9 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_19.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_19.F index 6e3ed42173..aa14eee80e 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_19.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_19.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_19(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda2_19.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = -1/4 * Sum ( h12 h13 ) * i1 ( h3 h4 h12 h13 )_yt * v ( h12 h13 p1 p2 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_19_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_19_1.F index 4dce51102e..b0b6661425 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_19_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_19_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_19_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_19_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h12 h13 )_yt + = -1 * Sum ( p6 p5 ) * t ( p5 p6 h12 h13 )_t * y ( h3 h4 p5 p6 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_19_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_19_2.F index 2d067f5df2..9175d27769 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_19_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_19_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_19_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_19_2.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h12 h13 )_yt + = -1/3 * Sum ( h8 p7 p6 p5 ) * t ( p5 p6 p7 h8 h12 h13 )_t * y ( h3 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_19_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_19_3.F index 14a94d952a..e7f0adc070 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_19_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_19_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_19_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_19_3.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h12 h13 )_ytt + = 2 * Sum ( p5 ) * t ( p5 h12 )_t * i2 ( h3 h4 h13 p5 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_19_3_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_19_3_1.F index 0a0f409ebd..a31f8604b8 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_19_3_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_19_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_19_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_19_3_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h13 p5 )_yt + = -1 * Sum ( p7 ) * t ( p7 h13 )_t * y ( h3 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_19_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_19_4.F index 8e38a45248..81a350c1a0 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_19_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_19_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_19_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_19_4.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h12 h13 )_ytt + = 2 * Sum ( p9 ) * t ( p9 h13 )_t * i2 ( h3 h4 h12 p9 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_19_4_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_19_4_1.F index 8959e82f6b..a5cb1f337a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_19_4_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_19_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_19_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_19_4_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h12 p9 )_yt + = -1 * Sum ( h7 p6 p5 ) * t ( p5 p6 h7 h12 )_t * y ( h3 h4 h7 p5 p6 p9 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_2.F index 3394e85419..6f2f36c322 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda2_2.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yf + = 1 * P( 4 ) * y ( h3 p1 )_y * i1 ( h4 p2 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_20.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_20.F index 363d1c4898..5e75d4f888 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_20.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_20.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_20(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda2_20.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = 1/2 * Sum ( h9 p6 ) * i1 ( h9 p6 p1 p2 )_yt * v ( h3 h4 h9 p6 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_20_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_20_1.F index 0ac8b15da7..2dc1f21d66 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_20_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_20_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_20_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_20_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p6 p1 p2 )_yt + = -1 * Sum ( h8 h7 p5 ) * t ( p5 p6 h7 h8 )_t * y ( h7 h8 h9 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_21.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_21.F index c807d53fd4..6e6cb7b899 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_21.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_21.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_21(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda2_21.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = 1/2 * P( 4 ) * Sum ( p6 p9 ) * i1 ( h3 p6 p1 p9 )_yt * v ( h4 p9 p2 p6 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_21_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_21_1.F index 96864df074..d4b0c13b39 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_21_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_21_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_21_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_21_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p6 p1 p9 )_yt + = 1 * Sum ( h8 h7 p5 ) * t ( p5 p6 h7 h8 )_t * y ( h3 h7 h8 p1 p5 p9 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_22.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_22.F index bf1e508694..ef961d61d1 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_22.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_22.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_22(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda2_22.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_vty + = 1/12 * Sum ( p5 h8 h9 h10 ) * y ( h8 h9 h10 p1 p2 p5 )_y * i1 ( h3 h4 p5 h8 h9 h10 )_vt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_22_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_22_1.F index 9fc7b58697..d1f8354454 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_22_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_22_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_22_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_22_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 p5 h8 h9 h10 )_vt + = 1 * Sum ( p6 p7 ) * t ( p5 p6 p7 h8 h9 h10 )_t * v ( h3 h4 p6 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_23.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_23.F index 1754c3f51d..d90edcf7ea 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_23.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_23.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_23(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda2_23.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = 1/4 * P( 4 ) * Sum ( p12 h13 ) * i1 ( h3 p12 h13 p1 )_yt * v ( h4 h13 p2 p12 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_23_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_23_1.F index 99df7fd1f0..e2b1b63d40 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_23_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_23_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_23_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_23_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p12 h13 p1 )_yt + = 1 * Sum ( h9 h8 p6 p5 ) * t ( p5 p6 p12 h8 h9 h13 )_t * y ( h3 h8 h9 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_23_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_23_2.F index ba285a73af..f0d0aa68ff 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_23_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_23_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_23_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_23_2.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p12 h13 p1 )_ytt + = -4 * Sum ( h8 ) * t ( p12 h8 )_t * i2 ( h3 h8 h13 p1 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_23_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_23_2_1.F index cd97e7a52e..4699130ec3 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_23_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_23_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_23_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_23_2_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h8 h13 p1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h13 )_t * y ( h3 h8 p1 p7 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_23_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_23_2_2.F index 7211b69042..7106db9bc3 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_23_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_23_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_23_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_23_2_2.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h8 h13 p1 )_yt + = 1/2 * Sum ( h7 p6 p5 ) * t ( p5 p6 h7 h13 )_t * y ( h3 h7 h8 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_23_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_23_3.F index 02b9e60603..df260669d4 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_23_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_23_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_23_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_23_3.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p12 h13 p1 )_ytt + = -2 * Sum ( h7 h8 p5 ) * t ( p5 p12 h7 h8 )_t * i2 ( h3 h7 h8 h13 p1 p5 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_23_3_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_23_3_1.F index be57534412..e6b9f3053b 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_23_3_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_23_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_23_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_23_3_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h7 h8 h13 p1 p5 )_yt + = 1 * Sum ( p9 ) * t ( p9 h13 )_t * y ( h3 h7 h8 p1 p5 p9 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_24.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_24.F index 42fdce847e..ace48cc49a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_24.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_24.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_24(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda2_24.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yttv + = 1/2 * P( 2 ) * Sum ( h9 h6 h8 ) * i1 ( h3 h4 h9 h6 h8 p1 )_ytt * v ( h6 h8 h9 p2 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_24_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_24_1.F index 123a89ac15..263fa5f34b 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_24_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_24_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_24_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_24_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h6 h8 p1 )_ytt + = 1 * Sum ( p5 ) * t ( p5 h6 )_t * i2 ( h3 h4 h9 h8 p1 p5 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_24_1_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_24_1_1.F index f1340e5b67..41a18c3d24 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_24_1_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_24_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_24_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_24_1_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h9 h8 p1 p5 )_yt + = -1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h3 h4 h9 p1 p5 p7 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_25.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_25.F index 5bb8463102..93e99e18bf 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_25.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_25.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_25(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda2_25.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yttv + = -1/2 * Sum ( p6 p9 ) * i1 ( p6 p9 p1 p2 )_ytt * v ( h3 h4 p6 p9 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_25_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_25_1.F index ae98033ec2..08415d3816 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_25_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_25_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_25_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_25_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p6 p9 p1 p2 )_ytt + = 1 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h10 p6 p1 p2 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_25_1_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_25_1_1.F index 4d7fec380e..0a334ac78c 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_25_1_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_25_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_25_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_25_1_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p6 p1 p2 )_yt + = -1 * Sum ( h8 h7 p5 ) * t ( p5 p6 h7 h8 )_t * y ( h7 h8 h10 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_26.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_26.F index 8a8b911b5e..83564c5d79 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_26.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_26.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_26(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda2_26.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yttv + = -1/2 * P( 2 ) * Sum ( p11 h8 h10 ) * i1 ( h3 h4 p11 h8 h10 p1 )_ytt * v ( h8 h10 p2 p11 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_26_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_26_1.F index 58aef03e79..26e82b9158 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_26_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_26_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_26_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_26_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 p11 h8 h10 p1 )_ytt + = 1 * t ( p11 h10 )_t * i2 ( h3 h4 h8 p1 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_26_1_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_26_1_1.F index 32c2a34fdd..31e3cd85d5 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_26_1_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_26_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_26_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_26_1_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h8 p1 )_yt + = -1 * Sum ( h7 p6 p5 ) * t ( p5 p6 h7 h8 )_t * y ( h3 h4 h7 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_26_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_26_2.F index c2f2537045..83e3985bfb 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_26_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_26_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_26_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_26_2.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 p11 h8 h10 p1 )_yttt + = 1 * Sum ( h6 ) * t ( p11 h6 )_t * i2 ( h3 h4 h6 h8 h10 p1 )_ytt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_26_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_26_2_1.F index 4aadaf457f..c705c2ca5a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_26_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_26_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_26_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_26_2_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h6 h8 h10 p1 )_ytt + = 1 * Sum ( p7 ) * t ( p7 h8 )_t * i3 ( h3 h4 h6 h10 p1 p7 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_26_2_1_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_26_2_1_1.F index 0847fdcf3a..557f0a85ac 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_26_2_1_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_26_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_26_2_1_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lambda2_26_2_1_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h6 h10 p1 p7 )_yt + = -1 * Sum ( p9 ) * t ( p9 h10 )_t * y ( h3 h4 h6 p1 p7 p9 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_2_1.F index c1d3159997..ee361a6ad1 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_2_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_f + = 1 * f ( h3 p1 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_2_2.F index fb52a2fd70..a025145fd4 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda2_2_2.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 p1 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_3.F index ac2da6ab37..76724e748a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda2_3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 2 ) * Sum ( h7 ) * y ( h7 p1 )_y * i1 ( h3 h4 h7 p2 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_3_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_3_1.F index 25652f0585..882c778b9f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_3_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_3_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h7 p1 )_v + = 1 * v ( h3 h4 h7 p1 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_3_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_3_2.F index eb73b1a1f0..928f8a1194 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_3_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda2_3_2.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h7 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h7 )_t * v ( h3 h4 p1 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_4.F index e4320902d4..06e677e365 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda2_4.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 2 ) * Sum ( p5 ) * y ( h3 p5 )_y * v ( h4 p5 p1 p2 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_5.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_5.F index ab53d36066..7038925842 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_5.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda2_5.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yf + = -1 * P( 2 ) * Sum ( h9 ) * y ( h3 h9 p1 p2 )_y * i1 ( h4 h9 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_5_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_5_1.F index 43d7cd84d7..f269c0b1a5 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_5_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_5_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_f + = 1 * f ( h3 h9 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_5_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_5_2.F index 41c4f6653f..cf5b4536c4 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_5_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda2_5_2.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_ft + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 p5 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_5_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_5_2_1.F index a76d627fd1..8c91f3f18c 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_5_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_5_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_5_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_5_2_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_f + = 1 * f ( h3 p5 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_5_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_5_2_2.F index 752858d705..5061514a4c 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_5_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_5_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_5_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda2_5_2_2.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h3 h8 p5 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_5_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_5_3.F index 74516de0f7..f16554e2f5 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_5_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_5_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda2_5_3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 h9 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_5_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_5_4.F index 09b4ef48d1..f67a6e2280 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_5_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_5_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda2_5_4.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vt + = -1/2 * Sum ( h8 p5 p6 ) * t ( p5 p6 h8 h9 )_t * v ( h3 h8 p5 p6 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_6.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_6.F index cf3796c227..2d9ff532f8 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_6.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda2_6.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yf + = 1 * P( 2 ) * Sum ( p10 ) * y ( h3 h4 p1 p10 )_y * i1 ( p10 p2 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_6_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_6_1.F index 76eba1dc4d..2e06e1a7a8 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_6_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_6_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_6_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_f + = 1 * f ( p10 p1 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_6_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_6_2.F index c7ae2e4a21..96961814cb 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_6_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_6_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda2_6_2.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p10 p1 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_6_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_6_3.F index a98e78cb6c..e669c8bfa3 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_6_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_6_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda2_6_3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_vt + = 1/2 * Sum ( h7 h8 p6 ) * t ( p6 p10 h7 h8 )_t * v ( h7 h8 p1 p6 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_6_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_6_4.F index b122da9e87..f0ba9020d8 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_6_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_6_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_6_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda2_6_4.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_vtt + = -1 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h6 p1 )_vt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_6_4_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_6_4_1.F index f473b51a73..b95a285c61 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_6_4_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_6_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_6_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda2_6_4_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p1 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h6 h8 p1 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_7.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_7.F index 36f34eb521..8864d6a54a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_7.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda2_7.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yv + = 1/2 * Sum ( h10 h9 ) * y ( h9 h10 p1 p2 )_y * i1 ( h3 h4 h9 h10 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_7_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_7_1.F index 02864f964e..a0bde39b4f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_7_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_7_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_7_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_7_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_v + = 1 * v ( h3 h4 h9 h10 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_7_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_7_2.F index 37d3d5293b..04ddf29eac 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_7_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_7_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda2_7_2.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_vt + = -2 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 h4 h10 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_7_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_7_2_1.F index e2fc50384b..78b6ddb250 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_7_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_7_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_7_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_7_2_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h10 p5 )_v + = 1 * v ( h3 h4 h10 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_7_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_7_2_2.F index a71093318f..8b5301ff53 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_7_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_7_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_7_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda2_7_2_2.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h10 p5 )_vt + = -1/2 * Sum ( p7 ) * t ( p7 h10 )_t * v ( h3 h4 p5 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_7_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_7_3.F index 2e1893f053..fef3f7beaa 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_7_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_7_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda2_7_3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h9 h10 )_t * v ( h3 h4 p5 p6 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_8.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_8.F index 21c8e48468..b2cfdda528 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_8.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda2_8.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 4 ) * Sum ( h9 p7 ) * y ( h3 h9 p1 p7 )_y * i1 ( h4 p7 h9 p2 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_8_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_8_1.F index e2588d159e..ea83ac6690 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_8_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_8_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_8_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_8_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p7 h9 p1 )_v + = 1 * v ( h3 p7 h9 p1 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_8_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_8_2.F index 76dfd26cb6..e8e3f892f0 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_8_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_8_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda2_8_2.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p7 h9 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h9 )_t * v ( h3 p7 p1 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_8_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_8_3.F index 69383f2719..e432362a28 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_8_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_8_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_8_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda2_8_3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p7 h9 p1 )_vt + = -1 * Sum ( h8 p6 ) * t ( p6 p7 h8 h9 )_t * v ( h3 h8 p1 p6 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_9.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_9.F index 8e43689734..54391252cb 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_9.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_9.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda2_9.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yv + = 1/2 * Sum ( p6 p5 ) * y ( h3 h4 p5 p6 )_y * v ( p5 p6 p1 p2 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda3.F b/src/tce/ccsdt_lambda/ccsdt_lambda3.F index a48f266f72..73e1ab13aa 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda3.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdt_lambda3(d_f1,d_i0,d_t1,d_t2,d_v2,d_y1,d_y2,d_y3,k &_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_v2_offset,k_y1_of &fset,k_y2_offset,k_y3_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = 1 * P( 9 ) * y ( h4 p1 )_y * v ( h5 h6 p2 p3 )_v @@ -297,7 +297,7 @@ C i2 ( h4 h5 h6 h10 p1 p7 )_yt + = -1 * Sum ( p9 ) * t ( p9 h10 )_t END SUBROUTINE ccsdt_lambda3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = 1 * P( 9 ) * y ( h4 p1 )_y * v ( h5 h6 p2 p3 )_v @@ -514,7 +514,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = 1 * P( 9 ) * y ( h4 p1 )_y * v ( h5 h6 p2 END SUBROUTINE ccsdt_lambda3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yf + = 1 * P( 9 ) * y ( h4 h5 p1 p2 )_y * i1 ( h6 p3 )_f @@ -731,7 +731,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yf + = 1 * P( 9 ) * y ( h4 h5 p1 p2 )_y * i1 ( h6 RETURN END SUBROUTINE ccsdt_lambda3_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p1 )_f + = 1 * f ( h4 p1 )_f @@ -815,7 +815,7 @@ C i1 ( h4 p1 )_f + = 1 * f ( h4 p1 )_f RETURN END SUBROUTINE OFFSET_ccsdt_lambda3_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p1 )_f @@ -871,7 +871,7 @@ C i1 ( h4 p1 )_f END SUBROUTINE ccsdt_lambda3_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p1 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h4 h8 p1 p7 )_v @@ -1032,7 +1032,7 @@ C i1 ( h4 p1 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h4 h8 p1 p7 )_ END SUBROUTINE ccsdt_lambda3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = -1 * P( 9 ) * Sum ( h9 ) * y ( h4 h9 p1 p2 )_y * i1 ( h5 h6 h9 p3 )_v @@ -1267,7 +1267,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = -1 * P( 9 ) * Sum ( h9 ) * y ( h4 h9 p1 p2 RETURN END SUBROUTINE ccsdt_lambda3_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h9 p1 )_v + = 1 * v ( h4 h5 h9 p1 )_v @@ -1368,7 +1368,7 @@ C i1 ( h4 h5 h9 p1 )_v + = 1 * v ( h4 h5 h9 p1 )_v RETURN END SUBROUTINE OFFSET_ccsdt_lambda3_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h9 p1 )_v @@ -1438,7 +1438,7 @@ C i1 ( h4 h5 h9 p1 )_v END SUBROUTINE ccsdt_lambda3_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h9 p1 )_vt + = -1 * Sum ( p7 ) * t ( p7 h9 )_t * v ( h4 h5 p1 p7 )_v @@ -1592,7 +1592,7 @@ C i1 ( h4 h5 h9 p1 )_vt + = -1 * Sum ( p7 ) * t ( p7 h9 )_t * v ( h4 h5 p1 p END SUBROUTINE ccsdt_lambda3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = -1 * P( 9 ) * Sum ( p7 ) * y ( h4 h5 p1 p7 )_y * v ( h6 p7 p2 p3 )_v @@ -1830,7 +1830,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = -1 * P( 9 ) * Sum ( p7 ) * y ( h4 h5 p1 p7 END SUBROUTINE ccsdt_lambda3_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yf + = -1 * P( 3 ) * Sum ( h11 ) * y ( h4 h5 h11 p1 p2 p3 )_y * i1 ( h6 h11 )_f @@ -2027,7 +2027,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yf + = -1 * P( 3 ) * Sum ( h11 ) * y ( h4 h5 h11 RETURN END SUBROUTINE ccsdt_lambda3_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h11 )_f + = 1 * f ( h4 h11 )_f @@ -2111,7 +2111,7 @@ C i1 ( h4 h11 )_f + = 1 * f ( h4 h11 )_f RETURN END SUBROUTINE OFFSET_ccsdt_lambda3_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h11 )_f @@ -2167,7 +2167,7 @@ C i1 ( h4 h11 )_f END SUBROUTINE ccsdt_lambda3_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h11 )_ft + = 1 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( h4 p7 )_f @@ -2294,7 +2294,7 @@ C i1 ( h4 h11 )_ft + = 1 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( h4 p7 )_f RETURN END SUBROUTINE ccsdt_lambda3_5_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p7 )_f + = 1 * f ( h4 p7 )_f @@ -2378,7 +2378,7 @@ C i2 ( h4 p7 )_f + = 1 * f ( h4 p7 )_f RETURN END SUBROUTINE OFFSET_ccsdt_lambda3_5_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p7 )_f @@ -2434,7 +2434,7 @@ C i2 ( h4 p7 )_f END SUBROUTINE ccsdt_lambda3_5_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p7 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h4 h10 p7 p9 )_v @@ -2595,7 +2595,7 @@ C i2 ( h4 p7 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h4 h10 p7 p9 END SUBROUTINE ccsdt_lambda3_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h11 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h4 h8 h11 p7 )_v @@ -2740,7 +2740,7 @@ C i1 ( h4 h11 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h4 h8 h11 p7 END SUBROUTINE ccsdt_lambda3_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h11 )_vt + = -1/2 * Sum ( h10 p7 p8 ) * t ( p7 p8 h10 h11 )_t * v ( h4 h10 p7 p8 )_v @@ -2916,7 +2916,7 @@ C i1 ( h4 h11 )_vt + = -1/2 * Sum ( h10 p7 p8 ) * t ( p7 p8 h10 h11 )_t * v END SUBROUTINE ccsdt_lambda3_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yf + = 1 * P( 3 ) * Sum ( p12 ) * y ( h4 h5 h6 p1 p2 p12 )_y * i1 ( p12 p3 )_f @@ -3113,7 +3113,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yf + = 1 * P( 3 ) * Sum ( p12 ) * y ( h4 h5 h6 p1 RETURN END SUBROUTINE ccsdt_lambda3_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p12 p1 )_f + = 1 * f ( p12 p1 )_f @@ -3197,7 +3197,7 @@ C i1 ( p12 p1 )_f + = 1 * f ( p12 p1 )_f RETURN END SUBROUTINE OFFSET_ccsdt_lambda3_6_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p12 p1 )_f @@ -3254,7 +3254,7 @@ C i1 ( p12 p1 )_f END SUBROUTINE ccsdt_lambda3_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p12 p1 )_vt + = -1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 p12 p1 p7 )_v @@ -3399,7 +3399,7 @@ C i1 ( p12 p1 )_vt + = -1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 p12 p1 p7 END SUBROUTINE ccsdt_lambda3_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p12 p1 )_vt + = 1/2 * Sum ( h9 h10 p8 ) * t ( p8 p12 h9 h10 )_t * v ( h9 h10 p1 p8 )_v @@ -3575,7 +3575,7 @@ C i1 ( p12 p1 )_vt + = 1/2 * Sum ( h9 h10 p8 ) * t ( p8 p12 h9 h10 )_t * v ( END SUBROUTINE ccsdt_lambda3_6_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p12 p1 )_vtt + = -1 * Sum ( h8 ) * t ( p12 h8 )_t * i2 ( h8 p1 )_vt @@ -3703,7 +3703,7 @@ C i1 ( p12 p1 )_vtt + = -1 * Sum ( h8 ) * t ( p12 h8 )_t * i2 ( h8 p1 )_vt END SUBROUTINE ccsdt_lambda3_6_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p1 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h8 h10 p1 p9 )_v @@ -3863,7 +3863,7 @@ C i2 ( h8 p1 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h8 h10 p1 p9 RETURN END SUBROUTINE OFFSET_ccsdt_lambda3_6_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p1 )_vt @@ -3919,7 +3919,7 @@ C i2 ( h8 p1 )_vt END SUBROUTINE ccsdt_lambda3_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = 1/2 * P( 3 ) * Sum ( h12 h11 ) * y ( h4 h11 h12 p1 p2 p3 )_y * i1 ( h5 h6 h11 h12 )_v @@ -4138,7 +4138,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = 1/2 * P( 3 ) * Sum ( h12 h11 ) * y ( h4 h1 RETURN END SUBROUTINE ccsdt_lambda3_7_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h11 h12 )_v + = 1 * v ( h4 h5 h11 h12 )_v @@ -4236,7 +4236,7 @@ C i1 ( h4 h5 h11 h12 )_v + = 1 * v ( h4 h5 h11 h12 )_v RETURN END SUBROUTINE OFFSET_ccsdt_lambda3_7_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h11 h12 )_v @@ -4306,7 +4306,7 @@ C i1 ( h4 h5 h11 h12 )_v END SUBROUTINE ccsdt_lambda3_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h11 h12 )_vt + = -2 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( h4 h5 h12 p7 )_v @@ -4459,7 +4459,7 @@ C i1 ( h4 h5 h11 h12 )_vt + = -2 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( h4 h5 RETURN END SUBROUTINE ccsdt_lambda3_7_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h12 p7 )_v + = 1 * v ( h4 h5 h12 p7 )_v @@ -4558,7 +4558,7 @@ C i2 ( h4 h5 h12 p7 )_v + = 1 * v ( h4 h5 h12 p7 )_v RETURN END SUBROUTINE OFFSET_ccsdt_lambda3_7_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h12 p7 )_v @@ -4628,7 +4628,7 @@ C i2 ( h4 h5 h12 p7 )_v END SUBROUTINE ccsdt_lambda3_7_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h12 p7 )_vt + = -1/2 * Sum ( p9 ) * t ( p9 h12 )_t * v ( h4 h5 p7 p9 )_v @@ -4782,7 +4782,7 @@ C i2 ( h4 h5 h12 p7 )_vt + = -1/2 * Sum ( p9 ) * t ( p9 h12 )_t * v ( h4 h5 END SUBROUTINE ccsdt_lambda3_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h11 h12 )_vt + = 1/2 * Sum ( p7 p8 ) * t ( p7 p8 h11 h12 )_t * v ( h4 h5 p7 p8 )_v @@ -4944,7 +4944,7 @@ C i1 ( h4 h5 h11 h12 )_vt + = 1/2 * Sum ( p7 p8 ) * t ( p7 p8 h11 h12 )_t * END SUBROUTINE ccsdt_lambda3_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = -1 * P( 9 ) * Sum ( h12 p9 ) * y ( h4 h5 h12 p1 p2 p9 )_y * i1 ( h6 p9 h12 p3 )_v @@ -5256,7 +5256,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = -1 * P( 9 ) * Sum ( h12 p9 ) * y ( h4 h5 h RETURN END SUBROUTINE ccsdt_lambda3_8_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p9 h12 p1 )_v + = 1 * v ( h4 p9 h12 p1 )_v @@ -5357,7 +5357,7 @@ C i1 ( h4 p9 h12 p1 )_v + = 1 * v ( h4 p9 h12 p1 )_v RETURN END SUBROUTINE OFFSET_ccsdt_lambda3_8_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p9 h12 p1 )_v @@ -5427,7 +5427,7 @@ C i1 ( h4 p9 h12 p1 )_v END SUBROUTINE ccsdt_lambda3_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p9 h12 p1 )_vt + = -1 * Sum ( p7 ) * t ( p7 h12 )_t * v ( h4 p9 p1 p7 )_v @@ -5581,7 +5581,7 @@ C i1 ( h4 p9 h12 p1 )_vt + = -1 * Sum ( p7 ) * t ( p7 h12 )_t * v ( h4 p9 p1 END SUBROUTINE ccsdt_lambda3_8_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p9 h12 p1 )_vt + = -1 * Sum ( h10 p8 ) * t ( p8 p9 h10 h12 )_t * v ( h4 h10 p1 p8 )_v @@ -5784,7 +5784,7 @@ C i1 ( h4 p9 h12 p1 )_vt + = -1 * Sum ( h10 p8 ) * t ( p8 p9 h10 h12 )_t * v END SUBROUTINE ccsdt_lambda3_8_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p9 h12 p1 )_vtt + = 1 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h4 h10 h12 p1 )_vt @@ -5928,7 +5928,7 @@ C i1 ( h4 p9 h12 p1 )_vtt + = 1 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h4 h10 END SUBROUTINE ccsdt_lambda3_8_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h10 h12 p1 )_vt + = 1 * Sum ( p7 ) * t ( p7 h12 )_t * v ( h4 h10 p1 p7 )_v @@ -6097,7 +6097,7 @@ C i2 ( h4 h10 h12 p1 )_vt + = 1 * Sum ( p7 ) * t ( p7 h12 )_t * v ( h4 h10 p RETURN END SUBROUTINE OFFSET_ccsdt_lambda3_8_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h10 h12 p1 )_vt @@ -6169,7 +6169,7 @@ C i2 ( h4 h10 h12 p1 )_vt END SUBROUTINE ccsdt_lambda3_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = 1/2 * P( 3 ) * Sum ( p8 p7 ) * y ( h4 h5 h6 p1 p7 p8 )_y * v ( p7 p8 p2 p3 )_v @@ -6386,7 +6386,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = 1/2 * P( 3 ) * Sum ( p8 p7 ) * y ( h4 h5 h END SUBROUTINE ccsdt_lambda3_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = -1 * P( 9 ) * Sum ( h11 ) * i1 ( h4 h5 h11 p1 )_yt * v ( h6 h11 p2 p3 )_v @@ -6624,7 +6624,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = -1 * P( 9 ) * Sum ( h11 ) * i1 ( h4 h5 h1 END SUBROUTINE ccsdt_lambda3_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h11 p1 )_yt + = -1 * Sum ( p7 ) * t ( p7 h11 )_t * y ( h4 h5 p1 p7 )_y @@ -6777,7 +6777,7 @@ C i1 ( h4 h5 h11 p1 )_yt + = -1 * Sum ( p7 ) * t ( p7 h11 )_t * y ( h4 h5 p1 RETURN END SUBROUTINE OFFSET_ccsdt_lambda3_10_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h11 p1 )_yt @@ -6849,7 +6849,7 @@ C i1 ( h4 h5 h11 p1 )_yt END SUBROUTINE ccsdt_lambda3_10_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h11 p1 )_yt + = 1/2 * Sum ( h9 p8 p7 ) * t ( p7 p8 h9 h11 )_t * y ( h4 h5 h9 p1 p7 p8 )_y @@ -7097,7 +7097,7 @@ C i1 ( h4 h5 h11 p1 )_yt + = 1/2 * Sum ( h9 p8 p7 ) * t ( p7 p8 h9 h11 )_t * END SUBROUTINE ccsdt_lambda3_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_ytf + = -1 * P( 3 ) * Sum ( h7 ) * i1 ( h4 h5 h6 h7 p1 p2 )_yt * f ( h7 p3 )_f @@ -7275,7 +7275,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_ytf + = -1 * P( 3 ) * Sum ( h7 ) * i1 ( h4 h5 h6 END SUBROUTINE ccsdt_lambda3_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h6 h7 p1 p2 )_yt + = 1 * Sum ( p8 ) * t ( p8 h7 )_t * y ( h4 h5 h6 p1 p2 p8 )_y @@ -7448,7 +7448,7 @@ C i1 ( h4 h5 h6 h7 p1 p2 )_yt + = 1 * Sum ( p8 ) * t ( p8 h7 )_t * y ( h4 h5 RETURN END SUBROUTINE OFFSET_ccsdt_lambda3_11_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h6 h7 p1 p2 )_yt @@ -7536,7 +7536,7 @@ C i1 ( h4 h5 h6 h7 p1 p2 )_yt END SUBROUTINE ccsdt_lambda3_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = 1 * P( 9 ) * Sum ( h9 h8 ) * i1 ( h4 h5 h9 h8 p1 p2 )_yt * v ( h6 h8 h9 p3 )_v @@ -7780,7 +7780,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = 1 * P( 9 ) * Sum ( h9 h8 ) * i1 ( h4 h5 h END SUBROUTINE ccsdt_lambda3_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h9 h8 p1 p2 )_yt + = 1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h4 h5 h9 p1 p2 p7 )_y @@ -8002,7 +8002,7 @@ C i1 ( h4 h5 h9 h8 p1 p2 )_yt + = 1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h4 h5 RETURN END SUBROUTINE OFFSET_ccsdt_lambda3_12_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h9 h8 p1 p2 )_yt @@ -8090,7 +8090,7 @@ C i1 ( h4 h5 h9 h8 p1 p2 )_yt END SUBROUTINE ccsdt_lambda3_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = 1 * P( 3 ) * Sum ( h8 p9 ) * i1 ( h4 h5 h6 h8 p1 p9 )_yt * v ( h8 p9 p2 p3 )_v @@ -8275,7 +8275,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = 1 * P( 3 ) * Sum ( h8 p9 ) * i1 ( h4 h5 h END SUBROUTINE ccsdt_lambda3_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h6 h8 p1 p9 )_yt + = -1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h4 h5 h6 p1 p7 p9 )_y @@ -8472,7 +8472,7 @@ C i1 ( h4 h5 h6 h8 p1 p9 )_yt + = -1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h4 h RETURN END SUBROUTINE OFFSET_ccsdt_lambda3_13_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h6 h8 p1 p9 )_yt @@ -8560,7 +8560,7 @@ C i1 ( h4 h5 h6 h8 p1 p9 )_yt END SUBROUTINE ccsdt_lambda3_14(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = 1/2 * P( 9 ) * Sum ( p8 ) * i1 ( h4 p8 p1 p2 )_yt * v ( h5 h6 p3 p8 )_v @@ -8807,7 +8807,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = 1/2 * P( 9 ) * Sum ( p8 ) * i1 ( h4 p8 p1 END SUBROUTINE ccsdt_lambda3_14_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p8 p1 p2 )_yt + = -1 * Sum ( h10 h9 p7 ) * t ( p7 p8 h9 h10 )_t * y ( h4 h9 h10 p1 p2 p7 )_y @@ -9066,7 +9066,7 @@ C i1 ( h4 p8 p1 p2 )_yt + = -1 * Sum ( h10 h9 p7 ) * t ( p7 p8 h9 h10 )_t * RETURN END SUBROUTINE OFFSET_ccsdt_lambda3_14_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p8 p1 p2 )_yt @@ -9138,7 +9138,7 @@ C i1 ( h4 p8 p1 p2 )_yt END SUBROUTINE ccsdt_lambda3_15(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = 1/4 * P( 3 ) * Sum ( h11 h10 ) * i1 ( h4 h5 h6 h10 h11 p1 )_yt * v ( h10 h11 p2 p3 )_v @@ -9338,7 +9338,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = 1/4 * P( 3 ) * Sum ( h11 h10 ) * i1 ( h4 END SUBROUTINE ccsdt_lambda3_15_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h6 h10 h11 p1 )_yt + = 1 * Sum ( p8 p7 ) * t ( p7 p8 h10 h11 )_t * y ( h4 h5 h6 p1 p7 p8 )_y @@ -9531,7 +9531,7 @@ C i1 ( h4 h5 h6 h10 h11 p1 )_yt + = 1 * Sum ( p8 p7 ) * t ( p7 p8 h10 h11 )_ RETURN END SUBROUTINE OFFSET_ccsdt_lambda3_15_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h6 h10 h11 p1 )_yt @@ -9619,7 +9619,7 @@ C i1 ( h4 h5 h6 h10 h11 p1 )_yt END SUBROUTINE ccsdt_lambda3_15_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h6 h10 h11 p1 )_ytt + = 2 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( h4 h5 h6 h10 p1 p7 )_yt @@ -9788,7 +9788,7 @@ C i1 ( h4 h5 h6 h10 h11 p1 )_ytt + = 2 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( END SUBROUTINE ccsdt_lambda3_15_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h6 h10 p1 p7 )_yt + = -1 * Sum ( p9 ) * t ( p9 h10 )_t * y ( h4 h5 h6 p1 p7 p9 )_y @@ -9985,7 +9985,7 @@ C i2 ( h4 h5 h6 h10 p1 p7 )_yt + = -1 * Sum ( p9 ) * t ( p9 h10 )_t * y ( h4 RETURN END SUBROUTINE OFFSET_ccsdt_lambda3_15_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h6 h10 p1 p7 )_yt diff --git a/src/tce/cis/GNUmakefile b/src/tce/cis/GNUmakefile index 8f5a1e98c2..25747f32fe 100644 --- a/src/tce/cis/GNUmakefile +++ b/src/tce/cis/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.2 2005/12/20 21:19:40 edo Exp $ +#$Id$ OBJ_OPTIMIZE = cis.o cis_x1.o cis_xguess.o cis_xdiagon.o cis_xtidy.o diff --git a/src/tce/cis/cis_x1.F b/src/tce/cis/cis_x1.F index bace8e92ac..6285a5a3de 100644 --- a/src/tce/cis/cis_x1.F +++ b/src/tce/cis/cis_x1.F @@ -1,6 +1,6 @@ SUBROUTINE cis_x1(d_f1,d_i0,d_v2,d_x1,k_f1_offset,k_i0_offset,k_v2 &_offset,k_x1_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = -1 * Sum ( h3 ) * x ( p2 h3 )_x * f ( h3 h1 )_f @@ -26,7 +26,7 @@ C i0 ( p2 h1 )_xv + = -1 * Sum ( p4 h3 ) * x ( p4 h3 )_x * v ( h3 p2 h1 p4 ) RETURN END SUBROUTINE cis_x1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = -1 * Sum ( h3 ) * x ( p2 h3 )_x * f ( h3 h1 )_f @@ -148,7 +148,7 @@ C i0 ( p2 h1 )_xf + = -1 * Sum ( h3 ) * x ( p2 h3 )_x * f ( h3 h1 )_f RETURN END SUBROUTINE cis_x1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * f ( p2 p3 )_f @@ -270,7 +270,7 @@ C i0 ( p2 h1 )_xf + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * f ( p2 p3 )_f RETURN END SUBROUTINE cis_x1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xv + = -1 * Sum ( p4 h3 ) * x ( p4 h3 )_x * v ( h3 p2 h1 p4 )_v diff --git a/src/tce/cis/cis_xdiagon.F b/src/tce/cis/cis_xdiagon.F index 17ccc5ab0f..adef3b90eb 100644 --- a/src/tce/cis/cis_xdiagon.F +++ b/src/tce/cis/cis_xdiagon.F @@ -1,6 +1,6 @@ subroutine cis_xdiagon(size_x1,k_x1_offset,d_r1,omega,residual) c -c $Id: tce_eom_xdiagon.F,v 1.3 2005/12/16 22:16:04 kowalski Exp $ +c $Id$ c c Form a subspace matrix and diagonalize c diff --git a/src/tce/cis/cis_xguess.F b/src/tce/cis/cis_xguess.F index 3b3d5c4f85..27198e4379 100644 --- a/src/tce/cis/cis_xguess.F +++ b/src/tce/cis/cis_xguess.F @@ -1,6 +1,6 @@ subroutine cis_xguess(size_x1,k_x1_offset,iopen_f) c -c $Id: tce_eom_xguess.F,v 1.4 2005/12/16 22:16:04 kowalski Exp $ +c $Id$ c c Generates initial trial vectors that are all singly excited c determinants within the same irrep_x diff --git a/src/tce/cis/cis_xtidy.F b/src/tce/cis/cis_xtidy.F index 0e17c1ea60..eaff47c2b5 100644 --- a/src/tce/cis/cis_xtidy.F +++ b/src/tce/cis/cis_xtidy.F @@ -1,6 +1,6 @@ subroutine cis_xtidy c -c $Id: tce_eom_tidy.F,v 1.2 2003/10/19 00:52:06 sohirata Exp $ +c $Id$ c c Delete files for trial and product vectors c diff --git a/src/tce/cisd/GNUmakefile b/src/tce/cisd/GNUmakefile index ccffa78f87..0b5a6fbb84 100644 --- a/src/tce/cisd/GNUmakefile +++ b/src/tce/cisd/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.2 2005-12-20 21:19:40 edo Exp $ +#$Id$ OBJ_OPTIMIZE = cisd_e.o cisd_c1.o cisd_c2.o diff --git a/src/tce/cisd/cisd_c1.F b/src/tce/cisd/cisd_c1.F index c082645cfe..398929ae6b 100644 --- a/src/tce/cisd/cisd_c1.F +++ b/src/tce/cisd/cisd_c1.F @@ -1,6 +1,6 @@ SUBROUTINE cisd_c1(d_e0,d_f1,d_i0,d_t1,d_t2,d_v2,k_e0_offset,k_f1_ &offset,k_i0_offset,k_t1_offset,k_t2_offset,k_v2_offset) -C $Id: cisd_c1.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_f + = 1 * f ( p2 h1 )_f @@ -40,7 +40,7 @@ C i0 ( p2 h1 )_te + = -1 * e ( )_e * t ( p2 h1 )_t RETURN END SUBROUTINE cisd_c1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cisd_c1.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_f + = 1 * f ( p2 h1 )_f @@ -122,7 +122,7 @@ C i0 ( p2 h1 )_f + = 1 * f ( p2 h1 )_f RETURN END SUBROUTINE cisd_c1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisd_c1.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = -1 * Sum ( h3 ) * t ( p2 h3 )_t * f ( h3 h1 )_f @@ -246,7 +246,7 @@ C i0 ( p2 h1 )_tf + = -1 * Sum ( h3 ) * t ( p2 h3 )_t * f ( h3 h1 )_f RETURN END SUBROUTINE cisd_c1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisd_c1.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * f ( p2 p3 )_f @@ -370,7 +370,7 @@ C i0 ( p2 h1 )_tf + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * f ( p2 p3 )_f RETURN END SUBROUTINE cisd_c1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisd_c1.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 h1 p3 )_v @@ -503,7 +503,7 @@ C i0 ( p2 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 h1 p3 ) RETURN END SUBROUTINE cisd_c1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisd_c1.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = 1 * Sum ( p4 h3 ) * t ( p2 p4 h1 h3 )_t * f ( h3 p4 )_f @@ -661,7 +661,7 @@ C i0 ( p2 h1 )_tf + = 1 * Sum ( p4 h3 ) * t ( p2 p4 h1 h3 )_t * f ( h3 p4 )_ RETURN END SUBROUTINE cisd_c1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisd_c1.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * v ( h4 h5 h1 p3 )_v @@ -825,7 +825,7 @@ C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * v ( h4 RETURN END SUBROUTINE cisd_c1_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisd_c1.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 p2 p3 p4 )_v @@ -989,7 +989,7 @@ C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 RETURN END SUBROUTINE cisd_c1_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisd_c1.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_te + = -1 * e ( )_e * t ( p2 h1 )_t diff --git a/src/tce/cisd/cisd_c2.F b/src/tce/cisd/cisd_c2.F index 1b6cf1edbb..ce3d804b12 100644 --- a/src/tce/cisd/cisd_c2.F +++ b/src/tce/cisd/cisd_c2.F @@ -1,6 +1,6 @@ SUBROUTINE cisd_c2(d_e0,d_f1,d_i0,d_t1,d_t2,d_v2,k_e0_offset,k_f1_ &offset,k_i0_offset,k_t1_offset,k_t2_offset,k_v2_offset) -C $Id: cisd_c2.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v @@ -45,7 +45,7 @@ C i0 ( p3 p4 h1 h2 )_te + = -1 * e ( )_e * t ( p3 p4 h1 h2 )_t RETURN END SUBROUTINE cisd_c2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cisd_c2.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v @@ -142,7 +142,7 @@ C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v RETURN END SUBROUTINE cisd_c2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisd_c2.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 4 ) * t ( p3 h1 )_t * f ( p4 h2 )_f @@ -300,7 +300,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 4 ) * t ( p3 h1 )_t * f ( p4 h2 )_f RETURN END SUBROUTINE cisd_c2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisd_c2.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * v ( h5 p4 h1 h2 )_v @@ -452,7 +452,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * v ( h RETURN END SUBROUTINE cisd_c2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisd_c2.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * v ( p3 p4 h2 p5 )_v @@ -604,7 +604,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * v ( p RETURN END SUBROUTINE cisd_c2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisd_c2.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * f ( h5 h2 )_f @@ -765,7 +765,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * RETURN END SUBROUTINE cisd_c2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisd_c2.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * f ( p4 p5 )_f @@ -926,7 +926,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * RETURN END SUBROUTINE cisd_c2_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisd_c2.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * v ( h5 h6 h1 h2 )_v @@ -1085,7 +1085,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * v ( RETURN END SUBROUTINE cisd_c2_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisd_c2.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * v ( h6 p4 h2 p5 )_v @@ -1286,7 +1286,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_ RETURN END SUBROUTINE cisd_c2_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisd_c2.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( p3 p4 p5 p6 )_v @@ -1446,7 +1446,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( END SUBROUTINE cisd_c2_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisd_c2.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_te + = -1 * e ( )_e * t ( p3 p4 h1 h2 )_t diff --git a/src/tce/cisd/cisd_e.F b/src/tce/cisd/cisd_e.F index 4a2e528dd0..796fd8bce4 100644 --- a/src/tce/cisd/cisd_e.F +++ b/src/tce/cisd/cisd_e.F @@ -1,6 +1,6 @@ SUBROUTINE cisd_e(d_f1,d_i0,d_t1,d_t2,d_v2,k_f1_offset,k_i0_offset &,k_t1_offset,k_t2_offset,k_v2_offset) -C $Id: cisd_e.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_tf + = 1 * Sum ( p2 h1 ) * t ( p2 h1 )_t * f ( h1 p2 )_f @@ -26,7 +26,7 @@ C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 RETURN END SUBROUTINE cisd_e_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisd_e.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_tf + = 1 * Sum ( p2 h1 ) * t ( p2 h1 )_t * f ( h1 p2 )_f @@ -137,7 +137,7 @@ C i0 ( )_tf + = 1 * Sum ( p2 h1 ) * t ( p2 h1 )_t * f ( h1 p2 )_f RETURN END SUBROUTINE cisd_e_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisd_e.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 p1 p2 )_v diff --git a/src/tce/cisdt/GNUmakefile b/src/tce/cisdt/GNUmakefile index fde6601abf..7fa7a8287a 100644 --- a/src/tce/cisdt/GNUmakefile +++ b/src/tce/cisdt/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.2 2005-12-20 21:19:40 edo Exp $ +#$Id$ OBJ_OPTIMIZE = cisdt_e.o cisdt_c1.o cisdt_c2.o cisdt_c3.o diff --git a/src/tce/cisdt/cisdt_c1.F b/src/tce/cisdt/cisdt_c1.F index d34c3e9bf6..efcc5c669f 100644 --- a/src/tce/cisdt/cisdt_c1.F +++ b/src/tce/cisdt/cisdt_c1.F @@ -1,7 +1,7 @@ SUBROUTINE cisdt_c1(d_e0,d_f1,d_i0,d_t1,d_t2,d_t3,d_v2,k_e0_offset &,k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_v2_ &offset) -C $Id: cisdt_c1.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_f + = 1 * f ( p2 h1 )_f @@ -53,7 +53,7 @@ C i0 ( p2 h1 )_te + = -1 * e ( )_e * t ( p2 h1 )_t RETURN END SUBROUTINE cisdt_c1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cisdt_c1.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_f + = 1 * f ( p2 h1 )_f @@ -136,7 +136,7 @@ C i0 ( p2 h1 )_f + = 1 * f ( p2 h1 )_f END SUBROUTINE cisdt_c1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c1.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = -1 * Sum ( h3 ) * t ( p2 h3 )_t * f ( h3 h1 )_f @@ -261,7 +261,7 @@ C i0 ( p2 h1 )_tf + = -1 * Sum ( h3 ) * t ( p2 h3 )_t * f ( h3 h1 )_f END SUBROUTINE cisdt_c1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c1.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * f ( p2 p3 )_f @@ -386,7 +386,7 @@ C i0 ( p2 h1 )_tf + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * f ( p2 p3 )_f END SUBROUTINE cisdt_c1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c1.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 h1 p3 )_v @@ -520,7 +520,7 @@ C i0 ( p2 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 h1 p3 ) END SUBROUTINE cisdt_c1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c1.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = 1 * Sum ( p4 h3 ) * t ( p2 p4 h1 h3 )_t * f ( h3 p4 )_f @@ -679,7 +679,7 @@ C i0 ( p2 h1 )_tf + = 1 * Sum ( p4 h3 ) * t ( p2 p4 h1 h3 )_t * f ( h3 p4 )_ END SUBROUTINE cisdt_c1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c1.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * v ( h4 h5 h1 p3 )_v @@ -844,7 +844,7 @@ C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * v ( h4 END SUBROUTINE cisdt_c1_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c1.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 p2 p3 p4 )_v @@ -1009,7 +1009,7 @@ C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 END SUBROUTINE cisdt_c1_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c1.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = 1/4 * Sum ( h5 h6 p3 p4 ) * t ( p2 p3 p4 h1 h5 h6 )_t * v ( h5 h6 p3 p4 )_v @@ -1248,7 +1248,7 @@ C i0 ( p2 h1 )_vt + = 1/4 * Sum ( h5 h6 p3 p4 ) * t ( p2 p3 p4 h1 h5 h6 )_t END SUBROUTINE cisdt_c1_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c1.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_te + = -1 * e ( )_e * t ( p2 h1 )_t diff --git a/src/tce/cisdt/cisdt_c2.F b/src/tce/cisdt/cisdt_c2.F index 6b0656a9c1..39bd803918 100644 --- a/src/tce/cisdt/cisdt_c2.F +++ b/src/tce/cisdt/cisdt_c2.F @@ -1,7 +1,7 @@ SUBROUTINE cisdt_c2(d_e0,d_f1,d_i0,d_t1,d_t2,d_t3,d_v2,k_e0_offset &,k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_v2_ &offset) -C $Id: cisdt_c2.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v @@ -65,7 +65,7 @@ C i0 ( p3 p4 h1 h2 )_te + = -1 * e ( )_e * t ( p3 p4 h1 h2 )_t RETURN END SUBROUTINE cisdt_c2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cisdt_c2.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v @@ -163,7 +163,7 @@ C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v END SUBROUTINE cisdt_c2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c2.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 4 ) * t ( p3 h1 )_t * f ( p4 h2 )_f @@ -322,7 +322,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 4 ) * t ( p3 h1 )_t * f ( p4 h2 )_f END SUBROUTINE cisdt_c2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c2.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * v ( h5 p4 h1 h2 )_v @@ -475,7 +475,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * v ( h END SUBROUTINE cisdt_c2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c2.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * v ( p3 p4 h2 p5 )_v @@ -628,7 +628,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * v ( p END SUBROUTINE cisdt_c2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c2.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * f ( h5 h2 )_f @@ -790,7 +790,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * END SUBROUTINE cisdt_c2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c2.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * f ( p4 p5 )_f @@ -952,7 +952,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * END SUBROUTINE cisdt_c2_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c2.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * v ( h5 h6 h1 h2 )_v @@ -1112,7 +1112,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * v ( END SUBROUTINE cisdt_c2_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c2.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * v ( h6 p4 h2 p5 )_v @@ -1314,7 +1314,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_ END SUBROUTINE cisdt_c2_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c2.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( p3 p4 p5 p6 )_v @@ -1474,7 +1474,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( END SUBROUTINE cisdt_c2_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdt_c2.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = 1 * Sum ( p6 h5 ) * t ( p3 p4 p6 h1 h2 h5 )_t * f ( h5 p6 )_f @@ -1691,7 +1691,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = 1 * Sum ( p6 h5 ) * t ( p3 p4 p6 h1 h2 h5 )_t * END SUBROUTINE cisdt_c2_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdt_c2.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1/2 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p3 p4 p5 h1 h6 h7 )_t * v ( h6 h7 h2 p5 )_v @@ -1940,7 +1940,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1/2 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p3 p4 p5 END SUBROUTINE cisdt_c2_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdt_c2.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1/2 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p3 p5 p6 h1 h2 h7 )_t * v ( h7 p4 p5 p6 )_v @@ -2189,7 +2189,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1/2 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p3 p5 p6 END SUBROUTINE cisdt_c2_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdt_c2.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_te + = -1 * e ( )_e * t ( p3 p4 h1 h2 )_t diff --git a/src/tce/cisdt/cisdt_c3.F b/src/tce/cisdt/cisdt_c3.F index 51d2b4f9b9..4edf17159d 100644 --- a/src/tce/cisdt/cisdt_c3.F +++ b/src/tce/cisdt/cisdt_c3.F @@ -1,7 +1,7 @@ SUBROUTINE cisdt_c3(d_e0,d_f1,d_i0,d_t1,d_t2,d_t3,d_v2,k_e0_offset &,k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_v2_ &offset) -C $Id: cisdt_c3.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = 1 * P( 9 ) * t ( p4 h1 )_t * v ( p5 p6 h2 h3 )_v @@ -58,7 +58,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_te + = -1 * e ( )_e * t ( p4 p5 p6 h1 h2 h3 )_t END SUBROUTINE cisdt_c3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c3.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = 1 * P( 9 ) * t ( p4 h1 )_t * v ( p5 p6 h2 h3 )_v @@ -272,7 +272,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = 1 * P( 9 ) * t ( p4 h1 )_t * v ( p5 p6 h2 END SUBROUTINE cisdt_c3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c3.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * P( 9 ) * t ( p4 p5 h1 h2 )_t * f ( p6 h3 )_f @@ -487,7 +487,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * P( 9 ) * t ( p4 p5 h1 h2 )_t * f ( p6 END SUBROUTINE cisdt_c3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c3.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h7 ) * t ( p4 p5 h1 h7 )_t * v ( h7 p6 h2 h3 )_v @@ -722,7 +722,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h7 ) * t ( p4 p5 h1 h7 END SUBROUTINE cisdt_c3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c3.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * v ( p5 p6 h3 p7 )_v @@ -957,7 +957,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 END SUBROUTINE cisdt_c3_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c3.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 h2 h7 )_t * f ( h7 h3 )_f @@ -1149,7 +1149,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 END SUBROUTINE cisdt_c3_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c3.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * P( 3 ) * Sum ( p7 ) * t ( p4 p5 p7 h1 h2 h3 )_t * f ( p6 p7 )_f @@ -1341,7 +1341,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * P( 3 ) * Sum ( p7 ) * t ( p4 p5 p7 h1 END SUBROUTINE cisdt_c3_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c3.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = 1/2 * P( 3 ) * Sum ( h7 h8 ) * t ( p4 p5 p6 h1 h7 h8 )_t * v ( h7 h8 h2 h3 )_v @@ -1555,7 +1555,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = 1/2 * P( 3 ) * Sum ( h7 h8 ) * t ( p4 p5 p END SUBROUTINE cisdt_c3_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c3.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h8 p7 ) * t ( p4 p5 p7 h1 h2 h8 )_t * v ( h8 p6 h3 p7 )_v @@ -1854,7 +1854,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h8 p7 ) * t ( p4 p5 p7 END SUBROUTINE cisdt_c3_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c3.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = 1/2 * P( 3 ) * Sum ( p7 p8 ) * t ( p4 p7 p8 h1 h2 h3 )_t * v ( p5 p6 p7 p8 )_v @@ -2068,7 +2068,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = 1/2 * P( 3 ) * Sum ( p7 p8 ) * t ( p4 p7 p END SUBROUTINE cisdt_c3_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdt_c3.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_te + = -1 * e ( )_e * t ( p4 p5 p6 h1 h2 h3 )_t diff --git a/src/tce/cisdt/cisdt_e.F b/src/tce/cisdt/cisdt_e.F index 76f0dddc87..8f20122399 100644 --- a/src/tce/cisdt/cisdt_e.F +++ b/src/tce/cisdt/cisdt_e.F @@ -1,6 +1,6 @@ SUBROUTINE cisdt_e(d_f1,d_i0,d_t1,d_t2,d_v2,k_f1_offset,k_i0_offse &t,k_t1_offset,k_t2_offset,k_v2_offset) -C $Id: cisdt_e.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_tf + = 1 * Sum ( p2 h1 ) * t ( p2 h1 )_t * f ( h1 p2 )_f @@ -26,7 +26,7 @@ C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 RETURN END SUBROUTINE cisdt_e_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisdt_e.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_tf + = 1 * Sum ( p2 h1 ) * t ( p2 h1 )_t * f ( h1 p2 )_f @@ -139,7 +139,7 @@ C i0 ( )_tf + = 1 * Sum ( p2 h1 ) * t ( p2 h1 )_t * f ( h1 p2 )_f RETURN END SUBROUTINE cisdt_e_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisdt_e.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 p1 p2 )_v diff --git a/src/tce/cisdtq/GNUmakefile b/src/tce/cisdtq/GNUmakefile index 38b5ab96a4..b8f4f73c18 100644 --- a/src/tce/cisdtq/GNUmakefile +++ b/src/tce/cisdtq/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.4 2008-03-14 00:12:30 jhammond Exp $ +#$Id$ OBJ_OPTIMIZE = cisdtq_e.o cisdtq_c1.o cisdtq_c2.o cisdtq_c3.o cisdtq_c4.o diff --git a/src/tce/cisdtq/cisdtq_c1.F b/src/tce/cisdtq/cisdtq_c1.F index a66358d234..933b4c24fa 100644 --- a/src/tce/cisdtq/cisdtq_c1.F +++ b/src/tce/cisdtq/cisdtq_c1.F @@ -1,7 +1,7 @@ SUBROUTINE cisdtq_c1(d_e0,d_f1,d_i0,d_t1,d_t2,d_t3,d_v2,k_e0_offse &t,k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_v2 &_offset) -C $Id: cisdtq_c1.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_f + = 1 * f ( p2 h1 )_f @@ -58,7 +58,7 @@ C i0 ( p2 h1 )_te + = -1 * e ( )_e * t ( p2 h1 )_t RETURN END SUBROUTINE cisdtq_c1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cisdtq_c1.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_f + = 1 * f ( p2 h1 )_f @@ -141,7 +141,7 @@ C i0 ( p2 h1 )_f + = 1 * f ( p2 h1 )_f END SUBROUTINE cisdtq_c1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c1.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = -1 * Sum ( h3 ) * t ( p2 h3 )_t * f ( h3 h1 )_f @@ -266,7 +266,7 @@ C i0 ( p2 h1 )_tf + = -1 * Sum ( h3 ) * t ( p2 h3 )_t * f ( h3 h1 )_f END SUBROUTINE cisdtq_c1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c1.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * f ( p2 p3 )_f @@ -391,7 +391,7 @@ C i0 ( p2 h1 )_tf + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * f ( p2 p3 )_f END SUBROUTINE cisdtq_c1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c1.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 h1 p3 )_v @@ -525,7 +525,7 @@ C i0 ( p2 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 h1 p3 ) END SUBROUTINE cisdtq_c1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c1.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = 1 * Sum ( p4 h3 ) * t ( p2 p4 h1 h3 )_t * f ( h3 p4 )_f @@ -684,7 +684,7 @@ C i0 ( p2 h1 )_tf + = 1 * Sum ( p4 h3 ) * t ( p2 p4 h1 h3 )_t * f ( h3 p4 )_ END SUBROUTINE cisdtq_c1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c1.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * v ( h4 h5 h1 p3 )_v @@ -849,7 +849,7 @@ C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * v ( h4 END SUBROUTINE cisdtq_c1_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c1.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 p2 p3 p4 )_v @@ -1014,7 +1014,7 @@ C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 END SUBROUTINE cisdtq_c1_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c1.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = 1/4 * Sum ( h5 h6 p3 p4 ) * t ( p2 p3 p4 h1 h5 h6 )_t * v ( h5 h6 p3 p4 )_v @@ -1253,7 +1253,7 @@ C i0 ( p2 h1 )_vt + = 1/4 * Sum ( h5 h6 p3 p4 ) * t ( p2 p3 p4 h1 h5 h6 )_t END SUBROUTINE cisdtq_c1_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c1.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_te + = -1 * e ( )_e * t ( p2 h1 )_t diff --git a/src/tce/cisdtq/cisdtq_c2.F b/src/tce/cisdtq/cisdtq_c2.F index fc6f4ba270..9dec00fe9c 100644 --- a/src/tce/cisdtq/cisdtq_c2.F +++ b/src/tce/cisdtq/cisdtq_c2.F @@ -1,7 +1,7 @@ SUBROUTINE cisdtq_c2(d_e0,d_f1,d_i0,d_t1,d_t2,d_t3,d_t4,d_v2,k_e0_ &offset,k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset &,k_t4_offset,k_v2_offset) -C $Id: cisdtq_c2.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v @@ -75,7 +75,7 @@ C i0 ( p3 p4 h1 h2 )_te + = -1 * e ( )_e * t ( p3 p4 h1 h2 )_t RETURN END SUBROUTINE cisdtq_c2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cisdtq_c2.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v @@ -173,7 +173,7 @@ C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v END SUBROUTINE cisdtq_c2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c2.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 4 ) * t ( p3 h1 )_t * f ( p4 h2 )_f @@ -332,7 +332,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 4 ) * t ( p3 h1 )_t * f ( p4 h2 )_f END SUBROUTINE cisdtq_c2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c2.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * v ( h5 p4 h1 h2 )_v @@ -485,7 +485,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * v ( h END SUBROUTINE cisdtq_c2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c2.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * v ( p3 p4 h2 p5 )_v @@ -638,7 +638,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * v ( p END SUBROUTINE cisdtq_c2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c2.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * f ( h5 h2 )_f @@ -800,7 +800,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * END SUBROUTINE cisdtq_c2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c2.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * f ( p4 p5 )_f @@ -962,7 +962,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * END SUBROUTINE cisdtq_c2_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c2.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * v ( h5 h6 h1 h2 )_v @@ -1122,7 +1122,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * v ( END SUBROUTINE cisdtq_c2_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c2.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * v ( h6 p4 h2 p5 )_v @@ -1324,7 +1324,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_ END SUBROUTINE cisdtq_c2_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c2.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( p3 p4 p5 p6 )_v @@ -1484,7 +1484,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( END SUBROUTINE cisdtq_c2_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cisdtq_c2.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = 1 * Sum ( p6 h5 ) * t ( p3 p4 p6 h1 h2 h5 )_t * f ( h5 p6 )_f @@ -1701,7 +1701,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = 1 * Sum ( p6 h5 ) * t ( p3 p4 p6 h1 h2 h5 )_t * END SUBROUTINE cisdtq_c2_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cisdtq_c2.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1/2 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p3 p4 p5 h1 h6 h7 )_t * v ( h6 h7 h2 p5 )_v @@ -1950,7 +1950,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1/2 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p3 p4 p5 END SUBROUTINE cisdtq_c2_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cisdtq_c2.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1/2 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p3 p5 p6 h1 h2 h7 )_t * v ( h7 p4 p5 p6 )_v @@ -2199,7 +2199,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1/2 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p3 p5 p6 END SUBROUTINE cisdtq_c2_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cisdtq_c2.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = 1/4 * Sum ( h7 h8 p5 p6 ) * t ( p3 p4 p5 p6 h1 h2 h7 h8 )_t * v ( h7 h8 p5 p6 )_v @@ -2764,7 +2764,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = 1/4 * Sum ( h7 h8 p5 p6 ) * t ( p3 p4 p5 p6 h1 h END SUBROUTINE cisdtq_c2_14(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cisdtq_c2.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_te + = -1 * e ( )_e * t ( p3 p4 h1 h2 )_t diff --git a/src/tce/cisdtq/cisdtq_c3.F b/src/tce/cisdtq/cisdtq_c3.F index 471444c1b9..966fe15a80 100644 --- a/src/tce/cisdtq/cisdtq_c3.F +++ b/src/tce/cisdtq/cisdtq_c3.F @@ -1,7 +1,7 @@ SUBROUTINE cisdtq_c3(d_e0,d_f1,d_i0,d_t1,d_t2,d_t3,d_t4,d_v2,k_e0_ &offset,k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset &,k_t4_offset,k_v2_offset) -C $Id: cisdtq_c3.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = 1 * P( 9 ) * t ( p4 h1 )_t * v ( p5 p6 h2 h3 )_v @@ -74,7 +74,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_te + = -1 * e ( )_e * t ( p4 p5 p6 h1 h2 h3 )_t END SUBROUTINE cisdtq_c3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c3.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = 1 * P( 9 ) * t ( p4 h1 )_t * v ( p5 p6 h2 h3 )_v @@ -288,7 +288,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = 1 * P( 9 ) * t ( p4 h1 )_t * v ( p5 p6 h2 END SUBROUTINE cisdtq_c3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c3.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * P( 9 ) * t ( p4 p5 h1 h2 )_t * f ( p6 h3 )_f @@ -503,7 +503,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * P( 9 ) * t ( p4 p5 h1 h2 )_t * f ( p6 END SUBROUTINE cisdtq_c3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c3.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h7 ) * t ( p4 p5 h1 h7 )_t * v ( h7 p6 h2 h3 )_v @@ -738,7 +738,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h7 ) * t ( p4 p5 h1 h7 END SUBROUTINE cisdtq_c3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c3.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * v ( p5 p6 h3 p7 )_v @@ -973,7 +973,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 END SUBROUTINE cisdtq_c3_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c3.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 h2 h7 )_t * f ( h7 h3 )_f @@ -1165,7 +1165,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 END SUBROUTINE cisdtq_c3_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c3.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * P( 3 ) * Sum ( p7 ) * t ( p4 p5 p7 h1 h2 h3 )_t * f ( p6 p7 )_f @@ -1357,7 +1357,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * P( 3 ) * Sum ( p7 ) * t ( p4 p5 p7 h1 END SUBROUTINE cisdtq_c3_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c3.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = 1/2 * P( 3 ) * Sum ( h7 h8 ) * t ( p4 p5 p6 h1 h7 h8 )_t * v ( h7 h8 h2 h3 )_v @@ -1571,7 +1571,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = 1/2 * P( 3 ) * Sum ( h7 h8 ) * t ( p4 p5 p END SUBROUTINE cisdtq_c3_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c3.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h8 p7 ) * t ( p4 p5 p7 h1 h2 h8 )_t * v ( h8 p6 h3 p7 )_v @@ -1870,7 +1870,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h8 p7 ) * t ( p4 p5 p7 END SUBROUTINE cisdtq_c3_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c3.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = 1/2 * P( 3 ) * Sum ( p7 p8 ) * t ( p4 p7 p8 h1 h2 h3 )_t * v ( p5 p6 p7 p8 )_v @@ -2084,7 +2084,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = 1/2 * P( 3 ) * Sum ( p7 p8 ) * t ( p4 p7 p END SUBROUTINE cisdtq_c3_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cisdtq_c3.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * Sum ( p8 h7 ) * t ( p4 p5 p6 p8 h1 h2 h3 h7 )_t * f ( h7 p8 )_f @@ -2405,7 +2405,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * Sum ( p8 h7 ) * t ( p4 p5 p6 p8 h1 h2 END SUBROUTINE cisdtq_c3_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cisdtq_c3.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1/2 * P( 3 ) * Sum ( h8 h9 p7 ) * t ( p4 p5 p6 p7 h1 h2 h8 h9 )_t * v ( h8 h9 h3 p7 )_v @@ -2856,7 +2856,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1/2 * P( 3 ) * Sum ( h8 h9 p7 ) * t ( p4 END SUBROUTINE cisdtq_c3_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cisdtq_c3.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1/2 * P( 3 ) * Sum ( h9 p7 p8 ) * t ( p4 p5 p7 p8 h1 h2 h3 h9 )_t * v ( h9 p6 p7 p8 )_v @@ -3307,7 +3307,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1/2 * P( 3 ) * Sum ( h9 p7 p8 ) * t ( p4 END SUBROUTINE cisdtq_c3_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cisdtq_c3.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_te + = -1 * e ( )_e * t ( p4 p5 p6 h1 h2 h3 )_t diff --git a/src/tce/cisdtq/cisdtq_c4.F b/src/tce/cisdtq/cisdtq_c4.F index 552c0ab480..e509ec766d 100644 --- a/src/tce/cisdtq/cisdtq_c4.F +++ b/src/tce/cisdtq/cisdtq_c4.F @@ -1,7 +1,7 @@ SUBROUTINE cisdtq_c4(d_e0,d_f1,d_i0,d_t2,d_t3,d_t4,d_v2,k_e0_offse &t,k_f1_offset,k_i0_offset,k_t2_offset,k_t3_offset,k_t4_offset,k_v2 &_offset) -C $Id: cisdtq_c4.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_vt + = 1 * P( 36 ) * t ( p5 p6 h1 h2 )_t * v ( p7 p8 h3 h4 )_v @@ -63,7 +63,7 @@ C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_te + = -1 * e ( )_e * t ( p5 p6 p7 p8 h1 h2 END SUBROUTINE cisdtq_c4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c4.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_vt + = 1 * P( 36 ) * t ( p5 p6 h1 h2 )_t * v ( p7 p8 h3 h4 )_v @@ -602,7 +602,7 @@ C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_vt + = 1 * P( 36 ) * t ( p5 p6 h1 h2 )_t * END SUBROUTINE cisdtq_c4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c4.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_tf + = 1 * P( 16 ) * t ( p5 p6 p7 h1 h2 h3 )_t * f ( p8 h4 )_f @@ -922,7 +922,7 @@ C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_tf + = 1 * P( 16 ) * t ( p5 p6 p7 h1 h2 h3 END SUBROUTINE cisdtq_c4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c4.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_vt + = -1 * P( 24 ) * Sum ( h9 ) * t ( p5 p6 p7 h1 h2 h9 )_t * v ( h9 p8 h3 h4 )_v @@ -1357,7 +1357,7 @@ C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_vt + = -1 * P( 24 ) * Sum ( h9 ) * t ( p5 p END SUBROUTINE cisdtq_c4_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c4.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_vt + = -1 * P( 24 ) * Sum ( p9 ) * t ( p5 p6 p9 h1 h2 h3 )_t * v ( p7 p8 h4 p9 )_v @@ -1792,7 +1792,7 @@ C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_vt + = -1 * P( 24 ) * Sum ( p9 ) * t ( p5 p END SUBROUTINE cisdtq_c4_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c4.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_tf + = -1 * P( 4 ) * Sum ( h9 ) * t ( p5 p6 p7 p8 h1 h2 h3 h9 )_t * f ( h9 h4 )_f @@ -2028,7 +2028,7 @@ C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_tf + = -1 * P( 4 ) * Sum ( h9 ) * t ( p5 p6 END SUBROUTINE cisdtq_c4_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c4.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_tf + = 1 * P( 4 ) * Sum ( p9 ) * t ( p5 p6 p7 p9 h1 h2 h3 h4 )_t * f ( p8 p9 )_f @@ -2264,7 +2264,7 @@ C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_tf + = 1 * P( 4 ) * Sum ( p9 ) * t ( p5 p6 END SUBROUTINE cisdtq_c4_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c4.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_vt + = 1/2 * P( 6 ) * Sum ( h9 h10 ) * t ( p5 p6 p7 p8 h1 h2 h9 h10 )_t * v ( h9 h10 h3 h4 )_v @@ -2561,7 +2561,7 @@ C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_vt + = 1/2 * P( 6 ) * Sum ( h9 h10 ) * t ( END SUBROUTINE cisdtq_c4_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c4.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_vt + = -1 * P( 16 ) * Sum ( h10 p9 ) * t ( p5 p6 p7 p9 h1 h2 h3 h10 )_t * v ( h10 p8 h4 p9 )_v @@ -3062,7 +3062,7 @@ C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_vt + = -1 * P( 16 ) * Sum ( h10 p9 ) * t ( END SUBROUTINE cisdtq_c4_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c4.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_vt + = 1/2 * P( 6 ) * Sum ( p9 p10 ) * t ( p5 p6 p9 p10 h1 h2 h3 h4 )_t * v ( p7 p8 p9 p10 )_v @@ -3359,7 +3359,7 @@ C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_vt + = 1/2 * P( 6 ) * Sum ( p9 p10 ) * t ( END SUBROUTINE cisdtq_c4_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cisdtq_c4.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_te + = -1 * e ( )_e * t ( p5 p6 p7 p8 h1 h2 h3 h4 )_t diff --git a/src/tce/cisdtq/cisdtq_e.F b/src/tce/cisdtq/cisdtq_e.F index e534b0320e..843d69d378 100644 --- a/src/tce/cisdtq/cisdtq_e.F +++ b/src/tce/cisdtq/cisdtq_e.F @@ -1,6 +1,6 @@ SUBROUTINE cisdtq_e(d_f1,d_i0,d_t1,d_t2,d_v2,k_f1_offset,k_i0_offs &et,k_t1_offset,k_t2_offset,k_v2_offset) -C $Id: cisdtq_e.F,v 1.4 2008-03-14 00:12:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_tf + = 1 * Sum ( p2 h1 ) * t ( p2 h1 )_t * f ( h1 p2 )_f @@ -34,7 +34,7 @@ C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 END SUBROUTINE cisdtq_e_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdtq_e.F,v 1.4 2008-03-14 00:12:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_tf + = 1 * Sum ( p2 h1 ) * t ( p2 h1 )_t * f ( h1 p2 )_f @@ -148,7 +148,7 @@ C i0 ( )_tf + = 1 * Sum ( p2 h1 ) * t ( p2 h1 )_t * f ( h1 p2 )_f END SUBROUTINE cisdtq_e_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdtq_e.F,v 1.4 2008-03-14 00:12:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 p1 p2 )_v diff --git a/src/tce/copyfile.F b/src/tce/copyfile.F index 6c48c0746a..30ceb63ea2 100644 --- a/src/tce/copyfile.F +++ b/src/tce/copyfile.F @@ -1,6 +1,6 @@ subroutine copyfile(d_1,d_2,size) c -c $Id: copyfile.F,v 1.9 2008-10-05 22:31:30 jhammond Exp $ +c $Id$ c c Duplicate a file c diff --git a/src/tce/cr-eomccsd_t/GNUmakefile b/src/tce/cr-eomccsd_t/GNUmakefile index 032bb9bbcb..6a3a11b9f1 100644 --- a/src/tce/cr-eomccsd_t/GNUmakefile +++ b/src/tce/cr-eomccsd_t/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.3 2007-09-14 18:40:57 kowalski Exp $ +#$Id$ OBJ_OPTIMIZE = c1_c1.o c2_c2.o cr_eomccsd_t.o cr_eomccsd_t_gr.o t2t12.o \ nr0.o c1excit2.o c2excit2.o q3rexpt2.o cr_s_m3.o \ diff --git a/src/tce/cr-eomccsd_t/c1_c1.F b/src/tce/cr-eomccsd_t/c1_c1.F index 00b819396f..6f88c77335 100644 --- a/src/tce/cr-eomccsd_t/c1_c1.F +++ b/src/tce/cr-eomccsd_t/c1_c1.F @@ -1,5 +1,5 @@ SUBROUTINE c1_c1(d_c1,d_i0,k_c1_offset,k_i0_offset) -C $Id: c1_c1.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_cc + = 1 * Sum ( p2 h1 ) * c+ ( h1 p2 )_c * c ( p2 h1 )_c @@ -17,7 +17,7 @@ C i0 ( )_cc + = 1 * Sum ( p2 h1 ) * c+ ( h1 p2 )_c * c ( p2 h1 )_c RETURN END SUBROUTINE c1_c1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: c1_c1.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_cc + = 1 * Sum ( p2 h1 ) * c+ ( h1 p2 )_c * c ( p2 h1 )_c @@ -133,7 +133,7 @@ c c SUBROUTINE x1_t1(d_i0,d_t1,d_x1,k_i0_offset,k_t1_offset,k_x1_offse &t) -C $Id: c1_c1.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_tx + = 1 * Sum ( p2 h1 ) * x+ ( h1 p2 )_x * t ( p2 h1 )_t @@ -153,7 +153,7 @@ C i0 ( )_tx + = 1 * Sum ( p2 h1 ) * x+ ( h1 p2 )_x * t ( p2 h1 )_t RETURN END SUBROUTINE x1_t1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: c1_c1.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_tx + = 1 * Sum ( p2 h1 ) * x+ ( h1 p2 )_x * t ( p2 h1 )_t @@ -268,7 +268,7 @@ c c SUBROUTINE c1_d1(d_c1,d_d1,d_i0,k_c1_offset,k_d1_offset,k_i0_offse &t) -C $Id: c1_c1.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_dc + = 1 * Sum ( p2 h1 ) * c+ ( h1 p2 )_c * d ( p2 h1 )_d @@ -288,7 +288,7 @@ C i0 ( )_dc + = 1 * Sum ( p2 h1 ) * c+ ( h1 p2 )_c * d ( p2 h1 )_d RETURN END SUBROUTINE c1_d1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: c1_c1.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_dc + = 1 * Sum ( p2 h1 ) * c+ ( h1 p2 )_c * d ( p2 h1 )_d diff --git a/src/tce/cr-eomccsd_t/c1excit2.F b/src/tce/cr-eomccsd_t/c1excit2.F index ad818170a3..034e28fec6 100644 --- a/src/tce/cr-eomccsd_t/c1excit2.F +++ b/src/tce/cr-eomccsd_t/c1excit2.F @@ -1,5 +1,5 @@ SUBROUTINE c1excit2(d_i0,d_x1,k_i0_offset,k_x1_offset) -C $Id: c1excit2.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_x + = 1 * x ( p2 h1 )_x @@ -17,7 +17,7 @@ C i0 ( p2 h1 )_x + = 1 * x ( p2 h1 )_x RETURN END SUBROUTINE c1excit2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: c1excit2.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_x + = 1 * x ( p2 h1 )_x diff --git a/src/tce/cr-eomccsd_t/c2_c2.F b/src/tce/cr-eomccsd_t/c2_c2.F index 6158a7d56e..80640d5f96 100644 --- a/src/tce/cr-eomccsd_t/c2_c2.F +++ b/src/tce/cr-eomccsd_t/c2_c2.F @@ -1,5 +1,5 @@ SUBROUTINE c2_c2(d_c2,d_i0,k_c2_offset,k_i0_offset) -C $Id: c2_c2.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_cc + = 1/4 * Sum ( p3 p4 h1 h2 ) * c+ ( h1 h2 p3 p4 )_c * c ( p3 p4 h1 h2 )_c @@ -17,7 +17,7 @@ C i0 ( )_cc + = 1/4 * Sum ( p3 p4 h1 h2 ) * c+ ( h1 h2 p3 p4 )_c * c ( p3 p4 RETURN END SUBROUTINE c2_c2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: c2_c2.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_cc + = 1/4 * Sum ( p3 p4 h1 h2 ) * c+ ( h1 h2 p3 p4 )_c * c ( p3 p4 h1 h2 )_c @@ -171,7 +171,7 @@ c c SUBROUTINE c2_d2(d_c2,d_d2,d_i0,k_c2_offset,k_d2_offset,k_i0_offse &t) -C $Id: c2_c2.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_dc + = 1/4 * Sum ( p3 p4 h1 h2 ) * c+ ( h1 h2 p3 p4 )_c * d ( p3 p4 h1 h2 )_d @@ -191,7 +191,7 @@ C i0 ( )_dc + = 1/4 * Sum ( p3 p4 h1 h2 ) * c+ ( h1 h2 p3 p4 )_c * d ( p3 p4 RETURN END SUBROUTINE c2_d2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: c2_c2.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_dc + = 1/4 * Sum ( p3 p4 h1 h2 ) * c+ ( h1 h2 p3 p4 )_c * d ( p3 p4 h1 h2 )_d diff --git a/src/tce/cr-eomccsd_t/c2excit2.F b/src/tce/cr-eomccsd_t/c2excit2.F index bc69c4a347..bf3eee8fea 100644 --- a/src/tce/cr-eomccsd_t/c2excit2.F +++ b/src/tce/cr-eomccsd_t/c2excit2.F @@ -1,6 +1,6 @@ SUBROUTINE c2excit2(d_i0,d_t1,d_x1,d_x2,k_i0_offset,k_t1_offset,k_ &x1_offset,k_x2_offset) -C $Id: c2excit2.F,v 1.3 2008-10-15 22:28:20 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_x + = 1 * x ( p3 p4 h1 h2 )_x @@ -25,7 +25,7 @@ C i0 ( p3 p4 h1 h2 )_xt + = 1 * P( 4 ) * t ( p3 h1 )_t * x ( p4 h2 )_x RETURN END SUBROUTINE c2excit2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: c2excit2.F,v 1.3 2008-10-15 22:28:20 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_x + = 1 * x ( p3 p4 h1 h2 )_x @@ -128,7 +128,7 @@ cc next = nxtask(-nprocs,1) END SUBROUTINE c2excit2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: c2excit2.F,v 1.3 2008-10-15 22:28:20 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xt + = 1 * P( 4 ) * t ( p3 h1 )_t * x ( p4 h2 )_x @@ -302,7 +302,7 @@ c c SUBROUTINE c2excit2_loc(d_i0,d_t1,d_x1,d_x2,k_i0_offset, &k_t1_offset,k_x1_offset,k_x2_offset) -C $Id: c2excit2.F,v 1.3 2008-10-15 22:28:20 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_x + = 1 * x ( p3 p4 h1 h2 )_x @@ -327,7 +327,7 @@ C i0 ( p3 p4 h1 h2 )_xt + = 1 * P( 4 ) * t ( p3 h1 )_t * x ( p4 h2 )_x RETURN END SUBROUTINE c2excit2_1_loc(d_a,k_a_offset,d_c,k_c_offset) -C $Id: c2excit2.F,v 1.3 2008-10-15 22:28:20 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_x + = 1 * x ( p3 p4 h1 h2 )_x @@ -430,7 +430,7 @@ cc next = nxtask(-nprocs,1) END SUBROUTINE c2excit2_2_loc(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: c2excit2.F,v 1.3 2008-10-15 22:28:20 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xt + = 1 * P( 4 ) * t ( p3 h1 )_t * x ( p4 h2 )_x diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t.F index 72c1a65e1d..2469b81482 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t.F @@ -8,7 +8,7 @@ 7 d_c2,k_c2_offset,size_c2, 8 excit,energy1,energy2,size_t1,size_x1) C -C $Id: cr_eomccsd_t.F,v 1.4 2008/07/17 21:48:12 marat Exp $ +C $Id$ C c from this point on we assume that corresponding one- and two- c body components of R(d_x1,d_x2) and T(d_t1,d_t2) operators, diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_gr.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_gr.F index 971f57b2aa..c4e797fccd 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_gr.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_gr.F @@ -6,7 +6,7 @@ 7 d_c2,k_c2_offset,size_c2, 8 energy1) C -C $Id: cr_eomccsd_t_gr.F,v 1.3 2008-07-17 21:48:12 marat Exp $ +C $Id$ C c c diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2.F index c0c8d94678..abcf212ceb 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2.F @@ -4,7 +4,7 @@ &6,k_t1_offset,k_t2_offset,k_v2_offset,k_x1_offset,k_x2_offset,l_i1 &_offset_1,l_i1_offset_2,l_i1_offset_3,l_i1_offset_4,l_i1_offset_5, &l_i1_offset_6,t_h1b,t_h2b,t_h3b,t_p4b,t_p5b,t_p6b,toggle) -C $Id: cr_eomccsd_t_n2.F,v 1.1 2005-12-16 21:54:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( h12 ) * t ( p4 p5 h1 h12 )_t * i1 ( h12 p6 h2 h3 )_vx diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1.F index 16cb3fe827..cc102510ab 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p &4b,t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: cr_eomccsd_t_n2_1.F,v 1.1 2005-12-16 21:54:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( h12 ) * t ( p4 p5 h1 h12 )_t * i1 ( h12 p6 h2 h3 )_vx diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1.F index 83e25112c9..aee185eb5c 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_1_1.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = 1 * Sum ( h13 ) * x ( p4 h13 )_x * i2 ( h12 h13 h1 h2 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_1.F index 57f52b8924..56f89151ec 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_1.F @@ -1,5 +1,5 @@ SUBROUTINE cr_eomccsd_t_N2_1_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_1_1_1.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h1 h2 )_v + = -1 * v ( h12 h13 h1 h2 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_2.F index 890b1a4a73..3e109960d6 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_1_1_2.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( p9 ) * t ( p9 h1 )_t * i3 ( h12 h13 h2 p9 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_2_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_2_1.F index 4ab36f852f..7927120c80 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_2_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE cr_eomccsd_t_N2_1_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_1_1_2_1.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h12 h13 h1 p9 )_v + = 1 * v ( h12 h13 h1 p9 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_2_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_2_2.F index b7b14e2d74..c1fac4f2a1 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_2_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_1_1_2_2.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h12 h13 h1 p9 )_vt + = 1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 h13 p8 p9 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_3.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_3.F index 39d24cdb7a..f96f723733 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_3.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_1_1_3.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h1 h2 )_vt + = -1/2 * Sum ( p8 p9 ) * t ( p8 p9 h1 h2 )_t * v ( h12 h13 p8 p9 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_2.F index 10d068f9f4..ed8435d890 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_1_2.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( p8 ) * x ( p8 h1 )_x * v ( h12 p4 h2 p8 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3.F index dae5abbb22..09d70cd247 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_1_3.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vxt + = 2 * Sum ( h7 ) * t ( p4 h7 )_t * i2 ( h7 h12 h1 h2 )_vx diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_1.F index a9e7732e25..0ce3e90deb 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_1_3_1.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h12 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p9 ) * x ( p9 h1 )_x * v ( h7 h12 h2 p9 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_2.F index 24ac28019c..b36b587983 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_1_3_2.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h12 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 ( h7 h12 h2 p8 )_vx diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_2_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_2_1.F index 0d5bbdbfef..6a66ded4a5 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_2_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_1_3_2_1.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h12 h1 p8 )_vx + = 1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h7 h12 p8 p10 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_3.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_3.F index e5be9b7086..47acd948fd 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_3.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_3.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_1_3_3.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h12 h1 h2 )_vx + = 1/4 * Sum ( p9 p10 ) * x ( p9 p10 h1 h2 )_x * v ( h7 h12 p9 p10 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_4.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_4.F index 4f1e0c665f..27fad427db 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_4.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_4.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_1_4.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i2 ( h12 p4 h2 p8 )_vx diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_4_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_4_1.F index 32f9808bf8..586ffab64f 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_4_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_1_4_1.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p8 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h12 p4 p8 p9 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_5.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_5.F index 28e318620e..9cc082db3a 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_5.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_5.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_1_5.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * i2 ( h9 h12 h2 p8 )_vx diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_5_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_5_1.F index f162f39638..e9be823df8 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_5_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_1_5_1.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h12 h1 p8 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h9 h12 p8 p10 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_6.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_6.F index 4f27efd08a..1f6f4e7bd8 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_6.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_6.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_1_6.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vxt + = -1 * Sum ( p8 ) * t ( p4 p8 h1 h2 )_t * i2 ( h12 p8 )_vx diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_6_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_6_1.F index 7135ef6357..e52882df8a 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_6_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_1_6_1.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p8 )_vx + = -1 * Sum ( h9 p10 ) * x ( p10 h9 )_x * v ( h9 h12 p8 p10 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_7.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_7.F index fae721daac..b09dc87d4b 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_7.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_7.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_1_7.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_fx + = -1 * Sum ( p7 ) * x ( p4 p7 h1 h2 )_x * i2 ( h12 p7 )_f diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_7_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_7_1.F index edbc1c81ca..92435c8be4 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_7_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_7_1.F @@ -1,5 +1,5 @@ SUBROUTINE cr_eomccsd_t_N2_1_7_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_1_7_1.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p7 )_f + = 1 * f ( h12 p7 )_f diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_7_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_7_2.F index 08129e9b29..740b98cfda 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_7_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_7_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_1_7_2.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p7 )_vt + = -1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h12 p7 p8 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_8.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_8.F index 1667cc00cd..ed006ecdb5 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_8.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_8.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_1_8.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( h10 p7 ) * x ( p4 p7 h1 h10 )_x * i2 ( h10 h12 h2 p7 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_8_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_8_1.F index cd9b4b155a..eadb4bcbbc 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_8_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_8_1.F @@ -1,5 +1,5 @@ SUBROUTINE cr_eomccsd_t_N2_1_8_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_1_8_1.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h12 h1 p7 )_v + = 1 * v ( h10 h12 h1 p7 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_8_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_8_2.F index e37d63a7de..b2f5269151 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_8_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_8_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_1_8_2.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h12 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h12 p7 p8 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_9.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_9.F index b77cebeb59..3c874c4632 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_9.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_9.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_1_9.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = 1/2 * Sum ( p8 p9 ) * x ( p8 p9 h1 h2 )_x * v ( h12 p4 p8 p9 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2.F index e734bbe44a..77026757e3 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_2(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p &4b,t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: cr_eomccsd_t_n2_2.F,v 1.1 2005-12-16 21:54:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vtx + = 6 * P( 3 ) * Sum ( h12 ) * x ( p4 h12 )_x * i1 ( h12 p5 p6 h1 h2 h3 )_vt diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1.F index ca301b5fc6..c1c1786fee 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_2_1.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 p5 h1 h2 h3 )_vt + = -1/6 * P( 6 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i2 ( h12 p5 h3 p7 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_1.F index 788233940b..62a5ef6c59 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_1.F @@ -1,5 +1,5 @@ SUBROUTINE cr_eomccsd_t_N2_2_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_2_1_1.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_v + = 1 * v ( h12 p4 h1 p7 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_2.F index 74091edb91..b6bc8591ef 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_2_1_2.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vt + = 1 * Sum ( h8 ) * t ( p4 h8 )_t * v ( h8 h12 h1 p7 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_3.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_3.F index b9e6a87d90..013fbeffaf 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_3.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_2_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_2_1_3.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 p4 p7 p8 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_4.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_4.F index a072a4200c..44389dd44f 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_4.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_4.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_2_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_2_1_4.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vt + = 1 * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * v ( h9 h12 p7 p8 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3.F index 31f6003fba..6dfee83a4c 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_3(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p &4b,t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: cr_eomccsd_t_n2_3.F,v 1.1 2005-12-16 21:54:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i1 ( p5 p6 h3 p7 )_vx diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_1.F index a4ec94c31b..8ffcafb2b3 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_3_1.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( p4 p5 p7 p8 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_2.F index b9a099a212..858dfe12dc 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_3_2.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vxt + = 1/2 * Sum ( h8 h9 ) * t ( p4 p5 h8 h9 )_t * i2 ( h8 h9 h1 p7 )_vx diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_2_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_2_1.F index a4246a7056..cefffc6376 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_2_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_3_2_1.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h1 p7 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h8 h9 p7 p10 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_3.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_3.F index fe97815448..f17debdee4 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_3.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_3.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_3_3.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vx + = 1/2 * Sum ( h11 h12 ) * x ( p4 p5 h11 h12 )_x * i2 ( h11 h12 h1 p7 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_3_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_3_1.F index 2dbc17ca74..12ae7ec21e 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_3_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE cr_eomccsd_t_N2_3_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_3_3_1.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 p7 )_v + = 1 * v ( h11 h12 h1 p7 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_3_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_3_2.F index 5e36b017f5..6bfb726932 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_3_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_3_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_3_3_2.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 h12 p7 p8 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_4.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_4.F index a3477e8481..7a11ff1546 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_4.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_4.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_3_4.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vx + = -1 * P( 2 ) * Sum ( h8 p9 ) * x ( p4 p9 h1 h8 )_x * v ( h8 p5 p7 p9 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4.F index 93cb7f2a0d..ecbc94dc8c 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_4(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p &4b,t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: cr_eomccsd_t_n2_4.F,v 1.1 2005-12-16 21:54:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vxtt + = 6 * P( 3 ) * Sum ( h12 ) * t ( p4 h12 )_t * i1 ( h12 p5 p6 h1 h2 h3 )_vxt diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1.F index 26cf69eb5e..3df1b699e4 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_4_1.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 p5 h1 h2 h3 )_vxt + = -1/6 * P( 6 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i2 ( h12 p5 h3 p7 )_vx diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_1.F index 64793dbe77..e627e14fa3 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_4_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_4_1_1.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h12 p4 p7 p9 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_2.F index fa85d0d6ae..2f2a0a9951 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_4_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_4_1_2.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vtx + = -1 * Sum ( h10 ) * x ( p4 h10 )_x * i3 ( h10 h12 h1 p7 )_vt diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_2_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_2_1.F index f4068c5707..bdb2da935a 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_2_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_4_1_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_4_1_2_1.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 h12 h1 p7 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h12 p7 p8 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_3.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_3.F index 2e225e78f9..8cd9fa8634 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_3.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_4_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_4_1_3.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vxt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h8 h12 h1 p7 )_vx diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_3_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_3_1.F index 9dd05747f9..5ce6ce00d2 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_3_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_4_1_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_4_1_3_1.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h12 h1 p7 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h8 h12 p7 p10 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_4.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_4.F index dc2b4c1bac..9fb53e8db9 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_4.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_4.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_4_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_4_1_4.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vx + = 1 * Sum ( h9 p10 ) * x ( p4 p10 h1 h9 )_x * v ( h9 h12 p7 p10 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2.F index f69a0a4da8..94071bf187 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_4_2.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 p5 h1 h2 h3 )_vx + = -1/6 * P( 6 ) * Sum ( p10 ) * x ( p4 p10 h1 h2 )_x * i2 ( h12 p5 h3 p10 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_1.F index 3ca98526ce..8cbf44f777 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE cr_eomccsd_t_N2_4_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_4_2_1.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p10 )_v + = 1 * v ( h12 p4 h1 p10 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_2.F index 094c8cdbee..d0678d3725 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_4_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_4_2_2.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p10 )_vt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h8 h12 h1 p10 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_2_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_2_1.F index 953aac3c00..45544fd95a 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_2_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE cr_eomccsd_t_N2_4_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_4_2_2_1.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h12 h1 p10 )_v + = 1 * v ( h8 h12 h1 p10 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_2_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_2_2.F index 34fcbb85bf..e62fc98962 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_2_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_4_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_4_2_2_2.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h12 h1 p10 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h12 p9 p10 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_3.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_3.F index 62cb062e81..8ffc8964f6 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_3.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_3.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_4_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_4_2_3.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p10 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 p4 p8 p10 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_4.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_4.F index f4765c0454..9cb1964e8f 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_4.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_4.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_4_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_4_2_4.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p10 )_vt + = -1 * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * v ( h8 h12 p7 p10 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5.F index 871d5a3f75..988d46fae3 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_5(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p &4b,t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: cr_eomccsd_t_n2_5.F,v 1.1 2005-12-16 21:54:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( h12 ) * x ( p4 p5 h1 h12 )_x * i1 ( h12 p6 h2 h3 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_1.F index a936218874..717a21edda 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE cr_eomccsd_t_N2_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_5_1.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_v + = 1 * v ( h12 p4 h1 h2 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2.F index 1599bfa347..8be69b8fc3 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_5_2.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vt + = 1 * Sum ( h11 ) * t ( p4 h11 )_t * i2 ( h11 h12 h1 h2 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_1.F index 036a06ebd1..bdd383eae9 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE cr_eomccsd_t_N2_5_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_5_2_1.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_v + = 1 * v ( h11 h12 h1 h2 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_2.F index 0c92bd570b..384d44ea42 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_5_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_5_2_2.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 ( h11 h12 h2 p8 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_2_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_2_1.F index d98341b90a..a89943a8a7 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_2_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE cr_eomccsd_t_N2_5_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_5_2_2_1.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 h12 h1 p8 )_v + = 1 * v ( h11 h12 h1 p8 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_2_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_2_2.F index 3aaa007055..b6230716f3 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_2_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_5_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_5_2_2_2.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 h12 h1 p8 )_vt + = -1/2 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h11 h12 p8 p9 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_3.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_3.F index c9e8fc01f7..734a3f0624 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_3.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_3.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_5_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_5_2_3.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_vt + = 1/2 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( h11 h12 p7 p8 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_3.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_3.F index ee37c4d830..9e1ace316a 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_3.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_3.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_5_3.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h12 p4 h2 p7 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_3_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_3_1.F index 50018cd36e..c59956f806 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_3_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE cr_eomccsd_t_N2_5_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_5_3_1.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_v + = 1 * v ( h12 p4 h1 p7 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_3_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_3_2.F index e54acd57ea..c974ffae97 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_3_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_5_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_5_3_2.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vt + = -1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 p4 p7 p8 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_4.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_4.F index 6b9c2b77a7..f15da0f457 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_4.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_4.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_5_4.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_ft + = -1 * Sum ( p10 ) * t ( p4 p10 h1 h2 )_t * i2 ( h12 p10 )_f diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_4_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_4_1.F index fa2060f41b..8ffb1f6e39 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_4_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE cr_eomccsd_t_N2_5_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_5_4_1.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p10 )_f + = 1 * f ( h12 p10 )_f diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_4_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_4_2.F index 36a7dd8db7..4928f16fc3 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_4_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_5_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_5_4_2.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p10 )_vt + = 1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h12 p8 p10 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_5.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_5.F index 796a9dbb9b..61b09015de 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_5.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_5.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_5_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_5_5.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * i2 ( h8 h12 h2 p7 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_5_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_5_1.F index e04284da56..5b51e04dcf 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_5_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE cr_eomccsd_t_N2_5_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_5_5_1.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h12 h1 p7 )_v + = 1 * v ( h8 h12 h1 p7 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_5_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_5_2.F index 6b14af5e79..e5ec098a5d 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_5_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_5_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_5_5_2.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h12 h1 p7 )_vt + = -1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h12 p7 p9 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_6.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_6.F index 9d104b2933..1f35ca6764 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_6.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_6.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_5_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_5_6.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vt + = 1/2 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( h12 p4 p7 p8 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6.F index dbbaedaab3..2aefde0236 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_6(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p &4b,t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: cr_eomccsd_t_n2_6.F,v 1.1 2005-12-16 21:54:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( p11 ) * x ( p4 p11 h1 h2 )_x * i1 ( p5 p6 h3 p11 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_1.F index 710602bd82..c5d4873a59 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_1.F @@ -1,5 +1,5 @@ SUBROUTINE cr_eomccsd_t_N2_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_6_1.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p11 )_v + = 1 * v ( p4 p5 h1 p11 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_2.F index 13e3fe8251..c02f25b30a 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_6_2.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p11 )_vt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * v ( p4 p5 p7 p11 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_3.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_3.F index 555c21624b..edacfc0f85 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_3.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_3.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_6_3.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p11 )_vt + = 1/2 * Sum ( h7 h8 ) * t ( p4 p5 h7 h8 )_t * i2 ( h7 h8 h1 p11 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_3_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_3_1.F index 0471a7bd3c..bd19a91e72 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_3_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE cr_eomccsd_t_N2_6_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_6_3_1.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p11 )_v + = 1 * v ( h7 h8 h1 p11 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_3_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_3_2.F index 34649ed989..322d5acb73 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_3_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_6_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_6_3_2.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p11 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h7 h8 p9 p11 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_4.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_4.F index e227c0c2e0..53bd4df06d 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_4.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_4.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_6_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_6_4.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p11 )_vt + = 1 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * v ( h8 p5 p7 p11 )_v diff --git a/src/tce/cr-eomccsd_t/cr_s_m3.F b/src/tce/cr-eomccsd_t/cr_s_m3.F index c661d79c84..9618045342 100644 --- a/src/tce/cr-eomccsd_t/cr_s_m3.F +++ b/src/tce/cr-eomccsd_t/cr_s_m3.F @@ -1,6 +1,6 @@ SUBROUTINE cr_s_m3(a_i0,d_v2,d_x2,k_v2_offset,k_x2_offset,t_h1b,t_ &h2b,t_h3b,t_p4b,t_p5b,t_p6b,toggle) -C $Id: cr_s_m3.F,v 1.1 2005-12-16 21:54:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( h7 ) * x ( p4 p5 h1 h7 )_x * v ( h7 p6 h2 h3 )_v @@ -31,7 +31,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( p7 ) * x ( p4 p7 h1 h2 END SUBROUTINE cr_s_m3_1(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p4b,t_p5b &,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: cr_s_m3.F,v 1.1 2005-12-16 21:54:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( h7 ) * x ( p4 p5 h1 h7 )_x * v ( h7 p6 h2 h3 )_v @@ -273,7 +273,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( h7 ) * x ( p4 p5 h1 h7 END SUBROUTINE cr_s_m3_2(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p4b,t_p5b &,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: cr_s_m3.F,v 1.1 2005-12-16 21:54:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( p7 ) * x ( p4 p7 h1 h2 )_x * v ( p5 p6 h3 p7 )_v diff --git a/src/tce/cr-eomccsd_t/creomccsd_t_n2_mem.F b/src/tce/cr-eomccsd_t/creomccsd_t_n2_mem.F index e11e866cc8..8fe1a16ac8 100644 --- a/src/tce/cr-eomccsd_t/creomccsd_t_n2_mem.F +++ b/src/tce/cr-eomccsd_t/creomccsd_t_n2_mem.F @@ -3,7 +3,7 @@ &_i1_offset_3,k_i1_offset_4,k_t1_offset,k_t2_offset,k_v2_offset,k_x &1_offset,k_x2_offset,l_i1_offset_1,l_i1_offset_2,l_i1_offset_3,l_i &1_offset_4,t_h1b,t_h2b,t_h3b,t_p4b,t_p5b,t_p6b,toggle) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( h12 ) * t ( p4 p5 h1 h12 )_t * i1 ( h12 p6 h2 h3 )_vx @@ -594,7 +594,7 @@ c d_x1 refers to k_x1_local END SUBROUTINE creomsd_t_n2_mem_1(d_a,k_a_offset,d_b,k_b_offset,a_c,t_ &p4b,t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( h12 ) * t ( p4 p5 h1 h12 )_t * i1 ( h12 p6 h2 h3 )_vx @@ -963,7 +963,7 @@ cc END DO END SUBROUTINE creomsd_t_n2_mem_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = 1 * Sum ( h13 ) * x ( p4 h13 )_x * i2 ( h12 h13 h1 h2 )_v @@ -1117,7 +1117,7 @@ C i1 ( h12 p4 h1 h2 )_vx + = 1 * Sum ( h13 ) * x ( p4 h13 )_x * i2 ( h12 h13 RETURN END SUBROUTINE OFFSET_creomsd_t_n2_mem_1_1(l_a_offset,k_a_offset,size) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx @@ -1188,7 +1188,7 @@ C i1 ( h12 p4 h1 h2 )_vx RETURN END SUBROUTINE creomsd_t_n2_mem_1_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h1 h2 )_v + = -1 * v ( h12 h13 h1 h2 )_v @@ -1294,7 +1294,7 @@ C i2 ( h12 h13 h1 h2 )_v + = -1 * v ( h12 h13 h1 h2 )_v END SUBROUTINE OFFSET_creomsd_t_n2_mem_1_1_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h1 h2 )_v @@ -1364,7 +1364,7 @@ C i2 ( h12 h13 h1 h2 )_v END SUBROUTINE creomsd_t_n2_mem_1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( p9 ) * t ( p9 h1 )_t * i3 ( h12 h13 h2 p9 )_v @@ -1516,7 +1516,7 @@ C i2 ( h12 h13 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( p9 ) * t ( p9 h1 )_t * i3 ( RETURN END SUBROUTINE creomsd_t_n2_mem_1_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h12 h13 h1 p9 )_v + = 1 * v ( h12 h13 h1 p9 )_v @@ -1625,7 +1625,7 @@ C i3 ( h12 h13 h1 p9 )_v + = 1 * v ( h12 h13 h1 p9 )_v END SUBROUTINE OFFSET_creomsd_t_n2_mem_1_1_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h12 h13 h1 p9 )_v @@ -1695,7 +1695,7 @@ C i3 ( h12 h13 h1 p9 )_v END SUBROUTINE creomsd_t_n2_mem_1_1_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h12 h13 h1 p9 )_vt + = 1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 h13 p8 p9 )_v @@ -1864,7 +1864,7 @@ C i3 ( h12 h13 h1 p9 )_vt + = 1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 h13 END SUBROUTINE creomsd_t_n2_mem_1_1_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h1 h2 )_vt + = -1/2 * Sum ( p8 p9 ) * t ( p8 p9 h1 h2 )_t * v ( h12 h13 p8 p9 )_v @@ -2033,7 +2033,7 @@ C i2 ( h12 h13 h1 h2 )_vt + = -1/2 * Sum ( p8 p9 ) * t ( p8 p9 h1 h2 )_t * v END SUBROUTINE creomsd_t_n2_mem_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( p8 ) * x ( p8 h1 )_x * v ( h12 p4 h2 p8 )_v @@ -2197,7 +2197,7 @@ C i1 ( h12 p4 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( p8 ) * x ( p8 h1 )_x * v ( END SUBROUTINE creomsd_t_n2_mem_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vxt + = 2 * Sum ( h7 ) * t ( p4 h7 )_t * i2 ( h7 h12 h1 h2 )_vx @@ -2352,7 +2352,7 @@ C i1 ( h12 p4 h1 h2 )_vxt + = 2 * Sum ( h7 ) * t ( p4 h7 )_t * i2 ( h7 h12 h END SUBROUTINE creomsd_t_n2_mem_1_3_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h12 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p9 ) * x ( p9 h1 )_x * v ( h7 h12 h2 p9 )_v @@ -2514,7 +2514,7 @@ C i2 ( h7 h12 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p9 ) * x ( p9 h1 )_x * v END SUBROUTINE OFFSET_creomsd_t_n2_mem_1_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h12 h1 h2 )_vx @@ -2586,7 +2586,7 @@ C i2 ( h7 h12 h1 h2 )_vx END SUBROUTINE creomsd_t_n2_mem_1_3_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h12 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 ( h7 h12 h2 p8 )_vx @@ -2739,7 +2739,7 @@ C i2 ( h7 h12 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 END SUBROUTINE creomsd_t_n2_mem_1_3_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h12 h1 p8 )_vx + = 1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h7 h12 p8 p10 )_v @@ -2908,7 +2908,7 @@ C i3 ( h7 h12 h1 p8 )_vx + = 1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h7 h12 p END SUBROUTINE OFFSET_creomsd_t_n2_mem_1_3_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h12 h1 p8 )_vx @@ -2980,7 +2980,7 @@ C i3 ( h7 h12 h1 p8 )_vx END SUBROUTINE creomsd_t_n2_mem_1_3_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h12 h1 h2 )_vx + = 1/4 * Sum ( p9 p10 ) * x ( p9 p10 h1 h2 )_x * v ( h7 h12 p9 p10 )_v @@ -3149,7 +3149,7 @@ C i2 ( h7 h12 h1 h2 )_vx + = 1/4 * Sum ( p9 p10 ) * x ( p9 p10 h1 h2 )_x * v END SUBROUTINE creomsd_t_n2_mem_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i2 ( h12 p4 h2 p8 )_vx @@ -3304,7 +3304,7 @@ C i1 ( h12 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i2 END SUBROUTINE creomsd_t_n2_mem_1_4_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p8 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h12 p4 p8 p9 )_v @@ -3473,7 +3473,7 @@ C i2 ( h12 p4 h1 p8 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h12 p4 p8 END SUBROUTINE OFFSET_creomsd_t_n2_mem_1_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p8 )_vx @@ -3545,7 +3545,7 @@ C i2 ( h12 p4 h1 p8 )_vx END SUBROUTINE creomsd_t_n2_mem_1_5(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * i2 ( h9 h12 h2 p8 )_vx @@ -3742,7 +3742,7 @@ C i1 ( h12 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 ) END SUBROUTINE creomsd_t_n2_mem_1_5_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h12 h1 p8 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h9 h12 p8 p10 )_v @@ -3911,7 +3911,7 @@ C i2 ( h9 h12 h1 p8 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h9 h12 END SUBROUTINE OFFSET_creomsd_t_n2_mem_1_5_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h12 h1 p8 )_vx @@ -3983,7 +3983,7 @@ C i2 ( h9 h12 h1 p8 )_vx END SUBROUTINE creomsd_t_n2_mem_1_6(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vxt + = -1 * Sum ( p8 ) * t ( p4 p8 h1 h2 )_t * i2 ( h12 p8 )_vx @@ -4138,7 +4138,7 @@ C i1 ( h12 p4 h1 h2 )_vxt + = -1 * Sum ( p8 ) * t ( p4 p8 h1 h2 )_t * i2 ( h END SUBROUTINE creomsd_t_n2_mem_1_6_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p8 )_vx + = -1 * Sum ( h9 p10 ) * x ( p10 h9 )_x * v ( h9 h12 p8 p10 )_v @@ -4328,7 +4328,7 @@ C i2 ( h12 p8 )_vx + = -1 * Sum ( h9 p10 ) * x ( p10 h9 )_x * v ( h9 h12 p8 END SUBROUTINE OFFSET_creomsd_t_n2_mem_1_6_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p8 )_vx @@ -4384,7 +4384,7 @@ C i2 ( h12 p8 )_vx END SUBROUTINE creomsd_t_n2_mem_1_7(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_fx + = -1 * Sum ( p7 ) * x ( p4 p7 h1 h2 )_x * i2 ( h12 p7 )_f @@ -4538,7 +4538,7 @@ C i1 ( h12 p4 h1 h2 )_fx + = -1 * Sum ( p7 ) * x ( p4 p7 h1 h2 )_x * i2 ( h1 RETURN END SUBROUTINE creomsd_t_n2_mem_1_7_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p7 )_f + = 1 * f ( h12 p7 )_f @@ -4623,7 +4623,7 @@ C i2 ( h12 p7 )_f + = 1 * f ( h12 p7 )_f END SUBROUTINE OFFSET_creomsd_t_n2_mem_1_7_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p7 )_f @@ -4679,7 +4679,7 @@ C i2 ( h12 p7 )_f END SUBROUTINE creomsd_t_n2_mem_1_7_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p7 )_vt + = -1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h12 p7 p8 )_v @@ -4869,7 +4869,7 @@ C i2 ( h12 p7 )_vt + = -1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h12 p7 p8 END SUBROUTINE creomsd_t_n2_mem_1_8(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( h10 p7 ) * x ( p4 p7 h1 h10 )_x * i2 ( h10 h12 h2 p7 )_v @@ -5065,7 +5065,7 @@ C i1 ( h12 p4 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( h10 p7 ) * x ( p4 p7 h1 h10 RETURN END SUBROUTINE creomsd_t_n2_mem_1_8_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h12 h1 p7 )_v + = 1 * v ( h10 h12 h1 p7 )_v @@ -5174,7 +5174,7 @@ C i2 ( h10 h12 h1 p7 )_v + = 1 * v ( h10 h12 h1 p7 )_v END SUBROUTINE OFFSET_creomsd_t_n2_mem_1_8_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h12 h1 p7 )_v @@ -5244,7 +5244,7 @@ C i2 ( h10 h12 h1 p7 )_v END SUBROUTINE creomsd_t_n2_mem_1_8_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h12 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h12 p7 p8 )_v @@ -5413,7 +5413,7 @@ C i2 ( h10 h12 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h12 END SUBROUTINE creomsd_t_n2_mem_1_9(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = 1/2 * Sum ( p8 p9 ) * x ( p8 p9 h1 h2 )_x * v ( h12 p4 p8 p9 )_v @@ -5585,7 +5585,7 @@ C i1 ( h12 p4 h1 h2 )_vx + = 1/2 * Sum ( p8 p9 ) * x ( p8 p9 h1 h2 )_x * v ( END SUBROUTINE creomsd_t_n2_mem_2(d_a,k_a_offset,d_b,k_b_offset,a_c,t_ &p4b,t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = 2 * P( 9 ) * Sum ( p12 ) * t ( p4 p12 h1 h2 )_t * i1 ( p5 p6 h3 p12 )_vx @@ -5954,7 +5954,7 @@ c END DO END SUBROUTINE creomsd_t_n2_mem_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p12 )_vx + = 1/2 * P( 2 ) * Sum ( h11 ) * x ( p4 h11 )_x * i2 ( h11 p5 h1 p12 )_v @@ -6108,7 +6108,7 @@ C i1 ( p4 p5 h1 p12 )_vx + = 1/2 * P( 2 ) * Sum ( h11 ) * x ( p4 h11 )_x * i RETURN END SUBROUTINE OFFSET_creomsd_t_n2_mem_2_1(l_a_offset,k_a_offset,size) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p12 )_vx @@ -6179,7 +6179,7 @@ C i1 ( p4 p5 h1 p12 )_vx RETURN END SUBROUTINE creomsd_t_n2_mem_2_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p12 )_v + = 1 * v ( h11 p4 h1 p12 )_v @@ -6288,7 +6288,7 @@ C i2 ( h11 p4 h1 p12 )_v + = 1 * v ( h11 p4 h1 p12 )_v END SUBROUTINE OFFSET_creomsd_t_n2_mem_2_1_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p12 )_v @@ -6358,7 +6358,7 @@ C i2 ( h11 p4 h1 p12 )_v END SUBROUTINE creomsd_t_n2_mem_2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p12 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 p4 p8 p12 )_v @@ -6527,7 +6527,7 @@ C i2 ( h11 p4 h1 p12 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 p4 p8 END SUBROUTINE creomsd_t_n2_mem_2_1_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p12 )_vt + = -1 * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * v ( h9 h11 p8 p12 )_v @@ -6758,7 +6758,7 @@ C i2 ( h11 p4 h1 p12 )_vt + = -1 * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * v ( END SUBROUTINE creomsd_t_n2_mem_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p12 )_vx + = -1/2 * Sum ( p8 ) * x ( p8 h1 )_x * v ( p4 p5 p8 p12 )_v @@ -6927,7 +6927,7 @@ C i1 ( p4 p5 h1 p12 )_vx + = -1/2 * Sum ( p8 ) * x ( p8 h1 )_x * v ( p4 p5 p END SUBROUTINE creomsd_t_n2_mem_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p12 )_vxt + = 1/2 * P( 2 ) * Sum ( h7 ) * t ( p4 h7 )_t * i2 ( h7 p5 h1 p12 )_vx @@ -7082,7 +7082,7 @@ C i1 ( p4 p5 h1 p12 )_vxt + = 1/2 * P( 2 ) * Sum ( h7 ) * t ( p4 h7 )_t * i2 END SUBROUTINE creomsd_t_n2_mem_2_3_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p4 h1 p12 )_vx + = -1 * Sum ( h11 ) * x ( p4 h11 )_x * i3 ( h7 h11 h1 p12 )_v @@ -7237,7 +7237,7 @@ C i2 ( h7 p4 h1 p12 )_vx + = -1 * Sum ( h11 ) * x ( p4 h11 )_x * i3 ( h7 h11 END SUBROUTINE OFFSET_creomsd_t_n2_mem_2_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p4 h1 p12 )_vx @@ -7308,7 +7308,7 @@ C i2 ( h7 p4 h1 p12 )_vx RETURN END SUBROUTINE creomsd_t_n2_mem_2_3_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h11 h1 p12 )_v + = 1 * v ( h7 h11 h1 p12 )_v @@ -7417,7 +7417,7 @@ C i3 ( h7 h11 h1 p12 )_v + = 1 * v ( h7 h11 h1 p12 )_v END SUBROUTINE OFFSET_creomsd_t_n2_mem_2_3_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h11 h1 p12 )_v @@ -7487,7 +7487,7 @@ C i3 ( h7 h11 h1 p12 )_v END SUBROUTINE creomsd_t_n2_mem_2_3_1_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h11 h1 p12 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h7 h11 p8 p12 )_v @@ -7656,7 +7656,7 @@ C i3 ( h7 h11 h1 p12 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h7 h11 p8 END SUBROUTINE creomsd_t_n2_mem_2_3_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p4 h1 p12 )_vx + = 1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h7 p4 p9 p12 )_v @@ -7825,7 +7825,7 @@ C i2 ( h7 p4 h1 p12 )_vx + = 1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h7 p4 p9 p END SUBROUTINE creomsd_t_n2_mem_2_3_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p4 h1 p12 )_vxt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h7 h8 h1 p12 )_vx @@ -7980,7 +7980,7 @@ C i2 ( h7 p4 h1 p12 )_vxt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h7 h8 END SUBROUTINE creomsd_t_n2_mem_2_3_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h1 p12 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h7 h8 p10 p12 )_v @@ -8149,7 +8149,7 @@ C i3 ( h7 h8 h1 p12 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h7 h8 p END SUBROUTINE OFFSET_creomsd_t_n2_mem_2_3_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h1 p12 )_vx @@ -8221,7 +8221,7 @@ C i3 ( h7 h8 h1 p12 )_vx END SUBROUTINE creomsd_t_n2_mem_2_3_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p4 h1 p12 )_vx + = 1 * Sum ( h9 p10 ) * x ( p4 p10 h1 h9 )_x * v ( h7 h9 p10 p12 )_v @@ -8452,7 +8452,7 @@ C i2 ( h7 p4 h1 p12 )_vx + = 1 * Sum ( h9 p10 ) * x ( p4 p10 h1 h9 )_x * v ( END SUBROUTINE creomsd_t_n2_mem_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p12 )_vxt + = -1/4 * Sum ( h8 h9 ) * t ( p4 p5 h8 h9 )_t * i2 ( h8 h9 h1 p12 )_vx @@ -8615,7 +8615,7 @@ C i1 ( p4 p5 h1 p12 )_vxt + = -1/4 * Sum ( h8 h9 ) * t ( p4 p5 h8 h9 )_t * i END SUBROUTINE creomsd_t_n2_mem_2_4_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h1 p12 )_vx + = 1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h8 h9 p10 p12 )_v @@ -8784,7 +8784,7 @@ C i2 ( h8 h9 h1 p12 )_vx + = 1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h8 h9 p1 END SUBROUTINE OFFSET_creomsd_t_n2_mem_2_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h1 p12 )_vx @@ -8856,7 +8856,7 @@ C i2 ( h8 h9 h1 p12 )_vx END SUBROUTINE creomsd_t_n2_mem_2_5(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p12 )_vx + = -1/4 * Sum ( h7 h11 ) * x ( p4 p5 h7 h11 )_x * i2 ( h7 h11 h1 p12 )_v @@ -9018,7 +9018,7 @@ C i1 ( p4 p5 h1 p12 )_vx + = -1/4 * Sum ( h7 h11 ) * x ( p4 p5 h7 h11 )_x * RETURN END SUBROUTINE creomsd_t_n2_mem_2_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h11 h1 p12 )_v + = 1 * v ( h7 h11 h1 p12 )_v @@ -9127,7 +9127,7 @@ C i2 ( h7 h11 h1 p12 )_v + = 1 * v ( h7 h11 h1 p12 )_v END SUBROUTINE OFFSET_creomsd_t_n2_mem_2_5_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h11 h1 p12 )_v @@ -9197,7 +9197,7 @@ C i2 ( h7 h11 h1 p12 )_v END SUBROUTINE creomsd_t_n2_mem_2_5_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h11 h1 p12 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h7 h11 p8 p12 )_v @@ -9366,7 +9366,7 @@ C i2 ( h7 h11 h1 p12 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h7 h11 p8 END SUBROUTINE creomsd_t_n2_mem_2_6(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p12 )_vx + = -1/2 * P( 2 ) * Sum ( h8 p9 ) * x ( p4 p9 h1 h8 )_x * v ( h8 p5 p9 p12 )_v @@ -9577,7 +9577,7 @@ C i1 ( p4 p5 h1 p12 )_vx + = -1/2 * P( 2 ) * Sum ( h8 p9 ) * x ( p4 p9 h1 h8 END SUBROUTINE creomsd_t_n2_mem_3(d_a,k_a_offset,d_b,k_b_offset,a_c,t_ &p4b,t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( h12 ) * x ( p4 p5 h1 h12 )_x * i1 ( h12 p6 h2 h3 )_v @@ -9945,7 +9945,7 @@ c END DO RETURN END SUBROUTINE creomsd_t_n2_mem_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_v + = 1 * v ( h12 p4 h1 h2 )_v @@ -10053,7 +10053,7 @@ C i1 ( h12 p4 h1 h2 )_v + = 1 * v ( h12 p4 h1 h2 )_v RETURN END SUBROUTINE OFFSET_creomsd_t_n2_mem_3_1(l_a_offset,k_a_offset,size) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_v @@ -10123,7 +10123,7 @@ C i1 ( h12 p4 h1 h2 )_v END SUBROUTINE creomsd_t_n2_mem_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vt + = 1 * Sum ( h11 ) * t ( p4 h11 )_t * i2 ( h11 h12 h1 h2 )_v @@ -10277,7 +10277,7 @@ C i1 ( h12 p4 h1 h2 )_vt + = 1 * Sum ( h11 ) * t ( p4 h11 )_t * i2 ( h11 h12 RETURN END SUBROUTINE creomsd_t_n2_mem_3_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_v + = 1 * v ( h11 h12 h1 h2 )_v @@ -10383,7 +10383,7 @@ C i2 ( h11 h12 h1 h2 )_v + = 1 * v ( h11 h12 h1 h2 )_v END SUBROUTINE OFFSET_creomsd_t_n2_mem_3_2_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_v @@ -10453,7 +10453,7 @@ C i2 ( h11 h12 h1 h2 )_v END SUBROUTINE creomsd_t_n2_mem_3_2_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 ( h11 h12 h2 p8 )_v @@ -10605,7 +10605,7 @@ C i2 ( h11 h12 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 RETURN END SUBROUTINE creomsd_t_n2_mem_3_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 h12 h1 p8 )_v + = 1 * v ( h11 h12 h1 p8 )_v @@ -10714,7 +10714,7 @@ C i3 ( h11 h12 h1 p8 )_v + = 1 * v ( h11 h12 h1 p8 )_v END SUBROUTINE OFFSET_creomsd_t_n2_mem_3_2_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 h12 h1 p8 )_v @@ -10784,7 +10784,7 @@ C i3 ( h11 h12 h1 p8 )_v END SUBROUTINE creomsd_t_n2_mem_3_2_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 h12 h1 p8 )_vt + = -1/2 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h11 h12 p8 p9 )_v @@ -10953,7 +10953,7 @@ C i3 ( h11 h12 h1 p8 )_vt + = -1/2 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h11 h1 END SUBROUTINE creomsd_t_n2_mem_3_2_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_vt + = 1/2 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( h11 h12 p7 p8 )_v @@ -11122,7 +11122,7 @@ C i2 ( h11 h12 h1 h2 )_vt + = 1/2 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v END SUBROUTINE creomsd_t_n2_mem_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h12 p4 h2 p7 )_v @@ -11276,7 +11276,7 @@ C i1 ( h12 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( RETURN END SUBROUTINE creomsd_t_n2_mem_3_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_v + = 1 * v ( h12 p4 h1 p7 )_v @@ -11385,7 +11385,7 @@ C i2 ( h12 p4 h1 p7 )_v + = 1 * v ( h12 p4 h1 p7 )_v END SUBROUTINE OFFSET_creomsd_t_n2_mem_3_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_v @@ -11455,7 +11455,7 @@ C i2 ( h12 p4 h1 p7 )_v END SUBROUTINE creomsd_t_n2_mem_3_3_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vt + = -1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 p4 p7 p8 )_v @@ -11624,7 +11624,7 @@ C i2 ( h12 p4 h1 p7 )_vt + = -1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 p4 END SUBROUTINE creomsd_t_n2_mem_3_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_ft + = -1 * Sum ( p10 ) * t ( p4 p10 h1 h2 )_t * i2 ( h12 p10 )_f @@ -11778,7 +11778,7 @@ C i1 ( h12 p4 h1 h2 )_ft + = -1 * Sum ( p10 ) * t ( p4 p10 h1 h2 )_t * i2 ( RETURN END SUBROUTINE creomsd_t_n2_mem_3_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p10 )_f + = 1 * f ( h12 p10 )_f @@ -11863,7 +11863,7 @@ C i2 ( h12 p10 )_f + = 1 * f ( h12 p10 )_f END SUBROUTINE OFFSET_creomsd_t_n2_mem_3_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p10 )_f @@ -11919,7 +11919,7 @@ C i2 ( h12 p10 )_f END SUBROUTINE creomsd_t_n2_mem_3_4_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p10 )_vt + = 1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h12 p8 p10 )_v @@ -12109,7 +12109,7 @@ C i2 ( h12 p10 )_vt + = 1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h12 p8 p1 END SUBROUTINE creomsd_t_n2_mem_3_5(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * i2 ( h8 h12 h2 p7 )_v @@ -12305,7 +12305,7 @@ C i1 ( h12 p4 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_ RETURN END SUBROUTINE creomsd_t_n2_mem_3_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h12 h1 p7 )_v + = 1 * v ( h8 h12 h1 p7 )_v @@ -12414,7 +12414,7 @@ C i2 ( h8 h12 h1 p7 )_v + = 1 * v ( h8 h12 h1 p7 )_v END SUBROUTINE OFFSET_creomsd_t_n2_mem_3_5_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h12 h1 p7 )_v @@ -12484,7 +12484,7 @@ C i2 ( h8 h12 h1 p7 )_v END SUBROUTINE creomsd_t_n2_mem_3_5_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h12 h1 p7 )_vt + = -1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h12 p7 p9 )_v @@ -12653,7 +12653,7 @@ C i2 ( h8 h12 h1 p7 )_vt + = -1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h12 p7 END SUBROUTINE creomsd_t_n2_mem_3_6(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vt + = 1/2 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( h12 p4 p7 p8 )_v @@ -12825,7 +12825,7 @@ C i1 ( h12 p4 h1 h2 )_vt + = 1/2 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( END SUBROUTINE creomsd_t_n2_mem_4(d_a,k_a_offset,d_b,k_b_offset,a_c,t_ &p4b,t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( p10 ) * x ( p4 p10 h1 h2 )_x * i1 ( p5 p6 h3 p10 )_v @@ -13194,7 +13194,7 @@ cc END DO RETURN END SUBROUTINE creomsd_t_n2_mem_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p10 )_v + = 1 * v ( p4 p5 h1 p10 )_v @@ -13302,7 +13302,7 @@ C i1 ( p4 p5 h1 p10 )_v + = 1 * v ( p4 p5 h1 p10 )_v RETURN END SUBROUTINE OFFSET_creomsd_t_n2_mem_4_1(l_a_offset,k_a_offset,size) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p10 )_v @@ -13372,7 +13372,7 @@ C i1 ( p4 p5 h1 p10 )_v END SUBROUTINE creomsd_t_n2_mem_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p10 )_vt + = -1 * P( 2 ) * Sum ( h12 ) * t ( p4 h12 )_t * i2 ( h12 p5 h1 p10 )_v @@ -13526,7 +13526,7 @@ C i1 ( p4 p5 h1 p10 )_vt + = -1 * P( 2 ) * Sum ( h12 ) * t ( p4 h12 )_t * i2 RETURN END SUBROUTINE creomsd_t_n2_mem_4_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p10 )_v + = 1 * v ( h12 p4 h1 p10 )_v @@ -13635,7 +13635,7 @@ C i2 ( h12 p4 h1 p10 )_v + = 1 * v ( h12 p4 h1 p10 )_v END SUBROUTINE OFFSET_creomsd_t_n2_mem_4_2_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p10 )_v @@ -13705,7 +13705,7 @@ C i2 ( h12 p4 h1 p10 )_v END SUBROUTINE creomsd_t_n2_mem_4_2_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p10 )_vt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h8 h12 h1 p10 )_v @@ -13859,7 +13859,7 @@ C i2 ( h12 p4 h1 p10 )_vt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h8 h12 RETURN END SUBROUTINE creomsd_t_n2_mem_4_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h12 h1 p10 )_v + = 1 * v ( h8 h12 h1 p10 )_v @@ -13968,7 +13968,7 @@ C i3 ( h8 h12 h1 p10 )_v + = 1 * v ( h8 h12 h1 p10 )_v END SUBROUTINE OFFSET_creomsd_t_n2_mem_4_2_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h12 h1 p10 )_v @@ -14038,7 +14038,7 @@ C i3 ( h8 h12 h1 p10 )_v END SUBROUTINE creomsd_t_n2_mem_4_2_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h12 h1 p10 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h12 p9 p10 )_v @@ -14207,7 +14207,7 @@ C i3 ( h8 h12 h1 p10 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h12 p9 END SUBROUTINE creomsd_t_n2_mem_4_2_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p10 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 p4 p8 p10 )_v @@ -14376,7 +14376,7 @@ C i2 ( h12 p4 h1 p10 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 p4 p8 END SUBROUTINE creomsd_t_n2_mem_4_2_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p10 )_vt + = -1 * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * v ( h8 h12 p7 p10 )_v @@ -14607,7 +14607,7 @@ C i2 ( h12 p4 h1 p10 )_vt + = -1 * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * v ( END SUBROUTINE creomsd_t_n2_mem_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p10 )_vt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * v ( p4 p5 p7 p10 )_v @@ -14776,7 +14776,7 @@ C i1 ( p4 p5 h1 p10 )_vt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * v ( p4 p5 p7 p END SUBROUTINE creomsd_t_n2_mem_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p10 )_vt + = 1/2 * Sum ( h7 h8 ) * t ( p4 p5 h7 h8 )_t * i2 ( h7 h8 h1 p10 )_v @@ -14938,7 +14938,7 @@ C i1 ( p4 p5 h1 p10 )_vt + = 1/2 * Sum ( h7 h8 ) * t ( p4 p5 h7 h8 )_t * i2 RETURN END SUBROUTINE creomsd_t_n2_mem_4_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p10 )_v + = 1 * v ( h7 h8 h1 p10 )_v @@ -15047,7 +15047,7 @@ C i2 ( h7 h8 h1 p10 )_v + = 1 * v ( h7 h8 h1 p10 )_v END SUBROUTINE OFFSET_creomsd_t_n2_mem_4_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p10 )_v @@ -15117,7 +15117,7 @@ C i2 ( h7 h8 h1 p10 )_v END SUBROUTINE creomsd_t_n2_mem_4_4_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p10 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h7 h8 p9 p10 )_v @@ -15286,7 +15286,7 @@ C i2 ( h7 h8 h1 p10 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h7 h8 p9 p END SUBROUTINE creomsd_t_n2_mem_4_5(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p10 )_vt + = 1 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * v ( h8 p5 p7 p10 )_v diff --git a/src/tce/cr-eomccsd_t/nr0.F b/src/tce/cr-eomccsd_t/nr0.F index b5f0887f79..ddcf5738ff 100644 --- a/src/tce/cr-eomccsd_t/nr0.F +++ b/src/tce/cr-eomccsd_t/nr0.F @@ -1,6 +1,6 @@ SUBROUTINE nr0(d_f1,d_i0,d_t1,d_v2,d_x1,d_x2,k_f1_offset,k_i0_offs &et,k_t1_offset,k_v2_offset,k_x1_offset,k_x2_offset) -C $Id: nr0.F,v 1.2 2008-07-17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_xf + = 1 * Sum ( p2 h1 ) * x ( p2 h1 )_x * f ( h1 p2 )_f @@ -43,7 +43,7 @@ C i1 ( h2 p1 )_vx + = 1 * Sum ( h3 p4 ) * x ( p4 h3 )_x * v ( h2 h3 p1 p RETURN END SUBROUTINE nr0_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: nr0.F,v 1.2 2008-07-17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_xf + = 1 * Sum ( p2 h1 ) * x ( p2 h1 )_x * f ( h1 p2 )_f @@ -153,7 +153,7 @@ C i0 ( )_xf + = 1 * Sum ( p2 h1 ) * x ( p2 h1 )_x * f ( h1 p2 )_f RETURN END SUBROUTINE nr0_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: nr0.F,v 1.2 2008-07-17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_xv + = 1/4 * Sum ( p3 p4 h1 h2 ) * x ( p3 p4 h1 h2 )_x * v ( h1 h2 p3 p4 )_v @@ -302,7 +302,7 @@ C i0 ( )_xv + = 1/4 * Sum ( p3 p4 h1 h2 ) * x ( p3 p4 h1 h2 )_x * v ( h1 h2 RETURN END SUBROUTINE nr0_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: nr0.F,v 1.2 2008-07-17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vxt + = 1 * Sum ( h2 p1 ) * t ( p1 h2 )_t * i1 ( h2 p1 )_vx @@ -412,7 +412,7 @@ C i0 ( )_vxt + = 1 * Sum ( h2 p1 ) * t ( p1 h2 )_t * i1 ( h2 p1 )_vx RETURN END SUBROUTINE nr0_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: nr0.F,v 1.2 2008-07-17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p1 )_vx + = 1 * Sum ( h3 p4 ) * x ( p4 h3 )_x * v ( h2 h3 p1 p4 )_v @@ -566,7 +566,7 @@ C i1 ( h2 p1 )_vx + = 1 * Sum ( h3 p4 ) * x ( p4 h3 )_x * v ( h2 h3 p1 p4 )_ RETURN END SUBROUTINE OFFSET_nr0_3_1(l_a_offset,k_a_offset,size) -C $Id: nr0.F,v 1.2 2008-07-17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p1 )_vx diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_1.F index 5ff81fc46b..928819759a 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_1_1(l_a_offset,k_a_offset,size) -C $Id: offset_cr_eomccsd_t_n2_1_1.F,v 1.1 2005-12-16 21:54:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_1_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_1_1.F index fd626e3bdd..dedd69da19 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_1_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_1_1_1(l_a_offset,k_a_offset,size &) -C $Id: offset_cr_eomccsd_t_n2_1_1_1.F,v 1.1 2005-12-16 21:54:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h1 h2 )_v diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_1_2_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_1_2_1.F index 2193d9a6f3..9511f3a2f0 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_1_2_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_1_1_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: offset_cr_eomccsd_t_n2_1_1_2_1.F,v 1.1 2005-12-16 21:54:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h12 h13 h1 p9 )_v diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_3_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_3_1.F index 35c54c1792..46317d8cc4 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_3_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_1_3_1(l_a_offset,k_a_offset,size &) -C $Id: offset_cr_eomccsd_t_n2_1_3_1.F,v 1.1 2005-12-16 21:54:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h12 h1 h2 )_vx diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_3_2_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_3_2_1.F index a9ef0b8102..2ea9f03bcf 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_3_2_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_1_3_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: offset_cr_eomccsd_t_n2_1_3_2_1.F,v 1.1 2005-12-16 21:54:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h12 h1 p8 )_vx diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_4_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_4_1.F index d6956f6985..3c9f26ca0a 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_4_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_1_4_1(l_a_offset,k_a_offset,size &) -C $Id: offset_cr_eomccsd_t_n2_1_4_1.F,v 1.1 2005-12-16 21:54:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p8 )_vx diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_5_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_5_1.F index c800b7b7ea..b1418385a1 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_5_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_1_5_1(l_a_offset,k_a_offset,size &) -C $Id: offset_cr_eomccsd_t_n2_1_5_1.F,v 1.1 2005-12-16 21:54:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h12 h1 p8 )_vx diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_6_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_6_1.F index d85e6c36c6..7f0c913140 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_6_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_1_6_1(l_a_offset,k_a_offset,size &) -C $Id: offset_cr_eomccsd_t_n2_1_6_1.F,v 1.1 2005-12-16 21:54:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p8 )_vx diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_7_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_7_1.F index 81ae7c91ee..a26a511d20 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_7_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_1_7_1(l_a_offset,k_a_offset,size &) -C $Id: offset_cr_eomccsd_t_n2_1_7_1.F,v 1.1 2005-12-16 21:54:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p7 )_f diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_8_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_8_1.F index b9d7afaf6a..481b9902d3 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_8_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_1_8_1(l_a_offset,k_a_offset,size &) -C $Id: offset_cr_eomccsd_t_n2_1_8_1.F,v 1.1 2005-12-16 21:54:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h12 h1 p7 )_v diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_2_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_2_1.F index b90213e63d..53c22a7a1d 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_2_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_2_1(l_a_offset,k_a_offset,size) -C $Id: offset_cr_eomccsd_t_n2_2_1.F,v 1.1 2005-12-16 21:54:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 p5 h1 h2 h3 )_vt diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_2_1_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_2_1_1.F index 7d2881016f..bcb1a4f471 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_2_1_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_2_1_1(l_a_offset,k_a_offset,size &) -C $Id: offset_cr_eomccsd_t_n2_2_1_1.F,v 1.1 2005-12-16 21:54:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_v diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_3_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_3_1.F index 349b27d6c5..3ce9367b52 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_3_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_3_1(l_a_offset,k_a_offset,size) -C $Id: offset_cr_eomccsd_t_n2_3_1.F,v 1.1 2005-12-16 21:54:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vx diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_3_2_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_3_2_1.F index 06059474c1..5669ac3cdc 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_3_2_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_3_2_1(l_a_offset,k_a_offset,size &) -C $Id: offset_cr_eomccsd_t_n2_3_2_1.F,v 1.1 2005-12-16 21:54:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h1 p7 )_vx diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_3_3_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_3_3_1.F index 4bdfb5fa71..7e1f6871d2 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_3_3_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_3_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_3_3_1(l_a_offset,k_a_offset,size &) -C $Id: offset_cr_eomccsd_t_n2_3_3_1.F,v 1.1 2005-12-16 21:54:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 p7 )_v diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_1.F index 992bf051b1..81ded149d0 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_4_1(l_a_offset,k_a_offset,size) -C $Id: offset_cr_eomccsd_t_n2_4_1.F,v 1.1 2005-12-16 21:54:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 p5 h1 h2 h3 )_vxt diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_1_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_1_1.F index 630ad73f7e..fcc6a44297 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_1_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_4_1_1(l_a_offset,k_a_offset,size &) -C $Id: offset_cr_eomccsd_t_n2_4_1_1.F,v 1.1 2005-12-16 21:54:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vx diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_1_2_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_1_2_1.F index b8d054207c..273a18ac31 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_1_2_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_4_1_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: offset_cr_eomccsd_t_n2_4_1_2_1.F,v 1.1 2005-12-16 21:54:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 h12 h1 p7 )_vt diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_1_3_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_1_3_1.F index f6306b9c1f..93e992fbbe 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_1_3_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_4_1_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: offset_cr_eomccsd_t_n2_4_1_3_1.F,v 1.1 2005-12-16 21:54:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h12 h1 p7 )_vx diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_2_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_2_1.F index 9dc9c07308..ed8d57af95 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_2_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_4_2_1(l_a_offset,k_a_offset,size &) -C $Id: offset_cr_eomccsd_t_n2_4_2_1.F,v 1.1 2005-12-16 21:54:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p10 )_v diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_2_2_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_2_2_1.F index f8a1f32484..54c262a32f 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_2_2_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_4_2_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: offset_cr_eomccsd_t_n2_4_2_2_1.F,v 1.1 2005-12-16 21:54:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h12 h1 p10 )_v diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_1.F index 04faf503d1..551a83834f 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_5_1(l_a_offset,k_a_offset,size) -C $Id: offset_cr_eomccsd_t_n2_5_1.F,v 1.1 2005-12-16 21:54:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_v diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_2_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_2_1.F index d41d105ead..a663f35a0a 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_2_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_5_2_1(l_a_offset,k_a_offset,size &) -C $Id: offset_cr_eomccsd_t_n2_5_2_1.F,v 1.1 2005-12-16 21:54:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_v diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_2_2_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_2_2_1.F index 1d7e9bd047..a95459fdc1 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_2_2_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_5_2_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: offset_cr_eomccsd_t_n2_5_2_2_1.F,v 1.1 2005-12-16 21:54:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 h12 h1 p8 )_v diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_3_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_3_1.F index a9659982cd..70e8ceb9e9 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_3_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_5_3_1(l_a_offset,k_a_offset,size &) -C $Id: offset_cr_eomccsd_t_n2_5_3_1.F,v 1.1 2005-12-16 21:54:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_v diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_4_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_4_1.F index 445f9e6e27..07120e77d5 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_4_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_5_4_1(l_a_offset,k_a_offset,size &) -C $Id: offset_cr_eomccsd_t_n2_5_4_1.F,v 1.1 2005-12-16 21:54:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p10 )_f diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_5_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_5_1.F index d1538ac5db..ab0b950635 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_5_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_5_5_1(l_a_offset,k_a_offset,size &) -C $Id: offset_cr_eomccsd_t_n2_5_5_1.F,v 1.1 2005-12-16 21:54:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h12 h1 p7 )_v diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_6_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_6_1.F index 4ed27a0998..7d5987374b 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_6_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_6_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_6_1(l_a_offset,k_a_offset,size) -C $Id: offset_cr_eomccsd_t_n2_6_1.F,v 1.1 2005-12-16 21:54:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p11 )_v diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_6_3_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_6_3_1.F index e825f425f0..0b79e6a695 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_6_3_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_6_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_6_3_1(l_a_offset,k_a_offset,size &) -C $Id: offset_cr_eomccsd_t_n2_6_3_1.F,v 1.1 2005-12-16 21:54:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p11 )_v diff --git a/src/tce/cr-eomccsd_t/q3rexpt2.F b/src/tce/cr-eomccsd_t/q3rexpt2.F index 354dfc5946..97a35b8b08 100644 --- a/src/tce/cr-eomccsd_t/q3rexpt2.F +++ b/src/tce/cr-eomccsd_t/q3rexpt2.F @@ -1,7 +1,7 @@ SUBROUTINE q3rexpt2(a_i0,d_i1_2,d_t1,d_t2,d_x1,d_x2,k_i1_offset_2, &k_t1_offset,k_t2_offset,k_x1_offset,k_x2_offset,l_i1_offset_2,t_h1 &b,t_h2b,t_h3b,t_p4b,t_p5b,t_p6b,toggle) -C $Id: q3rexpt2.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xt + = 1 * P( 9 ) * t ( p4 p5 h1 h2 )_t * x ( p6 h3 )_x @@ -57,7 +57,7 @@ C i1 ( p4 p5 h1 h2 )_x + = -1/2 * x ( p4 p5 h1 h2 )_x END SUBROUTINE q3rexpt2_1(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p4b,t_p5 &b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: q3rexpt2.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xt + = 1 * P( 9 ) * t ( p4 p5 h1 h2 )_t * x ( p6 h3 )_x @@ -391,7 +391,7 @@ c END SUBROUTINE q3rexpt2_2(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p4b,t_p5 &b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: q3rexpt2.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xtt + = -2 * P( 9 ) * t ( p4 h1 )_t * i1 ( p5 p6 h2 h3 )_xt @@ -726,7 +726,7 @@ c END SUBROUTINE q3rexpt2_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: q3rexpt2.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 h2 )_xt + = -1/4 * P( 4 ) * t ( p4 h1 )_t * x ( p5 h2 )_x @@ -886,7 +886,7 @@ C i1 ( p4 p5 h1 h2 )_xt + = -1/4 * P( 4 ) * t ( p4 h1 )_t * x ( p5 h2 )_x RETURN END SUBROUTINE OFFSET_q3rexpt2_2_1(l_a_offset,k_a_offset,size) -C $Id: q3rexpt2.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 h2 )_xt @@ -957,7 +957,7 @@ C i1 ( p4 p5 h1 h2 )_xt RETURN END SUBROUTINE q3rexpt2_2_2(d_a,k_a_offset,d_c,k_c_offset) -C $Id: q3rexpt2.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 h2 )_x + = -1/2 * x ( p4 p5 h1 h2 )_x diff --git a/src/tce/cr-eomccsd_t/t2t12.F b/src/tce/cr-eomccsd_t/t2t12.F index 9cd3eefaae..4c2e97ddf5 100644 --- a/src/tce/cr-eomccsd_t/t2t12.F +++ b/src/tce/cr-eomccsd_t/t2t12.F @@ -1,6 +1,6 @@ SUBROUTINE t2t12(d_i0,d_t1,d_t2,k_i0_offset,k_t1_offset,k_t2_offse &t) -C $Id: t2t12.F,v 1.2 2008-07-17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_t + = 1 * t ( p3 p4 h1 h2 )_t @@ -22,7 +22,7 @@ C i0 ( p3 p4 h1 h2 )_tt + = 1/2 * P( 4 ) * t ( p3 h1 )_t * t ( p4 h2 )_t RETURN END SUBROUTINE t2t12_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: t2t12.F,v 1.2 2008-07-17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_t + = 1 * t ( p3 p4 h1 h2 )_t @@ -118,7 +118,7 @@ C i0 ( p3 p4 h1 h2 )_t + = 1 * t ( p3 p4 h1 h2 )_t RETURN END SUBROUTINE t2t12_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: t2t12.F,v 1.2 2008-07-17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tt + = 1/2 * P( 4 ) * t ( p3 h1 )_t * t ( p4 h2 )_t diff --git a/src/tce/createfile.F b/src/tce/createfile.F index 5e4b0c453c..d79f01724d 100644 --- a/src/tce/createfile.F +++ b/src/tce/createfile.F @@ -1,6 +1,6 @@ subroutine createfile(filename,d_sf,size) c -c $Id: createfile.F,v 1.21 2008-12-11 20:20:38 jhammond Exp $ +c $Id$ c c Creates a shared file and returns the handle c @@ -210,7 +210,7 @@ c subroutine createfile_sf(filename,d_sf,size) c -c $Id: createfile.F,v 1.21 2008-12-11 20:20:38 jhammond Exp $ +c $Id$ c c Creates a shared file and returns the handle c @@ -291,7 +291,7 @@ c subroutine createfile_sf_suffix(filename,d_sf,size,suffix) c -c $Id: createfile.F,v 1.21 2008-12-11 20:20:38 jhammond Exp $ +c $Id$ c c Creates a shared file and returns the handle c @@ -369,7 +369,7 @@ c subroutine createfile_mirror(filename,d_sf,size) c -c $Id: createfile.F,v 1.21 2008-12-11 20:20:38 jhammond Exp $ +c $Id$ c c Creates a shared file and returns the handle c diff --git a/src/tce/crop/GNUmakefile b/src/tce/crop/GNUmakefile index d646538c09..54c3e319f7 100644 --- a/src/tce/crop/GNUmakefile +++ b/src/tce/crop/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.1 2008-09-30 18:35:55 jhammond Exp $ +#$Id$ OBJ_OPTIMIZE = tce_crop.o diff --git a/src/tce/crop/tce_crop.F b/src/tce/crop/tce_crop.F index 7ee71f0758..f781f3c712 100644 --- a/src/tce/crop/tce_crop.F +++ b/src/tce/crop/tce_crop.F @@ -4,7 +4,7 @@ 3 d_r3,d_t3,k_t3_offset,size_t3, 4 d_r4,d_t4,k_t4_offset,size_t4,omega) c -c $Id: tce_crop.F,v 1.1 2008-09-30 18:35:55 jhammond Exp $ +c $Id$ c c Copies residual and t1-t4 files in a round robin fashion c and also performs DIIS if necessary diff --git a/src/tce/daxfile.F b/src/tce/daxfile.F index 7ae983be24..a7253297ab 100644 --- a/src/tce/daxfile.F +++ b/src/tce/daxfile.F @@ -1,6 +1,6 @@ subroutine daxfile(n,coefficients,d_in,d_out,size) c -c $Id: daxfile.F,v 1.7 2008-10-05 23:25:47 jhammond Exp $ +c $Id$ c c A linear combination of files c diff --git a/src/tce/daxpyfile.F b/src/tce/daxpyfile.F index 5a46fc8311..f662d810a3 100644 --- a/src/tce/daxpyfile.F +++ b/src/tce/daxpyfile.F @@ -1,6 +1,6 @@ subroutine daxpyfile(n,coefficients,d_in,d_out,size) c -c $Id: daxpyfile.F,v 1.9 2008-10-05 23:25:47 jhammond Exp $ +c $Id$ c c A linear combination of files added to the original c diff --git a/src/tce/ddotfile.F b/src/tce/ddotfile.F index 074e6ea716..fff06b51cf 100644 --- a/src/tce/ddotfile.F +++ b/src/tce/ddotfile.F @@ -1,6 +1,6 @@ double precision function ddotfile(d_1,d_2,size) c -c $Id: ddotfile.F,v 1.8 2008-12-07 22:37:59 jhammond Exp $ +c $Id$ c c Vector inner product of two files of the same size c @@ -113,7 +113,7 @@ c c double precision function ddotfile_1(d_1,d_2,size) c -c $Id: ddotfile.F,v 1.8 2008-12-07 22:37:59 jhammond Exp $ +c $Id$ c c Vector inner product of two files of the same size c @@ -237,7 +237,7 @@ c c double precision function ddotfile_2(d_1,d_2,size) c -c $Id: ddotfile.F,v 1.8 2008-12-07 22:37:59 jhammond Exp $ +c $Id$ c c Vector inner product of two files of the same size c diff --git a/src/tce/deletefile.F b/src/tce/deletefile.F index e3fe1443a4..3307987917 100644 --- a/src/tce/deletefile.F +++ b/src/tce/deletefile.F @@ -1,6 +1,6 @@ subroutine deletefile(d_sf) c -c $Id: deletefile.F,v 1.14 2008-06-09 19:19:54 jhammond Exp $ +c $Id$ c c Creates a shared file and returns the handle c @@ -200,7 +200,7 @@ c subroutine deletefile_sf(d_sf) c -c $Id: deletefile.F,v 1.14 2008-06-09 19:19:54 jhammond Exp $ +c $Id$ c c Creates a shared file and returns the handle c diff --git a/src/tce/diis/GNUmakefile b/src/tce/diis/GNUmakefile index 07e799bec1..6fba363f64 100644 --- a/src/tce/diis/GNUmakefile +++ b/src/tce/diis/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.1 2008-09-30 18:35:42 jhammond Exp $ +#$Id$ OBJ_OPTIMIZE = tce_diis.o tce_diis_init.o tce_diis_switch.o tce_diis_tidy.o \ tce_jacobi_t1.o tce_jacobi_t2.o tce_jacobi_t3.o tce_jacobi_t4.o \ diff --git a/src/tce/diis/tce_diis.F b/src/tce/diis/tce_diis.F index b7568b9eee..93403dbcc5 100644 --- a/src/tce/diis/tce_diis.F +++ b/src/tce/diis/tce_diis.F @@ -4,7 +4,7 @@ 3 d_r3,d_t3,k_t3_offset,size_t3, 4 d_r4,d_t4,k_t4_offset,size_t4) c -c $Id: tce_diis.F,v 1.7 2008-10-22 13:20:54 jhammond Exp $ +c $Id$ c c Copies residual and t1-t4 files in a round robin fashion c and also performs DIIS if necessary diff --git a/src/tce/diis/tce_diis_init.F b/src/tce/diis/tce_diis_init.F index 63fd16228c..b28faa619c 100644 --- a/src/tce/diis/tce_diis_init.F +++ b/src/tce/diis/tce_diis_init.F @@ -1,6 +1,6 @@ subroutine tce_diis_init c -c $Id: tce_diis_init.F,v 1.1 2008-09-30 18:35:43 jhammond Exp $ +c $Id$ c c Initializes file handle holders c diff --git a/src/tce/diis/tce_diis_switch.F b/src/tce/diis/tce_diis_switch.F index 889c2aad3b..04482018a6 100644 --- a/src/tce/diis/tce_diis_switch.F +++ b/src/tce/diis/tce_diis_switch.F @@ -1,6 +1,6 @@ integer function tce_diis_switch(iter) c -c $Id: tce_diis_switch.F,v 1.1 2008-09-30 18:35:43 jhammond Exp $ +c $Id$ c c Returns DIIS order c diff --git a/src/tce/diis/tce_diis_tidy.F b/src/tce/diis/tce_diis_tidy.F index cc90e5fef6..3ea53031a9 100644 --- a/src/tce/diis/tce_diis_tidy.F +++ b/src/tce/diis/tce_diis_tidy.F @@ -1,6 +1,6 @@ subroutine tce_diis_tidy c -c $Id: tce_diis_tidy.F,v 1.1 2008-09-30 18:35:44 jhammond Exp $ +c $Id$ c c Terminates the DIIS c diff --git a/src/tce/diis/tce_jacobi_l1.F b/src/tce/diis/tce_jacobi_l1.F index da56259437..b11974953b 100644 --- a/src/tce/diis/tce_jacobi_l1.F +++ b/src/tce/diis/tce_jacobi_l1.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_l1(d_r1,d_l1,k_l1_offset,shift) c -c $Id: tce_jacobi_l1.F,v 1.2 2008-10-02 18:39:05 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis/tce_jacobi_l2.F b/src/tce/diis/tce_jacobi_l2.F index a33ece106c..eb00bd2853 100644 --- a/src/tce/diis/tce_jacobi_l2.F +++ b/src/tce/diis/tce_jacobi_l2.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_l2(d_r2,d_l2,k_l2_offset,shift) c -c $Id: tce_jacobi_l2.F,v 1.2 2008-10-02 18:39:05 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis/tce_jacobi_l3.F b/src/tce/diis/tce_jacobi_l3.F index 00c4e2b647..e626dac387 100644 --- a/src/tce/diis/tce_jacobi_l3.F +++ b/src/tce/diis/tce_jacobi_l3.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_l3(d_r3,d_l3,k_l3_offset,shift) c -c $Id: tce_jacobi_l3.F,v 1.2 2008-10-02 18:39:05 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis/tce_jacobi_l4.F b/src/tce/diis/tce_jacobi_l4.F index 1620dec8ba..c876c246b2 100644 --- a/src/tce/diis/tce_jacobi_l4.F +++ b/src/tce/diis/tce_jacobi_l4.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_l4(d_r4,d_l4,k_l4_offset,shift) c -c $Id: tce_jacobi_l4.F,v 1.2 2008-10-02 18:39:05 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis/tce_jacobi_t1.F b/src/tce/diis/tce_jacobi_t1.F index 3ab598b1ea..406dd78c79 100644 --- a/src/tce/diis/tce_jacobi_t1.F +++ b/src/tce/diis/tce_jacobi_t1.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_t1(d_r1,d_t1,k_t1_offset,shift) c -c $Id: tce_jacobi_t1.F,v 1.2 2008-10-02 18:39:05 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -102,7 +102,7 @@ c c subroutine tce_r1_divide(d_r1,k_t1_offset) c -c $Id: tce_jacobi_t1.F,v 1.2 2008-10-02 18:39:05 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis/tce_jacobi_t2.F b/src/tce/diis/tce_jacobi_t2.F index 5a57ece7c0..04c03584d5 100644 --- a/src/tce/diis/tce_jacobi_t2.F +++ b/src/tce/diis/tce_jacobi_t2.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_t2(d_r2,d_t2,k_t2_offset,shift) c -c $Id: tce_jacobi_t2.F,v 1.2 2008-10-02 18:39:06 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -130,7 +130,7 @@ c c subroutine tce_r2_divide(d_r2,k_t2_offset) c -c $Id: tce_jacobi_t2.F,v 1.2 2008-10-02 18:39:06 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis/tce_jacobi_t3.F b/src/tce/diis/tce_jacobi_t3.F index 347ee081d9..ba6def40f3 100644 --- a/src/tce/diis/tce_jacobi_t3.F +++ b/src/tce/diis/tce_jacobi_t3.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_t3(d_r3,d_t3,k_t3_offset,shift) c -c $Id: tce_jacobi_t3.F,v 1.2 2008-10-02 18:39:06 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis/tce_jacobi_t3a.F b/src/tce/diis/tce_jacobi_t3a.F index 0981b33119..b7414a9198 100644 --- a/src/tce/diis/tce_jacobi_t3a.F +++ b/src/tce/diis/tce_jacobi_t3a.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_t3a(d_r3,d_t3,k_t3_offset,shift) c -c $Id: tce_jacobi_t3a.F,v 1.2 2008-10-02 18:39:06 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis/tce_jacobi_t4.F b/src/tce/diis/tce_jacobi_t4.F index 1cf656f456..e9499fe06e 100644 --- a/src/tce/diis/tce_jacobi_t4.F +++ b/src/tce/diis/tce_jacobi_t4.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_t4(d_r4,d_t4,k_t4_offset,shift) c -c $Id: tce_jacobi_t4.F,v 1.2 2008-10-02 18:39:06 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis/tce_jacobi_x1.F b/src/tce/diis/tce_jacobi_x1.F index d28ac96c35..1c32eef13b 100644 --- a/src/tce/diis/tce_jacobi_x1.F +++ b/src/tce/diis/tce_jacobi_x1.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_x1(d_r1,k_r1_offset) c -c $Id: tce_jacobi_x1.F,v 1.1 2008-09-30 18:35:47 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis/tce_jacobi_x2.F b/src/tce/diis/tce_jacobi_x2.F index 0d3f8296cf..8ce541b316 100644 --- a/src/tce/diis/tce_jacobi_x2.F +++ b/src/tce/diis/tce_jacobi_x2.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_x2(d_r2,k_r2_offset) c -c $Id: tce_jacobi_x2.F,v 1.1 2008-09-30 18:35:47 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis/tce_jacobi_x3.F b/src/tce/diis/tce_jacobi_x3.F index e661aca59c..e100337e78 100644 --- a/src/tce/diis/tce_jacobi_x3.F +++ b/src/tce/diis/tce_jacobi_x3.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_x3(d_r3,k_r3_offset) c -c $Id: tce_jacobi_x3.F,v 1.1 2008-09-30 18:35:47 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis/tce_jacobi_x3a.F b/src/tce/diis/tce_jacobi_x3a.F index cfe529f28f..5c82535a2c 100644 --- a/src/tce/diis/tce_jacobi_x3a.F +++ b/src/tce/diis/tce_jacobi_x3a.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_x3a(d_r3,k_r3_offset) c -c $Id: tce_jacobi_x3a.F,v 1.1 2008-09-30 18:35:47 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis/tce_jacobi_x4.F b/src/tce/diis/tce_jacobi_x4.F index 488a6c6130..0ae4767977 100644 --- a/src/tce/diis/tce_jacobi_x4.F +++ b/src/tce/diis/tce_jacobi_x4.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_x4(d_r4,k_r4_offset) c -c $Id: tce_jacobi_x4.F,v 1.1 2008-09-30 18:35:48 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis/tce_jacobi_y1.F b/src/tce/diis/tce_jacobi_y1.F index b5a06e6e8d..574a6f9ca2 100644 --- a/src/tce/diis/tce_jacobi_y1.F +++ b/src/tce/diis/tce_jacobi_y1.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_y1(d_r1,k_r1_offset) c -c $Id: tce_jacobi_y1.F,v 1.1 2008-09-30 18:35:48 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis/tce_jacobi_y2.F b/src/tce/diis/tce_jacobi_y2.F index efc83ca9ee..57a04ee2da 100644 --- a/src/tce/diis/tce_jacobi_y2.F +++ b/src/tce/diis/tce_jacobi_y2.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_y2(d_r2,k_r2_offset) c -c $Id: tce_jacobi_y2.F,v 1.1 2008-09-30 18:35:48 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis/tce_jacobi_y3.F b/src/tce/diis/tce_jacobi_y3.F index bdbf090334..faf7a88177 100644 --- a/src/tce/diis/tce_jacobi_y3.F +++ b/src/tce/diis/tce_jacobi_y3.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_y3(d_r3,k_r3_offset) c -c $Id: tce_jacobi_y3.F,v 1.1 2008-09-30 18:35:48 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis/tce_jacobi_y4.F b/src/tce/diis/tce_jacobi_y4.F index 558293cec3..1686706e16 100644 --- a/src/tce/diis/tce_jacobi_y4.F +++ b/src/tce/diis/tce_jacobi_y4.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_y4(d_r4,k_r4_offset) c -c $Id: tce_jacobi_y4.F,v 1.1 2008-09-30 18:35:49 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis2/GNUmakefile b/src/tce/diis2/GNUmakefile index c74ae4be2d..aafddc6f08 100644 --- a/src/tce/diis2/GNUmakefile +++ b/src/tce/diis2/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.3 2008-08-18 01:59:58 jhammond Exp $ +#$Id$ OBJ_OPTIMIZE = tce_diis2.o \ tce_jacobi_tr1.o tce_jacobi_tr2.o tce_jacobi_tr3.o tce_jacobi_tr4.o \ diff --git a/src/tce/diis2/tce_diis2.F b/src/tce/diis2/tce_diis2.F index 2cb800742c..e66ac7be14 100644 --- a/src/tce/diis2/tce_diis2.F +++ b/src/tce/diis2/tce_diis2.F @@ -4,7 +4,7 @@ 3 d_r3,d_t3,k_t3_offset,size_t3, 4 d_r4,d_t4,k_t4_offset,size_t4,omega) c -c $Id: tce_diis2.F,v 1.11 2008-10-22 13:20:54 jhammond Exp $ +c $Id$ c c Copies residual and t1-t4 files in a round robin fashion c and also performs DIIS if necessary diff --git a/src/tce/diis2/tce_diis2_init.F b/src/tce/diis2/tce_diis2_init.F index 5202fb38e0..af5afb4997 100644 --- a/src/tce/diis2/tce_diis2_init.F +++ b/src/tce/diis2/tce_diis2_init.F @@ -1,6 +1,6 @@ subroutine tce_diis2_init c -c $Id: tce_diis2_init.F,v 1.2 2008-01-14 15:20:41 jhammond Exp $ +c $Id$ c c Initializes file handle holders c diff --git a/src/tce/diis2/tce_diis2_tidy.F b/src/tce/diis2/tce_diis2_tidy.F index 13b85f1947..1644f5e89a 100644 --- a/src/tce/diis2/tce_diis2_tidy.F +++ b/src/tce/diis2/tce_diis2_tidy.F @@ -1,6 +1,6 @@ subroutine tce_diis2_tidy c -c $Id: tce_diis2_tidy.F,v 1.2 2008-01-14 15:20:41 jhammond Exp $ +c $Id$ c c Terminates the DIIS c diff --git a/src/tce/diis2/tce_jacobi_lr1.F b/src/tce/diis2/tce_jacobi_lr1.F index 446b4cc771..18b892b051 100644 --- a/src/tce/diis2/tce_jacobi_lr1.F +++ b/src/tce/diis2/tce_jacobi_lr1.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_lr1(d_r1,d_l1,k_l1_offset,omega,shift) c -c $Id: tce_jacobi_lr1.F,v 1.4 2008-10-02 18:39:07 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis2/tce_jacobi_lr2.F b/src/tce/diis2/tce_jacobi_lr2.F index e2d5c221c5..a6f124f863 100644 --- a/src/tce/diis2/tce_jacobi_lr2.F +++ b/src/tce/diis2/tce_jacobi_lr2.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_lr2(d_r2,d_l2,k_l2_offset,omega,shift) c -c $Id: tce_jacobi_lr2.F,v 1.4 2008-10-02 18:39:07 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis2/tce_jacobi_lr3.F b/src/tce/diis2/tce_jacobi_lr3.F index 011223dbfb..88e267ff75 100644 --- a/src/tce/diis2/tce_jacobi_lr3.F +++ b/src/tce/diis2/tce_jacobi_lr3.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_lr3(d_r3,d_l3,k_l3_offset,omega,shift) c -c $Id: tce_jacobi_lr3.F,v 1.4 2008-10-02 18:39:07 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis2/tce_jacobi_lr4.F b/src/tce/diis2/tce_jacobi_lr4.F index 444476bea3..bc8350f88b 100644 --- a/src/tce/diis2/tce_jacobi_lr4.F +++ b/src/tce/diis2/tce_jacobi_lr4.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_lr4(d_r4,d_l4,k_l4_offset,omega,shift) c -c $Id: tce_jacobi_lr4.F,v 1.4 2008-10-02 18:39:08 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis2/tce_jacobi_tr1.F b/src/tce/diis2/tce_jacobi_tr1.F index 72dc0460cb..075d97e379 100644 --- a/src/tce/diis2/tce_jacobi_tr1.F +++ b/src/tce/diis2/tce_jacobi_tr1.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_tr1(d_r1,d_t1,k_t1_offset,omega,shift) c -c $Id: tce_jacobi_tr1.F,v 1.6 2008-10-03 15:36:59 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis2/tce_jacobi_tr2.F b/src/tce/diis2/tce_jacobi_tr2.F index db0d2a286d..0562ba375c 100644 --- a/src/tce/diis2/tce_jacobi_tr2.F +++ b/src/tce/diis2/tce_jacobi_tr2.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_tr2(d_r2,d_t2,k_t2_offset,omega,shift) c -c $Id: tce_jacobi_tr2.F,v 1.6 2008-10-03 15:36:59 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis2/tce_jacobi_tr3.F b/src/tce/diis2/tce_jacobi_tr3.F index 2901c4a082..45d4bd4010 100644 --- a/src/tce/diis2/tce_jacobi_tr3.F +++ b/src/tce/diis2/tce_jacobi_tr3.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_tr3(d_r3,d_t3,k_t3_offset,omega,shift) c -c $Id: tce_jacobi_tr3.F,v 1.4 2008-10-02 18:39:08 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis2/tce_jacobi_tr3a.F b/src/tce/diis2/tce_jacobi_tr3a.F index 67112c2e02..2b3aa579ff 100644 --- a/src/tce/diis2/tce_jacobi_tr3a.F +++ b/src/tce/diis2/tce_jacobi_tr3a.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_tr3a(d_r3,d_t3,k_t3_offset,omega,shift) c -c $Id: tce_jacobi_tr3a.F,v 1.4 2008-10-02 18:39:08 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis2/tce_jacobi_tr4.F b/src/tce/diis2/tce_jacobi_tr4.F index be3789e260..3c8ec998b9 100644 --- a/src/tce/diis2/tce_jacobi_tr4.F +++ b/src/tce/diis2/tce_jacobi_tr4.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_tr4(d_r4,d_t4,k_t4_offset,omega) c -c $Id: tce_jacobi_tr4.F,v 1.4 2008-10-02 18:39:09 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis3/GNUmakefile b/src/tce/diis3/GNUmakefile index b613b17f0a..553b773c73 100644 --- a/src/tce/diis3/GNUmakefile +++ b/src/tce/diis3/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.4 2008-10-21 00:37:23 jhammond Exp $ +#$Id$ OBJ_OPTIMIZE = tce_diis3.o tce_diis3c.o\ tce_jacobi_ir1.o tce_jacobi_ir2.o tce_jacobi_ir3.o tce_jacobi_ir4.o \ diff --git a/src/tce/diis3/tce_diis3.F b/src/tce/diis3/tce_diis3.F index 8bc7bec553..16fc27d081 100644 --- a/src/tce/diis3/tce_diis3.F +++ b/src/tce/diis3/tce_diis3.F @@ -4,7 +4,7 @@ 3 d_r3,d_t3,k_t3_offset,size_t3, 4 d_r4,d_t4,k_t4_offset,size_t4,omega,denom_power) c -c $Id: tce_diis3.F,v 1.9 2008-10-22 13:20:54 jhammond Exp $ +c $Id$ c c Copies residual and t1-t4 files in a round robin fashion c and also performs DIIS if necessary diff --git a/src/tce/diis3/tce_diis3c.F b/src/tce/diis3/tce_diis3c.F index 453164e317..fb8bb12116 100644 --- a/src/tce/diis3/tce_diis3c.F +++ b/src/tce/diis3/tce_diis3c.F @@ -4,7 +4,7 @@ 3 d_r3,d_t3,k_t3_offset,size_t3, 4 d_r4,d_t4,k_t4_offset,size_t4,omega) c -c $Id: tce_diis3c.F,v 1.2 2008-10-22 13:20:55 jhammond Exp $ +c $Id$ c c Copies residual and t1-t4 files in a round robin fashion c and also performs DIIS if necessary diff --git a/src/tce/diis3/tce_jacobi2_ir1.F b/src/tce/diis3/tce_jacobi2_ir1.F index 9b95503362..2868900f3c 100644 --- a/src/tce/diis3/tce_jacobi2_ir1.F +++ b/src/tce/diis3/tce_jacobi2_ir1.F @@ -1,7 +1,7 @@ subroutine tce_jacobi2_ir1(d_r1,d_t1,k_t1_offset,omega, 1 shift,damping) c -c $Id: tce_jacobi2_ir1.F,v 1.1 2008-09-30 18:35:53 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis3/tce_jacobi2_ir2.F b/src/tce/diis3/tce_jacobi2_ir2.F index c6c18b19b7..a2004345c7 100644 --- a/src/tce/diis3/tce_jacobi2_ir2.F +++ b/src/tce/diis3/tce_jacobi2_ir2.F @@ -1,7 +1,7 @@ subroutine tce_jacobi2_ir2(d_r2,d_t2,k_t2_offset,omega, 1 shift,damping) c -c $Id: tce_jacobi2_ir2.F,v 1.1 2008-09-30 18:35:53 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis3/tce_jacobi2_ir3.F b/src/tce/diis3/tce_jacobi2_ir3.F index c1e3ea9284..5a7a88f40b 100644 --- a/src/tce/diis3/tce_jacobi2_ir3.F +++ b/src/tce/diis3/tce_jacobi2_ir3.F @@ -1,7 +1,7 @@ subroutine tce_jacobi2_ir3(d_r3,d_t3,k_t3_offset,omega, 1 shift,damping) c -c $Id: tce_jacobi2_ir3.F,v 1.1 2008-09-30 18:35:54 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis3/tce_jacobi2_ir4.F b/src/tce/diis3/tce_jacobi2_ir4.F index f11523eb48..862af576cf 100644 --- a/src/tce/diis3/tce_jacobi2_ir4.F +++ b/src/tce/diis3/tce_jacobi2_ir4.F @@ -1,7 +1,7 @@ subroutine tce_jacobi2_ir4(d_r4,d_t4,k_t4_offset,omega, 1 shift,damping) c -c $Id: tce_jacobi2_ir4.F,v 1.1 2008-09-30 18:35:54 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis3/tce_jacobi_ir1.F b/src/tce/diis3/tce_jacobi_ir1.F index cbaa07f95a..da447ef46f 100644 --- a/src/tce/diis3/tce_jacobi_ir1.F +++ b/src/tce/diis3/tce_jacobi_ir1.F @@ -1,7 +1,7 @@ subroutine tce_jacobi_ir1(d_r1,d_t1,k_t1_offset,omega, 1 shift,damping) c -c $Id: tce_jacobi_ir1.F,v 1.5 2008-09-30 18:35:54 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis3/tce_jacobi_ir2.F b/src/tce/diis3/tce_jacobi_ir2.F index 59db07ca63..a8dff3ed17 100644 --- a/src/tce/diis3/tce_jacobi_ir2.F +++ b/src/tce/diis3/tce_jacobi_ir2.F @@ -1,7 +1,7 @@ subroutine tce_jacobi_ir2(d_r2,d_t2,k_t2_offset,omega, 1 shift,damping) c -c $Id: tce_jacobi_ir2.F,v 1.5 2008-09-30 18:35:54 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis3/tce_jacobi_ir3.F b/src/tce/diis3/tce_jacobi_ir3.F index d198fb9d78..df98bb3288 100644 --- a/src/tce/diis3/tce_jacobi_ir3.F +++ b/src/tce/diis3/tce_jacobi_ir3.F @@ -1,7 +1,7 @@ subroutine tce_jacobi_ir3(d_r3,d_t3,k_t3_offset,omega, 1 shift,damping) c -c $Id: tce_jacobi_ir3.F,v 1.4 2008-09-30 18:35:55 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis3/tce_jacobi_ir4.F b/src/tce/diis3/tce_jacobi_ir4.F index 44cacb5305..21463e9efa 100644 --- a/src/tce/diis3/tce_jacobi_ir4.F +++ b/src/tce/diis3/tce_jacobi_ir4.F @@ -1,7 +1,7 @@ subroutine tce_jacobi_ir4(d_r4,d_t4,k_t4_offset,omega, 1 shift,damping) c -c $Id: tce_jacobi_ir4.F,v 1.4 2008-09-30 18:35:55 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/dratoga.F b/src/tce/dratoga.F index 4c6e665506..c824830fd2 100644 --- a/src/tce/dratoga.F +++ b/src/tce/dratoga.F @@ -1,6 +1,6 @@ subroutine dratoga(d_sf) c -c $Id: dratoga.F,v 1.5 2008-01-14 15:20:32 jhammond Exp $ +c $Id$ c c Load data from DRA to GA c diff --git a/src/tce/dscalfile.F b/src/tce/dscalfile.F index c9dc3f8417..69f4d92d54 100644 --- a/src/tce/dscalfile.F +++ b/src/tce/dscalfile.F @@ -1,6 +1,6 @@ subroutine dscalfile(scale,d_1,size) c -c $Id: dscalfile.F,v 1.7 2008-10-05 22:31:29 jhammond Exp $ +c $Id$ c c Multiply a file by a constant c diff --git a/src/tce/e2_offset_2_offset.F b/src/tce/e2_offset_2_offset.F index 3e0e5e1a6a..2044f4ecba 100644 --- a/src/tce/e2_offset_2_offset.F +++ b/src/tce/e2_offset_2_offset.F @@ -1,7 +1,7 @@ SUBROUTINE e2_offset_2_offset(l_a_offset,k_a_offset, & l_b_offset,k_b_offset, & l_c_offset,k_c_offset,length) -C $Id: e2_offset_2_offset.F,v 1.2 2006-06-05 18:25:11 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C v ( g3 g4 g1 g2 )_v diff --git a/src/tce/emb/GNUmakefile b/src/tce/emb/GNUmakefile index 2373f3b937..087a230673 100644 --- a/src/tce/emb/GNUmakefile +++ b/src/tce/emb/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.1 2007-09-14 19:04:01 kowalski Exp $ +#$Id$ OBJ_OPTIMIZE = c1v.o c2vt1_s.o emb1.o emb2.o diff --git a/src/tce/emb/c1v.F b/src/tce/emb/c1v.F index 73ca95ce49..466fa796f1 100644 --- a/src/tce/emb/c1v.F +++ b/src/tce/emb/c1v.F @@ -1,6 +1,6 @@ SUBROUTINE c1v(a_i0,d_v2,d_x1,k_v2_offset,k_x1_offset,t_h1b,t_h2b, &t_h3b,t_p4b,t_p5b,t_p6b,toggle) -C $Id: c1v.F,v 1.1 2007-09-14 19:02:24 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vx + = 1 * P( 9 ) * x ( p4 h1 )_x * v ( p5 p6 h2 h3 )_v @@ -28,7 +28,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vx + = 1 * P( 9 ) * x ( p4 h1 )_x * v ( p5 p6 h2 END SUBROUTINE c1v_1(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p4b,t_p5b,t_p &6b,t_h1b,t_h2b,t_h3b) -C $Id: c1v.F,v 1.1 2007-09-14 19:02:24 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vx + = 1 * P( 9 ) * x ( p4 h1 )_x * v ( p5 p6 h2 h3 )_v diff --git a/src/tce/emb/c2vt1_s.F b/src/tce/emb/c2vt1_s.F index 838be8365e..d5444d54ec 100644 --- a/src/tce/emb/c2vt1_s.F +++ b/src/tce/emb/c2vt1_s.F @@ -1,6 +1,6 @@ SUBROUTINE c2vt1_s(a_i0,d_v2,d_x2,k_v2_offset,k_x2_offset,t_h1b,t_ &h2b,t_h3b,t_p4b,t_p5b,t_p6b,toggle) -C $Id: c2vt1_s.F,v 1.1 2007-09-14 19:02:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( h7 ) * x ( p4 p5 h1 h7 )_x * v ( h7 p6 h2 h3 )_v @@ -31,7 +31,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( p7 ) * x ( p4 p7 h1 h2 END SUBROUTINE c2vt1_s_1(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p4b,t_p5b &,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: c2vt1_s.F,v 1.1 2007-09-14 19:02:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( h7 ) * x ( p4 p5 h1 h7 )_x * v ( h7 p6 h2 h3 )_v @@ -273,7 +273,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( h7 ) * x ( p4 p5 h1 h7 END SUBROUTINE c2vt1_s_2(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p4b,t_p5b &,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: c2vt1_s.F,v 1.1 2007-09-14 19:02:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( p7 ) * x ( p4 p7 h1 h2 )_x * v ( p5 p6 h3 p7 )_v @@ -519,7 +519,7 @@ c c SUBROUTINE tvx2(a_i0,d_v2,d_x2,k_v2_offset,k_x2_offset,t_h1b,t_h2b &,t_h3b,t_p4b,t_p5b,t_p6b,toggle) -C $Id: c2vt1_s.F,v 1.1 2007-09-14 19:02:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( h7 ) * x ( p4 p5 h1 h7 )_x * v ( h7 p6 h2 h3 )_v @@ -550,7 +550,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( p7 ) * x ( p4 p7 h1 h2 END SUBROUTINE tvx2_1(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p4b,t_p5b,t_ &p6b,t_h1b,t_h2b,t_h3b) -C $Id: c2vt1_s.F,v 1.1 2007-09-14 19:02:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( h7 ) * x ( p4 p5 h1 h7 )_x * v ( h7 p6 h2 h3 )_v @@ -789,7 +789,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( h7 ) * x ( p4 p5 h1 h7 END SUBROUTINE tvx2_2(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p4b,t_p5b,t_ &p6b,t_h1b,t_h2b,t_h3b) -C $Id: c2vt1_s.F,v 1.1 2007-09-14 19:02:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( p7 ) * x ( p4 p7 h1 h2 )_x * v ( p5 p6 h3 p7 )_v diff --git a/src/tce/emb/emb1.F b/src/tce/emb/emb1.F index 30e8c27c52..e838d4dfbd 100644 --- a/src/tce/emb/emb1.F +++ b/src/tce/emb/emb1.F @@ -8,7 +8,7 @@ 7 d_c2,k_c2_offset,size_c2, 8 excit,energy1,energy2,size_t1,size_x1) C -C $Id: emb1.F,v 1.2 2008-01-14 15:20:41 jhammond Exp $ +C $Id$ C c from this point on we assume that corresponding one- and two- c body components of R(d_x1,d_x2) and T(d_t1,d_t2) operators, diff --git a/src/tce/emb/emb2.F b/src/tce/emb/emb2.F index 6d8d16fde8..77837854fd 100644 --- a/src/tce/emb/emb2.F +++ b/src/tce/emb/emb2.F @@ -8,7 +8,7 @@ 7 d_c2,k_c2_offset,size_c2, 8 excit,energy1,energy2,size_t1,size_x1) C -C $Id: emb2.F,v 1.2 2008-01-14 15:20:41 jhammond Exp $ +C $Id$ C c from this point on we assume that corresponding one- and two- c body components of R(d_x1,d_x2) and T(d_t1,d_t2) operators, diff --git a/src/tce/eomccsd/GNUmakefile b/src/tce/eomccsd/GNUmakefile index 23c6fae920..3cd7fc10f8 100644 --- a/src/tce/eomccsd/GNUmakefile +++ b/src/tce/eomccsd/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.7 2008-10-18 04:34:22 jhammond Exp $ +#$Id$ OBJ_OPTIMIZE = eomccsd_x1.o eomccsd_x2.o eomccsd_y1.o eomccsd_y2.o \ eomccsd_density1.o eomccsd_denominator.o cc2_x1.o cc2_x2.o \ diff --git a/src/tce/eomccsd/cc2_x1.F b/src/tce/eomccsd/cc2_x1.F index dac8976a33..e8be233e9c 100644 --- a/src/tce/eomccsd/cc2_x1.F +++ b/src/tce/eomccsd/cc2_x1.F @@ -1,7 +1,7 @@ SUBROUTINE cc2_x1(d_f1,d_i0,d_t1,d_t2,d_v2,d_x1,d_x2,k_f1_offset,k &_i0_offset,k_t1_offset,k_t2_offset,k_v2_offset,k_x1_offset,k_x2_of &fset) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = -1 * Sum ( h6 ) * x ( p2 h6 )_x * i1 ( h6 h1 )_f @@ -193,7 +193,7 @@ C i1 ( h4 h5 h1 p3 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( h4 h5 p RETURN END SUBROUTINE cc2_x1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = -1 * Sum ( h6 ) * x ( p2 h6 )_x * i1 ( h6 h1 )_f @@ -316,7 +316,7 @@ C i0 ( p2 h1 )_xf + = -1 * Sum ( h6 ) * x ( p2 h6 )_x * i1 ( h6 h1 )_f RETURN END SUBROUTINE cc2_x1_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_f + = 1 * f ( h6 h1 )_f @@ -398,7 +398,7 @@ C i1 ( h6 h1 )_f + = 1 * f ( h6 h1 )_f RETURN END SUBROUTINE OFFSET_cc2_x1_1_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_f @@ -454,7 +454,7 @@ C i1 ( h6 h1 )_f END SUBROUTINE cc2_x1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_ft + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h6 p7 )_f @@ -579,7 +579,7 @@ C i1 ( h6 h1 )_ft + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h6 p7 )_f RETURN END SUBROUTINE cc2_x1_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f @@ -661,7 +661,7 @@ C i2 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f RETURN END SUBROUTINE OFFSET_cc2_x1_1_2_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_f @@ -717,7 +717,7 @@ C i2 ( h6 p7 )_f END SUBROUTINE cc2_x1_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_vt + = 1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h6 p4 p7 )_v @@ -904,7 +904,7 @@ C i2 ( h6 p7 )_vt + = 1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h6 p4 p7 )_ END SUBROUTINE cc2_x1_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 h1 p3 )_v @@ -1061,7 +1061,7 @@ C i1 ( h6 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 h1 p3 ) END SUBROUTINE cc2_x1_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 h6 p3 p4 )_v @@ -1247,7 +1247,7 @@ C i1 ( h6 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 RETURN END SUBROUTINE cc2_x1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * i1 ( p2 p6 )_f @@ -1370,7 +1370,7 @@ C i0 ( p2 h1 )_xf + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * i1 ( p2 p6 )_f RETURN END SUBROUTINE cc2_x1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p6 )_f + = 1 * f ( p2 p6 )_f @@ -1452,7 +1452,7 @@ C i1 ( p2 p6 )_f + = 1 * f ( p2 p6 )_f RETURN END SUBROUTINE OFFSET_cc2_x1_2_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p6 )_f @@ -1508,7 +1508,7 @@ C i1 ( p2 p6 )_f END SUBROUTINE cc2_x1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p6 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 p3 p6 )_v @@ -1664,7 +1664,7 @@ C i1 ( p2 p6 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 p3 p6 )_ RETURN END SUBROUTINE cc2_x1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xv + = -1 * Sum ( p4 h3 ) * x ( p4 h3 )_x * v ( h3 p2 h1 p4 )_v @@ -1803,7 +1803,7 @@ C i0 ( p2 h1 )_xv + = -1 * Sum ( p4 h3 ) * x ( p4 h3 )_x * v ( h3 p2 h1 p4 ) RETURN END SUBROUTINE cc2_x1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = 1 * Sum ( p7 h6 ) * x ( p2 p7 h1 h6 )_x * i1 ( h6 p7 )_f @@ -1959,7 +1959,7 @@ C i0 ( p2 h1 )_xf + = 1 * Sum ( p7 h6 ) * x ( p2 p7 h1 h6 )_x * i1 ( h6 p7 ) RETURN END SUBROUTINE cc2_x1_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f @@ -2041,7 +2041,7 @@ C i1 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f RETURN END SUBROUTINE OFFSET_cc2_x1_4_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p7 )_f @@ -2097,7 +2097,7 @@ C i1 ( h6 p7 )_f END SUBROUTINE cc2_x1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 p3 p7 )_v @@ -2283,7 +2283,7 @@ C i1 ( h6 p7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 p3 p7 )_ RETURN END SUBROUTINE cc2_x1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p7 h6 h8 ) * x ( p2 p7 h6 h8 )_x * i1 ( h6 h8 h1 p7 )_v @@ -2443,7 +2443,7 @@ C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p7 h6 h8 ) * x ( p2 p7 h6 h8 )_x * i1 ( h RETURN END SUBROUTINE cc2_x1_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 h1 p7 )_v + = 1 * v ( h6 h8 h1 p7 )_v @@ -2549,7 +2549,7 @@ C i1 ( h6 h8 h1 p7 )_v + = 1 * v ( h6 h8 h1 p7 )_v RETURN END SUBROUTINE OFFSET_cc2_x1_5_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 h1 p7 )_v @@ -2619,7 +2619,7 @@ C i1 ( h6 h8 h1 p7 )_v END SUBROUTINE cc2_x1_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 h1 p7 )_vt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * v ( h6 h8 p3 p7 )_v @@ -2784,7 +2784,7 @@ C i1 ( h6 h8 h1 p7 )_vt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * v ( h6 h8 p3 p7 RETURN END SUBROUTINE cc2_x1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p4 p5 h3 ) * x ( p4 p5 h1 h3 )_x * v ( h3 p2 p4 p5 )_v @@ -2953,7 +2953,7 @@ C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p4 p5 h3 ) * x ( p4 p5 h1 h3 )_x * v ( h3 RETURN END SUBROUTINE cc2_x1_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_fxt + = -1 * Sum ( h8 ) * t ( p2 h8 )_t * i1 ( h8 h1 )_fx @@ -3077,7 +3077,7 @@ C i0 ( p2 h1 )_fxt + = -1 * Sum ( h8 ) * t ( p2 h8 )_t * i1 ( h8 h1 )_fx END SUBROUTINE cc2_x1_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_fx + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * i2 ( h8 p3 )_f @@ -3202,7 +3202,7 @@ C i1 ( h8 h1 )_fx + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * i2 ( h8 p3 )_f RETURN END SUBROUTINE OFFSET_cc2_x1_7_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_fx @@ -3257,7 +3257,7 @@ C i1 ( h8 h1 )_fx RETURN END SUBROUTINE cc2_x1_7_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_f + = 1 * f ( h8 p3 )_f @@ -3339,7 +3339,7 @@ C i2 ( h8 p3 )_f + = 1 * f ( h8 p3 )_f RETURN END SUBROUTINE OFFSET_cc2_x1_7_1_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_f @@ -3395,7 +3395,7 @@ C i2 ( h8 p3 )_f END SUBROUTINE cc2_x1_7_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_vt + = -1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h8 p3 p4 )_v @@ -3582,7 +3582,7 @@ C i2 ( h8 p3 )_vt + = -1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h8 p3 p4 ) END SUBROUTINE cc2_x1_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vx + = -1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 h8 h1 p5 )_v @@ -3739,7 +3739,7 @@ C i1 ( h8 h1 )_vx + = -1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 h8 h1 p5 ) END SUBROUTINE cc2_x1_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vx + = -1/2 * Sum ( h4 p5 p6 ) * x ( p5 p6 h1 h4 )_x * v ( h4 h8 p5 p6 )_v @@ -3926,7 +3926,7 @@ C i1 ( h8 h1 )_vx + = -1/2 * Sum ( h4 p5 p6 ) * x ( p5 p6 h1 h4 )_x * v ( h4 END SUBROUTINE cc2_x1_7_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vxt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i2 ( h8 p3 )_vx @@ -4052,7 +4052,7 @@ C i1 ( h8 h1 )_vxt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i2 ( h8 p3 )_vx END SUBROUTINE cc2_x1_7_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_vx + = -1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h5 h8 p3 p6 )_v @@ -4238,7 +4238,7 @@ C i2 ( h8 p3 )_vx + = -1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h5 h8 p3 p6 ) RETURN END SUBROUTINE OFFSET_cc2_x1_7_4_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_vx @@ -4293,7 +4293,7 @@ C i2 ( h8 p3 )_vx RETURN END SUBROUTINE cc2_x1_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vxt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * i1 ( p2 p3 )_vx @@ -4417,7 +4417,7 @@ C i0 ( p2 h1 )_vxt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * i1 ( p2 p3 )_vx END SUBROUTINE cc2_x1_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p3 )_vx + = 1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 p2 p3 p5 )_v @@ -4573,7 +4573,7 @@ C i1 ( p2 p3 )_vx + = 1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 p2 p3 p5 )_ RETURN END SUBROUTINE OFFSET_cc2_x1_8_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p3 )_vx @@ -4628,7 +4628,7 @@ C i1 ( p2 p3 )_vx RETURN END SUBROUTINE cc2_x1_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vxt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * i1 ( h4 p3 )_vx @@ -4785,7 +4785,7 @@ C i0 ( p2 h1 )_vxt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * i1 ( h4 p3 END SUBROUTINE cc2_x1_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p3 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h4 h5 p3 p6 )_v @@ -4971,7 +4971,7 @@ C i1 ( h4 p3 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h4 h5 p3 p6 )_ RETURN END SUBROUTINE OFFSET_cc2_x1_9_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p3 )_vx @@ -5026,7 +5026,7 @@ C i1 ( h4 p3 )_vx RETURN END SUBROUTINE cc2_x1_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vxt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( h4 h5 h1 p3 )_vx @@ -5189,7 +5189,7 @@ C i0 ( p2 h1 )_vxt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( h END SUBROUTINE cc2_x1_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( h4 h5 p3 p6 )_v @@ -5354,7 +5354,7 @@ C i1 ( h4 h5 h1 p3 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( h4 h5 p3 p6 RETURN END SUBROUTINE OFFSET_cc2_x1_10_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_vx diff --git a/src/tce/eomccsd/cc2_x2.F b/src/tce/eomccsd/cc2_x2.F index 5a9313e840..51f03b788a 100644 --- a/src/tce/eomccsd/cc2_x2.F +++ b/src/tce/eomccsd/cc2_x2.F @@ -1,7 +1,7 @@ SUBROUTINE cc2_x2(d_f1,d_i0,d_t1,d_v2,d_x1,d_x2,k_f1_offset,k_i0_o &ffset,k_t1_offset,k_v2_offset,k_x1_offset,k_x2_offset, &size_x1,size_x2) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( h7 ) * x ( p3 h7 )_x * i1 ( h7 p4 h1 h2 )_v @@ -188,7 +188,7 @@ c &R) RETURN END SUBROUTINE cc2_x2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( h7 ) * x ( p3 h7 )_x * i1 ( h7 p4 h1 h2 )_v @@ -337,7 +337,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( h7 ) * x ( p3 h7 )_x * i1 ( RETURN END SUBROUTINE cc2_x2_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 h1 h2 )_v + = 1 * v ( h7 p3 h1 h2 )_v @@ -443,7 +443,7 @@ C i1 ( h7 p3 h1 h2 )_v + = 1 * v ( h7 p3 h1 h2 )_v RETURN END SUBROUTINE OFFSET_cc2_x2_1_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 h1 h2 )_v @@ -513,7 +513,7 @@ C i1 ( h7 p3 h1 h2 )_v END SUBROUTINE cc2_x2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h7 p3 h2 p5 )_v @@ -664,7 +664,7 @@ C i1 ( h7 p3 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( RETURN END SUBROUTINE cc2_x2_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p3 h1 p5 )_v + = 1 * v ( h7 p3 h1 p5 )_v @@ -770,7 +770,7 @@ C i2 ( h7 p3 h1 p5 )_v + = 1 * v ( h7 p3 h1 p5 )_v RETURN END SUBROUTINE OFFSET_cc2_x2_1_2_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p3 h1 p5 )_v @@ -840,7 +840,7 @@ C i2 ( h7 p3 h1 p5 )_v END SUBROUTINE cc2_x2_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p3 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h7 p3 p5 p6 )_v @@ -1005,7 +1005,7 @@ C i2 ( h7 p3 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h7 p3 p5 RETURN END SUBROUTINE cc2_x2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( p5 ) * x ( p5 h1 )_x * v ( p3 p4 h2 p5 )_v @@ -1163,7 +1163,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( p5 ) * x ( p5 h1 )_x * v ( p RETURN END SUBROUTINE cc2_x2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xf + = -1 * P( 2 ) * Sum ( h5 ) * x ( p3 p4 h1 h5 )_x * f ( h5 h2 )_f @@ -1322,7 +1322,7 @@ C i0 ( p3 p4 h1 h2 )_xf + = -1 * P( 2 ) * Sum ( h5 ) * x ( p3 p4 h1 h5 )_x * RETURN END SUBROUTINE cc2_x2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xf + = 1 * P( 2 ) * Sum ( p5 ) * x ( p3 p5 h1 h2 )_x * f ( p4 p5 )_f @@ -1481,7 +1481,7 @@ C i0 ( p3 p4 h1 h2 )_xf + = 1 * P( 2 ) * Sum ( p5 ) * x ( p3 p5 h1 h2 )_x * RETURN END SUBROUTINE cc2_x2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h10 ) * t ( p3 h10 )_t * i1 ( h10 p4 h1 h2 )_vx @@ -1631,7 +1631,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h10 ) * t ( p3 h10 )_t * i1 END SUBROUTINE cc2_x2_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx + = -1 * Sum ( h8 ) * x ( p3 h8 )_x * i2 ( h8 h10 h1 h2 )_v @@ -1782,7 +1782,7 @@ C i1 ( h10 p3 h1 h2 )_vx + = -1 * Sum ( h8 ) * x ( p3 h8 )_x * i2 ( h8 h10 h RETURN END SUBROUTINE OFFSET_cc2_x2_5_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx @@ -1853,7 +1853,7 @@ C i1 ( h10 p3 h1 h2 )_vx RETURN END SUBROUTINE cc2_x2_5_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_v + = 1 * v ( h8 h10 h1 h2 )_v @@ -1956,7 +1956,7 @@ C i2 ( h8 h10 h1 h2 )_v + = 1 * v ( h8 h10 h1 h2 )_v RETURN END SUBROUTINE OFFSET_cc2_x2_5_1_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_v @@ -2026,7 +2026,7 @@ C i2 ( h8 h10 h1 h2 )_v END SUBROUTINE cc2_x2_5_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h8 h10 h2 p5 )_v @@ -2175,7 +2175,7 @@ C i2 ( h8 h10 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( RETURN END SUBROUTINE cc2_x2_5_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h10 h1 p5 )_v + = 1 * v ( h8 h10 h1 p5 )_v @@ -2283,7 +2283,7 @@ C i3 ( h8 h10 h1 p5 )_v + = 1 * v ( h8 h10 h1 p5 )_v RETURN END SUBROUTINE OFFSET_cc2_x2_5_1_2_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h10 h1 p5 )_v @@ -2353,7 +2353,7 @@ C i3 ( h8 h10 h1 p5 )_v END SUBROUTINE cc2_x2_5_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h10 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h8 h10 p5 p6 )_v @@ -2522,7 +2522,7 @@ C i3 ( h8 h10 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h8 h10 END SUBROUTINE cc2_x2_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( p6 ) * x ( p6 h1 )_x * v ( h10 p3 h2 p6 )_v @@ -2683,7 +2683,7 @@ C i1 ( h10 p3 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( p6 ) * x ( p6 h1 )_x * v ( h END SUBROUTINE cc2_x2_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vxt + = 1 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h10 h1 h2 )_vx @@ -2835,7 +2835,7 @@ C i1 ( h10 p3 h1 h2 )_vxt + = 1 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h10 h END SUBROUTINE cc2_x2_5_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_vx + = 1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( h9 h10 h2 p7 )_v @@ -2993,7 +2993,7 @@ C i2 ( h9 h10 h1 h2 )_vx + = 1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( RETURN END SUBROUTINE OFFSET_cc2_x2_5_3_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_vx @@ -3065,7 +3065,7 @@ C i2 ( h9 h10 h1 h2 )_vx END SUBROUTINE cc2_x2_5_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h9 h10 h2 p5 )_vx @@ -3215,7 +3215,7 @@ C i2 ( h9 h10 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 END SUBROUTINE cc2_x2_5_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 p5 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h9 h10 p5 p8 )_v @@ -3383,7 +3383,7 @@ C i3 ( h9 h10 h1 p5 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h9 h10 p5 RETURN END SUBROUTINE OFFSET_cc2_x2_5_3_2_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 p5 )_vx @@ -3455,7 +3455,7 @@ C i3 ( h9 h10 h1 p5 )_vx END SUBROUTINE cc2_x2_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h10 p3 h2 p5 )_vx @@ -3607,7 +3607,7 @@ C i1 ( h10 p3 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 END SUBROUTINE cc2_x2_5_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p3 h1 p5 )_vx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h10 p3 p5 p7 )_v @@ -3772,7 +3772,7 @@ C i2 ( h10 p3 h1 p5 )_vx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h10 p3 p5 RETURN END SUBROUTINE OFFSET_cc2_x2_5_4_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p3 h1 p5 )_vx @@ -3843,7 +3843,7 @@ C i2 ( h10 p3 h1 p5 )_vx RETURN END SUBROUTINE cc2_x2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i1 ( p3 p4 h2 p5 )_vx @@ -3993,7 +3993,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i1 ( END SUBROUTINE cc2_x2_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p4 h1 p5 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( p3 p4 p5 p6 )_v @@ -4158,7 +4158,7 @@ C i1 ( p3 p4 h1 p5 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( p3 p4 p5 p6 RETURN END SUBROUTINE OFFSET_cc2_x2_6_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p4 h1 p5 )_vx diff --git a/src/tce/eomccsd/eomccsd_1prdm_hh.F b/src/tce/eomccsd/eomccsd_1prdm_hh.F index e9ca9006d0..3e9dba662a 100644 --- a/src/tce/eomccsd/eomccsd_1prdm_hh.F +++ b/src/tce/eomccsd/eomccsd_1prdm_hh.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_1prdm_hh(d_i0,d_t1,d_t2,d_x0,d_x1,d_x2,d_y1,d_y &2,k_i0_offset,k_t1_offset,k_t2_offset,k_x0_offset,k_x1_offset,k_x2 &_offset,k_y1_offset,k_y2_offset) -C $Id: eomccsd_1prdm_hh.F,v 1.1 2007-09-19 22:20:11 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_ytx + = -1 * x ( )_x * i1 ( h1 h2 )_yt @@ -70,7 +70,7 @@ C i0 ( h2 h1 )_yx + = -1/2 * Sum ( h5 p3 p4 ) * x ( p3 p4 h1 h5 )_x * y ( h2 END SUBROUTINE eomccsd_1prdm_hh_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_hh.F,v 1.1 2007-09-19 22:20:11 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_ytx + = -1 * x ( )_x * i1 ( h1 h2 )_yt @@ -187,7 +187,7 @@ C i0 ( h1 h2 )_ytx + = -1 * x ( )_x * i1 ( h1 h2 )_yt END SUBROUTINE eomccsd_1prdm_hh_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_hh.F,v 1.1 2007-09-19 22:20:11 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -314,7 +314,7 @@ C i1 ( h2 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y RETURN END SUBROUTINE OFFSET_eomccsd_1prdm_hh_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_1prdm_hh.F,v 1.1 2007-09-19 22:20:11 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt @@ -370,7 +370,7 @@ C i1 ( h2 h1 )_yt END SUBROUTINE eomccsd_1prdm_hh_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_hh.F,v 1.1 2007-09-19 22:20:11 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 h5 p3 p4 )_y @@ -546,7 +546,7 @@ C i1 ( h2 h1 )_yt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 END SUBROUTINE eomccsd_1prdm_hh_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_hh.F,v 1.1 2007-09-19 22:20:11 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yx + = -1 * Sum ( p3 ) * x ( p3 h1 )_x * y ( h2 p3 )_y @@ -674,7 +674,7 @@ C i0 ( h2 h1 )_yx + = -1 * Sum ( p3 ) * x ( p3 h1 )_x * y ( h2 p3 )_y END SUBROUTINE eomccsd_1prdm_hh_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_hh.F,v 1.1 2007-09-19 22:20:11 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yxt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * i1 ( h2 p3 )_yx @@ -802,7 +802,7 @@ C i0 ( h2 h1 )_yxt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * i1 ( h2 p3 )_yx END SUBROUTINE eomccsd_1prdm_hh_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_hh.F,v 1.1 2007-09-19 22:20:11 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 p3 )_yx + = 1 * Sum ( h5 p4 ) * x ( p4 h5 )_x * y ( h1 h5 p3 p4 )_y @@ -962,7 +962,7 @@ C i1 ( h1 p3 )_yx + = 1 * Sum ( h5 p4 ) * x ( p4 h5 )_x * y ( h1 h5 p3 p4 )_ RETURN END SUBROUTINE OFFSET_eomccsd_1prdm_hh_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_1prdm_hh.F,v 1.1 2007-09-19 22:20:11 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 p3 )_yx @@ -1018,7 +1018,7 @@ C i1 ( h1 p3 )_yx END SUBROUTINE eomccsd_1prdm_hh_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_hh.F,v 1.1 2007-09-19 22:20:11 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yx + = -1/2 * Sum ( h5 p3 p4 ) * x ( p3 p4 h1 h5 )_x * y ( h2 h5 p3 p4 )_y diff --git a/src/tce/eomccsd/eomccsd_1prdm_hp.F b/src/tce/eomccsd/eomccsd_1prdm_hp.F index f3703abead..8fd115b56e 100644 --- a/src/tce/eomccsd/eomccsd_1prdm_hp.F +++ b/src/tce/eomccsd/eomccsd_1prdm_hp.F @@ -1,6 +1,6 @@ SUBROUTINE eomccsd_1prdm_hp(d_i0,d_x0,d_x1,d_y1,d_y2,k_i0_offset,k &_x0_offset,k_x1_offset,k_y1_offset,k_y2_offset) -C $Id: eomccsd_1prdm_hp.F,v 1.1 2007-09-19 22:20:37 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yx + = 1 * x ( )_x * y ( h2 p1 )_y @@ -29,7 +29,7 @@ C i0 ( h2 p1 )_yx + = 1 * Sum ( h4 p3 ) * x ( p3 h4 )_x * y ( h2 h4 p1 p3 )_ END SUBROUTINE eomccsd_1prdm_hp_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_hp.F,v 1.1 2007-09-19 22:20:37 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yx + = 1 * x ( )_x * y ( h2 p1 )_y @@ -146,7 +146,7 @@ C i0 ( h2 p1 )_yx + = 1 * x ( )_x * y ( h2 p1 )_y END SUBROUTINE eomccsd_1prdm_hp_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_hp.F,v 1.1 2007-09-19 22:20:37 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yx + = 1 * Sum ( h4 p3 ) * x ( p3 h4 )_x * y ( h2 h4 p1 p3 )_y diff --git a/src/tce/eomccsd/eomccsd_1prdm_ph.F b/src/tce/eomccsd/eomccsd_1prdm_ph.F index 0592fff949..f503d99a3b 100644 --- a/src/tce/eomccsd/eomccsd_1prdm_ph.F +++ b/src/tce/eomccsd/eomccsd_1prdm_ph.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_1prdm_ph(d_i0,d_t1,d_t2,d_x0,d_x1,d_x2,d_y1,d_y &2,k_i0_offset,k_t1_offset,k_t2_offset,k_x0_offset,k_x1_offset,k_x2 &_offset,k_y1_offset,k_y2_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yxt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * i1 ( h4 p3 )_yx @@ -187,7 +187,7 @@ C i1 ( h5 h6 h1 p4 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h5 h6 END SUBROUTINE eomccsd_1prdm_ph_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yxt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * i1 ( h4 p3 )_yx @@ -349,7 +349,7 @@ C i0 ( p2 h1 )_yxt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * i1 ( h4 p3 END SUBROUTINE eomccsd_1prdm_ph_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p3 )_yx + = 1 * x ( )_x * y ( h4 p3 )_y @@ -465,7 +465,7 @@ C i1 ( h4 p3 )_yx + = 1 * x ( )_x * y ( h4 p3 )_y RETURN END SUBROUTINE OFFSET_eomccsd_1prdm_ph_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p3 )_yx @@ -521,7 +521,7 @@ C i1 ( h4 p3 )_yx END SUBROUTINE eomccsd_1prdm_ph_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p3 )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h4 h6 p3 p5 )_y @@ -682,7 +682,7 @@ C i1 ( h4 p3 )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h4 h6 p3 p5 )_ END SUBROUTINE eomccsd_1prdm_ph_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_ytxt + = -1 * Sum ( h8 ) * t ( p2 h8 )_t * i1 ( h8 h1 )_ytx @@ -810,7 +810,7 @@ C i0 ( p2 h1 )_ytxt + = -1 * Sum ( h8 ) * t ( p2 h8 )_t * i1 ( h8 h1 )_ytx END SUBROUTINE eomccsd_1prdm_ph_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_ytx + = 1 * x ( )_x * i2 ( h8 h1 )_yt @@ -926,7 +926,7 @@ C i1 ( h8 h1 )_ytx + = 1 * x ( )_x * i2 ( h8 h1 )_yt RETURN END SUBROUTINE OFFSET_eomccsd_1prdm_ph_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_ytx @@ -982,7 +982,7 @@ C i1 ( h8 h1 )_ytx END SUBROUTINE eomccsd_1prdm_ph_2_1_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h8 p3 )_y @@ -1110,7 +1110,7 @@ C i2 ( h8 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h8 p3 )_y END SUBROUTINE OFFSET_eomccsd_1prdm_ph_2_1_1(l_a_offset,k_a_offset,siz &e) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h1 )_yt @@ -1166,7 +1166,7 @@ C i2 ( h8 h1 )_yt END SUBROUTINE eomccsd_1prdm_ph_2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h5 h8 p3 p4 )_y @@ -1342,7 +1342,7 @@ C i2 ( h8 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h5 END SUBROUTINE eomccsd_1prdm_ph_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_yx + = 1 * Sum ( p4 ) * x ( p4 h1 )_x * y ( h8 p4 )_y @@ -1470,7 +1470,7 @@ C i1 ( h8 h1 )_yx + = 1 * Sum ( p4 ) * x ( p4 h1 )_x * y ( h8 p4 )_y END SUBROUTINE eomccsd_1prdm_ph_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_yxt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i2 ( h8 p3 )_yx @@ -1598,7 +1598,7 @@ C i1 ( h8 h1 )_yxt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i2 ( h8 p3 )_yx END SUBROUTINE eomccsd_1prdm_ph_2_3_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_yx + = -1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h6 h8 p3 p5 )_y @@ -1759,7 +1759,7 @@ C i2 ( h8 p3 )_yx + = -1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h6 h8 p3 p5 ) END SUBROUTINE OFFSET_eomccsd_1prdm_ph_2_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_yx @@ -1815,7 +1815,7 @@ C i2 ( h8 p3 )_yx END SUBROUTINE eomccsd_1prdm_ph_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_yx + = -1/2 * Sum ( h6 p4 p5 ) * x ( p4 p5 h1 h6 )_x * y ( h6 h8 p4 p5 )_y @@ -1991,7 +1991,7 @@ C i1 ( h8 h1 )_yx + = -1/2 * Sum ( h6 p4 p5 ) * x ( p4 p5 h1 h6 )_x * y ( h6 END SUBROUTINE eomccsd_1prdm_ph_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yttx + = 1/2 * x ( )_x * i1 ( p2 h1 )_ytt @@ -2108,7 +2108,7 @@ C i0 ( p2 h1 )_yttx + = 1/2 * x ( )_x * i1 ( p2 h1 )_ytt END SUBROUTINE eomccsd_1prdm_ph_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 h1 )_ytt + = -1 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i2 ( h4 h5 h1 p3 )_yt @@ -2273,7 +2273,7 @@ C i1 ( p2 h1 )_ytt + = -1 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i2 ( h4 RETURN END SUBROUTINE OFFSET_eomccsd_1prdm_ph_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 h1 )_ytt @@ -2329,7 +2329,7 @@ C i1 ( p2 h1 )_ytt END SUBROUTINE eomccsd_1prdm_ph_3_1_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h1 p3 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h4 h5 p3 p6 )_y @@ -2483,7 +2483,7 @@ C i2 ( h4 h5 h1 p3 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h4 h5 p3 p END SUBROUTINE OFFSET_eomccsd_1prdm_ph_3_1_1(l_a_offset,k_a_offset,siz &e) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h1 p3 )_yt @@ -2555,7 +2555,7 @@ C i2 ( h4 h5 h1 p3 )_yt END SUBROUTINE eomccsd_1prdm_ph_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_ytx + = -1 * Sum ( h7 ) * x ( p2 h7 )_x * i1 ( h7 h1 )_yt @@ -2683,7 +2683,7 @@ C i0 ( p2 h1 )_ytx + = -1 * Sum ( h7 ) * x ( p2 h7 )_x * i1 ( h7 h1 )_yt END SUBROUTINE eomccsd_1prdm_ph_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h7 p3 )_y @@ -2810,7 +2810,7 @@ C i1 ( h7 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h7 p3 )_y RETURN END SUBROUTINE OFFSET_eomccsd_1prdm_ph_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_yt @@ -2866,7 +2866,7 @@ C i1 ( h7 h1 )_yt END SUBROUTINE eomccsd_1prdm_ph_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h5 h7 p3 p4 )_y @@ -3042,7 +3042,7 @@ C i1 ( h7 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h5 END SUBROUTINE eomccsd_1prdm_ph_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yxt + = 1 * t ( p2 h1 )_t * i1 ( )_yx @@ -3162,7 +3162,7 @@ C i0 ( p2 h1 )_yxt + = 1 * t ( p2 h1 )_t * i1 ( )_yx END SUBROUTINE eomccsd_1prdm_ph_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yx + = 1 * Sum ( h4 p3 ) * x ( p3 h4 )_x * y ( h4 p3 )_y @@ -3278,7 +3278,7 @@ C i1 ( )_yx + = 1 * Sum ( h4 p3 ) * x ( p3 h4 )_x * y ( h4 p3 )_y RETURN END SUBROUTINE OFFSET_eomccsd_1prdm_ph_5_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yx @@ -3312,7 +3312,7 @@ C i1 ( )_yx END SUBROUTINE eomccsd_1prdm_ph_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yx + = 1/4 * Sum ( h5 h6 p3 p4 ) * x ( p3 p4 h5 h6 )_x * y ( h5 h6 p3 p4 )_y @@ -3468,7 +3468,7 @@ C i1 ( )_yx + = 1/4 * Sum ( h5 h6 p3 p4 ) * x ( p3 p4 h5 h6 )_x * y ( h5 h6 END SUBROUTINE eomccsd_1prdm_ph_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yx + = 1 * Sum ( h4 p3 ) * x ( p2 p3 h1 h4 )_x * y ( h4 p3 )_y @@ -3630,7 +3630,7 @@ C i0 ( p2 h1 )_yx + = 1 * Sum ( h4 p3 ) * x ( p2 p3 h1 h4 )_x * y ( h4 p3 )_ END SUBROUTINE eomccsd_1prdm_ph_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yxt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( h4 h5 h1 p3 )_yx @@ -3796,7 +3796,7 @@ C i0 ( p2 h1 )_yxt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( END SUBROUTINE eomccsd_1prdm_ph_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_yx + = -1 * Sum ( p6 ) * x ( p6 h1 )_x * y ( h4 h5 p3 p6 )_y @@ -3949,7 +3949,7 @@ C i1 ( h4 h5 h1 p3 )_yx + = -1 * Sum ( p6 ) * x ( p6 h1 )_x * y ( h4 h5 p3 p RETURN END SUBROUTINE OFFSET_eomccsd_1prdm_ph_7_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_yx @@ -4021,7 +4021,7 @@ C i1 ( h4 h5 h1 p3 )_yx END SUBROUTINE eomccsd_1prdm_ph_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_ytx + = 1/2 * Sum ( h5 h6 p4 ) * x ( p2 p4 h5 h6 )_x * i1 ( h5 h6 h1 p4 )_yt @@ -4187,7 +4187,7 @@ C i0 ( p2 h1 )_ytx + = 1/2 * Sum ( h5 h6 p4 ) * x ( p2 p4 h5 h6 )_x * i1 ( h END SUBROUTINE eomccsd_1prdm_ph_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 p4 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h5 h6 p3 p4 )_y @@ -4340,7 +4340,7 @@ C i1 ( h5 h6 h1 p4 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h5 h6 p3 p RETURN END SUBROUTINE OFFSET_eomccsd_1prdm_ph_8_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 p4 )_yt diff --git a/src/tce/eomccsd/eomccsd_1prdm_pp.F b/src/tce/eomccsd/eomccsd_1prdm_pp.F index 6898d921bc..5211030dc2 100644 --- a/src/tce/eomccsd/eomccsd_1prdm_pp.F +++ b/src/tce/eomccsd/eomccsd_1prdm_pp.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_1prdm_pp(d_i0,d_t1,d_t2,d_x0,d_x1,d_x2,d_y1,d_y &2,k_i0_offset,k_t1_offset,k_t2_offset,k_x0_offset,k_x1_offset,k_x2 &_offset,k_y1_offset,k_y2_offset) -C $Id: eomccsd_1prdm_pp.F,v 1.1 2007-09-19 22:21:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yxt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * i1 ( h3 p2 )_yx @@ -70,7 +70,7 @@ C i0 ( p1 p2 )_yx + = 1/2 * Sum ( h4 h5 p3 ) * x ( p1 p3 h4 h5 )_x * y ( h4 END SUBROUTINE eomccsd_1prdm_pp_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_pp.F,v 1.1 2007-09-19 22:21:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yxt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * i1 ( h3 p2 )_yx @@ -198,7 +198,7 @@ C i0 ( p1 p2 )_yxt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * i1 ( h3 p2 )_yx END SUBROUTINE eomccsd_1prdm_pp_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_pp.F,v 1.1 2007-09-19 22:21:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_yx + = 1 * x ( )_x * y ( h3 p1 )_y @@ -314,7 +314,7 @@ C i1 ( h3 p1 )_yx + = 1 * x ( )_x * y ( h3 p1 )_y RETURN END SUBROUTINE OFFSET_eomccsd_1prdm_pp_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_1prdm_pp.F,v 1.1 2007-09-19 22:21:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_yx @@ -370,7 +370,7 @@ C i1 ( h3 p1 )_yx END SUBROUTINE eomccsd_1prdm_pp_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_pp.F,v 1.1 2007-09-19 22:21:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_yx + = 1 * Sum ( h5 p4 ) * x ( p4 h5 )_x * y ( h3 h5 p1 p4 )_y @@ -531,7 +531,7 @@ C i1 ( h3 p1 )_yx + = 1 * Sum ( h5 p4 ) * x ( p4 h5 )_x * y ( h3 h5 p1 p4 )_ END SUBROUTINE eomccsd_1prdm_pp_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_pp.F,v 1.1 2007-09-19 22:21:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_ytx + = 1/2 * x ( )_x * i1 ( p1 p2 )_yt @@ -648,7 +648,7 @@ C i0 ( p1 p2 )_ytx + = 1/2 * x ( )_x * i1 ( p1 p2 )_yt END SUBROUTINE eomccsd_1prdm_pp_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_pp.F,v 1.1 2007-09-19 22:21:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p2 )_yt + = 1 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * y ( h4 h5 p2 p3 )_y @@ -823,7 +823,7 @@ C i1 ( p1 p2 )_yt + = 1 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * y ( h4 h5 RETURN END SUBROUTINE OFFSET_eomccsd_1prdm_pp_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_1prdm_pp.F,v 1.1 2007-09-19 22:21:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p2 )_yt @@ -879,7 +879,7 @@ C i1 ( p1 p2 )_yt END SUBROUTINE eomccsd_1prdm_pp_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_pp.F,v 1.1 2007-09-19 22:21:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yx + = 1 * Sum ( h3 ) * x ( p1 h3 )_x * y ( h3 p2 )_y @@ -1007,7 +1007,7 @@ C i0 ( p1 p2 )_yx + = 1 * Sum ( h3 ) * x ( p1 h3 )_x * y ( h3 p2 )_y END SUBROUTINE eomccsd_1prdm_pp_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_pp.F,v 1.1 2007-09-19 22:21:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yx + = 1/2 * Sum ( h4 h5 p3 ) * x ( p1 p3 h4 h5 )_x * y ( h4 h5 p2 p3 )_y diff --git a/src/tce/eomccsd/eomccsd_denominator.F b/src/tce/eomccsd/eomccsd_denominator.F index 6c6c7d6787..898ece7d06 100644 --- a/src/tce/eomccsd/eomccsd_denominator.F +++ b/src/tce/eomccsd/eomccsd_denominator.F @@ -1,6 +1,6 @@ SUBROUTINE eomccsd_denominator(d_i0,d_x1,d_x2,d_y1,d_y2,k_i0_offse &t,k_x1_offset,k_x2_offset,k_y1_offset,k_y2_offset) -C $Id: eomccsd_denominator.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yx + = 1 * Sum ( h2 p1 ) * x ( p1 h2 )_x * y ( h2 p1 )_y @@ -29,7 +29,7 @@ C i0 ( )_yx + = 1/4 * Sum ( h4 h3 p2 p1 ) * x ( p1 p2 h3 h4 )_x * y ( h3 h4 END SUBROUTINE eomccsd_denominator_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: eomccsd_denominator.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yx + = 1 * Sum ( h2 p1 ) * x ( p1 h2 )_x * y ( h2 p1 )_y @@ -146,7 +146,7 @@ C i0 ( )_yx + = 1 * Sum ( h2 p1 ) * x ( p1 h2 )_x * y ( h2 p1 )_y END SUBROUTINE eomccsd_denominator_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: eomccsd_denominator.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yx + = 1/4 * Sum ( h4 h3 p2 p1 ) * x ( p1 p2 h3 h4 )_x * y ( h3 h4 p1 p2 )_y diff --git a/src/tce/eomccsd/eomccsd_density1.F b/src/tce/eomccsd/eomccsd_density1.F index 7b5e343909..3a32a43dc6 100644 --- a/src/tce/eomccsd/eomccsd_density1.F +++ b/src/tce/eomccsd/eomccsd_density1.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_density1(d_d1,d_i0,d_t1,d_t2,d_x0,d_x1,d_x2,d_y &0,d_y1,d_y2,k_d1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_x0_o &ffset,k_x1_offset,k_x2_offset,k_y0_offset,k_y1_offset,k_y2_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yxd + = 1 * Sum ( h2 p1 ) * d ( p1 h2 )_d * i1 ( h2 p1 )_yx @@ -370,7 +370,7 @@ C i2 ( p2 p1 )_yt + = -1 * Sum ( h5 h4 p3 ) * t ( p2 p3 h4 h5 )_t * END SUBROUTINE eomccsd_density1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yxd + = 1 * Sum ( h2 p1 ) * d ( p1 h2 )_d * i1 ( h2 p1 )_yx @@ -487,7 +487,7 @@ C i0 ( )_yxd + = 1 * Sum ( h2 p1 ) * d ( p1 h2 )_d * i1 ( h2 p1 )_yx END SUBROUTINE eomccsd_density1_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p1 )_yx + = 1 * x ( )_x * y ( h2 p1 )_y @@ -603,7 +603,7 @@ C i1 ( h2 p1 )_yx + = 1 * x ( )_x * y ( h2 p1 )_y RETURN END SUBROUTINE OFFSET_eomccsd_density1_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p1 )_yx @@ -659,7 +659,7 @@ C i1 ( h2 p1 )_yx END SUBROUTINE eomccsd_density1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p1 )_yx + = 1 * Sum ( h4 p3 ) * x ( p3 h4 )_x * y ( h2 h4 p1 p3 )_y @@ -820,7 +820,7 @@ C i1 ( h2 p1 )_yx + = 1 * Sum ( h4 p3 ) * x ( p3 h4 )_x * y ( h2 h4 p1 p3 )_ END SUBROUTINE eomccsd_density1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_dxy + = 1 * y ( )_y * i1 ( )_dx @@ -918,7 +918,7 @@ C i0 ( )_dxy + = 1 * y ( )_y * i1 ( )_dx END SUBROUTINE eomccsd_density1_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_dx + = 1 * Sum ( h1 p2 ) * d ( h1 p2 )_d * x ( p2 h1 )_x @@ -1034,7 +1034,7 @@ C i1 ( )_dx + = 1 * Sum ( h1 p2 ) * d ( h1 p2 )_d * x ( p2 h1 )_x RETURN END SUBROUTINE OFFSET_eomccsd_density1_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_dx @@ -1068,7 +1068,7 @@ C i1 ( )_dx END SUBROUTINE eomccsd_density1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_dtx + = 1 * x ( )_x * i2 ( )_dt @@ -1166,7 +1166,7 @@ C i1 ( )_dtx + = 1 * x ( )_x * i2 ( )_dt END SUBROUTINE eomccsd_density1_2_2_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( )_dt + = 1 * Sum ( h1 p2 ) * d ( h1 p2 )_d * t ( p2 h1 )_t @@ -1283,7 +1283,7 @@ C i2 ( )_dt + = 1 * Sum ( h1 p2 ) * d ( h1 p2 )_d * t ( p2 h1 )_t END SUBROUTINE OFFSET_eomccsd_density1_2_2_1(l_a_offset,k_a_offset,siz &e) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( )_dt @@ -1317,7 +1317,7 @@ C i2 ( )_dt END SUBROUTINE eomccsd_density1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yxd + = -1 * Sum ( h2 h1 ) * d ( h1 h2 )_d * i1 ( h2 h1 )_yx @@ -1434,7 +1434,7 @@ C i0 ( )_yxd + = -1 * Sum ( h2 h1 ) * d ( h1 h2 )_d * i1 ( h2 h1 )_yx END SUBROUTINE eomccsd_density1_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yx + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * y ( h2 p3 )_y @@ -1561,7 +1561,7 @@ C i1 ( h2 h1 )_yx + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * y ( h2 p3 )_y RETURN END SUBROUTINE OFFSET_eomccsd_density1_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yx @@ -1617,7 +1617,7 @@ C i1 ( h2 h1 )_yx END SUBROUTINE eomccsd_density1_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yx + = 1/2 * Sum ( h5 p4 p3 ) * x ( p3 p4 h1 h5 )_x * y ( h2 h5 p3 p4 )_y @@ -1793,7 +1793,7 @@ C i1 ( h2 h1 )_yx + = 1/2 * Sum ( h5 p4 p3 ) * x ( p3 p4 h1 h5 )_x * y ( h2 END SUBROUTINE eomccsd_density1_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_ytx + = 1 * x ( )_x * i2 ( h2 h1 )_yt @@ -1910,7 +1910,7 @@ C i1 ( h2 h1 )_ytx + = 1 * x ( )_x * i2 ( h2 h1 )_yt END SUBROUTINE eomccsd_density1_3_3_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -2038,7 +2038,7 @@ C i2 ( h2 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y END SUBROUTINE OFFSET_eomccsd_density1_3_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h1 )_yt @@ -2094,7 +2094,7 @@ C i2 ( h2 h1 )_yt END SUBROUTINE eomccsd_density1_3_3_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h1 )_yt + = 1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h1 h5 )_t * y ( h2 h5 p3 p4 )_y @@ -2270,7 +2270,7 @@ C i2 ( h2 h1 )_yt + = 1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h1 h5 )_t * y ( h2 END SUBROUTINE eomccsd_density1_3_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yxt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i2 ( h2 p3 )_yx @@ -2398,7 +2398,7 @@ C i1 ( h2 h1 )_yxt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i2 ( h2 p3 )_yx END SUBROUTINE eomccsd_density1_3_4_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p3 )_yx + = 1 * Sum ( h5 p4 ) * x ( p4 h5 )_x * y ( h2 h5 p3 p4 )_y @@ -2559,7 +2559,7 @@ C i2 ( h2 p3 )_yx + = 1 * Sum ( h5 p4 ) * x ( p4 h5 )_x * y ( h2 h5 p3 p4 )_ END SUBROUTINE OFFSET_eomccsd_density1_3_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p3 )_yx @@ -2615,7 +2615,7 @@ C i2 ( h2 p3 )_yx END SUBROUTINE eomccsd_density1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_dxy + = 1 * Sum ( p1 h3 ) * y ( h3 p1 )_y * i1 ( p1 h3 )_dx @@ -2732,7 +2732,7 @@ C i0 ( )_dxy + = 1 * Sum ( p1 h3 ) * y ( h3 p1 )_y * i1 ( p1 h3 )_dx END SUBROUTINE eomccsd_density1_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 h3 )_dx + = 1 * Sum ( p2 ) * d ( p1 p2 )_d * x ( p2 h3 )_x @@ -2859,7 +2859,7 @@ C i1 ( p1 h3 )_dx + = 1 * Sum ( p2 ) * d ( p1 p2 )_d * x ( p2 h3 )_x RETURN END SUBROUTINE OFFSET_eomccsd_density1_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 h3 )_dx @@ -2915,7 +2915,7 @@ C i1 ( p1 h3 )_dx END SUBROUTINE eomccsd_density1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 h3 )_dtx + = 1 * x ( )_x * i2 ( p1 h3 )_dt @@ -3032,7 +3032,7 @@ C i1 ( p1 h3 )_dtx + = 1 * x ( )_x * i2 ( p1 h3 )_dt END SUBROUTINE eomccsd_density1_4_2_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p1 h3 )_dt + = 1 * Sum ( p2 ) * d ( p1 p2 )_d * t ( p2 h3 )_t @@ -3160,7 +3160,7 @@ C i2 ( p1 h3 )_dt + = 1 * Sum ( p2 ) * d ( p1 p2 )_d * t ( p2 h3 )_t END SUBROUTINE OFFSET_eomccsd_density1_4_2_1(l_a_offset,k_a_offset,siz &e) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p1 h3 )_dt @@ -3216,7 +3216,7 @@ C i2 ( p1 h3 )_dt END SUBROUTINE eomccsd_density1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yxd + = 1 * Sum ( p8 h7 ) * d ( h7 p8 )_d * i1 ( p8 h7 )_yx @@ -3333,7 +3333,7 @@ C i0 ( )_yxd + = 1 * Sum ( p8 h7 ) * d ( h7 p8 )_d * i1 ( p8 h7 )_yx END SUBROUTINE eomccsd_density1_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p8 h7 )_yx + = 1 * Sum ( h4 p3 ) * x ( p3 p8 h4 h7 )_x * y ( h4 p3 )_y @@ -3494,7 +3494,7 @@ C i1 ( p8 h7 )_yx + = 1 * Sum ( h4 p3 ) * x ( p3 p8 h4 h7 )_x * y ( h4 p3 )_ RETURN END SUBROUTINE OFFSET_eomccsd_density1_5_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p8 h7 )_yx @@ -3550,7 +3550,7 @@ C i1 ( p8 h7 )_yx END SUBROUTINE eomccsd_density1_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p8 h7 )_yxt + = -1 * Sum ( h1 ) * t ( p8 h1 )_t * i2 ( h1 h7 )_yx @@ -3678,7 +3678,7 @@ C i1 ( p8 h7 )_yxt + = -1 * Sum ( h1 ) * t ( p8 h1 )_t * i2 ( h1 h7 )_yx END SUBROUTINE eomccsd_density1_5_2_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h7 )_yx + = 1 * Sum ( p4 ) * x ( p4 h7 )_x * y ( h1 p4 )_y @@ -3806,7 +3806,7 @@ C i2 ( h1 h7 )_yx + = 1 * Sum ( p4 ) * x ( p4 h7 )_x * y ( h1 p4 )_y END SUBROUTINE OFFSET_eomccsd_density1_5_2_1(l_a_offset,k_a_offset,siz &e) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h7 )_yx @@ -3862,7 +3862,7 @@ C i2 ( h1 h7 )_yx END SUBROUTINE eomccsd_density1_5_2_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h7 )_yx + = -1/2 * Sum ( h6 p5 p4 ) * x ( p4 p5 h6 h7 )_x * y ( h1 h6 p4 p5 )_y @@ -4038,7 +4038,7 @@ C i2 ( h1 h7 )_yx + = -1/2 * Sum ( h6 p5 p4 ) * x ( p4 p5 h6 h7 )_x * y ( h1 END SUBROUTINE eomccsd_density1_5_2_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h7 )_ytx + = 1 * x ( )_x * i3 ( h1 h7 )_yt @@ -4155,7 +4155,7 @@ C i2 ( h1 h7 )_ytx + = 1 * x ( )_x * i3 ( h1 h7 )_yt END SUBROUTINE eomccsd_density1_5_2_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h1 h7 )_yt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * y ( h1 p3 )_y @@ -4283,7 +4283,7 @@ C i3 ( h1 h7 )_yt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * y ( h1 p3 )_y END SUBROUTINE OFFSET_eomccsd_density1_5_2_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h1 h7 )_yt @@ -4339,7 +4339,7 @@ C i3 ( h1 h7 )_yt END SUBROUTINE eomccsd_density1_5_2_3_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h1 h7 )_yt + = -1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h7 )_t * y ( h1 h5 p3 p4 )_y @@ -4515,7 +4515,7 @@ C i3 ( h1 h7 )_yt + = -1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h7 )_t * y ( h1 END SUBROUTINE eomccsd_density1_5_2_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h7 )_yxt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * i3 ( h1 p3 )_yx @@ -4643,7 +4643,7 @@ C i2 ( h1 h7 )_yxt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * i3 ( h1 p3 )_yx END SUBROUTINE eomccsd_density1_5_2_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h1 p3 )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h1 h6 p3 p5 )_y @@ -4804,7 +4804,7 @@ C i3 ( h1 p3 )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h1 h6 p3 p5 )_ END SUBROUTINE OFFSET_eomccsd_density1_5_2_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h1 p3 )_yx @@ -4860,7 +4860,7 @@ C i3 ( h1 p3 )_yx END SUBROUTINE eomccsd_density1_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p8 h7 )_ytx + = -1 * Sum ( h1 ) * x ( p8 h1 )_x * i2 ( h1 h7 )_yt @@ -4988,7 +4988,7 @@ C i1 ( p8 h7 )_ytx + = -1 * Sum ( h1 ) * x ( p8 h1 )_x * i2 ( h1 h7 )_yt END SUBROUTINE eomccsd_density1_5_3_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h7 )_yt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * y ( h1 p3 )_y @@ -5116,7 +5116,7 @@ C i2 ( h1 h7 )_yt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * y ( h1 p3 )_y END SUBROUTINE OFFSET_eomccsd_density1_5_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h7 )_yt @@ -5172,7 +5172,7 @@ C i2 ( h1 h7 )_yt END SUBROUTINE eomccsd_density1_5_3_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h7 )_yt + = -1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h7 )_t * y ( h1 h5 p3 p4 )_y @@ -5348,7 +5348,7 @@ C i2 ( h1 h7 )_yt + = -1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h7 )_t * y ( h1 END SUBROUTINE eomccsd_density1_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p8 h7 )_yxt + = 1 * t ( p8 h7 )_t * i2 ( )_yx @@ -5468,7 +5468,7 @@ C i1 ( p8 h7 )_yxt + = 1 * t ( p8 h7 )_t * i2 ( )_yx END SUBROUTINE eomccsd_density1_5_4_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( )_yx + = 1 * Sum ( h4 p3 ) * x ( p3 h4 )_x * y ( h4 p3 )_y @@ -5585,7 +5585,7 @@ C i2 ( )_yx + = 1 * Sum ( h4 p3 ) * x ( p3 h4 )_x * y ( h4 p3 )_y END SUBROUTINE OFFSET_eomccsd_density1_5_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( )_yx @@ -5619,7 +5619,7 @@ C i2 ( )_yx END SUBROUTINE eomccsd_density1_5_4_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( )_yx + = 1/4 * Sum ( h6 h5 p4 p3 ) * x ( p3 p4 h5 h6 )_x * y ( h5 h6 p3 p4 )_y @@ -5775,7 +5775,7 @@ C i2 ( )_yx + = 1/4 * Sum ( h6 h5 p4 p3 ) * x ( p3 p4 h5 h6 )_x * y ( h5 h6 END SUBROUTINE eomccsd_density1_5_5(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p8 h7 )_ytx + = 1/2 * Sum ( h5 h6 p4 ) * x ( p4 p8 h5 h6 )_x * i2 ( h5 h6 h7 p4 )_yt @@ -5943,7 +5943,7 @@ C i1 ( p8 h7 )_ytx + = 1/2 * Sum ( h5 h6 p4 ) * x ( p4 p8 h5 h6 )_x * i2 ( h END SUBROUTINE eomccsd_density1_5_5_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h7 p4 )_yt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * y ( h5 h6 p3 p4 )_y @@ -6097,7 +6097,7 @@ C i2 ( h5 h6 h7 p4 )_yt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * y ( h5 h6 p3 p4 END SUBROUTINE OFFSET_eomccsd_density1_5_5_1(l_a_offset,k_a_offset,siz &e) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h7 p4 )_yt @@ -6169,7 +6169,7 @@ C i2 ( h5 h6 h7 p4 )_yt END SUBROUTINE eomccsd_density1_5_6(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p8 h7 )_yxt + = 1 * Sum ( h4 p3 ) * t ( p3 p8 h4 h7 )_t * i2 ( h4 p3 )_yx @@ -6331,7 +6331,7 @@ C i1 ( p8 h7 )_yxt + = 1 * Sum ( h4 p3 ) * t ( p3 p8 h4 h7 )_t * i2 ( h4 p3 END SUBROUTINE eomccsd_density1_5_6_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p3 )_yx + = 1 * x ( )_x * y ( h4 p3 )_y @@ -6448,7 +6448,7 @@ C i2 ( h4 p3 )_yx + = 1 * x ( )_x * y ( h4 p3 )_y END SUBROUTINE OFFSET_eomccsd_density1_5_6_1(l_a_offset,k_a_offset,siz &e) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p3 )_yx @@ -6504,7 +6504,7 @@ C i2 ( h4 p3 )_yx END SUBROUTINE eomccsd_density1_5_6_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p3 )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h4 h6 p3 p5 )_y @@ -6665,7 +6665,7 @@ C i2 ( h4 p3 )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h4 h6 p3 p5 )_ END SUBROUTINE eomccsd_density1_5_7(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p8 h7 )_yxt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p3 p8 h4 h5 )_t * i2 ( h4 h5 h7 p3 )_yx @@ -6833,7 +6833,7 @@ C i1 ( p8 h7 )_yxt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p3 p8 h4 h5 )_t * i2 ( END SUBROUTINE eomccsd_density1_5_7_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h7 p3 )_yx + = 1 * Sum ( p6 ) * x ( p6 h7 )_x * y ( h4 h5 p3 p6 )_y @@ -6987,7 +6987,7 @@ C i2 ( h4 h5 h7 p3 )_yx + = 1 * Sum ( p6 ) * x ( p6 h7 )_x * y ( h4 h5 p3 p6 END SUBROUTINE OFFSET_eomccsd_density1_5_7_1(l_a_offset,k_a_offset,siz &e) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h7 p3 )_yx @@ -7059,7 +7059,7 @@ C i2 ( h4 h5 h7 p3 )_yx END SUBROUTINE eomccsd_density1_5_8(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p8 h7 )_yttx + = -1/2 * x ( )_x * i2 ( p8 h7 )_ytt @@ -7176,7 +7176,7 @@ C i1 ( p8 h7 )_yttx + = -1/2 * x ( )_x * i2 ( p8 h7 )_ytt END SUBROUTINE eomccsd_density1_5_8_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p8 h7 )_ytt + = 1 * Sum ( h4 h5 p3 ) * t ( p3 p8 h4 h5 )_t * i3 ( h4 h5 h7 p3 )_yt @@ -7344,7 +7344,7 @@ C i2 ( p8 h7 )_ytt + = 1 * Sum ( h4 h5 p3 ) * t ( p3 p8 h4 h5 )_t * i3 ( h4 END SUBROUTINE OFFSET_eomccsd_density1_5_8_1(l_a_offset,k_a_offset,siz &e) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p8 h7 )_ytt @@ -7400,7 +7400,7 @@ C i2 ( p8 h7 )_ytt END SUBROUTINE eomccsd_density1_5_8_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h5 h7 p3 )_yt + = 1 * Sum ( p6 ) * t ( p6 h7 )_t * y ( h4 h5 p3 p6 )_y @@ -7554,7 +7554,7 @@ C i3 ( h4 h5 h7 p3 )_yt + = 1 * Sum ( p6 ) * t ( p6 h7 )_t * y ( h4 h5 p3 p6 END SUBROUTINE OFFSET_eomccsd_density1_5_8_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h5 h7 p3 )_yt @@ -7626,7 +7626,7 @@ C i3 ( h4 h5 h7 p3 )_yt END SUBROUTINE eomccsd_density1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yxd + = -1/2 * Sum ( p2 p1 ) * d ( p1 p2 )_d * i1 ( p2 p1 )_yx @@ -7743,7 +7743,7 @@ C i0 ( )_yxd + = -1/2 * Sum ( p2 p1 ) * d ( p1 p2 )_d * i1 ( p2 p1 )_yx END SUBROUTINE eomccsd_density1_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p1 )_yx + = -1 * Sum ( h5 h4 p3 ) * x ( p2 p3 h4 h5 )_x * y ( h4 h5 p1 p3 )_y @@ -7918,7 +7918,7 @@ C i1 ( p2 p1 )_yx + = -1 * Sum ( h5 h4 p3 ) * x ( p2 p3 h4 h5 )_x * y ( h4 h RETURN END SUBROUTINE OFFSET_eomccsd_density1_6_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p1 )_yx @@ -7974,7 +7974,7 @@ C i1 ( p2 p1 )_yx END SUBROUTINE eomccsd_density1_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p1 )_yxt + = -2 * Sum ( h3 ) * t ( p2 h3 )_t * i2 ( h3 p1 )_yx @@ -8102,7 +8102,7 @@ C i1 ( p2 p1 )_yxt + = -2 * Sum ( h3 ) * t ( p2 h3 )_t * i2 ( h3 p1 )_yx END SUBROUTINE eomccsd_density1_6_2_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p1 )_yx + = 1 * Sum ( h5 p4 ) * x ( p4 h5 )_x * y ( h3 h5 p1 p4 )_y @@ -8263,7 +8263,7 @@ C i2 ( h3 p1 )_yx + = 1 * Sum ( h5 p4 ) * x ( p4 h5 )_x * y ( h3 h5 p1 p4 )_ END SUBROUTINE OFFSET_eomccsd_density1_6_2_1(l_a_offset,k_a_offset,siz &e) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p1 )_yx @@ -8319,7 +8319,7 @@ C i2 ( h3 p1 )_yx END SUBROUTINE eomccsd_density1_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p1 )_ytx + = 1 * x ( )_x * i2 ( p2 p1 )_yt @@ -8436,7 +8436,7 @@ C i1 ( p2 p1 )_ytx + = 1 * x ( )_x * i2 ( p2 p1 )_yt END SUBROUTINE eomccsd_density1_6_3_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p2 p1 )_yt + = -1 * Sum ( h5 h4 p3 ) * t ( p2 p3 h4 h5 )_t * y ( h4 h5 p1 p3 )_y @@ -8612,7 +8612,7 @@ C i2 ( p2 p1 )_yt + = -1 * Sum ( h5 h4 p3 ) * t ( p2 p3 h4 h5 )_t * y ( h4 h END SUBROUTINE OFFSET_eomccsd_density1_6_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p2 p1 )_yt diff --git a/src/tce/eomccsd/eomccsd_x1.F b/src/tce/eomccsd/eomccsd_x1.F index 08361ac815..c2e7f8aaf5 100644 --- a/src/tce/eomccsd/eomccsd_x1.F +++ b/src/tce/eomccsd/eomccsd_x1.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_x1(d_f1,d_i0,d_t1,d_t2,d_v2,d_x1,d_x2,k_f1_offs &et,k_i0_offset,k_t1_offset,k_t2_offset,k_v2_offset,k_x1_offset,k_x &2_offset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = -1 * Sum ( h6 ) * x ( p2 h6 )_x * i1 ( h6 h1 )_f @@ -214,7 +214,7 @@ c & ister,rec_s_1,rec_s_2,rec_s_3,rec_s_4,rec_s_5, & rec_d_1,rec_d_2,rec_d_3,rec_d_4,rec_d_5, & rec_d_6,rec_d_7,rec_d_8,rec_d_9) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = -1 * Sum ( h6 ) * x ( p2 h6 )_x * i1 ( h6 h1 )_f @@ -459,7 +459,7 @@ c c SUBROUTINE eomccsd_x1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = -1 * Sum ( h6 ) * x ( p2 h6 )_x * i1 ( h6 h1 )_f @@ -584,7 +584,7 @@ C i0 ( p2 h1 )_xf + = -1 * Sum ( h6 ) * x ( p2 h6 )_x * i1 ( h6 h1 )_f RETURN END SUBROUTINE eomccsd_x1_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_f + = 1 * f ( h6 h1 )_f @@ -668,7 +668,7 @@ C i1 ( h6 h1 )_f + = 1 * f ( h6 h1 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x1_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_f @@ -724,7 +724,7 @@ C i1 ( h6 h1 )_f END SUBROUTINE eomccsd_x1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_ft + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h6 p7 )_f @@ -852,7 +852,7 @@ C i1 ( h6 h1 )_ft + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h6 p7 )_f RETURN END SUBROUTINE eomccsd_x1_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f @@ -936,7 +936,7 @@ C i2 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x1_1_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_f @@ -992,7 +992,7 @@ C i2 ( h6 p7 )_f END SUBROUTINE eomccsd_x1_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_vt + = 1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h6 p4 p7 )_v @@ -1182,7 +1182,7 @@ C i2 ( h6 p7 )_vt + = 1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h6 p4 p7 )_ END SUBROUTINE eomccsd_x1_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 h1 p3 )_v @@ -1342,7 +1342,7 @@ C i1 ( h6 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 h1 p3 ) END SUBROUTINE eomccsd_x1_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 h6 p3 p4 )_v @@ -1532,7 +1532,7 @@ C i1 ( h6 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 END SUBROUTINE eomccsd_x1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * i1 ( p2 p6 )_f @@ -1657,7 +1657,7 @@ C i0 ( p2 h1 )_xf + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * i1 ( p2 p6 )_f RETURN END SUBROUTINE eomccsd_x1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p6 )_f + = 1 * f ( p2 p6 )_f @@ -1741,7 +1741,7 @@ C i1 ( p2 p6 )_f + = 1 * f ( p2 p6 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x1_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p6 )_f @@ -1797,7 +1797,7 @@ C i1 ( p2 p6 )_f END SUBROUTINE eomccsd_x1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p6 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 p3 p6 )_v @@ -1957,7 +1957,7 @@ C i1 ( p2 p6 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 p3 p6 )_ END SUBROUTINE eomccsd_x1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xv + = -1 * Sum ( p4 h3 ) * x ( p4 h3 )_x * v ( h3 p2 h1 p4 )_v @@ -2099,7 +2099,7 @@ C i0 ( p2 h1 )_xv + = -1 * Sum ( p4 h3 ) * x ( p4 h3 )_x * v ( h3 p2 h1 p4 ) END SUBROUTINE eomccsd_x1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = 1 * Sum ( p7 h6 ) * x ( p2 p7 h1 h6 )_x * i1 ( h6 p7 )_f @@ -2257,7 +2257,7 @@ C i0 ( p2 h1 )_xf + = 1 * Sum ( p7 h6 ) * x ( p2 p7 h1 h6 )_x * i1 ( h6 p7 ) RETURN END SUBROUTINE eomccsd_x1_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f @@ -2341,7 +2341,7 @@ C i1 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x1_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p7 )_f @@ -2397,7 +2397,7 @@ C i1 ( h6 p7 )_f END SUBROUTINE eomccsd_x1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 p3 p7 )_v @@ -2587,7 +2587,7 @@ C i1 ( h6 p7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 p3 p7 )_ END SUBROUTINE eomccsd_x1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p7 h6 h8 ) * x ( p2 p7 h6 h8 )_x * i1 ( h6 h8 h1 p7 )_v @@ -2749,7 +2749,7 @@ C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p7 h6 h8 ) * x ( p2 p7 h6 h8 )_x * i1 ( h RETURN END SUBROUTINE eomccsd_x1_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 h1 p7 )_v + = 1 * v ( h6 h8 h1 p7 )_v @@ -2857,7 +2857,7 @@ C i1 ( h6 h8 h1 p7 )_v + = 1 * v ( h6 h8 h1 p7 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x1_5_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 h1 p7 )_v @@ -2927,7 +2927,7 @@ C i1 ( h6 h8 h1 p7 )_v END SUBROUTINE eomccsd_x1_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 h1 p7 )_vt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * v ( h6 h8 p3 p7 )_v @@ -3096,7 +3096,7 @@ C i1 ( h6 h8 h1 p7 )_vt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * v ( h6 h8 p3 p7 END SUBROUTINE eomccsd_x1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p4 p5 h3 ) * x ( p4 p5 h1 h3 )_x * v ( h3 p2 p4 p5 )_v @@ -3268,7 +3268,7 @@ C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p4 p5 h3 ) * x ( p4 p5 h1 h3 )_x * v ( h3 END SUBROUTINE eomccsd_x1_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_fxt + = -1 * Sum ( h8 ) * t ( p2 h8 )_t * i1 ( h8 h1 )_fx @@ -3394,7 +3394,7 @@ C i0 ( p2 h1 )_fxt + = -1 * Sum ( h8 ) * t ( p2 h8 )_t * i1 ( h8 h1 )_fx END SUBROUTINE eomccsd_x1_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_fx + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * i2 ( h8 p3 )_f @@ -3522,7 +3522,7 @@ C i1 ( h8 h1 )_fx + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * i2 ( h8 p3 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x1_7_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_fx @@ -3577,7 +3577,7 @@ C i1 ( h8 h1 )_fx RETURN END SUBROUTINE eomccsd_x1_7_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_f + = 1 * f ( h8 p3 )_f @@ -3661,7 +3661,7 @@ C i2 ( h8 p3 )_f + = 1 * f ( h8 p3 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x1_7_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_f @@ -3717,7 +3717,7 @@ C i2 ( h8 p3 )_f END SUBROUTINE eomccsd_x1_7_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_vt + = -1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h8 p3 p4 )_v @@ -3907,7 +3907,7 @@ C i2 ( h8 p3 )_vt + = -1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h8 p3 p4 ) END SUBROUTINE eomccsd_x1_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vx + = -1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 h8 h1 p5 )_v @@ -4067,7 +4067,7 @@ C i1 ( h8 h1 )_vx + = -1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 h8 h1 p5 ) END SUBROUTINE eomccsd_x1_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vx + = -1/2 * Sum ( h4 p5 p6 ) * x ( p5 p6 h1 h4 )_x * v ( h4 h8 p5 p6 )_v @@ -4257,7 +4257,7 @@ C i1 ( h8 h1 )_vx + = -1/2 * Sum ( h4 p5 p6 ) * x ( p5 p6 h1 h4 )_x * v ( h4 END SUBROUTINE eomccsd_x1_7_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vxt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i2 ( h8 p3 )_vx @@ -4386,7 +4386,7 @@ C i1 ( h8 h1 )_vxt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i2 ( h8 p3 )_vx END SUBROUTINE eomccsd_x1_7_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_vx + = -1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h5 h8 p3 p6 )_v @@ -4575,7 +4575,7 @@ C i2 ( h8 p3 )_vx + = -1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h5 h8 p3 p6 ) RETURN END SUBROUTINE OFFSET_eomccsd_x1_7_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_vx @@ -4631,7 +4631,7 @@ C i2 ( h8 p3 )_vx END SUBROUTINE eomccsd_x1_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vxt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * i1 ( p2 p3 )_vx @@ -4757,7 +4757,7 @@ C i0 ( p2 h1 )_vxt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * i1 ( p2 p3 )_vx END SUBROUTINE eomccsd_x1_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p3 )_vx + = 1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 p2 p3 p5 )_v @@ -4916,7 +4916,7 @@ C i1 ( p2 p3 )_vx + = 1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 p2 p3 p5 )_ RETURN END SUBROUTINE OFFSET_eomccsd_x1_8_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p3 )_vx @@ -4972,7 +4972,7 @@ C i1 ( p2 p3 )_vx END SUBROUTINE eomccsd_x1_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vxt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * i1 ( h4 p3 )_vx @@ -5131,7 +5131,7 @@ C i0 ( p2 h1 )_vxt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * i1 ( h4 p3 END SUBROUTINE eomccsd_x1_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p3 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h4 h5 p3 p6 )_v @@ -5320,7 +5320,7 @@ C i1 ( h4 p3 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h4 h5 p3 p6 )_ RETURN END SUBROUTINE OFFSET_eomccsd_x1_9_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p3 )_vx @@ -5376,7 +5376,7 @@ C i1 ( h4 p3 )_vx END SUBROUTINE eomccsd_x1_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vxt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( h4 h5 h1 p3 )_vx @@ -5540,7 +5540,7 @@ C i0 ( p2 h1 )_vxt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( h END SUBROUTINE eomccsd_x1_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( h4 h5 p3 p6 )_v @@ -5708,7 +5708,7 @@ C i1 ( h4 h5 h1 p3 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( h4 h5 p3 p6 RETURN END SUBROUTINE OFFSET_eomccsd_x1_10_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_vx diff --git a/src/tce/eomccsd/eomccsd_x1_old.F b/src/tce/eomccsd/eomccsd_x1_old.F index 4f94b2d77c..0c3d699515 100644 --- a/src/tce/eomccsd/eomccsd_x1_old.F +++ b/src/tce/eomccsd/eomccsd_x1_old.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_x1_old(d_f1,d_i0,d_t1,d_t2,d_v2,d_x1,d_x2, 1 k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset, 2 k_v2_offset,k_x1_offset,k_x2_offset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = -1 * Sum ( h6 ) * x ( p2 h6 )_x * i1 ( h6 h1 )_f @@ -204,7 +204,7 @@ C i1 ( h4 h5 h1 p3 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( h4 h5 p END SUBROUTINE oldccsd_x1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = -1 * Sum ( h6 ) * x ( p2 h6 )_x * i1 ( h6 h1 )_f @@ -328,7 +328,7 @@ C i0 ( p2 h1 )_xf + = -1 * Sum ( h6 ) * x ( p2 h6 )_x * i1 ( h6 h1 )_f RETURN END SUBROUTINE oldccsd_x1_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_f + = 1 * f ( h6 h1 )_f @@ -412,7 +412,7 @@ C i1 ( h6 h1 )_f + = 1 * f ( h6 h1 )_f RETURN END SUBROUTINE OFFSET_oldccsd_x1_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_f @@ -468,7 +468,7 @@ C i1 ( h6 h1 )_f END SUBROUTINE oldccsd_x1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_ft + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h6 p7 )_f @@ -595,7 +595,7 @@ C i1 ( h6 h1 )_ft + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h6 p7 )_f RETURN END SUBROUTINE oldccsd_x1_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f @@ -679,7 +679,7 @@ C i2 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f RETURN END SUBROUTINE OFFSET_oldccsd_x1_1_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_f @@ -735,7 +735,7 @@ C i2 ( h6 p7 )_f END SUBROUTINE oldccsd_x1_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_vt + = 1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h6 p4 p7 )_v @@ -924,7 +924,7 @@ C i2 ( h6 p7 )_vt + = 1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h6 p4 p7 )_ END SUBROUTINE oldccsd_x1_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 h1 p3 )_v @@ -1083,7 +1083,7 @@ C i1 ( h6 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 h1 p3 ) END SUBROUTINE oldccsd_x1_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 h6 p3 p4 )_v @@ -1273,7 +1273,7 @@ C i1 ( h6 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 END SUBROUTINE oldccsd_x1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * i1 ( p2 p6 )_f @@ -1397,7 +1397,7 @@ C i0 ( p2 h1 )_xf + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * i1 ( p2 p6 )_f RETURN END SUBROUTINE oldccsd_x1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p6 )_f + = 1 * f ( p2 p6 )_f @@ -1481,7 +1481,7 @@ C i1 ( p2 p6 )_f + = 1 * f ( p2 p6 )_f RETURN END SUBROUTINE OFFSET_oldccsd_x1_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p6 )_f @@ -1537,7 +1537,7 @@ C i1 ( p2 p6 )_f END SUBROUTINE oldccsd_x1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p6 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 p3 p6 )_v @@ -1696,7 +1696,7 @@ C i1 ( p2 p6 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 p3 p6 )_ END SUBROUTINE oldccsd_x1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xv + = -1 * Sum ( p4 h3 ) * x ( p4 h3 )_x * v ( h3 p2 h1 p4 )_v @@ -1837,7 +1837,7 @@ C i0 ( p2 h1 )_xv + = -1 * Sum ( p4 h3 ) * x ( p4 h3 )_x * v ( h3 p2 h1 p4 ) END SUBROUTINE oldccsd_x1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = 1 * Sum ( p7 h6 ) * x ( p2 p7 h1 h6 )_x * i1 ( h6 p7 )_f @@ -1995,7 +1995,7 @@ C i0 ( p2 h1 )_xf + = 1 * Sum ( p7 h6 ) * x ( p2 p7 h1 h6 )_x * i1 ( h6 p7 ) RETURN END SUBROUTINE oldccsd_x1_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f @@ -2079,7 +2079,7 @@ C i1 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f RETURN END SUBROUTINE OFFSET_oldccsd_x1_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p7 )_f @@ -2135,7 +2135,7 @@ C i1 ( h6 p7 )_f END SUBROUTINE oldccsd_x1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 p3 p7 )_v @@ -2324,7 +2324,7 @@ C i1 ( h6 p7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 p3 p7 )_ END SUBROUTINE oldccsd_x1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p7 h6 h8 ) * x ( p2 p7 h6 h8 )_x * i1 ( h6 h8 h1 p7 )_v @@ -2486,7 +2486,7 @@ C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p7 h6 h8 ) * x ( p2 p7 h6 h8 )_x * i1 ( h RETURN END SUBROUTINE oldccsd_x1_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 h1 p7 )_v + = 1 * v ( h6 h8 h1 p7 )_v @@ -2594,7 +2594,7 @@ C i1 ( h6 h8 h1 p7 )_v + = 1 * v ( h6 h8 h1 p7 )_v RETURN END SUBROUTINE OFFSET_oldccsd_x1_5_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 h1 p7 )_v @@ -2664,7 +2664,7 @@ C i1 ( h6 h8 h1 p7 )_v END SUBROUTINE oldccsd_x1_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 h1 p7 )_vt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * v ( h6 h8 p3 p7 )_v @@ -2832,7 +2832,7 @@ C i1 ( h6 h8 h1 p7 )_vt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * v ( h6 h8 p3 p7 END SUBROUTINE oldccsd_x1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p4 p5 h3 ) * x ( p4 p5 h1 h3 )_x * v ( h3 p2 p4 p5 )_v @@ -3004,7 +3004,7 @@ C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p4 p5 h3 ) * x ( p4 p5 h1 h3 )_x * v ( h3 END SUBROUTINE oldccsd_x1_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_fxt + = -1 * Sum ( h8 ) * t ( p2 h8 )_t * i1 ( h8 h1 )_fx @@ -3129,7 +3129,7 @@ C i0 ( p2 h1 )_fxt + = -1 * Sum ( h8 ) * t ( p2 h8 )_t * i1 ( h8 h1 )_fx END SUBROUTINE oldccsd_x1_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_fx + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * i2 ( h8 p3 )_f @@ -3256,7 +3256,7 @@ C i1 ( h8 h1 )_fx + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * i2 ( h8 p3 )_f RETURN END SUBROUTINE OFFSET_oldccsd_x1_7_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_fx @@ -3311,7 +3311,7 @@ C i1 ( h8 h1 )_fx RETURN END SUBROUTINE oldccsd_x1_7_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_f + = 1 * f ( h8 p3 )_f @@ -3395,7 +3395,7 @@ C i2 ( h8 p3 )_f + = 1 * f ( h8 p3 )_f RETURN END SUBROUTINE OFFSET_oldccsd_x1_7_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_f @@ -3451,7 +3451,7 @@ C i2 ( h8 p3 )_f END SUBROUTINE oldccsd_x1_7_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_vt + = -1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h8 p3 p4 )_v @@ -3640,7 +3640,7 @@ C i2 ( h8 p3 )_vt + = -1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h8 p3 p4 ) END SUBROUTINE oldccsd_x1_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vx + = -1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 h8 h1 p5 )_v @@ -3799,7 +3799,7 @@ C i1 ( h8 h1 )_vx + = -1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 h8 h1 p5 ) END SUBROUTINE oldccsd_x1_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vx + = -1/2 * Sum ( h4 p5 p6 ) * x ( p5 p6 h1 h4 )_x * v ( h4 h8 p5 p6 )_v @@ -3989,7 +3989,7 @@ C i1 ( h8 h1 )_vx + = -1/2 * Sum ( h4 p5 p6 ) * x ( p5 p6 h1 h4 )_x * v ( h4 END SUBROUTINE oldccsd_x1_7_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vxt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i2 ( h8 p3 )_vx @@ -4117,7 +4117,7 @@ C i1 ( h8 h1 )_vxt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i2 ( h8 p3 )_vx END SUBROUTINE oldccsd_x1_7_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_vx + = -1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h5 h8 p3 p6 )_v @@ -4305,7 +4305,7 @@ C i2 ( h8 p3 )_vx + = -1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h5 h8 p3 p6 ) RETURN END SUBROUTINE OFFSET_oldccsd_x1_7_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_vx @@ -4361,7 +4361,7 @@ C i2 ( h8 p3 )_vx END SUBROUTINE oldccsd_x1_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vxt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * i1 ( p2 p3 )_vx @@ -4486,7 +4486,7 @@ C i0 ( p2 h1 )_vxt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * i1 ( p2 p3 )_vx END SUBROUTINE oldccsd_x1_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p3 )_vx + = 1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 p2 p3 p5 )_v @@ -4644,7 +4644,7 @@ C i1 ( p2 p3 )_vx + = 1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 p2 p3 p5 )_ RETURN END SUBROUTINE OFFSET_oldccsd_x1_8_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p3 )_vx @@ -4700,7 +4700,7 @@ C i1 ( p2 p3 )_vx END SUBROUTINE oldccsd_x1_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vxt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * i1 ( h4 p3 )_vx @@ -4859,7 +4859,7 @@ C i0 ( p2 h1 )_vxt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * i1 ( h4 p3 END SUBROUTINE oldccsd_x1_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p3 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h4 h5 p3 p6 )_v @@ -5047,7 +5047,7 @@ C i1 ( h4 p3 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h4 h5 p3 p6 )_ RETURN END SUBROUTINE OFFSET_oldccsd_x1_9_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p3 )_vx @@ -5103,7 +5103,7 @@ C i1 ( h4 p3 )_vx END SUBROUTINE oldccsd_x1_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vxt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( h4 h5 h1 p3 )_vx @@ -5267,7 +5267,7 @@ C i0 ( p2 h1 )_vxt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( h END SUBROUTINE oldccsd_x1_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( h4 h5 p3 p6 )_v @@ -5434,7 +5434,7 @@ C i1 ( h4 h5 h1 p3 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( h4 h5 p3 p6 RETURN END SUBROUTINE OFFSET_oldccsd_x1_10_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_vx diff --git a/src/tce/eomccsd/eomccsd_x2.F b/src/tce/eomccsd/eomccsd_x2.F index 65812253cb..8b7c08a2c8 100644 --- a/src/tce/eomccsd/eomccsd_x2.F +++ b/src/tce/eomccsd/eomccsd_x2.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_x2(d_f1,d_i0,d_t1,d_t2,d_v2,d_x1,d_x2,k_f1_offs &et,k_i0_offset,k_t1_offset,k_t2_offset,k_v2_offset,k_x1_offset,k_x &2_offset,size_x1,size_x2) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( h9 ) * x ( p3 h9 )_x * i1 ( h9 p4 h1 h2 )_v @@ -524,7 +524,7 @@ c & ister,rec_s_1,rec_s_2,rec_s_3,rec_s_4,rec_s_5, & rec_d_1,rec_d_2,rec_d_3,rec_d_4,rec_d_5, & rec_d_6,rec_d_7,rec_d_8,rec_d_9) -C $Id: eomccsd_x2.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( h9 ) * x ( p3 h9 )_x * i1 ( h9 p4 h1 h2 )_v @@ -1094,7 +1094,7 @@ c c SUBROUTINE eomccsd_x2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( h9 ) * x ( p3 h9 )_x * i1 ( h9 p4 h1 h2 )_v @@ -1245,7 +1245,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( h9 ) * x ( p3 h9 )_x * i1 ( RETURN END SUBROUTINE eomccsd_x2_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_v + = 1 * v ( h9 p3 h1 h2 )_v @@ -1353,7 +1353,7 @@ C i1 ( h9 p3 h1 h2 )_v + = 1 * v ( h9 p3 h1 h2 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x2_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_v @@ -1423,7 +1423,7 @@ C i1 ( h9 p3 h1 h2 )_v END SUBROUTINE eomccsd_x2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h9 p3 h2 p5 )_v @@ -1577,7 +1577,7 @@ C i1 ( h9 p3 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( RETURN END SUBROUTINE eomccsd_x2_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p3 h1 p5 )_v + = 1 * v ( h9 p3 h1 p5 )_v @@ -1685,7 +1685,7 @@ C i2 ( h9 p3 h1 p5 )_v + = 1 * v ( h9 p3 h1 p5 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x2_1_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p3 h1 p5 )_v @@ -1755,7 +1755,7 @@ C i2 ( h9 p3 h1 p5 )_v END SUBROUTINE eomccsd_x2_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p3 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h9 p3 p5 p6 )_v @@ -1924,7 +1924,7 @@ C i2 ( h9 p3 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h9 p3 p5 END SUBROUTINE eomccsd_x2_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_ft + = -1 * Sum ( p8 ) * t ( p3 p8 h1 h2 )_t * i2 ( h9 p8 )_f @@ -2078,7 +2078,7 @@ C i1 ( h9 p3 h1 h2 )_ft + = -1 * Sum ( p8 ) * t ( p3 p8 h1 h2 )_t * i2 ( h9 RETURN END SUBROUTINE eomccsd_x2_1_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p8 )_f + = 1 * f ( h9 p8 )_f @@ -2162,7 +2162,7 @@ C i2 ( h9 p8 )_f + = 1 * f ( h9 p8 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x2_1_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p8 )_f @@ -2218,7 +2218,7 @@ C i2 ( h9 p8 )_f END SUBROUTINE eomccsd_x2_1_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p8 )_vt + = 1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h9 p6 p8 )_v @@ -2408,7 +2408,7 @@ C i2 ( h9 p8 )_vt + = 1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h9 p6 p8 )_ END SUBROUTINE eomccsd_x2_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i2 ( h6 h9 h2 p5 )_v @@ -2604,7 +2604,7 @@ C i1 ( h9 p3 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t RETURN END SUBROUTINE eomccsd_x2_1_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 h1 p5 )_v + = 1 * v ( h6 h9 h1 p5 )_v @@ -2712,7 +2712,7 @@ C i2 ( h6 h9 h1 p5 )_v + = 1 * v ( h6 h9 h1 p5 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x2_1_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 h1 p5 )_v @@ -2782,7 +2782,7 @@ C i2 ( h6 h9 h1 p5 )_v END SUBROUTINE eomccsd_x2_1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 h1 p5 )_vt + = -1 * Sum ( p7 ) * t ( p7 h1 )_t * v ( h6 h9 p5 p7 )_v @@ -2951,7 +2951,7 @@ C i2 ( h6 h9 h1 p5 )_vt + = -1 * Sum ( p7 ) * t ( p7 h1 )_t * v ( h6 h9 p5 p END SUBROUTINE eomccsd_x2_1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( h9 p3 p5 p6 )_v @@ -3123,7 +3123,7 @@ C i1 ( h9 p3 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( END SUBROUTINE eomccsd_x2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( p5 ) * x ( p5 h1 )_x * v ( p3 p4 h2 p5 )_v @@ -3284,7 +3284,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( p5 ) * x ( p5 h1 )_x * v ( p END SUBROUTINE eomccsd_x2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xf + = -1 * P( 2 ) * Sum ( h8 ) * x ( p3 p4 h1 h8 )_x * i1 ( h8 h2 )_f @@ -3446,7 +3446,7 @@ C i0 ( p3 p4 h1 h2 )_xf + = -1 * P( 2 ) * Sum ( h8 ) * x ( p3 p4 h1 h8 )_x * RETURN END SUBROUTINE eomccsd_x2_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_f + = 1 * f ( h8 h1 )_f @@ -3530,7 +3530,7 @@ C i1 ( h8 h1 )_f + = 1 * f ( h8 h1 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x2_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_f @@ -3586,7 +3586,7 @@ C i1 ( h8 h1 )_f END SUBROUTINE eomccsd_x2_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_ft + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * i2 ( h8 p9 )_f @@ -3714,7 +3714,7 @@ C i1 ( h8 h1 )_ft + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * i2 ( h8 p9 )_f RETURN END SUBROUTINE eomccsd_x2_3_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p9 )_f + = 1 * f ( h8 p9 )_f @@ -3798,7 +3798,7 @@ C i2 ( h8 p9 )_f + = 1 * f ( h8 p9 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x2_3_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p9 )_f @@ -3854,7 +3854,7 @@ C i2 ( h8 p9 )_f END SUBROUTINE eomccsd_x2_3_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p9 )_vt + = 1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h8 p6 p9 )_v @@ -4044,7 +4044,7 @@ C i2 ( h8 p9 )_vt + = 1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h8 p6 p9 )_ END SUBROUTINE eomccsd_x2_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h8 h1 p5 )_v @@ -4204,7 +4204,7 @@ C i1 ( h8 h1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h8 h1 p5 ) END SUBROUTINE eomccsd_x2_3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * v ( h7 h8 p5 p6 )_v @@ -4394,7 +4394,7 @@ C i1 ( h8 h1 )_vt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * v ( h7 END SUBROUTINE eomccsd_x2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xf + = 1 * P( 2 ) * Sum ( p8 ) * x ( p3 p8 h1 h2 )_x * i1 ( p4 p8 )_f @@ -4556,7 +4556,7 @@ C i0 ( p3 p4 h1 h2 )_xf + = 1 * P( 2 ) * Sum ( p8 ) * x ( p3 p8 h1 h2 )_x * RETURN END SUBROUTINE eomccsd_x2_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p8 )_f + = 1 * f ( p3 p8 )_f @@ -4640,7 +4640,7 @@ C i1 ( p3 p8 )_f + = 1 * f ( p3 p8 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x2_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p8 )_f @@ -4696,7 +4696,7 @@ C i1 ( p3 p8 )_f END SUBROUTINE eomccsd_x2_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p8 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p3 p5 p8 )_v @@ -4856,7 +4856,7 @@ C i1 ( p3 p8 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p3 p5 p8 )_ END SUBROUTINE eomccsd_x2_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p8 )_vt + = 1/2 * Sum ( h6 h7 p5 ) * t ( p3 p5 h6 h7 )_t * v ( h6 h7 p5 p8 )_v @@ -5046,7 +5046,7 @@ C i1 ( p3 p8 )_vt + = 1/2 * Sum ( h6 h7 p5 ) * t ( p3 p5 h6 h7 )_t * v ( h6 END SUBROUTINE eomccsd_x2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = 1/2 * Sum ( h9 h10 ) * x ( p3 p4 h9 h10 )_x * i1 ( h9 h10 h1 h2 )_v @@ -5205,7 +5205,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = 1/2 * Sum ( h9 h10 ) * x ( p3 p4 h9 h10 )_x * i1 RETURN END SUBROUTINE eomccsd_x2_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h10 h1 h2 )_v + = 1 * v ( h9 h10 h1 h2 )_v @@ -5310,7 +5310,7 @@ C i1 ( h9 h10 h1 h2 )_v + = 1 * v ( h9 h10 h1 h2 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x2_5_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h10 h1 h2 )_v @@ -5380,7 +5380,7 @@ C i1 ( h9 h10 h1 h2 )_v END SUBROUTINE eomccsd_x2_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h10 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h9 h10 h2 p5 )_v @@ -5532,7 +5532,7 @@ C i1 ( h9 h10 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( RETURN END SUBROUTINE eomccsd_x2_5_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 p5 )_v + = 1 * v ( h9 h10 h1 p5 )_v @@ -5640,7 +5640,7 @@ C i2 ( h9 h10 h1 p5 )_v + = 1 * v ( h9 h10 h1 p5 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x2_5_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 p5 )_v @@ -5710,7 +5710,7 @@ C i2 ( h9 h10 h1 p5 )_v END SUBROUTINE eomccsd_x2_5_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h9 h10 p5 p6 )_v @@ -5879,7 +5879,7 @@ C i2 ( h9 h10 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h9 h10 END SUBROUTINE eomccsd_x2_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h10 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( h9 h10 p5 p6 )_v @@ -6048,7 +6048,7 @@ C i1 ( h9 h10 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( END SUBROUTINE eomccsd_x2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 4 ) * Sum ( p8 h7 ) * x ( p3 p8 h1 h7 )_x * i1 ( h7 p4 h2 p8 )_v @@ -6247,7 +6247,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 4 ) * Sum ( p8 h7 ) * x ( p3 p8 h1 h7 )_ RETURN END SUBROUTINE eomccsd_x2_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 h1 p8 )_v + = 1 * v ( h7 p3 h1 p8 )_v @@ -6355,7 +6355,7 @@ C i1 ( h7 p3 h1 p8 )_v + = 1 * v ( h7 p3 h1 p8 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x2_6_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 h1 p8 )_v @@ -6425,7 +6425,7 @@ C i1 ( h7 p3 h1 p8 )_v END SUBROUTINE eomccsd_x2_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 h1 p8 )_vt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * v ( h7 p3 p5 p8 )_v @@ -6594,7 +6594,7 @@ C i1 ( h7 p3 h1 p8 )_vt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * v ( h7 p3 p5 p8 END SUBROUTINE eomccsd_x2_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = 1/2 * Sum ( p5 p6 ) * x ( p5 p6 h1 h2 )_x * v ( p3 p4 p5 p6 )_v @@ -6761,7 +6761,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = 1/2 * Sum ( p5 p6 ) * x ( p5 p6 h1 h2 )_x * v ( END SUBROUTINE eomccsd_x2_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h10 ) * t ( p3 h10 )_t * i1 ( h10 p4 h1 h2 )_vx @@ -6913,7 +6913,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h10 ) * t ( p3 h10 )_t * i1 END SUBROUTINE eomccsd_x2_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx + = -1 * Sum ( h8 ) * x ( p3 h8 )_x * i2 ( h8 h10 h1 h2 )_v @@ -7067,7 +7067,7 @@ C i1 ( h10 p3 h1 h2 )_vx + = -1 * Sum ( h8 ) * x ( p3 h8 )_x * i2 ( h8 h10 h RETURN END SUBROUTINE OFFSET_eomccsd_x2_8_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx @@ -7138,7 +7138,7 @@ C i1 ( h10 p3 h1 h2 )_vx RETURN END SUBROUTINE eomccsd_x2_8_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_v + = 1 * v ( h8 h10 h1 h2 )_v @@ -7243,7 +7243,7 @@ C i2 ( h8 h10 h1 h2 )_v + = 1 * v ( h8 h10 h1 h2 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x2_8_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_v @@ -7313,7 +7313,7 @@ C i2 ( h8 h10 h1 h2 )_v END SUBROUTINE eomccsd_x2_8_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h8 h10 h2 p5 )_v @@ -7465,7 +7465,7 @@ C i2 ( h8 h10 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( RETURN END SUBROUTINE eomccsd_x2_8_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h10 h1 p5 )_v + = 1 * v ( h8 h10 h1 p5 )_v @@ -7573,7 +7573,7 @@ C i3 ( h8 h10 h1 p5 )_v + = 1 * v ( h8 h10 h1 p5 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x2_8_1_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h10 h1 p5 )_v @@ -7643,7 +7643,7 @@ C i3 ( h8 h10 h1 p5 )_v END SUBROUTINE eomccsd_x2_8_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h10 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h8 h10 p5 p6 )_v @@ -7812,7 +7812,7 @@ C i3 ( h8 h10 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h8 h10 END SUBROUTINE eomccsd_x2_8_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( h8 h10 p5 p6 )_v @@ -7981,7 +7981,7 @@ C i2 ( h8 h10 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( END SUBROUTINE eomccsd_x2_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( p6 ) * x ( p6 h1 )_x * v ( h10 p3 h2 p6 )_v @@ -8145,7 +8145,7 @@ C i1 ( h10 p3 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( p6 ) * x ( p6 h1 )_x * v ( h END SUBROUTINE eomccsd_x2_8_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_fx + = 1 * Sum ( p5 ) * x ( p3 p5 h1 h2 )_x * i2 ( h10 p5 )_f @@ -8299,7 +8299,7 @@ C i1 ( h10 p3 h1 h2 )_fx + = 1 * Sum ( p5 ) * x ( p3 p5 h1 h2 )_x * i2 ( h10 RETURN END SUBROUTINE eomccsd_x2_8_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_f + = 1 * f ( h10 p5 )_f @@ -8383,7 +8383,7 @@ C i2 ( h10 p5 )_f + = 1 * f ( h10 p5 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x2_8_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_f @@ -8439,7 +8439,7 @@ C i2 ( h10 p5 )_f END SUBROUTINE eomccsd_x2_8_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h10 p5 p6 )_v @@ -8629,7 +8629,7 @@ C i2 ( h10 p5 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h10 p5 p6 END SUBROUTINE eomccsd_x2_8_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( h8 p9 ) * x ( p3 p9 h1 h8 )_x * i2 ( h8 h10 h2 p9 )_v @@ -8825,7 +8825,7 @@ C i1 ( h10 p3 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( h8 p9 ) * x ( p3 p9 h1 h8 ) RETURN END SUBROUTINE eomccsd_x2_8_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 p9 )_v + = 1 * v ( h8 h10 h1 p9 )_v @@ -8933,7 +8933,7 @@ C i2 ( h8 h10 h1 p9 )_v + = 1 * v ( h8 h10 h1 p9 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x2_8_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 p9 )_v @@ -9003,7 +9003,7 @@ C i2 ( h8 h10 h1 p9 )_v END SUBROUTINE eomccsd_x2_8_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 p9 )_vt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * v ( h8 h10 p5 p9 )_v @@ -9172,7 +9172,7 @@ C i2 ( h8 h10 h1 p9 )_vt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * v ( h8 h10 p5 END SUBROUTINE eomccsd_x2_8_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx + = -1/2 * Sum ( p6 p7 ) * x ( p6 p7 h1 h2 )_x * v ( h10 p3 p6 p7 )_v @@ -9344,7 +9344,7 @@ C i1 ( h10 p3 h1 h2 )_vx + = -1/2 * Sum ( p6 p7 ) * x ( p6 p7 h1 h2 )_x * v END SUBROUTINE eomccsd_x2_8_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vxt + = 1 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h10 h1 h2 )_vx @@ -9499,7 +9499,7 @@ C i1 ( h10 p3 h1 h2 )_vxt + = 1 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h10 h END SUBROUTINE eomccsd_x2_8_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_vx + = 1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( h9 h10 h2 p7 )_v @@ -9660,7 +9660,7 @@ C i2 ( h9 h10 h1 h2 )_vx + = 1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( RETURN END SUBROUTINE OFFSET_eomccsd_x2_8_6_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_vx @@ -9732,7 +9732,7 @@ C i2 ( h9 h10 h1 h2 )_vx END SUBROUTINE eomccsd_x2_8_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_vx + = -1/4 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * v ( h9 h10 p7 p8 )_v @@ -9901,7 +9901,7 @@ C i2 ( h9 h10 h1 h2 )_vx + = -1/4 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * v END SUBROUTINE eomccsd_x2_8_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h9 h10 h2 p5 )_vx @@ -10054,7 +10054,7 @@ C i2 ( h9 h10 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 END SUBROUTINE eomccsd_x2_8_6_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 p5 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h9 h10 p5 p8 )_v @@ -10222,7 +10222,7 @@ C i3 ( h9 h10 h1 p5 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h9 h10 p5 RETURN END SUBROUTINE OFFSET_eomccsd_x2_8_6_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 p5 )_vx @@ -10294,7 +10294,7 @@ C i3 ( h9 h10 h1 p5 )_vx END SUBROUTINE eomccsd_x2_8_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h10 p3 h2 p5 )_vx @@ -10449,7 +10449,7 @@ C i1 ( h10 p3 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 END SUBROUTINE eomccsd_x2_8_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p3 h1 p5 )_vx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h10 p3 p5 p7 )_v @@ -10617,7 +10617,7 @@ C i2 ( h10 p3 h1 p5 )_vx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h10 p3 p5 RETURN END SUBROUTINE OFFSET_eomccsd_x2_8_7_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p3 h1 p5 )_vx @@ -10689,7 +10689,7 @@ C i2 ( h10 p3 h1 p5 )_vx END SUBROUTINE eomccsd_x2_8_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vxt + = 1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i2 ( h10 p5 )_vx @@ -10844,7 +10844,7 @@ C i1 ( h10 p3 h1 h2 )_vxt + = 1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i2 ( h1 END SUBROUTINE eomccsd_x2_8_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_vx + = -1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h7 h10 p5 p8 )_v @@ -11033,7 +11033,7 @@ C i2 ( h10 p5 )_vx + = -1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h7 h10 p5 p8 RETURN END SUBROUTINE OFFSET_eomccsd_x2_8_8_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_vx @@ -11089,7 +11089,7 @@ C i2 ( h10 p5 )_vx END SUBROUTINE eomccsd_x2_8_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i2 ( h6 h10 h2 p5 )_vx @@ -11286,7 +11286,7 @@ C i1 ( h10 p3 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 ) END SUBROUTINE eomccsd_x2_8_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h10 h1 p5 )_vx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h6 h10 p5 p8 )_v @@ -11454,7 +11454,7 @@ C i2 ( h6 h10 h1 p5 )_vx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h6 h10 p5 RETURN END SUBROUTINE OFFSET_eomccsd_x2_8_9_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h10 h1 p5 )_vx @@ -11526,7 +11526,7 @@ C i2 ( h6 h10 h1 p5 )_vx END SUBROUTINE eomccsd_x2_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i1 ( p3 p4 h2 p5 )_vx @@ -11678,7 +11678,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i1 ( END SUBROUTINE eomccsd_x2_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p4 h1 p5 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( p3 p4 p5 p6 )_v @@ -11846,7 +11846,7 @@ C i1 ( p3 p4 h1 p5 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( p3 p4 p5 p6 RETURN END SUBROUTINE OFFSET_eomccsd_x2_9_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p4 h1 p5 )_vx @@ -11918,7 +11918,7 @@ C i1 ( p3 p4 h1 p5 )_vx END SUBROUTINE eomccsd_x2_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_fxt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_fx @@ -12081,7 +12081,7 @@ C i0 ( p3 p4 h1 h2 )_fxt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t END SUBROUTINE eomccsd_x2_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_fx + = 1 * Sum ( p9 ) * x ( p9 h1 )_x * i2 ( h5 p9 )_f @@ -12209,7 +12209,7 @@ C i1 ( h5 h1 )_fx + = 1 * Sum ( p9 ) * x ( p9 h1 )_x * i2 ( h5 p9 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x2_10_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_fx @@ -12264,7 +12264,7 @@ C i1 ( h5 h1 )_fx RETURN END SUBROUTINE eomccsd_x2_10_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p9 )_f + = 1 * f ( h5 p9 )_f @@ -12348,7 +12348,7 @@ C i2 ( h5 p9 )_f + = 1 * f ( h5 p9 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x2_10_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p9 )_f @@ -12404,7 +12404,7 @@ C i2 ( h5 p9 )_f END SUBROUTINE eomccsd_x2_10_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p9 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h5 h7 p6 p9 )_v @@ -12594,7 +12594,7 @@ C i2 ( h5 p9 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h5 h7 p6 p9 ) END SUBROUTINE eomccsd_x2_10_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_vx + = 1 * Sum ( h6 p7 ) * x ( p7 h6 )_x * v ( h5 h6 h1 p7 )_v @@ -12754,7 +12754,7 @@ C i1 ( h5 h1 )_vx + = 1 * Sum ( h6 p7 ) * x ( p7 h6 )_x * v ( h5 h6 h1 p7 )_ END SUBROUTINE eomccsd_x2_10_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_vx + = 1/2 * Sum ( h6 p7 p8 ) * x ( p7 p8 h1 h6 )_x * v ( h5 h6 p7 p8 )_v @@ -12944,7 +12944,7 @@ C i1 ( h5 h1 )_vx + = 1/2 * Sum ( h6 p7 p8 ) * x ( p7 p8 h1 h6 )_x * v ( h5 END SUBROUTINE eomccsd_x2_10_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_vxt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * i2 ( h5 p6 )_vx @@ -13073,7 +13073,7 @@ C i1 ( h5 h1 )_vxt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * i2 ( h5 p6 )_vx END SUBROUTINE eomccsd_x2_10_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p6 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h5 h7 p6 p8 )_v @@ -13262,7 +13262,7 @@ C i2 ( h5 p6 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h5 h7 p6 p8 )_ RETURN END SUBROUTINE OFFSET_eomccsd_x2_10_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p6 )_vx @@ -13318,7 +13318,7 @@ C i2 ( h5 p6 )_vx END SUBROUTINE eomccsd_x2_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = 1 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * i1 ( h5 h6 h1 h2 )_vx @@ -13479,7 +13479,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = 1 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * i1 ( END SUBROUTINE eomccsd_x2_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( h5 h6 h2 p7 )_v @@ -13640,7 +13640,7 @@ C i1 ( h5 h6 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( RETURN END SUBROUTINE OFFSET_eomccsd_x2_11_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 h2 )_vx @@ -13712,7 +13712,7 @@ C i1 ( h5 h6 h1 h2 )_vx END SUBROUTINE eomccsd_x2_11_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 h2 )_vx + = 1/4 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * v ( h5 h6 p7 p8 )_v @@ -13881,7 +13881,7 @@ C i1 ( h5 h6 h1 h2 )_vx + = 1/4 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * v ( END SUBROUTINE eomccsd_x2_11_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h5 h6 h2 p7 )_vx @@ -14034,7 +14034,7 @@ C i1 ( h5 h6 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 END SUBROUTINE eomccsd_x2_11_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h1 p7 )_vx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h5 h6 p7 p8 )_v @@ -14202,7 +14202,7 @@ C i2 ( h5 h6 h1 p7 )_vx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h5 h6 p7 p8 RETURN END SUBROUTINE OFFSET_eomccsd_x2_11_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h1 p7 )_vx @@ -14274,7 +14274,7 @@ C i2 ( h5 h6 h1 p7 )_vx END SUBROUTINE eomccsd_x2_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i1 ( p4 p5 )_vx @@ -14437,7 +14437,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t END SUBROUTINE eomccsd_x2_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_vx + = 1 * Sum ( h6 p7 ) * x ( p7 h6 )_x * v ( h6 p3 p5 p7 )_v @@ -14596,7 +14596,7 @@ C i1 ( p3 p5 )_vx + = 1 * Sum ( h6 p7 ) * x ( p7 h6 )_x * v ( h6 p3 p5 p7 )_ RETURN END SUBROUTINE OFFSET_eomccsd_x2_12_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_vx @@ -14652,7 +14652,7 @@ C i1 ( p3 p5 )_vx END SUBROUTINE eomccsd_x2_12_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_vx + = 1/2 * Sum ( h6 h7 p8 ) * x ( p3 p8 h6 h7 )_x * v ( h6 h7 p5 p8 )_v @@ -14842,7 +14842,7 @@ C i1 ( p3 p5 )_vx + = 1/2 * Sum ( h6 h7 p8 ) * x ( p3 p8 h6 h7 )_x * v ( h6 END SUBROUTINE eomccsd_x2_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i1 ( h6 p4 h2 p5 )_vx @@ -15043,7 +15043,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_ END SUBROUTINE eomccsd_x2_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_vx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h6 p3 p5 p7 )_v @@ -15211,7 +15211,7 @@ C i1 ( h6 p3 h1 p5 )_vx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h6 p3 p5 p7 RETURN END SUBROUTINE OFFSET_eomccsd_x2_13_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_vx @@ -15283,7 +15283,7 @@ C i1 ( h6 p3 h1 p5 )_vx END SUBROUTINE eomccsd_x2_13_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_vx + = 1 * Sum ( h7 p8 ) * x ( p3 p8 h1 h7 )_x * v ( h6 h7 p5 p8 )_v diff --git a/src/tce/eomccsd/eomccsd_x2_old.F b/src/tce/eomccsd/eomccsd_x2_old.F index c4691b7847..0fdc3ab0d4 100644 --- a/src/tce/eomccsd/eomccsd_x2_old.F +++ b/src/tce/eomccsd/eomccsd_x2_old.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_x2_old(d_f1,d_i0,d_t1,d_t2,d_v2,d_x1,d_x2, 1 k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset, 2 k_v2_offset,k_x1_offset,k_x2_offset,size_x1,size_x2) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( h9 ) * x ( p3 h9 )_x * i1 ( h9 p4 h1 h2 )_v @@ -480,7 +480,7 @@ c END SUBROUTINE oldccsd_x2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( h9 ) * x ( p3 h9 )_x * i1 ( h9 p4 h1 h2 )_v @@ -630,7 +630,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( h9 ) * x ( p3 h9 )_x * i1 ( RETURN END SUBROUTINE oldccsd_x2_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_v + = 1 * v ( h9 p3 h1 h2 )_v @@ -738,7 +738,7 @@ C i1 ( h9 p3 h1 h2 )_v + = 1 * v ( h9 p3 h1 h2 )_v RETURN END SUBROUTINE OFFSET_oldccsd_x2_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_v @@ -808,7 +808,7 @@ C i1 ( h9 p3 h1 h2 )_v END SUBROUTINE oldccsd_x2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h9 p3 h2 p5 )_v @@ -961,7 +961,7 @@ C i1 ( h9 p3 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( RETURN END SUBROUTINE oldccsd_x2_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p3 h1 p5 )_v + = 1 * v ( h9 p3 h1 p5 )_v @@ -1069,7 +1069,7 @@ C i2 ( h9 p3 h1 p5 )_v + = 1 * v ( h9 p3 h1 p5 )_v RETURN END SUBROUTINE OFFSET_oldccsd_x2_1_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p3 h1 p5 )_v @@ -1139,7 +1139,7 @@ C i2 ( h9 p3 h1 p5 )_v END SUBROUTINE oldccsd_x2_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p3 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h9 p3 p5 p6 )_v @@ -1307,7 +1307,7 @@ C i2 ( h9 p3 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h9 p3 p5 END SUBROUTINE oldccsd_x2_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_ft + = -1 * Sum ( p8 ) * t ( p3 p8 h1 h2 )_t * i2 ( h9 p8 )_f @@ -1461,7 +1461,7 @@ C i1 ( h9 p3 h1 h2 )_ft + = -1 * Sum ( p8 ) * t ( p3 p8 h1 h2 )_t * i2 ( h9 RETURN END SUBROUTINE oldccsd_x2_1_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p8 )_f + = 1 * f ( h9 p8 )_f @@ -1545,7 +1545,7 @@ C i2 ( h9 p8 )_f + = 1 * f ( h9 p8 )_f RETURN END SUBROUTINE OFFSET_oldccsd_x2_1_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p8 )_f @@ -1601,7 +1601,7 @@ C i2 ( h9 p8 )_f END SUBROUTINE oldccsd_x2_1_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p8 )_vt + = 1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h9 p6 p8 )_v @@ -1790,7 +1790,7 @@ C i2 ( h9 p8 )_vt + = 1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h9 p6 p8 )_ END SUBROUTINE oldccsd_x2_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i2 ( h6 h9 h2 p5 )_v @@ -1986,7 +1986,7 @@ C i1 ( h9 p3 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t RETURN END SUBROUTINE oldccsd_x2_1_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 h1 p5 )_v + = 1 * v ( h6 h9 h1 p5 )_v @@ -2094,7 +2094,7 @@ C i2 ( h6 h9 h1 p5 )_v + = 1 * v ( h6 h9 h1 p5 )_v RETURN END SUBROUTINE OFFSET_oldccsd_x2_1_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 h1 p5 )_v @@ -2164,7 +2164,7 @@ C i2 ( h6 h9 h1 p5 )_v END SUBROUTINE oldccsd_x2_1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 h1 p5 )_vt + = -1 * Sum ( p7 ) * t ( p7 h1 )_t * v ( h6 h9 p5 p7 )_v @@ -2332,7 +2332,7 @@ C i2 ( h6 h9 h1 p5 )_vt + = -1 * Sum ( p7 ) * t ( p7 h1 )_t * v ( h6 h9 p5 p END SUBROUTINE oldccsd_x2_1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( h9 p3 p5 p6 )_v @@ -2504,7 +2504,7 @@ C i1 ( h9 p3 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( END SUBROUTINE oldccsd_x2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( p5 ) * x ( p5 h1 )_x * v ( p3 p4 h2 p5 )_v @@ -2664,7 +2664,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( p5 ) * x ( p5 h1 )_x * v ( p END SUBROUTINE oldccsd_x2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xf + = -1 * P( 2 ) * Sum ( h8 ) * x ( p3 p4 h1 h8 )_x * i1 ( h8 h2 )_f @@ -2825,7 +2825,7 @@ C i0 ( p3 p4 h1 h2 )_xf + = -1 * P( 2 ) * Sum ( h8 ) * x ( p3 p4 h1 h8 )_x * RETURN END SUBROUTINE oldccsd_x2_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_f + = 1 * f ( h8 h1 )_f @@ -2909,7 +2909,7 @@ C i1 ( h8 h1 )_f + = 1 * f ( h8 h1 )_f RETURN END SUBROUTINE OFFSET_oldccsd_x2_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_f @@ -2965,7 +2965,7 @@ C i1 ( h8 h1 )_f END SUBROUTINE oldccsd_x2_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_ft + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * i2 ( h8 p9 )_f @@ -3092,7 +3092,7 @@ C i1 ( h8 h1 )_ft + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * i2 ( h8 p9 )_f RETURN END SUBROUTINE oldccsd_x2_3_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p9 )_f + = 1 * f ( h8 p9 )_f @@ -3176,7 +3176,7 @@ C i2 ( h8 p9 )_f + = 1 * f ( h8 p9 )_f RETURN END SUBROUTINE OFFSET_oldccsd_x2_3_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p9 )_f @@ -3232,7 +3232,7 @@ C i2 ( h8 p9 )_f END SUBROUTINE oldccsd_x2_3_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p9 )_vt + = 1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h8 p6 p9 )_v @@ -3421,7 +3421,7 @@ C i2 ( h8 p9 )_vt + = 1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h8 p6 p9 )_ END SUBROUTINE oldccsd_x2_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h8 h1 p5 )_v @@ -3580,7 +3580,7 @@ C i1 ( h8 h1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h8 h1 p5 ) END SUBROUTINE oldccsd_x2_3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * v ( h7 h8 p5 p6 )_v @@ -3770,7 +3770,7 @@ C i1 ( h8 h1 )_vt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * v ( h7 END SUBROUTINE oldccsd_x2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xf + = 1 * P( 2 ) * Sum ( p8 ) * x ( p3 p8 h1 h2 )_x * i1 ( p4 p8 )_f @@ -3931,7 +3931,7 @@ C i0 ( p3 p4 h1 h2 )_xf + = 1 * P( 2 ) * Sum ( p8 ) * x ( p3 p8 h1 h2 )_x * RETURN END SUBROUTINE oldccsd_x2_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p8 )_f + = 1 * f ( p3 p8 )_f @@ -4015,7 +4015,7 @@ C i1 ( p3 p8 )_f + = 1 * f ( p3 p8 )_f RETURN END SUBROUTINE OFFSET_oldccsd_x2_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p8 )_f @@ -4071,7 +4071,7 @@ C i1 ( p3 p8 )_f END SUBROUTINE oldccsd_x2_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p8 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p3 p5 p8 )_v @@ -4230,7 +4230,7 @@ C i1 ( p3 p8 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p3 p5 p8 )_ END SUBROUTINE oldccsd_x2_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p8 )_vt + = 1/2 * Sum ( h6 h7 p5 ) * t ( p3 p5 h6 h7 )_t * v ( h6 h7 p5 p8 )_v @@ -4420,7 +4420,7 @@ C i1 ( p3 p8 )_vt + = 1/2 * Sum ( h6 h7 p5 ) * t ( p3 p5 h6 h7 )_t * v ( h6 END SUBROUTINE oldccsd_x2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = 1/2 * Sum ( h9 h10 ) * x ( p3 p4 h9 h10 )_x * i1 ( h9 h10 h1 h2 )_v @@ -4579,7 +4579,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = 1/2 * Sum ( h9 h10 ) * x ( p3 p4 h9 h10 )_x * i1 RETURN END SUBROUTINE oldccsd_x2_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h10 h1 h2 )_v + = 1 * v ( h9 h10 h1 h2 )_v @@ -4684,7 +4684,7 @@ C i1 ( h9 h10 h1 h2 )_v + = 1 * v ( h9 h10 h1 h2 )_v RETURN END SUBROUTINE OFFSET_oldccsd_x2_5_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h10 h1 h2 )_v @@ -4754,7 +4754,7 @@ C i1 ( h9 h10 h1 h2 )_v END SUBROUTINE oldccsd_x2_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h10 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h9 h10 h2 p5 )_v @@ -4905,7 +4905,7 @@ C i1 ( h9 h10 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( RETURN END SUBROUTINE oldccsd_x2_5_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 p5 )_v + = 1 * v ( h9 h10 h1 p5 )_v @@ -5013,7 +5013,7 @@ C i2 ( h9 h10 h1 p5 )_v + = 1 * v ( h9 h10 h1 p5 )_v RETURN END SUBROUTINE OFFSET_oldccsd_x2_5_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 p5 )_v @@ -5083,7 +5083,7 @@ C i2 ( h9 h10 h1 p5 )_v END SUBROUTINE oldccsd_x2_5_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h9 h10 p5 p6 )_v @@ -5251,7 +5251,7 @@ C i2 ( h9 h10 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h9 h10 END SUBROUTINE oldccsd_x2_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h10 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( h9 h10 p5 p6 )_v @@ -5420,7 +5420,7 @@ C i1 ( h9 h10 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( END SUBROUTINE oldccsd_x2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 4 ) * Sum ( p8 h7 ) * x ( p3 p8 h1 h7 )_x * i1 ( h7 p4 h2 p8 )_v @@ -5619,7 +5619,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 4 ) * Sum ( p8 h7 ) * x ( p3 p8 h1 h7 )_ RETURN END SUBROUTINE oldccsd_x2_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 h1 p8 )_v + = 1 * v ( h7 p3 h1 p8 )_v @@ -5727,7 +5727,7 @@ C i1 ( h7 p3 h1 p8 )_v + = 1 * v ( h7 p3 h1 p8 )_v RETURN END SUBROUTINE OFFSET_oldccsd_x2_6_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 h1 p8 )_v @@ -5797,7 +5797,7 @@ C i1 ( h7 p3 h1 p8 )_v END SUBROUTINE oldccsd_x2_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 h1 p8 )_vt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * v ( h7 p3 p5 p8 )_v @@ -5965,7 +5965,7 @@ C i1 ( h7 p3 h1 p8 )_vt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * v ( h7 p3 p5 p8 END SUBROUTINE oldccsd_x2_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = 1/2 * Sum ( p5 p6 ) * x ( p5 p6 h1 h2 )_x * v ( p3 p4 p5 p6 )_v @@ -6132,7 +6132,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = 1/2 * Sum ( p5 p6 ) * x ( p5 p6 h1 h2 )_x * v ( END SUBROUTINE oldccsd_x2_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h10 ) * t ( p3 h10 )_t * i1 ( h10 p4 h1 h2 )_vx @@ -6283,7 +6283,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h10 ) * t ( p3 h10 )_t * i1 END SUBROUTINE oldccsd_x2_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx + = -1 * Sum ( h8 ) * x ( p3 h8 )_x * i2 ( h8 h10 h1 h2 )_v @@ -6436,7 +6436,7 @@ C i1 ( h10 p3 h1 h2 )_vx + = -1 * Sum ( h8 ) * x ( p3 h8 )_x * i2 ( h8 h10 h RETURN END SUBROUTINE OFFSET_oldccsd_x2_8_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx @@ -6507,7 +6507,7 @@ C i1 ( h10 p3 h1 h2 )_vx RETURN END SUBROUTINE oldccsd_x2_8_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_v + = 1 * v ( h8 h10 h1 h2 )_v @@ -6612,7 +6612,7 @@ C i2 ( h8 h10 h1 h2 )_v + = 1 * v ( h8 h10 h1 h2 )_v RETURN END SUBROUTINE OFFSET_oldccsd_x2_8_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_v @@ -6682,7 +6682,7 @@ C i2 ( h8 h10 h1 h2 )_v END SUBROUTINE oldccsd_x2_8_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h8 h10 h2 p5 )_v @@ -6833,7 +6833,7 @@ C i2 ( h8 h10 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( RETURN END SUBROUTINE oldccsd_x2_8_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h10 h1 p5 )_v + = 1 * v ( h8 h10 h1 p5 )_v @@ -6941,7 +6941,7 @@ C i3 ( h8 h10 h1 p5 )_v + = 1 * v ( h8 h10 h1 p5 )_v RETURN END SUBROUTINE OFFSET_oldccsd_x2_8_1_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h10 h1 p5 )_v @@ -7011,7 +7011,7 @@ C i3 ( h8 h10 h1 p5 )_v END SUBROUTINE oldccsd_x2_8_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h10 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h8 h10 p5 p6 )_v @@ -7179,7 +7179,7 @@ C i3 ( h8 h10 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h8 h10 END SUBROUTINE oldccsd_x2_8_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( h8 h10 p5 p6 )_v @@ -7348,7 +7348,7 @@ C i2 ( h8 h10 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( END SUBROUTINE oldccsd_x2_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( p6 ) * x ( p6 h1 )_x * v ( h10 p3 h2 p6 )_v @@ -7511,7 +7511,7 @@ C i1 ( h10 p3 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( p6 ) * x ( p6 h1 )_x * v ( h END SUBROUTINE oldccsd_x2_8_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_fx + = 1 * Sum ( p5 ) * x ( p3 p5 h1 h2 )_x * i2 ( h10 p5 )_f @@ -7665,7 +7665,7 @@ C i1 ( h10 p3 h1 h2 )_fx + = 1 * Sum ( p5 ) * x ( p3 p5 h1 h2 )_x * i2 ( h10 RETURN END SUBROUTINE oldccsd_x2_8_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_f + = 1 * f ( h10 p5 )_f @@ -7749,7 +7749,7 @@ C i2 ( h10 p5 )_f + = 1 * f ( h10 p5 )_f RETURN END SUBROUTINE OFFSET_oldccsd_x2_8_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_f @@ -7805,7 +7805,7 @@ C i2 ( h10 p5 )_f END SUBROUTINE oldccsd_x2_8_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h10 p5 p6 )_v @@ -7994,7 +7994,7 @@ C i2 ( h10 p5 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h10 p5 p6 END SUBROUTINE oldccsd_x2_8_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( h8 p9 ) * x ( p3 p9 h1 h8 )_x * i2 ( h8 h10 h2 p9 )_v @@ -8190,7 +8190,7 @@ C i1 ( h10 p3 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( h8 p9 ) * x ( p3 p9 h1 h8 ) RETURN END SUBROUTINE oldccsd_x2_8_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 p9 )_v + = 1 * v ( h8 h10 h1 p9 )_v @@ -8298,7 +8298,7 @@ C i2 ( h8 h10 h1 p9 )_v + = 1 * v ( h8 h10 h1 p9 )_v RETURN END SUBROUTINE OFFSET_oldccsd_x2_8_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 p9 )_v @@ -8368,7 +8368,7 @@ C i2 ( h8 h10 h1 p9 )_v END SUBROUTINE oldccsd_x2_8_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 p9 )_vt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * v ( h8 h10 p5 p9 )_v @@ -8536,7 +8536,7 @@ C i2 ( h8 h10 h1 p9 )_vt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * v ( h8 h10 p5 END SUBROUTINE oldccsd_x2_8_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx + = -1/2 * Sum ( p6 p7 ) * x ( p6 p7 h1 h2 )_x * v ( h10 p3 p6 p7 )_v @@ -8708,7 +8708,7 @@ C i1 ( h10 p3 h1 h2 )_vx + = -1/2 * Sum ( p6 p7 ) * x ( p6 p7 h1 h2 )_x * v END SUBROUTINE oldccsd_x2_8_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vxt + = 1 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h10 h1 h2 )_vx @@ -8862,7 +8862,7 @@ C i1 ( h10 p3 h1 h2 )_vxt + = 1 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h10 h END SUBROUTINE oldccsd_x2_8_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_vx + = 1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( h9 h10 h2 p7 )_v @@ -9022,7 +9022,7 @@ C i2 ( h9 h10 h1 h2 )_vx + = 1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( RETURN END SUBROUTINE OFFSET_oldccsd_x2_8_6_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_vx @@ -9094,7 +9094,7 @@ C i2 ( h9 h10 h1 h2 )_vx END SUBROUTINE oldccsd_x2_8_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_vx + = -1/4 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * v ( h9 h10 p7 p8 )_v @@ -9263,7 +9263,7 @@ C i2 ( h9 h10 h1 h2 )_vx + = -1/4 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * v END SUBROUTINE oldccsd_x2_8_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h9 h10 h2 p5 )_vx @@ -9415,7 +9415,7 @@ C i2 ( h9 h10 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 END SUBROUTINE oldccsd_x2_8_6_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 p5 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h9 h10 p5 p8 )_v @@ -9582,7 +9582,7 @@ C i3 ( h9 h10 h1 p5 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h9 h10 p5 RETURN END SUBROUTINE OFFSET_oldccsd_x2_8_6_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 p5 )_vx @@ -9654,7 +9654,7 @@ C i3 ( h9 h10 h1 p5 )_vx END SUBROUTINE oldccsd_x2_8_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h10 p3 h2 p5 )_vx @@ -9808,7 +9808,7 @@ C i1 ( h10 p3 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 END SUBROUTINE oldccsd_x2_8_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p3 h1 p5 )_vx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h10 p3 p5 p7 )_v @@ -9975,7 +9975,7 @@ C i2 ( h10 p3 h1 p5 )_vx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h10 p3 p5 RETURN END SUBROUTINE OFFSET_oldccsd_x2_8_7_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p3 h1 p5 )_vx @@ -10047,7 +10047,7 @@ C i2 ( h10 p3 h1 p5 )_vx END SUBROUTINE oldccsd_x2_8_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vxt + = 1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i2 ( h10 p5 )_vx @@ -10202,7 +10202,7 @@ C i1 ( h10 p3 h1 h2 )_vxt + = 1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i2 ( h1 END SUBROUTINE oldccsd_x2_8_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_vx + = -1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h7 h10 p5 p8 )_v @@ -10390,7 +10390,7 @@ C i2 ( h10 p5 )_vx + = -1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h7 h10 p5 p8 RETURN END SUBROUTINE OFFSET_oldccsd_x2_8_8_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_vx @@ -10446,7 +10446,7 @@ C i2 ( h10 p5 )_vx END SUBROUTINE oldccsd_x2_8_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i2 ( h6 h10 h2 p5 )_vx @@ -10643,7 +10643,7 @@ C i1 ( h10 p3 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 ) END SUBROUTINE oldccsd_x2_8_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h10 h1 p5 )_vx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h6 h10 p5 p8 )_v @@ -10810,7 +10810,7 @@ C i2 ( h6 h10 h1 p5 )_vx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h6 h10 p5 RETURN END SUBROUTINE OFFSET_oldccsd_x2_8_9_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h10 h1 p5 )_vx @@ -10882,7 +10882,7 @@ C i2 ( h6 h10 h1 p5 )_vx END SUBROUTINE oldccsd_x2_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i1 ( p3 p4 h2 p5 )_vx @@ -11033,7 +11033,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i1 ( END SUBROUTINE oldccsd_x2_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p4 h1 p5 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( p3 p4 p5 p6 )_v @@ -11200,7 +11200,7 @@ C i1 ( p3 p4 h1 p5 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( p3 p4 p5 p6 RETURN END SUBROUTINE OFFSET_oldccsd_x2_9_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p4 h1 p5 )_vx @@ -11272,7 +11272,7 @@ C i1 ( p3 p4 h1 p5 )_vx END SUBROUTINE oldccsd_x2_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_fxt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_fx @@ -11435,7 +11435,7 @@ C i0 ( p3 p4 h1 h2 )_fxt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t END SUBROUTINE oldccsd_x2_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_fx + = 1 * Sum ( p9 ) * x ( p9 h1 )_x * i2 ( h5 p9 )_f @@ -11562,7 +11562,7 @@ C i1 ( h5 h1 )_fx + = 1 * Sum ( p9 ) * x ( p9 h1 )_x * i2 ( h5 p9 )_f RETURN END SUBROUTINE OFFSET_oldccsd_x2_10_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_fx @@ -11617,7 +11617,7 @@ C i1 ( h5 h1 )_fx RETURN END SUBROUTINE oldccsd_x2_10_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p9 )_f + = 1 * f ( h5 p9 )_f @@ -11701,7 +11701,7 @@ C i2 ( h5 p9 )_f + = 1 * f ( h5 p9 )_f RETURN END SUBROUTINE OFFSET_oldccsd_x2_10_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p9 )_f @@ -11757,7 +11757,7 @@ C i2 ( h5 p9 )_f END SUBROUTINE oldccsd_x2_10_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p9 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h5 h7 p6 p9 )_v @@ -11946,7 +11946,7 @@ C i2 ( h5 p9 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h5 h7 p6 p9 ) END SUBROUTINE oldccsd_x2_10_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_vx + = 1 * Sum ( h6 p7 ) * x ( p7 h6 )_x * v ( h5 h6 h1 p7 )_v @@ -12105,7 +12105,7 @@ C i1 ( h5 h1 )_vx + = 1 * Sum ( h6 p7 ) * x ( p7 h6 )_x * v ( h5 h6 h1 p7 )_ END SUBROUTINE oldccsd_x2_10_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_vx + = 1/2 * Sum ( h6 p7 p8 ) * x ( p7 p8 h1 h6 )_x * v ( h5 h6 p7 p8 )_v @@ -12295,7 +12295,7 @@ C i1 ( h5 h1 )_vx + = 1/2 * Sum ( h6 p7 p8 ) * x ( p7 p8 h1 h6 )_x * v ( h5 END SUBROUTINE oldccsd_x2_10_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_vxt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * i2 ( h5 p6 )_vx @@ -12423,7 +12423,7 @@ C i1 ( h5 h1 )_vxt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * i2 ( h5 p6 )_vx END SUBROUTINE oldccsd_x2_10_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p6 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h5 h7 p6 p8 )_v @@ -12611,7 +12611,7 @@ C i2 ( h5 p6 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h5 h7 p6 p8 )_ RETURN END SUBROUTINE OFFSET_oldccsd_x2_10_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p6 )_vx @@ -12667,7 +12667,7 @@ C i2 ( h5 p6 )_vx END SUBROUTINE oldccsd_x2_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = 1 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * i1 ( h5 h6 h1 h2 )_vx @@ -12828,7 +12828,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = 1 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * i1 ( END SUBROUTINE oldccsd_x2_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( h5 h6 h2 p7 )_v @@ -12988,7 +12988,7 @@ C i1 ( h5 h6 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( RETURN END SUBROUTINE OFFSET_oldccsd_x2_11_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 h2 )_vx @@ -13060,7 +13060,7 @@ C i1 ( h5 h6 h1 h2 )_vx END SUBROUTINE oldccsd_x2_11_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 h2 )_vx + = 1/4 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * v ( h5 h6 p7 p8 )_v @@ -13229,7 +13229,7 @@ C i1 ( h5 h6 h1 h2 )_vx + = 1/4 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * v ( END SUBROUTINE oldccsd_x2_11_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h5 h6 h2 p7 )_vx @@ -13381,7 +13381,7 @@ C i1 ( h5 h6 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 END SUBROUTINE oldccsd_x2_11_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h1 p7 )_vx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h5 h6 p7 p8 )_v @@ -13548,7 +13548,7 @@ C i2 ( h5 h6 h1 p7 )_vx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h5 h6 p7 p8 RETURN END SUBROUTINE OFFSET_oldccsd_x2_11_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h1 p7 )_vx @@ -13620,7 +13620,7 @@ C i2 ( h5 h6 h1 p7 )_vx END SUBROUTINE oldccsd_x2_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i1 ( p4 p5 )_vx @@ -13783,7 +13783,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t END SUBROUTINE oldccsd_x2_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_vx + = 1 * Sum ( h6 p7 ) * x ( p7 h6 )_x * v ( h6 p3 p5 p7 )_v @@ -13941,7 +13941,7 @@ C i1 ( p3 p5 )_vx + = 1 * Sum ( h6 p7 ) * x ( p7 h6 )_x * v ( h6 p3 p5 p7 )_ RETURN END SUBROUTINE OFFSET_oldccsd_x2_12_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_vx @@ -13997,7 +13997,7 @@ C i1 ( p3 p5 )_vx END SUBROUTINE oldccsd_x2_12_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_vx + = 1/2 * Sum ( h6 h7 p8 ) * x ( p3 p8 h6 h7 )_x * v ( h6 h7 p5 p8 )_v @@ -14187,7 +14187,7 @@ C i1 ( p3 p5 )_vx + = 1/2 * Sum ( h6 h7 p8 ) * x ( p3 p8 h6 h7 )_x * v ( h6 END SUBROUTINE oldccsd_x2_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i1 ( h6 p4 h2 p5 )_vx @@ -14388,7 +14388,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_ END SUBROUTINE oldccsd_x2_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_vx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h6 p3 p5 p7 )_v @@ -14555,7 +14555,7 @@ C i1 ( h6 p3 h1 p5 )_vx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h6 p3 p5 p7 RETURN END SUBROUTINE OFFSET_oldccsd_x2_13_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_vx @@ -14627,7 +14627,7 @@ C i1 ( h6 p3 h1 p5 )_vx END SUBROUTINE oldccsd_x2_13_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_vx + = 1 * Sum ( h7 p8 ) * x ( p3 p8 h1 h7 )_x * v ( h6 h7 p5 p8 )_v diff --git a/src/tce/eomccsd/eomccsd_y1.F b/src/tce/eomccsd/eomccsd_y1.F index ae9ec6d7a5..9d68db85b2 100644 --- a/src/tce/eomccsd/eomccsd_y1.F +++ b/src/tce/eomccsd/eomccsd_y1.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_y1(d_f1,d_i0,d_t1,d_t2,d_v2,d_y1,d_y2,k_f1_offs &et,k_i0_offset,k_t1_offset,k_t2_offset,k_v2_offset,k_y1_offset,k_y &2_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yf + = -1 * Sum ( h7 ) * y ( h7 p1 )_y * i1 ( h2 h7 )_f @@ -526,7 +526,7 @@ C i2 ( h2 h4 h6 p7 )_yt + = 1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h2 END SUBROUTINE eomccsd_y1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yf + = -1 * Sum ( h7 ) * y ( h7 p1 )_y * i1 ( h2 h7 )_f @@ -650,7 +650,7 @@ C i0 ( h2 p1 )_yf + = -1 * Sum ( h7 ) * y ( h7 p1 )_y * i1 ( h2 h7 )_f RETURN END SUBROUTINE eomccsd_y1_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_f + = 1 * f ( h2 h7 )_f @@ -734,7 +734,7 @@ C i1 ( h2 h7 )_f + = 1 * f ( h2 h7 )_f RETURN END SUBROUTINE OFFSET_eomccsd_y1_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_f @@ -790,7 +790,7 @@ C i1 ( h2 h7 )_f END SUBROUTINE eomccsd_y1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_ft + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * i2 ( h2 p3 )_f @@ -917,7 +917,7 @@ C i1 ( h2 h7 )_ft + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * i2 ( h2 p3 )_f RETURN END SUBROUTINE eomccsd_y1_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p3 )_f + = 1 * f ( h2 p3 )_f @@ -1001,7 +1001,7 @@ C i2 ( h2 p3 )_f + = 1 * f ( h2 p3 )_f RETURN END SUBROUTINE OFFSET_eomccsd_y1_1_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p3 )_f @@ -1057,7 +1057,7 @@ C i2 ( h2 p3 )_f END SUBROUTINE eomccsd_y1_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p3 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h2 h6 p3 p5 )_v @@ -1218,7 +1218,7 @@ C i2 ( h2 p3 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h2 h6 p3 p5 )_ END SUBROUTINE eomccsd_y1_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h2 h4 h7 p3 )_v @@ -1363,7 +1363,7 @@ C i1 ( h2 h7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h2 h4 h7 p3 )_ END SUBROUTINE eomccsd_y1_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_vt + = -1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h7 )_t * v ( h2 h6 p3 p4 )_v @@ -1539,7 +1539,7 @@ C i1 ( h2 h7 )_vt + = -1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h7 )_t * v ( h2 END SUBROUTINE eomccsd_y1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yf + = 1 * Sum ( p7 ) * y ( h2 p7 )_y * i1 ( p7 p1 )_f @@ -1663,7 +1663,7 @@ C i0 ( h2 p1 )_yf + = 1 * Sum ( p7 ) * y ( h2 p7 )_y * i1 ( p7 p1 )_f RETURN END SUBROUTINE eomccsd_y1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p1 )_f + = 1 * f ( p7 p1 )_f @@ -1747,7 +1747,7 @@ C i1 ( p7 p1 )_f + = 1 * f ( p7 p1 )_f RETURN END SUBROUTINE OFFSET_eomccsd_y1_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p1 )_f @@ -1803,7 +1803,7 @@ C i1 ( p7 p1 )_f END SUBROUTINE eomccsd_y1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p7 p1 p3 )_v @@ -1948,7 +1948,7 @@ C i1 ( p7 p1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p7 p1 p3 ) END SUBROUTINE eomccsd_y1_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p1 )_vtt + = -1 * Sum ( h4 ) * t ( p7 h4 )_t * i2 ( h4 p1 )_vt @@ -2076,7 +2076,7 @@ C i1 ( p7 p1 )_vtt + = -1 * Sum ( h4 ) * t ( p7 h4 )_t * i2 ( h4 p1 )_vt END SUBROUTINE eomccsd_y1_2_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h4 h6 p1 p5 )_v @@ -2236,7 +2236,7 @@ C i2 ( h4 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h4 h6 p1 p5 )_ RETURN END SUBROUTINE OFFSET_eomccsd_y1_2_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p1 )_vt @@ -2292,7 +2292,7 @@ C i2 ( h4 p1 )_vt END SUBROUTINE eomccsd_y1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yv + = -1 * Sum ( h4 p3 ) * y ( h4 p3 )_y * v ( h2 p3 h4 p1 )_v @@ -2426,7 +2426,7 @@ C i0 ( h2 p1 )_yv + = -1 * Sum ( h4 p3 ) * y ( h4 p3 )_y * v ( h2 p3 h4 p1 ) END SUBROUTINE eomccsd_y1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yf + = 1 * Sum ( h11 p9 ) * y ( h2 h11 p1 p9 )_y * i1 ( p9 h11 )_f @@ -2584,7 +2584,7 @@ C i0 ( h2 p1 )_yf + = 1 * Sum ( h11 p9 ) * y ( h2 h11 p1 p9 )_y * i1 ( p9 h1 RETURN END SUBROUTINE eomccsd_y1_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_f + = 1 * f ( p9 h11 )_f @@ -2668,7 +2668,7 @@ C i1 ( p9 h11 )_f + = 1 * f ( p9 h11 )_f RETURN END SUBROUTINE OFFSET_eomccsd_y1_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_f @@ -2724,7 +2724,7 @@ C i1 ( p9 h11 )_f END SUBROUTINE eomccsd_y1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_ft + = -1 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h10 h11 )_f @@ -2851,7 +2851,7 @@ C i1 ( p9 h11 )_ft + = -1 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h10 h11 )_f RETURN END SUBROUTINE eomccsd_y1_4_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_f + = 1 * f ( h10 h11 )_f @@ -2935,7 +2935,7 @@ C i2 ( h10 h11 )_f + = 1 * f ( h10 h11 )_f RETURN END SUBROUTINE OFFSET_eomccsd_y1_4_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_f @@ -2991,7 +2991,7 @@ C i2 ( h10 h11 )_f END SUBROUTINE eomccsd_y1_4_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_ft + = 1 * Sum ( p3 ) * t ( p3 h11 )_t * i3 ( h10 p3 )_f @@ -3118,7 +3118,7 @@ C i2 ( h10 h11 )_ft + = 1 * Sum ( p3 ) * t ( p3 h11 )_t * i3 ( h10 p3 )_f RETURN END SUBROUTINE eomccsd_y1_4_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p3 )_f + = 1 * f ( h10 p3 )_f @@ -3202,7 +3202,7 @@ C i3 ( h10 p3 )_f + = 1 * f ( h10 p3 )_f RETURN END SUBROUTINE OFFSET_eomccsd_y1_4_2_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p3 )_f @@ -3258,7 +3258,7 @@ C i3 ( h10 p3 )_f END SUBROUTINE eomccsd_y1_4_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p3 )_vt + = -1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 h10 p3 p7 )_v @@ -3419,7 +3419,7 @@ C i3 ( h10 p3 )_vt + = -1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 h10 p3 p7 END SUBROUTINE eomccsd_y1_4_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h10 h11 p5 )_v @@ -3564,7 +3564,7 @@ C i2 ( h10 h11 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h10 h11 END SUBROUTINE eomccsd_y1_4_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_vt + = 1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h11 )_t * v ( h6 h10 p3 p4 )_v @@ -3740,7 +3740,7 @@ C i2 ( h10 h11 )_vt + = 1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h11 )_t * v ( END SUBROUTINE eomccsd_y1_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_ft + = 1 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( p9 p7 )_f @@ -3867,7 +3867,7 @@ C i1 ( p9 h11 )_ft + = 1 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( p9 p7 )_f RETURN END SUBROUTINE eomccsd_y1_4_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p9 p7 )_f + = 1 * f ( p9 p7 )_f @@ -3951,7 +3951,7 @@ C i2 ( p9 p7 )_f + = 1 * f ( p9 p7 )_f RETURN END SUBROUTINE OFFSET_eomccsd_y1_4_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p9 p7 )_f @@ -4007,7 +4007,7 @@ C i2 ( p9 p7 )_f END SUBROUTINE eomccsd_y1_4_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p9 p7 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p9 p5 p7 )_v @@ -4152,7 +4152,7 @@ C i2 ( p9 p7 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p9 p5 p7 )_ END SUBROUTINE eomccsd_y1_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p9 h11 p3 )_v @@ -4289,7 +4289,7 @@ C i1 ( p9 h11 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p9 h11 p3 END SUBROUTINE eomccsd_y1_4_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_ft + = 1 * Sum ( h5 p4 ) * t ( p4 p9 h5 h11 )_t * i2 ( h5 p4 )_f @@ -4450,7 +4450,7 @@ C i1 ( p9 h11 )_ft + = 1 * Sum ( h5 p4 ) * t ( p4 p9 h5 h11 )_t * i2 ( h5 p4 RETURN END SUBROUTINE eomccsd_y1_4_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p4 )_f + = 1 * f ( h5 p4 )_f @@ -4534,7 +4534,7 @@ C i2 ( h5 p4 )_f + = 1 * f ( h5 p4 )_f RETURN END SUBROUTINE OFFSET_eomccsd_y1_4_5_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p4 )_f @@ -4590,7 +4590,7 @@ C i2 ( h5 p4 )_f END SUBROUTINE eomccsd_y1_4_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p4 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h5 h8 p4 p7 )_v @@ -4751,7 +4751,7 @@ C i2 ( h5 p4 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h5 h8 p4 p7 )_ END SUBROUTINE eomccsd_y1_4_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_vt + = 1/2 * Sum ( h5 h6 p4 ) * t ( p4 p9 h5 h6 )_t * i2 ( h5 h6 h11 p4 )_v @@ -4918,7 +4918,7 @@ C i1 ( p9 h11 )_vt + = 1/2 * Sum ( h5 h6 p4 ) * t ( p4 p9 h5 h6 )_t * i2 ( h RETURN END SUBROUTINE eomccsd_y1_4_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h11 p4 )_v + = 1 * v ( h5 h6 h11 p4 )_v @@ -5017,7 +5017,7 @@ C i2 ( h5 h6 h11 p4 )_v + = 1 * v ( h5 h6 h11 p4 )_v RETURN END SUBROUTINE OFFSET_eomccsd_y1_4_6_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h11 p4 )_v @@ -5087,7 +5087,7 @@ C i2 ( h5 h6 h11 p4 )_v END SUBROUTINE eomccsd_y1_4_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h11 p4 )_vt + = -1 * Sum ( p7 ) * t ( p7 h11 )_t * v ( h5 h6 p4 p7 )_v @@ -5241,7 +5241,7 @@ C i2 ( h5 h6 h11 p4 )_vt + = -1 * Sum ( p7 ) * t ( p7 h11 )_t * v ( h5 h6 p4 END SUBROUTINE eomccsd_y1_4_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_vt + = 1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h11 )_t * v ( h6 p9 p3 p4 )_v @@ -5409,7 +5409,7 @@ C i1 ( p9 h11 )_vt + = 1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h11 )_t * v ( h END SUBROUTINE eomccsd_y1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yv + = -1/2 * Sum ( h12 h11 p9 ) * y ( h11 h12 p1 p9 )_y * i1 ( h2 p9 h11 h12 )_v @@ -5571,7 +5571,7 @@ C i0 ( h2 p1 )_yv + = -1/2 * Sum ( h12 h11 p9 ) * y ( h11 h12 p1 p9 )_y * i1 RETURN END SUBROUTINE eomccsd_y1_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_v + = 1 * v ( h2 p9 h11 h12 )_v @@ -5672,7 +5672,7 @@ C i1 ( h2 p9 h11 h12 )_v + = 1 * v ( h2 p9 h11 h12 )_v RETURN END SUBROUTINE OFFSET_eomccsd_y1_5_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_v @@ -5742,7 +5742,7 @@ C i1 ( h2 p9 h11 h12 )_v END SUBROUTINE eomccsd_y1_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_vt + = -1 * Sum ( h7 ) * t ( p9 h7 )_t * i2 ( h2 h7 h11 h12 )_v @@ -5885,7 +5885,7 @@ C i1 ( h2 p9 h11 h12 )_vt + = -1 * Sum ( h7 ) * t ( p9 h7 )_t * i2 ( h2 h7 h RETURN END SUBROUTINE eomccsd_y1_5_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h11 h12 )_v + = 1 * v ( h2 h7 h11 h12 )_v @@ -5993,7 +5993,7 @@ C i2 ( h2 h7 h11 h12 )_v + = 1 * v ( h2 h7 h11 h12 )_v RETURN END SUBROUTINE OFFSET_eomccsd_y1_5_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h11 h12 )_v @@ -6063,7 +6063,7 @@ C i2 ( h2 h7 h11 h12 )_v END SUBROUTINE eomccsd_y1_5_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h11 h12 )_vt + = -2 * Sum ( p3 ) * t ( p3 h11 )_t * i3 ( h2 h7 h12 p3 )_v @@ -6216,7 +6216,7 @@ C i2 ( h2 h7 h11 h12 )_vt + = -2 * Sum ( p3 ) * t ( p3 h11 )_t * i3 ( h2 h7 RETURN END SUBROUTINE eomccsd_y1_5_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p3 )_v + = 1 * v ( h2 h7 h12 p3 )_v @@ -6325,7 +6325,7 @@ C i3 ( h2 h7 h12 p3 )_v + = 1 * v ( h2 h7 h12 p3 )_v RETURN END SUBROUTINE OFFSET_eomccsd_y1_5_2_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p3 )_v @@ -6395,7 +6395,7 @@ C i3 ( h2 h7 h12 p3 )_v END SUBROUTINE eomccsd_y1_5_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h12 )_t * v ( h2 h7 p3 p5 )_v @@ -6565,7 +6565,7 @@ C i3 ( h2 h7 h12 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h12 )_t * v ( h2 h7 END SUBROUTINE eomccsd_y1_5_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h11 h12 )_vt + = 1/2 * Sum ( p3 p4 ) * t ( p3 p4 h11 h12 )_t * v ( h2 h7 p3 p4 )_v @@ -6737,7 +6737,7 @@ C i2 ( h2 h7 h11 h12 )_vt + = 1/2 * Sum ( p3 p4 ) * t ( p3 p4 h11 h12 )_t * END SUBROUTINE eomccsd_y1_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_vt + = -2 * Sum ( p3 ) * t ( p3 h11 )_t * i2 ( h2 p9 h12 p3 )_v @@ -6892,7 +6892,7 @@ C i1 ( h2 p9 h11 h12 )_vt + = -2 * Sum ( p3 ) * t ( p3 h11 )_t * i2 ( h2 p9 RETURN END SUBROUTINE eomccsd_y1_5_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p9 h12 p3 )_v + = 1 * v ( h2 p9 h12 p3 )_v @@ -6993,7 +6993,7 @@ C i2 ( h2 p9 h12 p3 )_v + = 1 * v ( h2 p9 h12 p3 )_v RETURN END SUBROUTINE OFFSET_eomccsd_y1_5_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p9 h12 p3 )_v @@ -7063,7 +7063,7 @@ C i2 ( h2 p9 h12 p3 )_v END SUBROUTINE eomccsd_y1_5_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p9 h12 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h12 )_t * v ( h2 p9 p3 p5 )_v @@ -7217,7 +7217,7 @@ C i2 ( h2 p9 h12 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h12 )_t * v ( h2 p9 END SUBROUTINE eomccsd_y1_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_ft + = 1 * Sum ( p5 ) * t ( p5 p9 h11 h12 )_t * i2 ( h2 p5 )_f @@ -7371,7 +7371,7 @@ C i1 ( h2 p9 h11 h12 )_ft + = 1 * Sum ( p5 ) * t ( p5 p9 h11 h12 )_t * i2 ( RETURN END SUBROUTINE eomccsd_y1_5_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p5 )_f + = 1 * f ( h2 p5 )_f @@ -7455,7 +7455,7 @@ C i2 ( h2 p5 )_f + = 1 * f ( h2 p5 )_f RETURN END SUBROUTINE OFFSET_eomccsd_y1_5_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p5 )_f @@ -7511,7 +7511,7 @@ C i2 ( h2 p5 )_f END SUBROUTINE eomccsd_y1_5_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p5 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h2 h8 p5 p7 )_v @@ -7672,7 +7672,7 @@ C i2 ( h2 p5 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h2 h8 p5 p7 )_ END SUBROUTINE eomccsd_y1_5_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_vt + = -2 * Sum ( h6 p4 ) * t ( p4 p9 h6 h11 )_t * i2 ( h2 h6 h12 p4 )_v @@ -7860,7 +7860,7 @@ C i1 ( h2 p9 h11 h12 )_vt + = -2 * Sum ( h6 p4 ) * t ( p4 p9 h6 h11 )_t * i2 RETURN END SUBROUTINE eomccsd_y1_5_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h12 p4 )_v + = 1 * v ( h2 h6 h12 p4 )_v @@ -7969,7 +7969,7 @@ C i2 ( h2 h6 h12 p4 )_v + = 1 * v ( h2 h6 h12 p4 )_v RETURN END SUBROUTINE OFFSET_eomccsd_y1_5_5_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h12 p4 )_v @@ -8039,7 +8039,7 @@ C i2 ( h2 h6 h12 p4 )_v END SUBROUTINE eomccsd_y1_5_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h12 p4 )_vt + = -1 * Sum ( p7 ) * t ( p7 h12 )_t * v ( h2 h6 p4 p7 )_v @@ -8209,7 +8209,7 @@ C i2 ( h2 h6 h12 p4 )_vt + = -1 * Sum ( p7 ) * t ( p7 h12 )_t * v ( h2 h6 p4 END SUBROUTINE eomccsd_y1_5_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_vt + = 1/2 * Sum ( p3 p4 ) * t ( p3 p4 h11 h12 )_t * v ( h2 p9 p3 p4 )_v @@ -8374,7 +8374,7 @@ C i1 ( h2 p9 h11 h12 )_vt + = 1/2 * Sum ( p3 p4 ) * t ( p3 p4 h11 h12 )_t * END SUBROUTINE eomccsd_y1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yv + = 1/2 * Sum ( h7 p5 p8 ) * y ( h2 h7 p5 p8 )_y * i1 ( p5 p8 h7 p1 )_v @@ -8536,7 +8536,7 @@ C i0 ( h2 p1 )_yv + = 1/2 * Sum ( h7 p5 p8 ) * y ( h2 h7 p5 p8 )_y * i1 ( p5 RETURN END SUBROUTINE eomccsd_y1_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 p8 h7 p1 )_v + = -1 * v ( p5 p8 h7 p1 )_v @@ -8637,7 +8637,7 @@ C i1 ( p5 p8 h7 p1 )_v + = -1 * v ( p5 p8 h7 p1 )_v RETURN END SUBROUTINE OFFSET_eomccsd_y1_6_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 p8 h7 p1 )_v @@ -8707,7 +8707,7 @@ C i1 ( p5 p8 h7 p1 )_v END SUBROUTINE eomccsd_y1_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 p8 h7 p1 )_vt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * v ( p5 p8 p1 p3 )_v @@ -8861,7 +8861,7 @@ C i1 ( p5 p8 h7 p1 )_vt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * v ( p5 p8 p1 p3 END SUBROUTINE eomccsd_y1_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytf + = -1 * Sum ( h3 ) * i1 ( h2 h3 )_yt * f ( h3 p1 )_f @@ -8986,7 +8986,7 @@ C i0 ( h2 p1 )_ytf + = -1 * Sum ( h3 ) * i1 ( h2 h3 )_yt * f ( h3 p1 )_f END SUBROUTINE eomccsd_y1_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_yt + = 1 * Sum ( p4 ) * t ( p4 h3 )_t * y ( h2 p4 )_y @@ -9113,7 +9113,7 @@ C i1 ( h2 h3 )_yt + = 1 * Sum ( p4 ) * t ( p4 h3 )_t * y ( h2 p4 )_y RETURN END SUBROUTINE OFFSET_eomccsd_y1_7_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_yt @@ -9169,7 +9169,7 @@ C i1 ( h2 h3 )_yt END SUBROUTINE eomccsd_y1_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_yt + = 1/2 * Sum ( h6 p5 p4 ) * t ( p4 p5 h3 h6 )_t * y ( h2 h6 p4 p5 )_y @@ -9345,7 +9345,7 @@ C i1 ( h2 h3 )_yt + = 1/2 * Sum ( h6 p5 p4 ) * t ( p4 p5 h3 h6 )_t * y ( h2 END SUBROUTINE eomccsd_y1_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = 1 * Sum ( h6 h8 ) * i1 ( h6 h8 )_yt * v ( h2 h8 h6 p1 )_v @@ -9487,7 +9487,7 @@ C i0 ( h2 p1 )_ytv + = 1 * Sum ( h6 h8 ) * i1 ( h6 h8 )_yt * v ( h2 h8 h6 p1 END SUBROUTINE eomccsd_y1_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 )_yt + = 1 * Sum ( p3 ) * t ( p3 h8 )_t * y ( h6 p3 )_y @@ -9614,7 +9614,7 @@ C i1 ( h6 h8 )_yt + = 1 * Sum ( p3 ) * t ( p3 h8 )_t * y ( h6 p3 )_y RETURN END SUBROUTINE OFFSET_eomccsd_y1_8_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 )_yt @@ -9670,7 +9670,7 @@ C i1 ( h6 h8 )_yt END SUBROUTINE eomccsd_y1_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 )_yt + = 1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h8 )_t * y ( h5 h6 p3 p4 )_y @@ -9846,7 +9846,7 @@ C i1 ( h6 h8 )_yt + = 1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h8 )_t * y ( h5 END SUBROUTINE eomccsd_y1_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = 1 * Sum ( p7 p8 ) * i1 ( p7 p8 )_yt * v ( h2 p8 p1 p7 )_v @@ -9988,7 +9988,7 @@ C i0 ( h2 p1 )_ytv + = 1 * Sum ( p7 p8 ) * i1 ( p7 p8 )_yt * v ( h2 p8 p1 p7 END SUBROUTINE eomccsd_y1_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p8 )_yt + = 1 * Sum ( h4 ) * t ( p7 h4 )_t * y ( h4 p8 )_y @@ -10115,7 +10115,7 @@ C i1 ( p7 p8 )_yt + = 1 * Sum ( h4 ) * t ( p7 h4 )_t * y ( h4 p8 )_y RETURN END SUBROUTINE OFFSET_eomccsd_y1_9_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p8 )_yt @@ -10171,7 +10171,7 @@ C i1 ( p7 p8 )_yt END SUBROUTINE eomccsd_y1_9_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p8 )_yt + = 1/2 * Sum ( h6 h5 p3 ) * t ( p3 p7 h5 h6 )_t * y ( h5 h6 p3 p8 )_y @@ -10347,7 +10347,7 @@ C i1 ( p7 p8 )_yt + = 1/2 * Sum ( h6 h5 p3 ) * t ( p3 p7 h5 h6 )_t * y ( h5 END SUBROUTINE eomccsd_y1_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = 1 * Sum ( h6 h4 p5 ) * i1 ( h2 h6 h4 p5 )_yt * v ( h4 p5 h6 p1 )_v @@ -10492,7 +10492,7 @@ C i0 ( h2 p1 )_ytv + = 1 * Sum ( h6 h4 p5 ) * i1 ( h2 h6 h4 p5 )_yt * v ( h4 END SUBROUTINE eomccsd_y1_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h6 h4 p5 )_yt + = 1 * Sum ( p3 ) * t ( p3 h4 )_t * y ( h2 h6 p3 p5 )_y @@ -10661,7 +10661,7 @@ C i1 ( h2 h6 h4 p5 )_yt + = 1 * Sum ( p3 ) * t ( p3 h4 )_t * y ( h2 h6 p3 p5 RETURN END SUBROUTINE OFFSET_eomccsd_y1_10_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h6 h4 p5 )_yt @@ -10733,7 +10733,7 @@ C i1 ( h2 h6 h4 p5 )_yt END SUBROUTINE eomccsd_y1_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = 1 * Sum ( p10 h9 ) * i1 ( p10 h9 )_yt * v ( h2 h9 p1 p10 )_v @@ -10892,7 +10892,7 @@ C i0 ( h2 p1 )_ytv + = 1 * Sum ( p10 h9 ) * i1 ( p10 h9 )_yt * v ( h2 h9 p1 END SUBROUTINE eomccsd_y1_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_yt + = 1 * Sum ( h5 p3 ) * t ( p3 p10 h5 h9 )_t * y ( h5 p3 )_y @@ -11053,7 +11053,7 @@ C i1 ( p10 h9 )_yt + = 1 * Sum ( h5 p3 ) * t ( p3 p10 h5 h9 )_t * y ( h5 p3 RETURN END SUBROUTINE OFFSET_eomccsd_y1_11_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_yt @@ -11109,7 +11109,7 @@ C i1 ( p10 h9 )_yt END SUBROUTINE eomccsd_y1_11_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytt + = -1 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h6 h9 )_yt @@ -11237,7 +11237,7 @@ C i1 ( p10 h9 )_ytt + = -1 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h6 h9 )_yt END SUBROUTINE eomccsd_y1_11_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 )_yt + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * y ( h6 p5 )_y @@ -11364,7 +11364,7 @@ C i2 ( h6 h9 )_yt + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * y ( h6 p5 )_y RETURN END SUBROUTINE OFFSET_eomccsd_y1_11_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 )_yt @@ -11420,7 +11420,7 @@ C i2 ( h6 h9 )_yt END SUBROUTINE eomccsd_y1_11_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 )_yt + = 1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h9 )_t * y ( h5 h6 p3 p4 )_y @@ -11596,7 +11596,7 @@ C i2 ( h6 h9 )_yt + = 1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h9 )_t * y ( h5 END SUBROUTINE eomccsd_y1_11_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytt + = -1/2 * Sum ( h5 h6 p3 ) * t ( p3 p10 h5 h6 )_t * i2 ( h5 h6 h9 p3 )_yt @@ -11764,7 +11764,7 @@ C i1 ( p10 h9 )_ytt + = -1/2 * Sum ( h5 h6 p3 ) * t ( p3 p10 h5 h6 )_t * i2 END SUBROUTINE eomccsd_y1_11_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h9 p3 )_yt + = 1 * Sum ( p7 ) * t ( p7 h9 )_t * y ( h5 h6 p3 p7 )_y @@ -11917,7 +11917,7 @@ C i2 ( h5 h6 h9 p3 )_yt + = 1 * Sum ( p7 ) * t ( p7 h9 )_t * y ( h5 h6 p3 p7 RETURN END SUBROUTINE OFFSET_eomccsd_y1_11_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h9 p3 )_yt @@ -11989,7 +11989,7 @@ C i2 ( h5 h6 h9 p3 )_yt END SUBROUTINE eomccsd_y1_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = 1/2 * Sum ( p9 h12 h6 ) * i1 ( h2 p9 h6 h12 )_yt * v ( h6 h12 p1 p9 )_v @@ -12154,7 +12154,7 @@ C i0 ( h2 p1 )_ytv + = 1/2 * Sum ( p9 h12 h6 ) * i1 ( h2 p9 h6 h12 )_yt * v END SUBROUTINE eomccsd_y1_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h6 h12 )_yt + = -1 * Sum ( p3 ) * t ( p3 p9 h6 h12 )_t * y ( h2 p3 )_y @@ -12308,7 +12308,7 @@ C i1 ( h2 p9 h6 h12 )_yt + = -1 * Sum ( p3 ) * t ( p3 p9 h6 h12 )_t * y ( h2 RETURN END SUBROUTINE OFFSET_eomccsd_y1_12_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h6 h12 )_yt @@ -12380,7 +12380,7 @@ C i1 ( h2 p9 h6 h12 )_yt END SUBROUTINE eomccsd_y1_12_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h6 h12 )_ytt + = -1/2 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h2 h10 h6 h12 )_yt @@ -12524,7 +12524,7 @@ C i1 ( h2 p9 h6 h12 )_ytt + = -1/2 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h2 END SUBROUTINE eomccsd_y1_12_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h6 h12 )_yt + = -1 * Sum ( p4 p3 ) * t ( p3 p4 h6 h12 )_t * y ( h2 h10 p3 p4 )_y @@ -12695,7 +12695,7 @@ C i2 ( h2 h10 h6 h12 )_yt + = -1 * Sum ( p4 p3 ) * t ( p3 p4 h6 h12 )_t * y RETURN END SUBROUTINE OFFSET_eomccsd_y1_12_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h6 h12 )_yt @@ -12767,7 +12767,7 @@ C i2 ( h2 h10 h6 h12 )_yt END SUBROUTINE eomccsd_y1_12_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h6 h12 )_ytt + = 2 * Sum ( p5 ) * t ( p5 h12 )_t * i3 ( h2 h10 h6 p5 )_yt @@ -12921,7 +12921,7 @@ C i2 ( h2 h10 h6 h12 )_ytt + = 2 * Sum ( p5 ) * t ( p5 h12 )_t * i3 ( h2 h10 END SUBROUTINE eomccsd_y1_12_2_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h10 h6 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h6 )_t * y ( h2 h10 p5 p7 )_y @@ -13090,7 +13090,7 @@ C i3 ( h2 h10 h6 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h6 )_t * y ( h2 h10 p5 RETURN END SUBROUTINE OFFSET_eomccsd_y1_12_2_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h10 h6 p5 )_yt @@ -13162,7 +13162,7 @@ C i3 ( h2 h10 h6 p5 )_yt END SUBROUTINE eomccsd_y1_12_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h6 h12 )_ytt + = 2 * Sum ( h5 p3 ) * t ( p3 p9 h5 h12 )_t * i2 ( h2 h5 h6 p3 )_yt @@ -13351,7 +13351,7 @@ C i1 ( h2 p9 h6 h12 )_ytt + = 2 * Sum ( h5 p3 ) * t ( p3 p9 h5 h12 )_t * i2 END SUBROUTINE eomccsd_y1_12_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h5 h6 p3 )_yt + = 1 * Sum ( p7 ) * t ( p7 h6 )_t * y ( h2 h5 p3 p7 )_y @@ -13520,7 +13520,7 @@ C i2 ( h2 h5 h6 p3 )_yt + = 1 * Sum ( p7 ) * t ( p7 h6 )_t * y ( h2 h5 p3 p7 RETURN END SUBROUTINE OFFSET_eomccsd_y1_12_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h5 h6 p3 )_yt @@ -13592,7 +13592,7 @@ C i2 ( h2 h5 h6 p3 )_yt END SUBROUTINE eomccsd_y1_12_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h6 h12 )_ytt + = -1 * t ( p9 h6 )_t * i2 ( h2 h12 )_yt @@ -13738,7 +13738,7 @@ C i1 ( h2 p9 h6 h12 )_ytt + = -1 * t ( p9 h6 )_t * i2 ( h2 h12 )_yt END SUBROUTINE eomccsd_y1_12_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h12 )_yt + = 1 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h12 )_t * y ( h2 h5 p3 p4 )_y @@ -13913,7 +13913,7 @@ C i2 ( h2 h12 )_yt + = 1 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h12 )_t * y ( h2 RETURN END SUBROUTINE OFFSET_eomccsd_y1_12_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h12 )_yt @@ -13969,7 +13969,7 @@ C i2 ( h2 h12 )_yt END SUBROUTINE eomccsd_y1_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = 1/4 * Sum ( h7 h8 h6 ) * i1 ( h2 h7 h6 h8 )_yt * v ( h6 h8 h7 p1 )_v @@ -14126,7 +14126,7 @@ C i0 ( h2 p1 )_ytv + = 1/4 * Sum ( h7 h8 h6 ) * i1 ( h2 h7 h6 h8 )_yt * v ( END SUBROUTINE eomccsd_y1_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h6 h8 )_yt + = -1 * Sum ( p4 p3 ) * t ( p3 p4 h6 h8 )_t * y ( h2 h7 p3 p4 )_y @@ -14297,7 +14297,7 @@ C i1 ( h2 h7 h6 h8 )_yt + = -1 * Sum ( p4 p3 ) * t ( p3 p4 h6 h8 )_t * y ( h RETURN END SUBROUTINE OFFSET_eomccsd_y1_13_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h6 h8 )_yt @@ -14369,7 +14369,7 @@ C i1 ( h2 h7 h6 h8 )_yt END SUBROUTINE eomccsd_y1_13_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h6 h8 )_ytt + = 2 * Sum ( p3 ) * t ( p3 h8 )_t * i2 ( h2 h7 h6 p3 )_yt @@ -14523,7 +14523,7 @@ C i1 ( h2 h7 h6 h8 )_ytt + = 2 * Sum ( p3 ) * t ( p3 h8 )_t * i2 ( h2 h7 h6 END SUBROUTINE eomccsd_y1_13_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h6 p3 )_yt + = 1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h2 h7 p3 p5 )_y @@ -14692,7 +14692,7 @@ C i2 ( h2 h7 h6 p3 )_yt + = 1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h2 h7 p3 p5 RETURN END SUBROUTINE OFFSET_eomccsd_y1_13_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h6 p3 )_yt @@ -14764,7 +14764,7 @@ C i2 ( h2 h7 h6 p3 )_yt END SUBROUTINE eomccsd_y1_14(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = 1 * Sum ( p8 h6 p7 ) * i1 ( h2 p8 h6 p7 )_yt * v ( h6 p7 p1 p8 )_v @@ -14917,7 +14917,7 @@ C i0 ( h2 p1 )_ytv + = 1 * Sum ( p8 h6 p7 ) * i1 ( h2 p8 h6 p7 )_yt * v ( h6 END SUBROUTINE eomccsd_y1_14_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p8 h6 p7 )_yt + = 1 * Sum ( h5 p3 ) * t ( p3 p8 h5 h6 )_t * y ( h2 h5 p3 p7 )_y @@ -15119,7 +15119,7 @@ C i1 ( h2 p8 h6 p7 )_yt + = 1 * Sum ( h5 p3 ) * t ( p3 p8 h5 h6 )_t * y ( h2 RETURN END SUBROUTINE OFFSET_eomccsd_y1_14_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p8 h6 p7 )_yt @@ -15191,7 +15191,7 @@ C i1 ( h2 p8 h6 p7 )_yt END SUBROUTINE eomccsd_y1_14_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p8 h6 p7 )_ytt + = -1 * Sum ( h4 ) * t ( p8 h4 )_t * i2 ( h2 h4 h6 p7 )_yt @@ -15335,7 +15335,7 @@ C i1 ( h2 p8 h6 p7 )_ytt + = -1 * Sum ( h4 ) * t ( p8 h4 )_t * i2 ( h2 h4 h6 END SUBROUTINE eomccsd_y1_14_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h6 p7 )_yt + = 1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h2 h4 p5 p7 )_y @@ -15504,7 +15504,7 @@ C i2 ( h2 h4 h6 p7 )_yt + = 1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h2 h4 p5 p7 RETURN END SUBROUTINE OFFSET_eomccsd_y1_14_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h6 p7 )_yt diff --git a/src/tce/eomccsd/eomccsd_y2.F b/src/tce/eomccsd/eomccsd_y2.F index e00576f6c3..4a1e6e4c77 100644 --- a/src/tce/eomccsd/eomccsd_y2.F +++ b/src/tce/eomccsd/eomccsd_y2.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_y2(d_f1,d_i0,d_t1,d_t2,d_v2,d_y1,d_y2,k_f1_offs &et,k_i0_offset,k_t1_offset,k_t2_offset,k_v2_offset,k_y1_offset,k_y &2_offset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yf + = 1 * P( 4 ) * y ( h3 p1 )_y * i1 ( h4 p2 )_f @@ -302,7 +302,7 @@ C i2 ( h3 h6 h8 p1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h3 END SUBROUTINE eomccsd_y2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yf + = 1 * P( 4 ) * y ( h3 p1 )_y * i1 ( h4 p2 )_f @@ -460,7 +460,7 @@ C i0 ( h3 h4 p1 p2 )_yf + = 1 * P( 4 ) * y ( h3 p1 )_y * i1 ( h4 p2 )_f RETURN END SUBROUTINE eomccsd_y2_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_f + = 1 * f ( h3 p1 )_f @@ -544,7 +544,7 @@ C i1 ( h3 p1 )_f + = 1 * f ( h3 p1 )_f RETURN END SUBROUTINE OFFSET_eomccsd_y2_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_f @@ -600,7 +600,7 @@ C i1 ( h3 p1 )_f END SUBROUTINE eomccsd_y2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 p1 p5 )_v @@ -761,7 +761,7 @@ C i1 ( h3 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 p1 p5 )_ END SUBROUTINE eomccsd_y2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 2 ) * Sum ( h7 ) * y ( h7 p1 )_y * i1 ( h3 h4 h7 p2 )_v @@ -911,7 +911,7 @@ C i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 2 ) * Sum ( h7 ) * y ( h7 p1 )_y * i1 ( RETURN END SUBROUTINE eomccsd_y2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h7 p1 )_v + = 1 * v ( h3 h4 h7 p1 )_v @@ -1012,7 +1012,7 @@ C i1 ( h3 h4 h7 p1 )_v + = 1 * v ( h3 h4 h7 p1 )_v RETURN END SUBROUTINE OFFSET_eomccsd_y2_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h7 p1 )_v @@ -1082,7 +1082,7 @@ C i1 ( h3 h4 h7 p1 )_v END SUBROUTINE eomccsd_y2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h7 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h7 )_t * v ( h3 h4 p1 p5 )_v @@ -1236,7 +1236,7 @@ C i1 ( h3 h4 h7 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h7 )_t * v ( h3 h4 p1 p END SUBROUTINE eomccsd_y2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 2 ) * Sum ( p5 ) * y ( h3 p5 )_y * v ( h4 p5 p1 p2 )_v @@ -1389,7 +1389,7 @@ C i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 2 ) * Sum ( p5 ) * y ( h3 p5 )_y * v ( h END SUBROUTINE eomccsd_y2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yf + = -1 * P( 2 ) * Sum ( h9 ) * y ( h3 h9 p1 p2 )_y * i1 ( h4 h9 )_f @@ -1550,7 +1550,7 @@ C i0 ( h3 h4 p1 p2 )_yf + = -1 * P( 2 ) * Sum ( h9 ) * y ( h3 h9 p1 p2 )_y * RETURN END SUBROUTINE eomccsd_y2_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_f + = 1 * f ( h3 h9 )_f @@ -1634,7 +1634,7 @@ C i1 ( h3 h9 )_f + = 1 * f ( h3 h9 )_f RETURN END SUBROUTINE OFFSET_eomccsd_y2_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_f @@ -1690,7 +1690,7 @@ C i1 ( h3 h9 )_f END SUBROUTINE eomccsd_y2_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_ft + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 p5 )_f @@ -1817,7 +1817,7 @@ C i1 ( h3 h9 )_ft + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 p5 )_f RETURN END SUBROUTINE eomccsd_y2_4_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_f + = 1 * f ( h3 p5 )_f @@ -1901,7 +1901,7 @@ C i2 ( h3 p5 )_f + = 1 * f ( h3 p5 )_f RETURN END SUBROUTINE OFFSET_eomccsd_y2_4_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_f @@ -1957,7 +1957,7 @@ C i2 ( h3 p5 )_f END SUBROUTINE eomccsd_y2_4_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h3 h8 p5 p7 )_v @@ -2118,7 +2118,7 @@ C i2 ( h3 p5 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h3 h8 p5 p7 )_ END SUBROUTINE eomccsd_y2_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 h9 p5 )_v @@ -2263,7 +2263,7 @@ C i1 ( h3 h9 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 h9 p5 )_ END SUBROUTINE eomccsd_y2_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vt + = -1/2 * Sum ( h8 p5 p6 ) * t ( p5 p6 h8 h9 )_t * v ( h3 h8 p5 p6 )_v @@ -2439,7 +2439,7 @@ C i1 ( h3 h9 )_vt + = -1/2 * Sum ( h8 p5 p6 ) * t ( p5 p6 h8 h9 )_t * v ( h3 END SUBROUTINE eomccsd_y2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yf + = 1 * P( 2 ) * Sum ( p10 ) * y ( h3 h4 p1 p10 )_y * i1 ( p10 p2 )_f @@ -2600,7 +2600,7 @@ C i0 ( h3 h4 p1 p2 )_yf + = 1 * P( 2 ) * Sum ( p10 ) * y ( h3 h4 p1 p10 )_y RETURN END SUBROUTINE eomccsd_y2_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_f + = 1 * f ( p10 p1 )_f @@ -2684,7 +2684,7 @@ C i1 ( p10 p1 )_f + = 1 * f ( p10 p1 )_f RETURN END SUBROUTINE OFFSET_eomccsd_y2_5_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_f @@ -2741,7 +2741,7 @@ C i1 ( p10 p1 )_f END SUBROUTINE eomccsd_y2_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p10 p1 p5 )_v @@ -2886,7 +2886,7 @@ C i1 ( p10 p1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p10 p1 p5 END SUBROUTINE eomccsd_y2_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_vt + = 1/2 * Sum ( h7 h8 p6 ) * t ( p6 p10 h7 h8 )_t * v ( h7 h8 p1 p6 )_v @@ -3062,7 +3062,7 @@ C i1 ( p10 p1 )_vt + = 1/2 * Sum ( h7 h8 p6 ) * t ( p6 p10 h7 h8 )_t * v ( h END SUBROUTINE eomccsd_y2_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_vtt + = -1 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h6 p1 )_vt @@ -3190,7 +3190,7 @@ C i1 ( p10 p1 )_vtt + = -1 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h6 p1 )_vt END SUBROUTINE eomccsd_y2_5_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p1 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h6 h8 p1 p7 )_v @@ -3350,7 +3350,7 @@ C i2 ( h6 p1 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h6 h8 p1 p7 )_ RETURN END SUBROUTINE OFFSET_eomccsd_y2_5_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p1 )_vt @@ -3406,7 +3406,7 @@ C i2 ( h6 p1 )_vt END SUBROUTINE eomccsd_y2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yv + = 1/2 * Sum ( h10 h9 ) * y ( h9 h10 p1 p2 )_y * i1 ( h3 h4 h9 h10 )_v @@ -3565,7 +3565,7 @@ C i0 ( h3 h4 p1 p2 )_yv + = 1/2 * Sum ( h10 h9 ) * y ( h9 h10 p1 p2 )_y * i1 RETURN END SUBROUTINE eomccsd_y2_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_v + = 1 * v ( h3 h4 h9 h10 )_v @@ -3663,7 +3663,7 @@ C i1 ( h3 h4 h9 h10 )_v + = 1 * v ( h3 h4 h9 h10 )_v RETURN END SUBROUTINE OFFSET_eomccsd_y2_6_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_v @@ -3733,7 +3733,7 @@ C i1 ( h3 h4 h9 h10 )_v END SUBROUTINE eomccsd_y2_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_vt + = -2 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 h4 h10 p5 )_v @@ -3886,7 +3886,7 @@ C i1 ( h3 h4 h9 h10 )_vt + = -2 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 h4 h1 RETURN END SUBROUTINE eomccsd_y2_6_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h10 p5 )_v + = 1 * v ( h3 h4 h10 p5 )_v @@ -3985,7 +3985,7 @@ C i2 ( h3 h4 h10 p5 )_v + = 1 * v ( h3 h4 h10 p5 )_v RETURN END SUBROUTINE OFFSET_eomccsd_y2_6_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h10 p5 )_v @@ -4055,7 +4055,7 @@ C i2 ( h3 h4 h10 p5 )_v END SUBROUTINE eomccsd_y2_6_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h10 p5 )_vt + = -1/2 * Sum ( p7 ) * t ( p7 h10 )_t * v ( h3 h4 p5 p7 )_v @@ -4209,7 +4209,7 @@ C i2 ( h3 h4 h10 p5 )_vt + = -1/2 * Sum ( p7 ) * t ( p7 h10 )_t * v ( h3 h4 END SUBROUTINE eomccsd_y2_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h9 h10 )_t * v ( h3 h4 p5 p6 )_v @@ -4371,7 +4371,7 @@ C i1 ( h3 h4 h9 h10 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h9 h10 )_t * v END SUBROUTINE eomccsd_y2_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 4 ) * Sum ( h9 p7 ) * y ( h3 h9 p1 p7 )_y * i1 ( h4 p7 h9 p2 )_v @@ -4570,7 +4570,7 @@ C i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 4 ) * Sum ( h9 p7 ) * y ( h3 h9 p1 p7 )_ RETURN END SUBROUTINE eomccsd_y2_7_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p7 h9 p1 )_v + = 1 * v ( h3 p7 h9 p1 )_v @@ -4671,7 +4671,7 @@ C i1 ( h3 p7 h9 p1 )_v + = 1 * v ( h3 p7 h9 p1 )_v RETURN END SUBROUTINE OFFSET_eomccsd_y2_7_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p7 h9 p1 )_v @@ -4741,7 +4741,7 @@ C i1 ( h3 p7 h9 p1 )_v END SUBROUTINE eomccsd_y2_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p7 h9 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h9 )_t * v ( h3 p7 p1 p5 )_v @@ -4895,7 +4895,7 @@ C i1 ( h3 p7 h9 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h9 )_t * v ( h3 p7 p1 p END SUBROUTINE eomccsd_y2_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p7 h9 p1 )_vt + = -1 * Sum ( h8 p6 ) * t ( p6 p7 h8 h9 )_t * v ( h3 h8 p1 p6 )_v @@ -5098,7 +5098,7 @@ C i1 ( h3 p7 h9 p1 )_vt + = -1 * Sum ( h8 p6 ) * t ( p6 p7 h8 h9 )_t * v ( h END SUBROUTINE eomccsd_y2_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yv + = 1/2 * Sum ( p6 p5 ) * y ( h3 h4 p5 p6 )_y * v ( p5 p6 p1 p2 )_v @@ -5258,7 +5258,7 @@ C i0 ( h3 h4 p1 p2 )_yv + = 1/2 * Sum ( p6 p5 ) * y ( h3 h4 p5 p6 )_y * v ( END SUBROUTINE eomccsd_y2_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = 1 * P( 2 ) * Sum ( h9 ) * i1 ( h3 h9 )_yt * v ( h4 h9 p1 p2 )_v @@ -5419,7 +5419,7 @@ C i0 ( h3 h4 p1 p2 )_ytv + = 1 * P( 2 ) * Sum ( h9 ) * i1 ( h3 h9 )_yt * v ( END SUBROUTINE eomccsd_y2_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_yt + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * y ( h3 p5 )_y @@ -5546,7 +5546,7 @@ C i1 ( h3 h9 )_yt + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * y ( h3 p5 )_y RETURN END SUBROUTINE OFFSET_eomccsd_y2_9_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_yt @@ -5602,7 +5602,7 @@ C i1 ( h3 h9 )_yt END SUBROUTINE eomccsd_y2_9_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_yt + = -1/2 * Sum ( h7 p6 p5 ) * t ( p5 p6 h7 h9 )_t * y ( h3 h7 p5 p6 )_y @@ -5778,7 +5778,7 @@ C i1 ( h3 h9 )_yt + = -1/2 * Sum ( h7 p6 p5 ) * t ( p5 p6 h7 h9 )_t * y ( h3 END SUBROUTINE eomccsd_y2_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytf + = 1 * P( 2 ) * Sum ( h5 ) * i1 ( h3 h4 h5 p1 )_yt * f ( h5 p2 )_f @@ -5932,7 +5932,7 @@ C i0 ( h3 h4 p1 p2 )_ytf + = 1 * P( 2 ) * Sum ( h5 ) * i1 ( h3 h4 h5 p1 )_yt END SUBROUTINE eomccsd_y2_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h5 p1 )_yt + = -1 * Sum ( p6 ) * t ( p6 h5 )_t * y ( h3 h4 p1 p6 )_y @@ -6085,7 +6085,7 @@ C i1 ( h3 h4 h5 p1 )_yt + = -1 * Sum ( p6 ) * t ( p6 h5 )_t * y ( h3 h4 p1 p RETURN END SUBROUTINE OFFSET_eomccsd_y2_10_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h5 p1 )_yt @@ -6157,7 +6157,7 @@ C i1 ( h3 h4 h5 p1 )_yt END SUBROUTINE eomccsd_y2_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = 1 * P( 4 ) * Sum ( h7 h6 ) * i1 ( h3 h7 h6 p1 )_yt * v ( h4 h6 h7 p2 )_v @@ -6343,7 +6343,7 @@ C i0 ( h3 h4 p1 p2 )_ytv + = 1 * P( 4 ) * Sum ( h7 h6 ) * i1 ( h3 h7 h6 p1 ) END SUBROUTINE eomccsd_y2_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h7 h6 p1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h3 h7 p1 p5 )_y @@ -6512,7 +6512,7 @@ C i1 ( h3 h7 h6 p1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h3 h7 p1 p5 RETURN END SUBROUTINE OFFSET_eomccsd_y2_11_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h7 h6 p1 )_yt @@ -6584,7 +6584,7 @@ C i1 ( h3 h7 h6 p1 )_yt END SUBROUTINE eomccsd_y2_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = 1 * Sum ( h6 p7 ) * i1 ( h3 h4 h6 p7 )_yt * v ( h6 p7 p1 p2 )_v @@ -6734,7 +6734,7 @@ C i0 ( h3 h4 p1 p2 )_ytv + = 1 * Sum ( h6 p7 ) * i1 ( h3 h4 h6 p7 )_yt * v ( END SUBROUTINE eomccsd_y2_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h6 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h3 h4 p5 p7 )_y @@ -6887,7 +6887,7 @@ C i1 ( h3 h4 h6 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h3 h4 p5 p RETURN END SUBROUTINE OFFSET_eomccsd_y2_12_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h6 p7 )_yt @@ -6959,7 +6959,7 @@ C i1 ( h3 h4 h6 p7 )_yt END SUBROUTINE eomccsd_y2_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = -1/2 * P( 2 ) * Sum ( p6 ) * i1 ( p6 p1 )_yt * v ( h3 h4 p2 p6 )_v @@ -7121,7 +7121,7 @@ C i0 ( h3 h4 p1 p2 )_ytv + = -1/2 * P( 2 ) * Sum ( p6 ) * i1 ( p6 p1 )_yt * END SUBROUTINE eomccsd_y2_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p6 p1 )_yt + = 1 * Sum ( h8 h7 p5 ) * t ( p5 p6 h7 h8 )_t * y ( h7 h8 p1 p5 )_y @@ -7296,7 +7296,7 @@ C i1 ( p6 p1 )_yt + = 1 * Sum ( h8 h7 p5 ) * t ( p5 p6 h7 h8 )_t * y ( h7 h8 RETURN END SUBROUTINE OFFSET_eomccsd_y2_13_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p6 p1 )_yt @@ -7352,7 +7352,7 @@ C i1 ( p6 p1 )_yt END SUBROUTINE eomccsd_y2_14(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = 1/4 * Sum ( h9 h8 ) * i1 ( h3 h4 h8 h9 )_yt * v ( h8 h9 p1 p2 )_v @@ -7514,7 +7514,7 @@ C i0 ( h3 h4 p1 p2 )_ytv + = 1/4 * Sum ( h9 h8 ) * i1 ( h3 h4 h8 h9 )_yt * v END SUBROUTINE eomccsd_y2_14_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h8 h9 )_yt + = 1 * Sum ( p6 p5 ) * t ( p5 p6 h8 h9 )_t * y ( h3 h4 p5 p6 )_y @@ -7675,7 +7675,7 @@ C i1 ( h3 h4 h8 h9 )_yt + = 1 * Sum ( p6 p5 ) * t ( p5 p6 h8 h9 )_t * y ( h3 RETURN END SUBROUTINE OFFSET_eomccsd_y2_14_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h8 h9 )_yt @@ -7747,7 +7747,7 @@ C i1 ( h3 h4 h8 h9 )_yt END SUBROUTINE eomccsd_y2_14_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h8 h9 )_ytt + = 2 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 h4 h8 p5 )_yt @@ -7901,7 +7901,7 @@ C i1 ( h3 h4 h8 h9 )_ytt + = 2 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 h4 h8 END SUBROUTINE eomccsd_y2_14_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h8 p5 )_yt + = -1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h3 h4 p5 p7 )_y @@ -8054,7 +8054,7 @@ C i2 ( h3 h4 h8 p5 )_yt + = -1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h3 h4 p5 p RETURN END SUBROUTINE OFFSET_eomccsd_y2_14_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h8 p5 )_yt @@ -8126,7 +8126,7 @@ C i2 ( h3 h4 h8 p5 )_yt END SUBROUTINE eomccsd_y2_15(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yttv + = -1 * P( 4 ) * Sum ( p5 h8 ) * i1 ( h3 p5 h8 p1 )_ytt * v ( h4 h8 p2 p5 )_v @@ -8328,7 +8328,7 @@ C i0 ( h3 h4 p1 p2 )_yttv + = -1 * P( 4 ) * Sum ( p5 h8 ) * i1 ( h3 p5 h8 p1 END SUBROUTINE eomccsd_y2_15_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p5 h8 p1 )_ytt + = 1 * Sum ( h6 ) * t ( p5 h6 )_t * i2 ( h3 h6 h8 p1 )_yt @@ -8471,7 +8471,7 @@ C i1 ( h3 p5 h8 p1 )_ytt + = 1 * Sum ( h6 ) * t ( p5 h6 )_t * i2 ( h3 h6 h8 RETURN END SUBROUTINE OFFSET_eomccsd_y2_15_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p5 h8 p1 )_ytt @@ -8543,7 +8543,7 @@ C i1 ( h3 p5 h8 p1 )_ytt END SUBROUTINE eomccsd_y2_15_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h6 h8 p1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h3 h6 p1 p7 )_y @@ -8712,7 +8712,7 @@ C i2 ( h3 h6 h8 p1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h3 h6 p1 p7 RETURN END SUBROUTINE OFFSET_eomccsd_y2_15_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h6 h8 p1 )_yt diff --git a/src/tce/gatodra.F b/src/tce/gatodra.F index a809423362..f7013949cb 100644 --- a/src/tce/gatodra.F +++ b/src/tce/gatodra.F @@ -1,6 +1,6 @@ subroutine gatodra(d_sf) c -c $Id: gatodra.F,v 1.4 2008-01-14 15:20:32 jhammond Exp $ +c $Id$ c c Unload data from GA to DRA c diff --git a/src/tce/gatoeaf.F b/src/tce/gatoeaf.F index ff81892f48..995ed6f2a0 100644 --- a/src/tce/gatoeaf.F +++ b/src/tce/gatoeaf.F @@ -1,6 +1,6 @@ subroutine gatoeaf(d_sf) c -c $Id: gatoeaf.F,v 1.3 2008-01-14 15:20:32 jhammond Exp $ +c $Id$ c c Unload data from GA to EAF c diff --git a/src/tce/get_block.F b/src/tce/get_block.F index 854200a2bc..be5aaf1922 100644 --- a/src/tce/get_block.F +++ b/src/tce/get_block.F @@ -1,6 +1,6 @@ subroutine get_block(d_file,array,size,offset) c -c $Id: get_block.F,v 1.16 2008-06-09 19:19:54 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -157,7 +157,7 @@ c subroutine get_block_sf(d_file,array,size,offset) c -c $Id: get_block.F,v 1.16 2008-06-09 19:19:54 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/get_block_ind.F b/src/tce/get_block_ind.F index 739731ed87..45c7fea64e 100644 --- a/src/tce/get_block_ind.F +++ b/src/tce/get_block_ind.F @@ -1,7 +1,7 @@ subroutine get_block_ind(d_file,array,size,key_ix,indexc) c subroutine get_block_ind(d_file,array,size,offset,indexc) c -c $Id: get_block_ind.F,v 1.8 2008-09-17 03:46:20 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -683,7 +683,7 @@ c & w2b,w1b,w4b,w3b) c subroutine get_block_ind(d_file,array,size,offset,indexc) c -c $Id: get_block_ind.F,v 1.8 2008-09-17 03:46:20 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/get_block_ind_sf.F b/src/tce/get_block_ind_sf.F index ed4561f798..57e2ee6988 100644 --- a/src/tce/get_block_ind_sf.F +++ b/src/tce/get_block_ind_sf.F @@ -1,7 +1,7 @@ subroutine get_block_ind_sf(d_file,array,size,key_ix,indexc) c subroutine get_block_ind_sf(d_file,array,size,offset,indexc) c -c $Id: get_block_ind_sf.F,v 1.2 2008-07-28 19:06:26 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -685,7 +685,7 @@ c & w2b,w1b,w4b,w3b) c subroutine get_block_ind_sf(d_file,array,size,offset,indexc) c -c $Id: get_block_ind_sf.F,v 1.2 2008-07-28 19:06:26 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/get_hash_block.F b/src/tce/get_hash_block.F index 1a8af34b49..0c2c2f1adc 100644 --- a/src/tce/get_hash_block.F +++ b/src/tce/get_hash_block.F @@ -1,6 +1,6 @@ subroutine get_hash_block(d_file,array,size,hash,key) c -c $Id: get_hash_block.F,v 1.8 2008-07-28 19:16:25 jhammond Exp $ +c $Id$ c implicit none #include "tce.fh" @@ -47,7 +47,7 @@ c subroutine get_hash_block_i(d_file,array,size,hash,key, & g2b,g1b,g4b,g3b) c -c $Id: get_hash_block.F,v 1.8 2008-07-28 19:16:25 jhammond Exp $ +c $Id$ c implicit none #include "tce.fh" diff --git a/src/tce/get_hash_block_ma.F b/src/tce/get_hash_block_ma.F index 9480177e75..326ed7688f 100644 --- a/src/tce/get_hash_block_ma.F +++ b/src/tce/get_hash_block_ma.F @@ -1,6 +1,6 @@ subroutine get_hash_block_ma(big_array,array,size,hash,key) c -c $Id: get_hash_block_ma.F,v 1.1 2008-10-08 20:46:07 kowalski Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/gradients/GNUmakefile b/src/tce/gradients/GNUmakefile index e5e771d3a9..34d46b50b1 100644 --- a/src/tce/gradients/GNUmakefile +++ b/src/tce/gradients/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.4 2009-03-02 22:40:39 d3p975 Exp $ +#$Id$ OBJ_OPTIMIZE = tce_gradient.o ccsd_energy.o ccsd_left.o ccsd_gradient.o \ ccsd_1pdm_hh_mo.o ccsd_1pdm_pp_mo.o ccsd_1pdm_hp_mo.o ccsd_1pdm_ph_mo.o \ diff --git a/src/tce/gradients/ccsd_1pdm_hh_mo.F b/src/tce/gradients/ccsd_1pdm_hh_mo.F index 4f6ee2074c..28b70a77ef 100644 --- a/src/tce/gradients/ccsd_1pdm_hh_mo.F +++ b/src/tce/gradients/ccsd_1pdm_hh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_1pdm_hh_mo(d_i0,d_t1,d_t2,d_y1,d_y2,k_i0_offset,k_ &t1_offset,k_t2_offset,k_y1_offset,k_y2_offset) -C $Id: ccsd_1pdm_hh_mo.F,v 1.1 2008-09-30 18:59:13 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -29,7 +29,7 @@ C i0 ( h2 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 END SUBROUTINE ccsd_1pdm_hh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_1pdm_hh_mo.F,v 1.1 2008-09-30 18:59:13 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -157,7 +157,7 @@ C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y END SUBROUTINE ccsd_1pdm_hh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_1pdm_hh_mo.F,v 1.1 2008-09-30 18:59:13 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 h5 p3 p4 )_y diff --git a/src/tce/gradients/ccsd_1pdm_hp_mo.F b/src/tce/gradients/ccsd_1pdm_hp_mo.F index d2b3ce545e..6ff3967344 100644 --- a/src/tce/gradients/ccsd_1pdm_hp_mo.F +++ b/src/tce/gradients/ccsd_1pdm_hp_mo.F @@ -1,5 +1,5 @@ SUBROUTINE ccsd_1pdm_hp_mo(d_i0,d_y1,k_i0_offset,k_y1_offset) -C $Id: ccsd_1pdm_hp_mo.F,v 1.1 2008-09-30 18:59:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_y + = 1 * y ( h2 p1 )_y @@ -17,7 +17,7 @@ C i0 ( h2 p1 )_y + = 1 * y ( h2 p1 )_y RETURN END SUBROUTINE ccsd_1pdm_hp_mo_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_1pdm_hp_mo.F,v 1.1 2008-09-30 18:59:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_y + = 1 * y ( h2 p1 )_y diff --git a/src/tce/gradients/ccsd_1pdm_ph_mo.F b/src/tce/gradients/ccsd_1pdm_ph_mo.F index a1e08240d7..d035c03f01 100644 --- a/src/tce/gradients/ccsd_1pdm_ph_mo.F +++ b/src/tce/gradients/ccsd_1pdm_ph_mo.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_1pdm_ph_mo(d_i0,d_t1,d_t2,d_y1,d_y2,k_i0_offset,k_ &t1_offset,k_t2_offset,k_y1_offset,k_y2_offset) -C $Id: ccsd_1pdm_ph_mo.F,v 1.1 2008-09-30 19:00:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_t + = 1 * t ( p2 h1 )_t @@ -61,7 +61,7 @@ C i1 ( h4 h5 h1 p3 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h4 h5 RETURN END SUBROUTINE ccsd_1pdm_ph_mo_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_1pdm_ph_mo.F,v 1.1 2008-09-30 19:00:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_t + = 1 * t ( p2 h1 )_t @@ -146,7 +146,7 @@ C i0 ( p2 h1 )_t + = 1 * t ( p2 h1 )_t END SUBROUTINE ccsd_1pdm_ph_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_1pdm_ph_mo.F,v 1.1 2008-09-30 19:00:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * y ( h4 p3 )_y @@ -308,7 +308,7 @@ C i0 ( p2 h1 )_yt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * y ( h4 p3 )_ END SUBROUTINE ccsd_1pdm_ph_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_1pdm_ph_mo.F,v 1.1 2008-09-30 19:00:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_ytt + = -1 * Sum ( h7 ) * t ( p2 h7 )_t * i1 ( h7 h1 )_yt @@ -436,7 +436,7 @@ C i0 ( p2 h1 )_ytt + = -1 * Sum ( h7 ) * t ( p2 h7 )_t * i1 ( h7 h1 )_yt END SUBROUTINE ccsd_1pdm_ph_mo_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_1pdm_ph_mo.F,v 1.1 2008-09-30 19:00:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h7 p3 )_y @@ -563,7 +563,7 @@ C i1 ( h7 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h7 p3 )_y RETURN END SUBROUTINE OFFSET_ccsd_1pdm_ph_mo_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_1pdm_ph_mo.F,v 1.1 2008-09-30 19:00:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_yt @@ -619,7 +619,7 @@ C i1 ( h7 h1 )_yt END SUBROUTINE ccsd_1pdm_ph_mo_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_1pdm_ph_mo.F,v 1.1 2008-09-30 19:00:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h5 h7 p3 p4 )_y @@ -795,7 +795,7 @@ C i1 ( h7 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h5 END SUBROUTINE ccsd_1pdm_ph_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_1pdm_ph_mo.F,v 1.1 2008-09-30 19:00:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_ytt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( h4 h5 h1 p3 )_yt @@ -961,7 +961,7 @@ C i0 ( p2 h1 )_ytt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( END SUBROUTINE ccsd_1pdm_ph_mo_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_1pdm_ph_mo.F,v 1.1 2008-09-30 19:00:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h4 h5 p3 p6 )_y @@ -1114,7 +1114,7 @@ C i1 ( h4 h5 h1 p3 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h4 h5 p3 p RETURN END SUBROUTINE OFFSET_ccsd_1pdm_ph_mo_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_1pdm_ph_mo.F,v 1.1 2008-09-30 19:00:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_yt diff --git a/src/tce/gradients/ccsd_1pdm_pp_mo.F b/src/tce/gradients/ccsd_1pdm_pp_mo.F index 6bbaf76963..8088cbbc8a 100644 --- a/src/tce/gradients/ccsd_1pdm_pp_mo.F +++ b/src/tce/gradients/ccsd_1pdm_pp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_1pdm_pp_mo(d_i0,d_t1,d_t2,d_y1,d_y2,k_i0_offset,k_ &t1_offset,k_t2_offset,k_y1_offset,k_y2_offset) -C $Id: ccsd_1pdm_pp_mo.F,v 1.1 2008-09-30 19:00:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y @@ -29,7 +29,7 @@ C i0 ( p1 p2 )_yt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * y ( h4 END SUBROUTINE ccsd_1pdm_pp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_1pdm_pp_mo.F,v 1.1 2008-09-30 19:00:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y @@ -157,7 +157,7 @@ C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y END SUBROUTINE ccsd_1pdm_pp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_1pdm_pp_mo.F,v 1.1 2008-09-30 19:00:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * y ( h4 h5 p2 p3 )_y diff --git a/src/tce/gradients/ccsd_2pdm_hhhh_mo.F b/src/tce/gradients/ccsd_2pdm_hhhh_mo.F index b9bab17318..b61d3fa41e 100644 --- a/src/tce/gradients/ccsd_2pdm_hhhh_mo.F +++ b/src/tce/gradients/ccsd_2pdm_hhhh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_2pdm_hhhh_mo(d_i0,d_t1,d_t2,d_y2,k_i0_offset,k_t1_ &offset,k_t2_offset,k_y2_offset) -C $Id: ccsd_2pdm_hhhh_mo.F,v 1.1 2008-09-30 19:01:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h3 h4 p5 p6 )_y @@ -42,7 +42,7 @@ C i1 ( h2 h3 h1 p5 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h3 END SUBROUTINE ccsd_2pdm_hhhh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_hhhh_mo.F,v 1.1 2008-09-30 19:01:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h3 h4 p5 p6 )_y @@ -204,7 +204,7 @@ C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( END SUBROUTINE ccsd_2pdm_hhhh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_hhhh_mo.F,v 1.1 2008-09-30 19:01:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h3 h1 h4 )_ytt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i1 ( h2 h3 h4 p5 )_yt @@ -356,7 +356,7 @@ C i0 ( h2 h3 h1 h4 )_ytt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i1 END SUBROUTINE ccsd_2pdm_hhhh_mo_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_hhhh_mo.F,v 1.1 2008-09-30 19:01:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 h1 p5 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h3 p5 p6 )_y @@ -510,7 +510,7 @@ C i1 ( h2 h3 h1 p5 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h3 p5 p END SUBROUTINE OFFSET_ccsd_2pdm_hhhh_mo_2_1(l_a_offset,k_a_offset,size &) -C $Id: ccsd_2pdm_hhhh_mo.F,v 1.1 2008-09-30 19:01:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 h1 p5 )_yt diff --git a/src/tce/gradients/ccsd_2pdm_hhhp_mo.F b/src/tce/gradients/ccsd_2pdm_hhhp_mo.F index fae88429c5..b75d34e37e 100644 --- a/src/tce/gradients/ccsd_2pdm_hhhp_mo.F +++ b/src/tce/gradients/ccsd_2pdm_hhhp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_2pdm_hhhp_mo(d_i0,d_t1,d_y2,k_i0_offset,k_t1_offse &t,k_y2_offset) -C $Id: ccsd_2pdm_hhhp_mo.F,v 1.1 2008-09-30 19:03:00 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h2 p1 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h3 h4 p1 p5 )_y @@ -22,7 +22,7 @@ C i0 ( h3 h4 h2 p1 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( END SUBROUTINE ccsd_2pdm_hhhp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_hhhp_mo.F,v 1.1 2008-09-30 19:03:00 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h2 p1 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h3 h4 p1 p5 )_y diff --git a/src/tce/gradients/ccsd_2pdm_hhpp_mo.F b/src/tce/gradients/ccsd_2pdm_hhpp_mo.F index d061d78ac8..e0588e6502 100644 --- a/src/tce/gradients/ccsd_2pdm_hhpp_mo.F +++ b/src/tce/gradients/ccsd_2pdm_hhpp_mo.F @@ -1,5 +1,5 @@ SUBROUTINE ccsd_2pdm_hhpp_mo(d_i0,d_y2,k_i0_offset,k_y2_offset) -C $Id: ccsd_2pdm_hhpp_mo.F,v 1.1 2008-09-30 19:03:31 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_y + = 1 * y ( h3 h4 p1 p2 )_y @@ -17,7 +17,7 @@ C i0 ( h3 h4 p1 p2 )_y + = 1 * y ( h3 h4 p1 p2 )_y RETURN END SUBROUTINE ccsd_2pdm_hhpp_mo_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_2pdm_hhpp_mo.F,v 1.1 2008-09-30 19:03:31 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_y + = 1 * y ( h3 h4 p1 p2 )_y diff --git a/src/tce/gradients/ccsd_2pdm_hphh_mo.F b/src/tce/gradients/ccsd_2pdm_hphh_mo.F index 236570e904..1585ada112 100644 --- a/src/tce/gradients/ccsd_2pdm_hphh_mo.F +++ b/src/tce/gradients/ccsd_2pdm_hphh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_2pdm_hphh_mo(d_i0,d_t1,d_t2,d_y1,d_y2,k_i0_offset, &k_t1_offset,k_t2_offset,k_y1_offset,k_y2_offset) -C $Id: ccsd_2pdm_hphh_mo.F,v 1.1 2008-09-30 19:04:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p3 h1 h2 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * y ( h4 p5 )_y @@ -91,7 +91,7 @@ C i1 ( h2 h6 h1 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * y ( h2 h6 p END SUBROUTINE ccsd_2pdm_hphh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_hphh_mo.F,v 1.1 2008-09-30 19:04:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p3 h1 h2 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * y ( h4 p5 )_y @@ -255,7 +255,7 @@ c &)) END SUBROUTINE ccsd_2pdm_hphh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_hphh_mo.F,v 1.1 2008-09-30 19:04:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p3 h1 h4 )_ytt + = -1/2 * P( 4 ) * t ( p3 h1 )_t * i1 ( h2 h4 )_yt @@ -423,7 +423,7 @@ c END IF END SUBROUTINE ccsd_2pdm_hphh_mo_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_hphh_mo.F,v 1.1 2008-09-30 19:04:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h2 p5 )_y @@ -551,7 +551,7 @@ C i1 ( h2 h1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h2 p5 )_y END SUBROUTINE OFFSET_ccsd_2pdm_hphh_mo_2_1(l_a_offset,k_a_offset,size &) -C $Id: ccsd_2pdm_hphh_mo.F,v 1.1 2008-09-30 19:04:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt @@ -607,7 +607,7 @@ C i1 ( h2 h1 )_yt END SUBROUTINE ccsd_2pdm_hphh_mo_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_hphh_mo.F,v 1.1 2008-09-30 19:04:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h2 h7 p5 p6 )_y @@ -783,7 +783,7 @@ C i1 ( h2 h1 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h2 END SUBROUTINE ccsd_2pdm_hphh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_hphh_mo.F,v 1.1 2008-09-30 19:04:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p3 h2 h4 )_ytt + = 1/4 * P( 2 ) * Sum ( h7 ) * t ( p3 h7 )_t * i1 ( h1 h7 h2 h4 )_yt @@ -936,7 +936,7 @@ c &)) END SUBROUTINE ccsd_2pdm_hphh_mo_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_hphh_mo.F,v 1.1 2008-09-30 19:04:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h7 h1 h2 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h4 h7 p5 p6 )_y @@ -1108,7 +1108,7 @@ C i1 ( h4 h7 h1 h2 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h END SUBROUTINE OFFSET_ccsd_2pdm_hphh_mo_3_1(l_a_offset,k_a_offset,size &) -C $Id: ccsd_2pdm_hphh_mo.F,v 1.1 2008-09-30 19:04:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h7 h1 h2 )_yt @@ -1180,7 +1180,7 @@ C i1 ( h4 h7 h1 h2 )_yt END SUBROUTINE ccsd_2pdm_hphh_mo_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_hphh_mo.F,v 1.1 2008-09-30 19:04:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h1 h4 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h2 h7 h4 p5 )_yt @@ -1332,7 +1332,7 @@ C i1 ( h2 h7 h1 h4 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( END SUBROUTINE ccsd_2pdm_hphh_mo_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsd_2pdm_hphh_mo.F,v 1.1 2008-09-30 19:04:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h7 p5 p6 )_y @@ -1502,7 +1502,7 @@ C i2 ( h2 h7 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h7 p5 p6 END SUBROUTINE OFFSET_ccsd_2pdm_hphh_mo_3_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsd_2pdm_hphh_mo.F,v 1.1 2008-09-30 19:04:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h1 p5 )_yt @@ -1574,7 +1574,7 @@ C i2 ( h2 h7 h1 p5 )_yt END SUBROUTINE ccsd_2pdm_hphh_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_hphh_mo.F,v 1.1 2008-09-30 19:04:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p3 h1 h4 )_ytt + = 1/2 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i1 ( h2 h6 h4 p5 )_yt @@ -1783,7 +1783,7 @@ c END IF END SUBROUTINE ccsd_2pdm_hphh_mo_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_hphh_mo.F,v 1.1 2008-09-30 19:04:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h6 h1 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * y ( h2 h6 p5 p7 )_y @@ -1953,7 +1953,7 @@ C i1 ( h2 h6 h1 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * y ( h2 h6 p5 p7 END SUBROUTINE OFFSET_ccsd_2pdm_hphh_mo_4_1(l_a_offset,k_a_offset,size &) -C $Id: ccsd_2pdm_hphh_mo.F,v 1.1 2008-09-30 19:04:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h6 h1 p5 )_yt diff --git a/src/tce/gradients/ccsd_2pdm_hphp_mo.F b/src/tce/gradients/ccsd_2pdm_hphp_mo.F index 52498d6fea..9ba237ec84 100644 --- a/src/tce/gradients/ccsd_2pdm_hphp_mo.F +++ b/src/tce/gradients/ccsd_2pdm_hphp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_2pdm_hphp_mo(d_i0,d_t1,d_t2,d_y1,d_y2,k_i0_offset, &k_t1_offset,k_t2_offset,k_y1_offset,k_y2_offset) -C $Id: ccsd_2pdm_hphp_mo.F,v 1.1 2008-09-30 19:04:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 h2 p3 )_yt + = -1/4 * P( 4 ) * t ( p1 h2 )_t * y ( h4 p3 )_y @@ -47,7 +47,7 @@ C i1 ( h4 h6 h2 p1 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * END SUBROUTINE ccsd_2pdm_hphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_hphp_mo.F,v 1.1 2008-09-30 19:04:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 h2 p3 )_yt + = -1/4 * P( 4 ) * t ( p1 h2 )_t * y ( h4 p3 )_y @@ -207,7 +207,7 @@ c & - 1))))) END SUBROUTINE ccsd_2pdm_hphp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_hphp_mo.F,v 1.1 2008-09-30 19:04:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 h2 p3 )_yt + = -1/4 * P( 4 ) * Sum ( h6 p5 ) * t ( p1 p5 h2 h6 )_t * y ( h4 h6 p3 p5 )_y @@ -434,7 +434,7 @@ c & - 1))))) END SUBROUTINE ccsd_2pdm_hphp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_hphp_mo.F,v 1.1 2008-09-30 19:04:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 h4 p3 )_ytt + = 1/2 * P( 2 ) * Sum ( h6 ) * t ( p1 h6 )_t * i1 ( h2 h6 h4 p3 )_yt @@ -590,7 +590,7 @@ c & - 1))))) END SUBROUTINE ccsd_2pdm_hphp_mo_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_hphp_mo.F,v 1.1 2008-09-30 19:04:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h6 h2 p1 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h4 h6 p1 p5 )_y @@ -770,7 +770,7 @@ c &)) END SUBROUTINE OFFSET_ccsd_2pdm_hphp_mo_3_1(l_a_offset,k_a_offset,size &) -C $Id: ccsd_2pdm_hphp_mo.F,v 1.1 2008-09-30 19:04:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h6 h2 p1 )_yt diff --git a/src/tce/gradients/ccsd_2pdm_hppp_mo.F b/src/tce/gradients/ccsd_2pdm_hppp_mo.F index 060e8e1574..00c8ec742e 100644 --- a/src/tce/gradients/ccsd_2pdm_hppp_mo.F +++ b/src/tce/gradients/ccsd_2pdm_hppp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_2pdm_hppp_mo(d_i0,d_t1,d_y2,k_i0_offset,k_t1_offse &t,k_y2_offset) -C $Id: ccsd_2pdm_hppp_mo.F,v 1.1 2008-09-30 19:05:24 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 p2 p3 )_yt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * y ( h4 h5 p2 p3 )_y @@ -22,7 +22,7 @@ C i0 ( h4 p1 p2 p3 )_yt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * y ( END SUBROUTINE ccsd_2pdm_hppp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_hppp_mo.F,v 1.1 2008-09-30 19:05:24 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 p2 p3 )_yt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * y ( h4 h5 p2 p3 )_y diff --git a/src/tce/gradients/ccsd_2pdm_pphh_mo.F b/src/tce/gradients/ccsd_2pdm_pphh_mo.F index 9c8385632e..3ff650c303 100644 --- a/src/tce/gradients/ccsd_2pdm_pphh_mo.F +++ b/src/tce/gradients/ccsd_2pdm_pphh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_2pdm_pphh_mo(d_i0,d_t1,d_t2,d_y1,d_y2,k_i0_offset, &k_t1_offset,k_t2_offset,k_y1_offset,k_y2_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_t + = 1 * t ( p3 p4 h1 h2 )_t @@ -218,7 +218,7 @@ C i1 ( h6 p3 h1 p5 )_yt + = 1 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * y RETURN END SUBROUTINE ccsd_2pdm_pphh_mo_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_t + = 1 * t ( p3 p4 h1 h2 )_t @@ -318,7 +318,7 @@ C i0 ( p3 p4 h1 h2 )_t + = 1 * t ( p3 p4 h1 h2 )_t END SUBROUTINE ccsd_2pdm_pphh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tt + = 1/2 * P( 4 ) * t ( p3 h1 )_t * i1 ( p4 h2 )_t @@ -479,7 +479,7 @@ C i0 ( p3 p4 h1 h2 )_tt + = 1/2 * P( 4 ) * t ( p3 h1 )_t * i1 ( p4 h2 )_t RETURN END SUBROUTINE ccsd_2pdm_pphh_mo_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_t + = 1 * t ( p3 h1 )_t @@ -564,7 +564,7 @@ C i1 ( p3 h1 )_t + = 1 * t ( p3 h1 )_t END SUBROUTINE OFFSET_ccsd_2pdm_pphh_mo_2_1(l_a_offset,k_a_offset,size &) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_t @@ -620,7 +620,7 @@ C i1 ( p3 h1 )_t END SUBROUTINE ccsd_2pdm_pphh_mo_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yt + = 2 * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * y ( h6 p5 )_y @@ -782,7 +782,7 @@ C i1 ( p3 h1 )_yt + = 2 * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * y ( h6 p5 )_ END SUBROUTINE ccsd_2pdm_pphh_mo_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_ytt + = -1 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h1 )_yt @@ -910,7 +910,7 @@ C i1 ( p3 h1 )_ytt + = -1 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h1 )_yt END SUBROUTINE ccsd_2pdm_pphh_mo_2_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i3 ( h9 p7 )_y @@ -1038,7 +1038,7 @@ C i2 ( h9 h1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i3 ( h9 p7 )_y END SUBROUTINE OFFSET_ccsd_2pdm_pphh_mo_2_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h1 )_yt @@ -1094,7 +1094,7 @@ C i2 ( h9 h1 )_yt END SUBROUTINE ccsd_2pdm_pphh_mo_2_3_1_1(d_a,k_a_offset,d_c,k_c_offset &) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 p7 )_y + = 1 * y ( h9 p7 )_y @@ -1179,7 +1179,7 @@ C i3 ( h9 p7 )_y + = 1 * y ( h9 p7 )_y END SUBROUTINE OFFSET_ccsd_2pdm_pphh_mo_2_3_1_1(l_a_offset,k_a_offset, &size) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 p7 )_y @@ -1235,7 +1235,7 @@ C i3 ( h9 p7 )_y END SUBROUTINE ccsd_2pdm_pphh_mo_2_3_1_2(d_a,k_a_offset,d_c,k_c_offset &) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 p7 )_y + = 1 * y ( h9 p7 )_y @@ -1320,7 +1320,7 @@ C i3 ( h9 p7 )_y + = 1 * y ( h9 p7 )_y END SUBROUTINE ccsd_2pdm_pphh_mo_2_3_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h1 )_yt + = -1 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h8 h9 p6 p7 )_y @@ -1496,7 +1496,7 @@ C i2 ( h9 h1 )_yt + = -1 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h8 h END SUBROUTINE ccsd_2pdm_pphh_mo_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_ytt + = 1 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * i2 ( h7 h8 h1 p6 )_yt @@ -1662,7 +1662,7 @@ C i1 ( p3 h1 )_ytt + = 1 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * i2 ( h7 END SUBROUTINE ccsd_2pdm_pphh_mo_2_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p6 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h7 h8 p5 p6 )_y @@ -1816,7 +1816,7 @@ C i2 ( h7 h8 h1 p6 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h7 h8 p5 p END SUBROUTINE OFFSET_ccsd_2pdm_pphh_mo_2_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p6 )_yt @@ -1888,7 +1888,7 @@ C i2 ( h7 h8 h1 p6 )_yt END SUBROUTINE ccsd_2pdm_pphh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h9 ) * t ( p3 h9 )_t * i1 ( h9 p4 h1 h2 )_yt @@ -2042,7 +2042,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h9 ) * t ( p3 h9 )_t * i1 ( END SUBROUTINE ccsd_2pdm_pphh_mo_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_yt + = -1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * y ( h9 p5 )_y @@ -2197,7 +2197,7 @@ C i1 ( h9 p3 h1 h2 )_yt + = -1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * y ( h9 p END SUBROUTINE OFFSET_ccsd_2pdm_pphh_mo_3_1(l_a_offset,k_a_offset,size &) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_yt @@ -2269,7 +2269,7 @@ C i1 ( h9 p3 h1 h2 )_yt END SUBROUTINE ccsd_2pdm_pphh_mo_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_ytt + = 1/4 * Sum ( h10 ) * t ( p3 h10 )_t * i2 ( h9 h10 h1 h2 )_yt @@ -2423,7 +2423,7 @@ C i1 ( h9 p3 h1 h2 )_ytt + = 1/4 * Sum ( h10 ) * t ( p3 h10 )_t * i2 ( h9 h1 END SUBROUTINE ccsd_2pdm_pphh_mo_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_yt + = -1 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * y ( h9 h10 p7 p8 )_y @@ -2585,7 +2585,7 @@ C i2 ( h9 h10 h1 h2 )_yt + = -1 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * y ( END SUBROUTINE OFFSET_ccsd_2pdm_pphh_mo_3_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_yt @@ -2657,7 +2657,7 @@ C i2 ( h9 h10 h1 h2 )_yt END SUBROUTINE ccsd_2pdm_pphh_mo_3_2_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h9 h10 h2 p5 )_yt @@ -2809,7 +2809,7 @@ C i2 ( h9 h10 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 END SUBROUTINE ccsd_2pdm_pphh_mo_3_2_2_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h9 h10 p5 p6 )_y @@ -2963,7 +2963,7 @@ C i3 ( h9 h10 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h9 h10 p5 END SUBROUTINE OFFSET_ccsd_2pdm_pphh_mo_3_2_2_1(l_a_offset,k_a_offset, &size) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 p5 )_yt @@ -3035,7 +3035,7 @@ C i3 ( h9 h10 h1 p5 )_yt END SUBROUTINE ccsd_2pdm_pphh_mo_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * i2 ( h8 h9 h2 p7 )_yt @@ -3232,7 +3232,7 @@ C i1 ( h9 p3 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 ) END SUBROUTINE ccsd_2pdm_pphh_mo_3_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h1 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h8 h9 p5 p7 )_y @@ -3386,7 +3386,7 @@ C i2 ( h8 h9 h1 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h8 h9 p5 p END SUBROUTINE OFFSET_ccsd_2pdm_pphh_mo_3_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h1 p7 )_yt @@ -3458,7 +3458,7 @@ C i2 ( h8 h9 h1 p7 )_yt END SUBROUTINE ccsd_2pdm_pphh_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_yt @@ -3623,7 +3623,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t END SUBROUTINE ccsd_2pdm_pphh_mo_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h5 p6 )_y @@ -3751,7 +3751,7 @@ C i1 ( h5 h1 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h5 p6 )_y END SUBROUTINE OFFSET_ccsd_2pdm_pphh_mo_4_1(l_a_offset,k_a_offset,size &) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_yt @@ -3807,7 +3807,7 @@ C i1 ( h5 h1 )_yt END SUBROUTINE ccsd_2pdm_pphh_mo_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_yt + = 1/2 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h5 h8 p6 p7 )_y @@ -3983,7 +3983,7 @@ C i1 ( h5 h1 )_yt + = 1/2 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h5 END SUBROUTINE ccsd_2pdm_pphh_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i1 ( p4 p5 )_yt @@ -4148,7 +4148,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_ END SUBROUTINE ccsd_2pdm_pphh_mo_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_yt + = 1 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * y ( h7 h8 p5 p6 )_y @@ -4324,7 +4324,7 @@ C i1 ( p3 p5 )_yt + = 1 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * y ( h7 h8 END SUBROUTINE OFFSET_ccsd_2pdm_pphh_mo_5_1(l_a_offset,k_a_offset,size &) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_yt @@ -4380,7 +4380,7 @@ C i1 ( p3 p5 )_yt END SUBROUTINE ccsd_2pdm_pphh_mo_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = 1/4 * Sum ( h7 h8 ) * t ( p3 p4 h7 h8 )_t * i1 ( h7 h8 h1 h2 )_yt @@ -4543,7 +4543,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = 1/4 * Sum ( h7 h8 ) * t ( p3 p4 h7 h8 )_t * i1 END SUBROUTINE ccsd_2pdm_pphh_mo_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h1 h2 )_yt + = 1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h7 h8 p5 p6 )_y @@ -4705,7 +4705,7 @@ C i1 ( h7 h8 h1 h2 )_yt + = 1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h7 END SUBROUTINE OFFSET_ccsd_2pdm_pphh_mo_6_1(l_a_offset,k_a_offset,size &) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h1 h2 )_yt @@ -4777,7 +4777,7 @@ C i1 ( h7 h8 h1 h2 )_yt END SUBROUTINE ccsd_2pdm_pphh_mo_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h7 h8 h2 p5 )_yt @@ -4929,7 +4929,7 @@ C i1 ( h7 h8 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( END SUBROUTINE ccsd_2pdm_pphh_mo_6_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p5 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h7 h8 p5 p6 )_y @@ -5083,7 +5083,7 @@ C i2 ( h7 h8 h1 p5 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h7 h8 p5 p END SUBROUTINE OFFSET_ccsd_2pdm_pphh_mo_6_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p5 )_yt @@ -5155,7 +5155,7 @@ C i2 ( h7 h8 h1 p5 )_yt END SUBROUTINE ccsd_2pdm_pphh_mo_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = 1/2 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i1 ( h6 p4 h2 p5 )_yt @@ -5358,7 +5358,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = 1/2 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 END SUBROUTINE ccsd_2pdm_pphh_mo_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_yt + = 1 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * y ( h6 h8 p5 p7 )_y @@ -5561,7 +5561,7 @@ C i1 ( h6 p3 h1 p5 )_yt + = 1 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * y ( h6 END SUBROUTINE OFFSET_ccsd_2pdm_pphh_mo_7_1(l_a_offset,k_a_offset,size &) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_yt diff --git a/src/tce/gradients/ccsd_2pdm_pphp_mo.F b/src/tce/gradients/ccsd_2pdm_pphp_mo.F index 723d63739e..6f8e2ab520 100644 --- a/src/tce/gradients/ccsd_2pdm_pphp_mo.F +++ b/src/tce/gradients/ccsd_2pdm_pphp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_2pdm_pphp_mo(d_i0,d_t1,d_t2,d_y1,d_y2,k_i0_offset, &k_t1_offset,k_t2_offset,k_y1_offset,k_y2_offset) -C $Id: ccsd_2pdm_pphp_mo.F,v 1.1 2008-09-30 19:06:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_yt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 p3 h2 h5 )_t * y ( h5 p4 )_y @@ -91,7 +91,7 @@ C i1 ( h5 h6 h2 p1 )_yt + = -1/2 * P( 2 ) * Sum ( p7 ) * t ( p7 h2 )_t * END SUBROUTINE ccsd_2pdm_pphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_pphp_mo.F,v 1.1 2008-09-30 19:06:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_yt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 p3 h2 h5 )_t * y ( h5 p4 )_y @@ -255,7 +255,7 @@ c & - noab - 1))))) END SUBROUTINE ccsd_2pdm_pphp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_pphp_mo.F,v 1.1 2008-09-30 19:06:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytt + = -1/2 * P( 4 ) * t ( p1 h2 )_t * i1 ( p3 p4 )_yt @@ -423,7 +423,7 @@ c END IF END SUBROUTINE ccsd_2pdm_pphp_mo_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pphp_mo.F,v 1.1 2008-09-30 19:06:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yt + = 1 * Sum ( h5 ) * t ( p1 h5 )_t * y ( h5 p3 )_y @@ -551,7 +551,7 @@ C i1 ( p1 p3 )_yt + = 1 * Sum ( h5 ) * t ( p1 h5 )_t * y ( h5 p3 )_y END SUBROUTINE OFFSET_ccsd_2pdm_pphp_mo_2_1(l_a_offset,k_a_offset,size &) -C $Id: ccsd_2pdm_pphp_mo.F,v 1.1 2008-09-30 19:06:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yt @@ -607,7 +607,7 @@ C i1 ( p1 p3 )_yt END SUBROUTINE ccsd_2pdm_pphp_mo_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pphp_mo.F,v 1.1 2008-09-30 19:06:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yt + = 1/2 * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * y ( h6 h7 p3 p5 )_y @@ -783,7 +783,7 @@ C i1 ( p1 p3 )_yt + = 1/2 * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * y ( h6 END SUBROUTINE ccsd_2pdm_pphp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_pphp_mo.F,v 1.1 2008-09-30 19:06:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytt + = -1 * P( 2 ) * Sum ( h8 ) * t ( p1 h8 )_t * i1 ( h8 p3 h2 p4 )_yt @@ -937,7 +937,7 @@ C i0 ( p1 p3 h2 p4 )_ytt + = -1 * P( 2 ) * Sum ( h8 ) * t ( p1 h8 )_t * i1 ( END SUBROUTINE ccsd_2pdm_pphp_mo_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pphp_mo.F,v 1.1 2008-09-30 19:06:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 p1 h2 p3 )_yt + = 1/2 * P( 2 ) * Sum ( h6 p5 ) * t ( p1 p5 h2 h6 )_t * y ( h6 h8 p3 p5 )_y @@ -1149,7 +1149,7 @@ c & - 1))))) END SUBROUTINE OFFSET_ccsd_2pdm_pphp_mo_3_1(l_a_offset,k_a_offset,size &) -C $Id: ccsd_2pdm_pphp_mo.F,v 1.1 2008-09-30 19:06:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 p1 h2 p3 )_yt @@ -1221,7 +1221,7 @@ C i1 ( h8 p1 h2 p3 )_yt END SUBROUTINE ccsd_2pdm_pphp_mo_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pphp_mo.F,v 1.1 2008-09-30 19:06:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 p1 h2 p3 )_ytt + = 1/2 * Sum ( h7 ) * t ( p1 h7 )_t * i2 ( h7 h8 h2 p3 )_yt @@ -1375,7 +1375,7 @@ C i1 ( h8 p1 h2 p3 )_ytt + = 1/2 * Sum ( h7 ) * t ( p1 h7 )_t * i2 ( h7 h8 h END SUBROUTINE ccsd_2pdm_pphp_mo_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsd_2pdm_pphp_mo.F,v 1.1 2008-09-30 19:06:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h2 p1 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h7 h8 p1 p5 )_y @@ -1538,7 +1538,7 @@ c &)) END SUBROUTINE OFFSET_ccsd_2pdm_pphp_mo_3_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsd_2pdm_pphp_mo.F,v 1.1 2008-09-30 19:06:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h2 p1 )_yt @@ -1610,7 +1610,7 @@ C i2 ( h7 h8 h2 p1 )_yt END SUBROUTINE ccsd_2pdm_pphp_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_pphp_mo.F,v 1.1 2008-09-30 19:06:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p3 h5 h6 )_t * i1 ( h5 h6 h2 p4 )_yt @@ -1773,7 +1773,7 @@ C i0 ( p1 p3 h2 p4 )_ytt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p3 h5 h6 )_t * i1 END SUBROUTINE ccsd_2pdm_pphp_mo_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pphp_mo.F,v 1.1 2008-09-30 19:06:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h2 p1 )_yt + = -1/2 * P( 2 ) * Sum ( p7 ) * t ( p7 h2 )_t * y ( h5 h6 p1 p7 )_y @@ -1936,7 +1936,7 @@ c &)) END SUBROUTINE OFFSET_ccsd_2pdm_pphp_mo_4_1(l_a_offset,k_a_offset,size &) -C $Id: ccsd_2pdm_pphp_mo.F,v 1.1 2008-09-30 19:06:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h2 p1 )_yt diff --git a/src/tce/gradients/ccsd_2pdm_pppp_mo.F b/src/tce/gradients/ccsd_2pdm_pppp_mo.F index ebf2555fc2..e58f032f22 100644 --- a/src/tce/gradients/ccsd_2pdm_pppp_mo.F +++ b/src/tce/gradients/ccsd_2pdm_pppp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_2pdm_pppp_mo(d_i0,d_t1,d_t2,d_y2,k_i0_offset,k_t1_ &offset,k_t2_offset,k_y2_offset) -C $Id: ccsd_2pdm_pppp_mo.F,v 1.1 2008-09-30 19:07:09 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( h5 h6 p3 p4 )_y @@ -42,7 +42,7 @@ C i1 ( h5 p1 p2 p3 )_yt + = -1 * Sum ( h6 ) * t ( p1 h6 )_t * y ( h5 h6 END SUBROUTINE ccsd_2pdm_pppp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_pppp_mo.F,v 1.1 2008-09-30 19:07:09 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( h5 h6 p3 p4 )_y @@ -205,7 +205,7 @@ C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( END SUBROUTINE ccsd_2pdm_pppp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_pppp_mo.F,v 1.1 2008-09-30 19:07:09 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_ytt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * i1 ( h5 p2 p3 p4 )_yt @@ -359,7 +359,7 @@ C i0 ( p1 p2 p3 p4 )_ytt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * i1 END SUBROUTINE ccsd_2pdm_pppp_mo_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pppp_mo.F,v 1.1 2008-09-30 19:07:09 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p1 p2 p3 )_yt + = -1 * Sum ( h6 ) * t ( p1 h6 )_t * y ( h5 h6 p2 p3 )_y @@ -513,7 +513,7 @@ C i1 ( h5 p1 p2 p3 )_yt + = -1 * Sum ( h6 ) * t ( p1 h6 )_t * y ( h5 h6 p2 p END SUBROUTINE OFFSET_ccsd_2pdm_pppp_mo_2_1(l_a_offset,k_a_offset,size &) -C $Id: ccsd_2pdm_pppp_mo.F,v 1.1 2008-09-30 19:07:09 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p1 p2 p3 )_yt diff --git a/src/tce/gradients/ccsd_zvec.F b/src/tce/gradients/ccsd_zvec.F index 09f706e9a1..b617eedb55 100644 --- a/src/tce/gradients/ccsd_zvec.F +++ b/src/tce/gradients/ccsd_zvec.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_zvec(d_f1,d_i0,d_v2,d_x1,d_z1,k_f1_offset,k_i0_off &set,k_v2_offset,k_x1_offset,k_z1_offset) -C $Id: ccsd_zvec.F,v 1.1 2008-09-30 19:12:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_fz + = 1 * Sum ( p3 ) * z ( p3 h1 )_z * f ( p2 p3 )_f @@ -37,7 +37,7 @@ C i0 ( h1 p2 )_x + = -1 * x ( h1 p2 )_x END SUBROUTINE ccsd_zvec_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_zvec.F,v 1.1 2008-09-30 19:12:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_fz + = 1 * Sum ( p3 ) * z ( p3 h1 )_z * f ( p2 p3 )_f @@ -167,7 +167,7 @@ c END SUBROUTINE ccsd_zvec_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_zvec.F,v 1.1 2008-09-30 19:12:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_fz + = -1 * Sum ( h3 ) * z ( p2 h3 )_z * f ( h3 h1 )_f @@ -296,7 +296,7 @@ c END SUBROUTINE ccsd_zvec_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_zvec.F,v 1.1 2008-09-30 19:12:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vz + = -1 * Sum ( h4 p3 ) * z ( p3 h4 )_z * v ( h4 p2 h1 p3 )_v @@ -434,7 +434,7 @@ c END SUBROUTINE ccsd_zvec_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_zvec.F,v 1.1 2008-09-30 19:12:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vz + = 1 * Sum ( h4 p3 ) * z ( p3 h4 )_z * v ( h1 h4 p2 p3 )_v @@ -600,7 +600,7 @@ c RETURN END SUBROUTINE ccsd_zvec_5(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_zvec.F,v 1.1 2008-09-30 19:12:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_x + = -1 * x ( h1 p2 )_x diff --git a/src/tce/gradients/ccsdt_1pdm_hh_mo.F b/src/tce/gradients/ccsdt_1pdm_hh_mo.F index ee52409305..d5523a4ae4 100644 --- a/src/tce/gradients/ccsdt_1pdm_hh_mo.F +++ b/src/tce/gradients/ccsdt_1pdm_hh_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdt_1pdm_hh_mo(d_i0,d_t1,d_t2,d_t3,d_y1,d_y2,d_y3,k_i &0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y1_offset,k_y2_offs &et,k_y3_offset) -C $Id: ccsdt_1pdm_hh_mo.F,v 1.1 2008-10-01 00:11:09 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -37,7 +37,7 @@ C i0 ( h2 h1 )_yt + = -1/12 * Sum ( h6 h7 p3 p4 p5 ) * t ( p3 p4 p5 h1 h6 h7 END SUBROUTINE ccsdt_1pdm_hh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_1pdm_hh_mo.F,v 1.1 2008-10-01 00:11:09 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -165,7 +165,7 @@ C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y END SUBROUTINE ccsdt_1pdm_hh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_1pdm_hh_mo.F,v 1.1 2008-10-01 00:11:09 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 h5 p3 p4 )_y @@ -341,7 +341,7 @@ C i0 ( h2 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 END SUBROUTINE ccsdt_1pdm_hh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_1pdm_hh_mo.F,v 1.1 2008-10-01 00:11:09 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1/12 * Sum ( h6 h7 p3 p4 p5 ) * t ( p3 p4 p5 h1 h6 h7 )_t * y ( h2 h6 h7 p3 p4 p5 )_y diff --git a/src/tce/gradients/ccsdt_1pdm_hp_mo.F b/src/tce/gradients/ccsdt_1pdm_hp_mo.F index a9627ea3d8..1cad6b4fa0 100644 --- a/src/tce/gradients/ccsdt_1pdm_hp_mo.F +++ b/src/tce/gradients/ccsdt_1pdm_hp_mo.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_1pdm_hp_mo(d_i0,d_y1,k_i0_offset,k_y1_offset) -C $Id: ccsdt_1pdm_hp_mo.F,v 1.1 2008-10-01 00:11:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_y + = 1 * y ( h2 p1 )_y @@ -17,7 +17,7 @@ C i0 ( h2 p1 )_y + = 1 * y ( h2 p1 )_y RETURN END SUBROUTINE ccsdt_1pdm_hp_mo_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_1pdm_hp_mo.F,v 1.1 2008-10-01 00:11:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_y + = 1 * y ( h2 p1 )_y diff --git a/src/tce/gradients/ccsdt_1pdm_ph_mo.F b/src/tce/gradients/ccsdt_1pdm_ph_mo.F index ee3c387092..2c151e209d 100644 --- a/src/tce/gradients/ccsdt_1pdm_ph_mo.F +++ b/src/tce/gradients/ccsdt_1pdm_ph_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdt_1pdm_ph_mo(d_i0,d_t1,d_t2,d_t3,d_y1,d_y2,d_y3,k_i &0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y1_offset,k_y2_offs &et,k_y3_offset) -C $Id: ccsdt_1pdm_ph_mo.F,v 1.1 2008-10-01 00:12:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_t + = 1 * t ( p2 h1 )_t @@ -88,7 +88,7 @@ C i1 ( h5 h6 h7 h1 p3 p4 )_yt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * y ( h RETURN END SUBROUTINE ccsdt_1pdm_ph_mo_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_1pdm_ph_mo.F,v 1.1 2008-10-01 00:12:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_t + = 1 * t ( p2 h1 )_t @@ -173,7 +173,7 @@ C i0 ( p2 h1 )_t + = 1 * t ( p2 h1 )_t END SUBROUTINE ccsdt_1pdm_ph_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_1pdm_ph_mo.F,v 1.1 2008-10-01 00:12:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * y ( h4 p3 )_y @@ -335,7 +335,7 @@ C i0 ( p2 h1 )_yt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * y ( h4 p3 )_ END SUBROUTINE ccsdt_1pdm_ph_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_1pdm_ph_mo.F,v 1.1 2008-10-01 00:12:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yt + = 1/4 * Sum ( h5 h6 p3 p4 ) * t ( p2 p3 p4 h1 h5 h6 )_t * y ( h5 h6 p3 p4 )_y @@ -577,7 +577,7 @@ C i0 ( p2 h1 )_yt + = 1/4 * Sum ( h5 h6 p3 p4 ) * t ( p2 p3 p4 h1 h5 h6 )_t END SUBROUTINE ccsdt_1pdm_ph_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_1pdm_ph_mo.F,v 1.1 2008-10-01 00:12:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_ytt + = -1 * Sum ( h9 ) * t ( p2 h9 )_t * i1 ( h9 h1 )_yt @@ -705,7 +705,7 @@ C i0 ( p2 h1 )_ytt + = -1 * Sum ( h9 ) * t ( p2 h9 )_t * i1 ( h9 h1 )_yt END SUBROUTINE ccsdt_1pdm_ph_mo_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_1pdm_ph_mo.F,v 1.1 2008-10-01 00:12:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h9 p3 )_y @@ -832,7 +832,7 @@ C i1 ( h9 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h9 p3 )_y RETURN END SUBROUTINE OFFSET_ccsdt_1pdm_ph_mo_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_1pdm_ph_mo.F,v 1.1 2008-10-01 00:12:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h1 )_yt @@ -888,7 +888,7 @@ C i1 ( h9 h1 )_yt END SUBROUTINE ccsdt_1pdm_ph_mo_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_1pdm_ph_mo.F,v 1.1 2008-10-01 00:12:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h5 h9 p3 p4 )_y @@ -1064,7 +1064,7 @@ C i1 ( h9 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h5 END SUBROUTINE ccsdt_1pdm_ph_mo_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_1pdm_ph_mo.F,v 1.1 2008-10-01 00:12:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h1 )_yt + = 1/12 * Sum ( h6 h7 p3 p4 p5 ) * t ( p3 p4 p5 h1 h6 h7 )_t * y ( h6 h7 h9 p3 p4 p5 )_y @@ -1287,7 +1287,7 @@ C i1 ( h9 h1 )_yt + = 1/12 * Sum ( h6 h7 p3 p4 p5 ) * t ( p3 p4 p5 h1 h6 h7 END SUBROUTINE ccsdt_1pdm_ph_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_1pdm_ph_mo.F,v 1.1 2008-10-01 00:12:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_ytt + = 1/2 * Sum ( h10 h7 p9 ) * t ( p2 p9 h7 h10 )_t * i1 ( h7 h10 h1 p9 )_yt @@ -1453,7 +1453,7 @@ C i0 ( p2 h1 )_ytt + = 1/2 * Sum ( h10 h7 p9 ) * t ( p2 p9 h7 h10 )_t * i1 ( END SUBROUTINE ccsdt_1pdm_ph_mo_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_1pdm_ph_mo.F,v 1.1 2008-10-01 00:12:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h10 h1 p9 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h7 h10 p6 p9 )_y @@ -1606,7 +1606,7 @@ C i1 ( h7 h10 h1 p9 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h7 h10 p6 RETURN END SUBROUTINE OFFSET_ccsdt_1pdm_ph_mo_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_1pdm_ph_mo.F,v 1.1 2008-10-01 00:12:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h10 h1 p9 )_yt @@ -1678,7 +1678,7 @@ C i1 ( h7 h10 h1 p9 )_yt END SUBROUTINE ccsdt_1pdm_ph_mo_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_1pdm_ph_mo.F,v 1.1 2008-10-01 00:12:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h10 h1 p9 )_yt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h5 h7 h10 p3 p4 p9 )_y @@ -1938,7 +1938,7 @@ C i1 ( h7 h10 h1 p9 )_yt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * END SUBROUTINE ccsdt_1pdm_ph_mo_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_1pdm_ph_mo.F,v 1.1 2008-10-01 00:12:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_ytt + = -1/12 * Sum ( h5 h6 h7 p3 p4 ) * t ( p2 p3 p4 h5 h6 h7 )_t * i1 ( h5 h6 h7 h1 p3 p4 )_yt @@ -2143,7 +2143,7 @@ C i0 ( p2 h1 )_ytt + = -1/12 * Sum ( h5 h6 h7 p3 p4 ) * t ( p2 p3 p4 h5 h6 h END SUBROUTINE ccsdt_1pdm_ph_mo_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_1pdm_ph_mo.F,v 1.1 2008-10-01 00:12:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h7 h1 p3 p4 )_yt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * y ( h5 h6 h7 p3 p4 p8 )_y @@ -2316,7 +2316,7 @@ C i1 ( h5 h6 h7 h1 p3 p4 )_yt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * y ( h5 h6 RETURN END SUBROUTINE OFFSET_ccsdt_1pdm_ph_mo_6_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_1pdm_ph_mo.F,v 1.1 2008-10-01 00:12:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h7 h1 p3 p4 )_yt diff --git a/src/tce/gradients/ccsdt_1pdm_pp_mo.F b/src/tce/gradients/ccsdt_1pdm_pp_mo.F index f1d1f24ffc..18744e1c23 100644 --- a/src/tce/gradients/ccsdt_1pdm_pp_mo.F +++ b/src/tce/gradients/ccsdt_1pdm_pp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdt_1pdm_pp_mo(d_i0,d_t1,d_t2,d_t3,d_y1,d_y2,d_y3,k_i &0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y1_offset,k_y2_offs &et,k_y3_offset) -C $Id: ccsdt_1pdm_pp_mo.F,v 1.1 2008-10-01 00:12:42 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y @@ -37,7 +37,7 @@ C i0 ( p1 p2 )_yt + = 1/12 * Sum ( h5 h6 h7 p3 p4 ) * t ( p1 p3 p4 h5 h6 h7 END SUBROUTINE ccsdt_1pdm_pp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_1pdm_pp_mo.F,v 1.1 2008-10-01 00:12:42 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y @@ -165,7 +165,7 @@ C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y END SUBROUTINE ccsdt_1pdm_pp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_1pdm_pp_mo.F,v 1.1 2008-10-01 00:12:42 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * y ( h4 h5 p2 p3 )_y @@ -341,7 +341,7 @@ C i0 ( p1 p2 )_yt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * y ( h4 END SUBROUTINE ccsdt_1pdm_pp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_1pdm_pp_mo.F,v 1.1 2008-10-01 00:12:42 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1/12 * Sum ( h5 h6 h7 p3 p4 ) * t ( p1 p3 p4 h5 h6 h7 )_t * y ( h5 h6 h7 p2 p3 p4 )_y diff --git a/src/tce/gradients/ccsdt_2pdm_hhhh_mo.F b/src/tce/gradients/ccsdt_2pdm_hhhh_mo.F index 0e1e13df88..20ab20b068 100644 --- a/src/tce/gradients/ccsdt_2pdm_hhhh_mo.F +++ b/src/tce/gradients/ccsdt_2pdm_hhhh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_2pdm_hhhh_mo(d_i0,d_t1,d_t2,d_t3,d_y2,d_y3,k_i0_o &ffset,k_t1_offset,k_t2_offset,k_t3_offset,k_y2_offset,k_y3_offset) -C $Id: ccsdt_2pdm_hhhh_mo.F,v 1.1 2008-10-01 00:13:16 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h3 h4 p5 p6 )_y @@ -53,7 +53,7 @@ C i1 ( h2 h3 h1 p9 )_yt + = -1 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t END SUBROUTINE ccsdt_2pdm_hhhh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hhhh_mo.F,v 1.1 2008-10-01 00:13:16 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h3 h4 p5 p6 )_y @@ -215,7 +215,7 @@ C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( END SUBROUTINE ccsdt_2pdm_hhhh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hhhh_mo.F,v 1.1 2008-10-01 00:13:16 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/6 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 h8 )_t * y ( h3 h4 h8 p5 p6 p7 )_y @@ -435,7 +435,7 @@ C i0 ( h3 h4 h1 h2 )_yt + = 1/6 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 h END SUBROUTINE ccsdt_2pdm_hhhh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hhhh_mo.F,v 1.1 2008-10-01 00:13:16 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h3 h1 h4 )_ytt + = -1/2 * P( 2 ) * Sum ( p9 ) * t ( p9 h1 )_t * i1 ( h2 h3 h4 p9 )_yt @@ -587,7 +587,7 @@ C i0 ( h2 h3 h1 h4 )_ytt + = -1/2 * P( 2 ) * Sum ( p9 ) * t ( p9 h1 )_t * i1 END SUBROUTINE ccsdt_2pdm_hhhh_mo_3_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_hhhh_mo.F,v 1.1 2008-10-01 00:13:16 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 h1 p9 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h3 p6 p9 )_y @@ -741,7 +741,7 @@ C i1 ( h2 h3 h1 p9 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h3 p6 p9 END SUBROUTINE OFFSET_ccsdt_2pdm_hhhh_mo_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_hhhh_mo.F,v 1.1 2008-10-01 00:13:16 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 h1 p9 )_yt @@ -813,7 +813,7 @@ C i1 ( h2 h3 h1 p9 )_yt END SUBROUTINE ccsdt_2pdm_hhhh_mo_3_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_hhhh_mo.F,v 1.1 2008-10-01 00:13:16 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 h1 p9 )_yt + = -1 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h2 h3 h7 p5 p6 p9 )_y diff --git a/src/tce/gradients/ccsdt_2pdm_hhhp_mo.F b/src/tce/gradients/ccsdt_2pdm_hhhp_mo.F index 62ccedc830..f0c76a5f84 100644 --- a/src/tce/gradients/ccsdt_2pdm_hhhp_mo.F +++ b/src/tce/gradients/ccsdt_2pdm_hhhp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_2pdm_hhhp_mo(d_i0,d_t1,d_t2,d_y2,d_y3,k_i0_offset &,k_t1_offset,k_t2_offset,k_y2_offset,k_y3_offset) -C $Id: ccsdt_2pdm_hhhp_mo.F,v 1.1 2008-10-01 00:14:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h2 p1 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h3 h4 p1 p5 )_y @@ -29,7 +29,7 @@ C i0 ( h3 h4 h2 p1 )_yt + = -1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p5 p6 h2 END SUBROUTINE ccsdt_2pdm_hhhp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hhhp_mo.F,v 1.1 2008-10-01 00:14:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h2 p1 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h3 h4 p1 p5 )_y @@ -195,7 +195,7 @@ c &)) END SUBROUTINE ccsdt_2pdm_hhhp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hhhp_mo.F,v 1.1 2008-10-01 00:14:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h2 p1 )_yt + = -1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p5 p6 h2 h7 )_t * y ( h3 h4 h7 p1 p5 p6 )_y diff --git a/src/tce/gradients/ccsdt_2pdm_hhpp_mo.F b/src/tce/gradients/ccsdt_2pdm_hhpp_mo.F index 66d1a5c67c..836dc8d3f7 100644 --- a/src/tce/gradients/ccsdt_2pdm_hhpp_mo.F +++ b/src/tce/gradients/ccsdt_2pdm_hhpp_mo.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_2pdm_hhpp_mo(d_i0,d_y2,k_i0_offset,k_y2_offset) -C $Id: ccsdt_2pdm_hhpp_mo.F,v 1.1 2008-10-01 00:14:49 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_y + = 1 * y ( h3 h4 p1 p2 )_y @@ -17,7 +17,7 @@ C i0 ( h3 h4 p1 p2 )_y + = 1 * y ( h3 h4 p1 p2 )_y RETURN END SUBROUTINE ccsdt_2pdm_hhpp_mo_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_2pdm_hhpp_mo.F,v 1.1 2008-10-01 00:14:49 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_y + = 1 * y ( h3 h4 p1 p2 )_y diff --git a/src/tce/gradients/ccsdt_2pdm_hphh_mo.F b/src/tce/gradients/ccsdt_2pdm_hphh_mo.F index 140a9b43cb..1a515c6a53 100644 --- a/src/tce/gradients/ccsdt_2pdm_hphh_mo.F +++ b/src/tce/gradients/ccsdt_2pdm_hphh_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdt_2pdm_hphh_mo(d_i0,d_t1,d_t2,d_t3,d_y1,d_y2,d_y3,k &_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y1_offset,k_y2_of &fset,k_y3_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p3 h1 h2 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * y ( h4 p5 )_y @@ -167,7 +167,7 @@ C i2 ( h2 h8 h9 h1 p5 p7 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * END SUBROUTINE ccsdt_2pdm_hphh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p3 h1 h2 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * y ( h4 p5 )_y @@ -331,7 +331,7 @@ c &)) END SUBROUTINE ccsdt_2pdm_hphh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p3 h1 h2 )_yt + = -1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p3 p5 p6 h1 h2 h7 )_t * y ( h4 h7 p5 p6 )_y @@ -590,7 +590,7 @@ c &)) END SUBROUTINE ccsdt_2pdm_hphh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p3 h1 h4 )_ytt + = -1/2 * P( 4 ) * t ( p3 h1 )_t * i1 ( h2 h4 )_yt @@ -758,7 +758,7 @@ c END IF END SUBROUTINE ccsdt_2pdm_hphh_mo_3_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h2 p5 )_y @@ -886,7 +886,7 @@ C i1 ( h2 h1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h2 p5 )_y END SUBROUTINE OFFSET_ccsdt_2pdm_hphh_mo_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt @@ -942,7 +942,7 @@ C i1 ( h2 h1 )_yt END SUBROUTINE ccsdt_2pdm_hphh_mo_3_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h2 h7 p5 p6 )_y @@ -1118,7 +1118,7 @@ C i1 ( h2 h1 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h2 END SUBROUTINE ccsdt_2pdm_hphh_mo_3_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1/12 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h1 h8 h9 )_t * y ( h2 h8 h9 p5 p6 p7 )_y @@ -1341,7 +1341,7 @@ C i1 ( h2 h1 )_yt + = 1/12 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h1 h8 h9 END SUBROUTINE ccsdt_2pdm_hphh_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p3 h2 h4 )_ytt + = 1/4 * P( 2 ) * Sum ( h10 ) * t ( p3 h10 )_t * i1 ( h1 h10 h2 h4 )_yt @@ -1494,7 +1494,7 @@ c &)) END SUBROUTINE ccsdt_2pdm_hphh_mo_4_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h10 h1 h2 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h4 h10 p5 p6 )_y @@ -1666,7 +1666,7 @@ C i1 ( h4 h10 h1 h2 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( END SUBROUTINE OFFSET_ccsdt_2pdm_hphh_mo_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h10 h1 h2 )_yt @@ -1738,7 +1738,7 @@ C i1 ( h4 h10 h1 h2 )_yt END SUBROUTINE ccsdt_2pdm_hphh_mo_4_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h10 h1 h2 )_yt + = 1/3 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 h8 )_t * y ( h4 h8 h10 p5 p6 p7 )_y @@ -1988,7 +1988,7 @@ C i1 ( h4 h10 h1 h2 )_yt + = 1/3 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 END SUBROUTINE ccsdt_2pdm_hphh_mo_4_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h10 h1 h4 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h2 h10 h4 p5 )_yt @@ -2140,7 +2140,7 @@ C i1 ( h2 h10 h1 h4 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 END SUBROUTINE ccsdt_2pdm_hphh_mo_4_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h10 p5 p6 )_y @@ -2310,7 +2310,7 @@ C i2 ( h2 h10 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h10 p5 END SUBROUTINE OFFSET_ccsdt_2pdm_hphh_mo_4_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h1 p5 )_yt @@ -2382,7 +2382,7 @@ C i2 ( h2 h10 h1 p5 )_yt END SUBROUTINE ccsdt_2pdm_hphh_mo_4_3_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h1 p5 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t * y ( h2 h9 h10 p5 p7 p8 )_y @@ -2737,7 +2737,7 @@ C i2 ( h2 h10 h1 p5 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t * y END SUBROUTINE ccsdt_2pdm_hphh_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p3 h1 h4 )_ytt + = 1/2 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i1 ( h2 h6 h4 p5 )_yt @@ -2946,7 +2946,7 @@ c END IF END SUBROUTINE ccsdt_2pdm_hphh_mo_5_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h6 h1 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * y ( h2 h6 p5 p7 )_y @@ -3116,7 +3116,7 @@ C i1 ( h2 h6 h1 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * y ( h2 h6 p5 p7 END SUBROUTINE OFFSET_ccsdt_2pdm_hphh_mo_5_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h6 h1 p5 )_yt @@ -3188,7 +3188,7 @@ C i1 ( h2 h6 h1 p5 )_yt END SUBROUTINE ccsdt_2pdm_hphh_mo_5_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h6 h1 p5 )_yt + = 1/2 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t * y ( h2 h6 h9 p5 p7 p8 )_y @@ -3513,7 +3513,7 @@ C i1 ( h2 h6 h1 p5 )_yt + = 1/2 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t * y END SUBROUTINE ccsdt_2pdm_hphh_mo_6(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p3 h1 h4 )_ytt + = -1/8 * P( 4 ) * Sum ( h7 h8 p5 p6 ) * t ( p3 p5 p6 h1 h7 h8 )_t * i1 ( h2 h7 h8 h4 p5 p6 )_yt @@ -3801,7 +3801,7 @@ c END IF END SUBROUTINE ccsdt_2pdm_hphh_mo_6_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h8 h1 p5 p6 )_yt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * y ( h2 h7 h8 p5 p6 p9 )_y @@ -4024,7 +4024,7 @@ C i1 ( h2 h7 h8 h1 p5 p6 )_yt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * y ( h2 h7 END SUBROUTINE OFFSET_ccsdt_2pdm_hphh_mo_6_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h8 h1 p5 p6 )_yt @@ -4112,7 +4112,7 @@ C i1 ( h2 h7 h8 h1 p5 p6 )_yt END SUBROUTINE ccsdt_2pdm_hphh_mo_7(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p3 h1 h2 )_ytt + = 1/4 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * i1 ( h4 p3 p5 p6 )_yt @@ -4275,7 +4275,7 @@ C i0 ( h4 p3 h1 h2 )_ytt + = 1/4 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * i1 END SUBROUTINE ccsdt_2pdm_hphh_mo_7_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 p3 p5 p6 )_yt + = -1/2 * P( 2 ) * Sum ( h8 h9 p7 ) * t ( p3 p7 h8 h9 )_t * y ( h1 h8 h9 p5 p6 p7 )_y @@ -4532,7 +4532,7 @@ c & - noab - 1))))) END SUBROUTINE OFFSET_ccsdt_2pdm_hphh_mo_7_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 p3 p5 p6 )_yt @@ -4604,7 +4604,7 @@ C i1 ( h1 p3 p5 p6 )_yt END SUBROUTINE ccsdt_2pdm_hphh_mo_8(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p3 h1 h4 )_yttt + = -1/4 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i1 ( h2 p3 h4 p5 )_ytt @@ -4758,7 +4758,7 @@ C i0 ( h2 p3 h1 h4 )_yttt + = -1/4 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i END SUBROUTINE ccsdt_2pdm_hphh_mo_8_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 p3 h2 p5 )_ytt + = -1/2 * P( 2 ) * Sum ( h8 h9 p7 ) * t ( p3 p7 h8 h9 )_t * i2 ( h1 h8 h9 h2 p5 p7 )_yt @@ -4958,7 +4958,7 @@ c & - 1))))) END SUBROUTINE OFFSET_ccsdt_2pdm_hphh_mo_8_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 p3 h2 p5 )_ytt @@ -5030,7 +5030,7 @@ C i1 ( h1 p3 h2 p5 )_ytt END SUBROUTINE ccsdt_2pdm_hphh_mo_8_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h9 h1 p5 p7 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h8 h9 p5 p6 p7 )_y @@ -5253,7 +5253,7 @@ C i2 ( h2 h8 h9 h1 p5 p7 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h END SUBROUTINE OFFSET_ccsdt_2pdm_hphh_mo_8_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h9 h1 p5 p7 )_yt diff --git a/src/tce/gradients/ccsdt_2pdm_hphp_mo.F b/src/tce/gradients/ccsdt_2pdm_hphp_mo.F index dcc4b96017..4d6b809076 100644 --- a/src/tce/gradients/ccsdt_2pdm_hphp_mo.F +++ b/src/tce/gradients/ccsdt_2pdm_hphp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdt_2pdm_hphp_mo(d_i0,d_t1,d_t2,d_t3,d_y1,d_y2,d_y3,k &_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y1_offset,k_y2_of &fset,k_y3_offset) -C $Id: ccsdt_2pdm_hphp_mo.F,v 1.1 2008-10-01 00:15:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 h2 p3 )_yt + = -1/4 * P( 4 ) * t ( p1 h2 )_t * y ( h4 p3 )_y @@ -73,7 +73,7 @@ C i1 ( h4 h6 h7 h2 p1 p5 )_yt + = -1/2 * P( 2 ) * Sum ( p8 ) * t ( p8 h2 END SUBROUTINE ccsdt_2pdm_hphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hphp_mo.F,v 1.1 2008-10-01 00:15:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 h2 p3 )_yt + = -1/4 * P( 4 ) * t ( p1 h2 )_t * y ( h4 p3 )_y @@ -230,7 +230,7 @@ c & - 1))))) END SUBROUTINE ccsdt_2pdm_hphp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hphp_mo.F,v 1.1 2008-10-01 00:15:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 h2 p3 )_yt + = -1/4 * P( 4 ) * Sum ( h6 p5 ) * t ( p1 p5 h2 h6 )_t * y ( h4 h6 p3 p5 )_y @@ -454,7 +454,7 @@ c & - 1))))) END SUBROUTINE ccsdt_2pdm_hphp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hphp_mo.F,v 1.1 2008-10-01 00:15:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 h2 p3 )_yt + = -1/16 * P( 4 ) * Sum ( h7 h8 p5 p6 ) * t ( p1 p5 p6 h2 h7 h8 )_t * y ( h4 h7 h8 p3 p5 p6 )_y @@ -798,7 +798,7 @@ c & - 1))))) END SUBROUTINE ccsdt_2pdm_hphp_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hphp_mo.F,v 1.1 2008-10-01 00:15:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 h4 p3 )_ytt + = 1/2 * P( 2 ) * Sum ( h9 ) * t ( p1 h9 )_t * i1 ( h2 h9 h4 p3 )_yt @@ -951,7 +951,7 @@ c & - 1))))) END SUBROUTINE ccsdt_2pdm_hphp_mo_4_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_hphp_mo.F,v 1.1 2008-10-01 00:15:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h9 h2 p1 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h4 h9 p1 p5 )_y @@ -1130,7 +1130,7 @@ c &)) END SUBROUTINE OFFSET_ccsdt_2pdm_hphp_mo_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_hphp_mo.F,v 1.1 2008-10-01 00:15:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h9 h2 p1 )_yt @@ -1202,7 +1202,7 @@ C i1 ( h4 h9 h2 p1 )_yt END SUBROUTINE ccsdt_2pdm_hphp_mo_4_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_hphp_mo.F,v 1.1 2008-10-01 00:15:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h9 h2 p1 )_yt + = -1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p5 p6 h2 h7 )_t * y ( h4 h7 h9 p1 p5 p6 )_y @@ -1536,7 +1536,7 @@ c &)) END SUBROUTINE ccsdt_2pdm_hphp_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hphp_mo.F,v 1.1 2008-10-01 00:15:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 h4 p3 )_ytt + = 1/4 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * i1 ( h2 h6 h7 h4 p3 p5 )_yt @@ -1726,7 +1726,7 @@ c & - 1))))) END SUBROUTINE ccsdt_2pdm_hphp_mo_5_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_hphp_mo.F,v 1.1 2008-10-01 00:15:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h6 h7 h2 p1 p5 )_yt + = -1/2 * P( 2 ) * Sum ( p8 ) * t ( p8 h2 )_t * y ( h4 h6 h7 p1 p5 p8 )_y @@ -2037,7 +2037,7 @@ c & - 1 + noab * (h6b - 1 + noab * (h4b - 1))))))) END SUBROUTINE OFFSET_ccsdt_2pdm_hphp_mo_5_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_hphp_mo.F,v 1.1 2008-10-01 00:15:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h6 h7 h2 p1 p5 )_yt diff --git a/src/tce/gradients/ccsdt_2pdm_hppp_mo.F b/src/tce/gradients/ccsdt_2pdm_hppp_mo.F index cd4120f91c..9a9b6002b8 100644 --- a/src/tce/gradients/ccsdt_2pdm_hppp_mo.F +++ b/src/tce/gradients/ccsdt_2pdm_hppp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_2pdm_hppp_mo(d_i0,d_t1,d_t2,d_y2,d_y3,k_i0_offset &,k_t1_offset,k_t2_offset,k_y2_offset,k_y3_offset) -C $Id: ccsdt_2pdm_hppp_mo.F,v 1.1 2008-10-01 00:16:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 p2 p3 )_yt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * y ( h4 h5 p2 p3 )_y @@ -29,7 +29,7 @@ C i0 ( h4 p1 p2 p3 )_yt + = -1/4 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 END SUBROUTINE ccsdt_2pdm_hppp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hppp_mo.F,v 1.1 2008-10-01 00:16:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 p2 p3 )_yt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * y ( h4 h5 p2 p3 )_y @@ -192,7 +192,7 @@ c & - noab - 1))))) END SUBROUTINE ccsdt_2pdm_hppp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hppp_mo.F,v 1.1 2008-10-01 00:16:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 p2 p3 )_yt + = -1/4 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * y ( h4 h6 h7 p2 p3 p5 )_y diff --git a/src/tce/gradients/ccsdt_2pdm_pphh_mo.F b/src/tce/gradients/ccsdt_2pdm_pphh_mo.F index 6ea772f885..c3a35b4ed4 100644 --- a/src/tce/gradients/ccsdt_2pdm_pphh_mo.F +++ b/src/tce/gradients/ccsdt_2pdm_pphh_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdt_2pdm_pphh_mo(d_i0,d_t1,d_t2,d_t3,d_y1,d_y2,d_y3,k &_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y1_offset,k_y2_of &fset,k_y3_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_t + = 1 * t ( p3 p4 h1 h2 )_t @@ -408,7 +408,7 @@ C i2 ( h7 h12 h13 h1 p5 p11 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t RETURN END SUBROUTINE ccsdt_2pdm_pphh_mo_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_t + = 1 * t ( p3 p4 h1 h2 )_t @@ -508,7 +508,7 @@ C i0 ( p3 p4 h1 h2 )_t + = 1 * t ( p3 p4 h1 h2 )_t END SUBROUTINE ccsdt_2pdm_pphh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt + = 1 * Sum ( h6 p5 ) * t ( p3 p4 p5 h1 h2 h6 )_t * y ( h6 p5 )_y @@ -728,7 +728,7 @@ C i0 ( p3 p4 h1 h2 )_yt + = 1 * Sum ( h6 p5 ) * t ( p3 p4 p5 h1 h2 h6 )_t * END SUBROUTINE ccsdt_2pdm_pphh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tt + = 1/2 * P( 4 ) * t ( p3 h1 )_t * i1 ( p4 h2 )_t @@ -889,7 +889,7 @@ C i0 ( p3 p4 h1 h2 )_tt + = 1/2 * P( 4 ) * t ( p3 h1 )_t * i1 ( p4 h2 )_t RETURN END SUBROUTINE ccsdt_2pdm_pphh_mo_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_t + = 1 * t ( p3 h1 )_t @@ -974,7 +974,7 @@ C i1 ( p3 h1 )_t + = 1 * t ( p3 h1 )_t END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_t @@ -1030,7 +1030,7 @@ C i1 ( p3 h1 )_t END SUBROUTINE ccsdt_2pdm_pphh_mo_3_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yt + = 2 * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * y ( h6 p5 )_y @@ -1192,7 +1192,7 @@ C i1 ( p3 h1 )_yt + = 2 * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * y ( h6 p5 )_ END SUBROUTINE ccsdt_2pdm_pphh_mo_3_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yt + = 1/2 * Sum ( h7 h8 p5 p6 ) * t ( p3 p5 p6 h1 h7 h8 )_t * y ( h7 h8 p5 p6 )_y @@ -1434,7 +1434,7 @@ C i1 ( p3 h1 )_yt + = 1/2 * Sum ( h7 h8 p5 p6 ) * t ( p3 p5 p6 h1 h7 h8 )_t END SUBROUTINE ccsdt_2pdm_pphh_mo_3_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_ytt + = -1 * Sum ( h11 ) * t ( p3 h11 )_t * i2 ( h11 h1 )_yt @@ -1562,7 +1562,7 @@ C i1 ( p3 h1 )_ytt + = -1 * Sum ( h11 ) * t ( p3 h11 )_t * i2 ( h11 h1 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_3_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i3 ( h11 p7 )_y @@ -1690,7 +1690,7 @@ C i2 ( h11 h1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i3 ( h11 p7 )_y END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_3_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h1 )_yt @@ -1746,7 +1746,7 @@ C i2 ( h11 h1 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_3_4_1_1(d_a,k_a_offset,d_c,k_c_offse &t) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 p7 )_y + = 1 * y ( h11 p7 )_y @@ -1831,7 +1831,7 @@ C i3 ( h11 p7 )_y + = 1 * y ( h11 p7 )_y END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_3_4_1_1(l_a_offset,k_a_offset &,size) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 p7 )_y @@ -1887,7 +1887,7 @@ C i3 ( h11 p7 )_y END SUBROUTINE ccsdt_2pdm_pphh_mo_3_4_1_2(d_a,k_a_offset,d_c,k_c_offse &t) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 p7 )_y + = 1 * y ( h11 p7 )_y @@ -1972,7 +1972,7 @@ C i3 ( h11 p7 )_y + = 1 * y ( h11 p7 )_y END SUBROUTINE ccsdt_2pdm_pphh_mo_3_4_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h1 )_yt + = -1 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h8 h11 p6 p7 )_y @@ -2148,7 +2148,7 @@ C i2 ( h11 h1 )_yt + = -1 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h8 END SUBROUTINE ccsdt_2pdm_pphh_mo_3_4_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h1 )_yt + = 1/6 * Sum ( h9 h10 p6 p7 p8 ) * t ( p6 p7 p8 h1 h9 h10 )_t * y ( h9 h10 h11 p6 p7 p8 )_y @@ -2377,7 +2377,7 @@ C i2 ( h11 h1 )_yt + = 1/6 * Sum ( h9 h10 p6 p7 p8 ) * t ( p6 p7 p8 h1 h9 h1 END SUBROUTINE ccsdt_2pdm_pphh_mo_3_5(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_ytt + = -1 * Sum ( h12 h9 p11 ) * t ( p3 p11 h9 h12 )_t * i2 ( h9 h12 h1 p11 )_yt @@ -2543,7 +2543,7 @@ C i1 ( p3 h1 )_ytt + = -1 * Sum ( h12 h9 p11 ) * t ( p3 p11 h9 h12 )_t * i2 END SUBROUTINE ccsdt_2pdm_pphh_mo_3_5_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h12 h1 p11 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h9 h12 p5 p11 )_y @@ -2697,7 +2697,7 @@ C i2 ( h9 h12 h1 p11 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h9 h12 p5 END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_3_5_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h12 h1 p11 )_yt @@ -2769,7 +2769,7 @@ C i2 ( h9 h12 h1 p11 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_3_5_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h12 h1 p11 )_yt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h7 h9 h12 p5 p6 p11 )_y @@ -3030,7 +3030,7 @@ C i2 ( h9 h12 h1 p11 )_yt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t END SUBROUTINE ccsdt_2pdm_pphh_mo_3_6(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_ytt + = -1/6 * Sum ( h8 h9 h10 p6 p7 ) * t ( p3 p6 p7 h8 h9 h10 )_t * i2 ( h8 h9 h10 h1 p6 p7 )_yt @@ -3238,7 +3238,7 @@ C i1 ( p3 h1 )_ytt + = -1/6 * Sum ( h8 h9 h10 p6 p7 ) * t ( p3 p6 p7 h8 h9 h END SUBROUTINE ccsdt_2pdm_pphh_mo_3_6_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h10 h1 p6 p7 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h8 h9 h10 p5 p6 p7 )_y @@ -3415,7 +3415,7 @@ C i2 ( h8 h9 h10 h1 p6 p7 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h8 h END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_3_6_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h10 h1 p6 p7 )_yt @@ -3503,7 +3503,7 @@ C i2 ( h8 h9 h10 h1 p6 p7 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h11 ) * t ( p3 h11 )_t * i1 ( h11 p4 h1 h2 )_yt @@ -3657,7 +3657,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h11 ) * t ( p3 h11 )_t * i1 END SUBROUTINE ccsdt_2pdm_pphh_mo_4_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p3 h1 h2 )_yt + = -1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * y ( h11 p5 )_y @@ -3812,7 +3812,7 @@ C i1 ( h11 p3 h1 h2 )_yt + = -1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * y ( h11 END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p3 h1 h2 )_yt @@ -3884,7 +3884,7 @@ C i1 ( h11 p3 h1 h2 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_4_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p3 h1 h2 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p3 p5 p6 h1 h2 h7 )_t * y ( h7 h11 p5 p6 )_y @@ -4134,7 +4134,7 @@ C i1 ( h11 p3 h1 h2 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p3 p5 p6 h1 h2 h7 END SUBROUTINE ccsdt_2pdm_pphh_mo_4_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p3 h1 h2 )_ytt + = 1/4 * Sum ( h13 ) * t ( p3 h13 )_t * i2 ( h11 h13 h1 h2 )_yt @@ -4288,7 +4288,7 @@ C i1 ( h11 p3 h1 h2 )_ytt + = 1/4 * Sum ( h13 ) * t ( p3 h13 )_t * i2 ( h11 END SUBROUTINE ccsdt_2pdm_pphh_mo_4_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h13 h1 h2 )_yt + = -1 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * y ( h11 h13 p7 p8 )_y @@ -4450,7 +4450,7 @@ C i2 ( h11 h13 h1 h2 )_yt + = -1 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * y ( END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_4_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h13 h1 h2 )_yt @@ -4522,7 +4522,7 @@ C i2 ( h11 h13 h1 h2 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_4_3_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h13 h1 h2 )_yt + = -1/3 * Sum ( h10 p7 p8 p9 ) * t ( p7 p8 p9 h1 h2 h10 )_t * y ( h10 h11 h13 p7 p8 p9 )_y @@ -4749,7 +4749,7 @@ C i2 ( h11 h13 h1 h2 )_yt + = -1/3 * Sum ( h10 p7 p8 p9 ) * t ( p7 p8 p9 h1 END SUBROUTINE ccsdt_2pdm_pphh_mo_4_3_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h13 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h11 h13 h2 p5 )_yt @@ -4901,7 +4901,7 @@ C i2 ( h11 h13 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 END SUBROUTINE ccsdt_2pdm_pphh_mo_4_3_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 h13 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h11 h13 p5 p6 )_y @@ -5055,7 +5055,7 @@ C i3 ( h11 h13 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h11 h13 p END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_4_3_3_1(l_a_offset,k_a_offset &,size) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 h13 h1 p5 )_yt @@ -5127,7 +5127,7 @@ C i3 ( h11 h13 h1 p5 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_4_3_3_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 h13 h1 p5 )_yt + = 1 * Sum ( h10 p8 p9 ) * t ( p8 p9 h1 h10 )_t * y ( h10 h11 h13 p5 p8 p9 )_y @@ -5392,7 +5392,7 @@ C i3 ( h11 h13 h1 p5 )_yt + = 1 * Sum ( h10 p8 p9 ) * t ( p8 p9 h1 h10 )_t * END SUBROUTINE ccsdt_2pdm_pphh_mo_4_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p3 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h12 p10 ) * t ( p3 p10 h1 h12 )_t * i2 ( h11 h12 h2 p10 )_yt @@ -5590,7 +5590,7 @@ C i1 ( h11 p3 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h12 p10 ) * t ( p3 p10 h1 END SUBROUTINE ccsdt_2pdm_pphh_mo_4_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 p10 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h11 h12 p5 p10 )_y @@ -5745,7 +5745,7 @@ C i2 ( h11 h12 h1 p10 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h11 h12 END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_4_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 p10 )_yt @@ -5817,7 +5817,7 @@ C i2 ( h11 h12 h1 p10 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_4_4_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 p10 )_yt + = -1/2 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t * y ( h9 h11 h12 p7 p8 p10 )_y @@ -6082,7 +6082,7 @@ C i2 ( h11 h12 h1 p10 )_yt + = -1/2 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t END SUBROUTINE ccsdt_2pdm_pphh_mo_4_5(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p3 h1 h2 )_ytt + = -1/4 * P( 2 ) * Sum ( h9 h10 p7 p8 ) * t ( p3 p7 p8 h1 h9 h10 )_t * i2 ( h9 h10 h11 h2 p7 p8 )_yt @@ -6378,7 +6378,7 @@ C i1 ( h11 p3 h1 h2 )_ytt + = -1/4 * P( 2 ) * Sum ( h9 h10 p7 p8 ) * t ( p3 END SUBROUTINE ccsdt_2pdm_pphh_mo_4_5_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h11 h1 p7 p8 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h9 h10 h11 p5 p7 p8 )_y @@ -6555,7 +6555,7 @@ C i2 ( h9 h10 h11 h1 p7 p8 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h9 END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_4_5_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h11 h1 p7 p8 )_yt @@ -6643,7 +6643,7 @@ C i2 ( h9 h10 h11 h1 p7 p8 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_4_6(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p3 h1 h2 )_ytt + = 1/4 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * i2 ( h11 p3 p5 p6 )_yt @@ -6806,7 +6806,7 @@ C i1 ( h11 p3 h1 h2 )_ytt + = 1/4 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * i2 END SUBROUTINE ccsdt_2pdm_pphh_mo_4_6_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p3 p5 p6 )_yt + = -1 * Sum ( h8 h9 p7 ) * t ( p3 p7 h8 h9 )_t * y ( h8 h9 h11 p5 p6 p7 )_y @@ -7067,7 +7067,7 @@ C i2 ( h11 p3 p5 p6 )_yt + = -1 * Sum ( h8 h9 p7 ) * t ( p3 p7 h8 h9 )_t * y END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_4_6_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p3 p5 p6 )_yt @@ -7139,7 +7139,7 @@ C i2 ( h11 p3 p5 p6 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_4_7(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p3 h1 h2 )_yttt + = -1/4 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h11 p3 h2 p5 )_ytt @@ -7293,7 +7293,7 @@ C i1 ( h11 p3 h1 h2 )_yttt + = -1/4 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * END SUBROUTINE ccsdt_2pdm_pphh_mo_4_7_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p3 h1 p5 )_ytt + = -1 * Sum ( h9 h10 p8 ) * t ( p3 p8 h9 h10 )_t * i3 ( h9 h10 h11 h1 p5 p8 )_yt @@ -7518,7 +7518,7 @@ C i2 ( h11 p3 h1 p5 )_ytt + = -1 * Sum ( h9 h10 p8 ) * t ( p3 p8 h9 h10 )_t END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_4_7_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p3 h1 p5 )_ytt @@ -7590,7 +7590,7 @@ C i2 ( h11 p3 h1 p5 )_ytt END SUBROUTINE ccsdt_2pdm_pphh_mo_4_7_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h11 h1 p5 p8 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h9 h10 h11 p5 p6 p8 )_y @@ -7767,7 +7767,7 @@ C i3 ( h9 h10 h11 h1 p5 p8 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h9 END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_4_7_1_1(l_a_offset,k_a_offset &,size) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h11 h1 p5 p8 )_yt @@ -7855,7 +7855,7 @@ C i3 ( h9 h10 h11 h1 p5 p8 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h11 ) * t ( p3 p4 h1 h11 )_t * i1 ( h11 h2 )_yt @@ -8020,7 +8020,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h11 ) * t ( p3 p4 h1 h11 )_ END SUBROUTINE ccsdt_2pdm_pphh_mo_5_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 h1 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h11 p6 )_y @@ -8148,7 +8148,7 @@ C i1 ( h11 h1 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h11 p6 )_y END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_5_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 h1 )_yt @@ -8204,7 +8204,7 @@ C i1 ( h11 h1 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_5_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 h1 )_yt + = -1/2 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h8 h11 p6 p7 )_y @@ -8380,7 +8380,7 @@ C i1 ( h11 h1 )_yt + = -1/2 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h END SUBROUTINE ccsdt_2pdm_pphh_mo_5_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 h1 )_yt + = 1/12 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h1 h8 h9 )_t * y ( h8 h9 h11 p5 p6 p7 )_y @@ -8606,7 +8606,7 @@ C i1 ( h11 h1 )_yt + = 1/12 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h1 h8 h9 END SUBROUTINE ccsdt_2pdm_pphh_mo_6(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1/2 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p3 p4 p5 h1 h6 h7 )_t * i1 ( h6 h7 h2 p5 )_yt @@ -8856,7 +8856,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1/2 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p3 p4 p5 END SUBROUTINE ccsdt_2pdm_pphh_mo_6_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h1 p5 )_yt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * y ( h6 h7 p5 p8 )_y @@ -9010,7 +9010,7 @@ C i1 ( h6 h7 h1 p5 )_yt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * y ( h6 h7 p5 p END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_6_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h1 p5 )_yt @@ -9082,7 +9082,7 @@ C i1 ( h6 h7 h1 p5 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_6_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h1 p5 )_yt + = -1/2 * Sum ( h10 p8 p9 ) * t ( p8 p9 h1 h10 )_t * y ( h6 h7 h10 p5 p8 p9 )_y @@ -9343,7 +9343,7 @@ C i1 ( h6 h7 h1 p5 )_yt + = -1/2 * Sum ( h10 p8 p9 ) * t ( p8 p9 h1 h10 )_t END SUBROUTINE ccsdt_2pdm_pphh_mo_7(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1/2 * P( 2 ) * Sum ( p11 ) * t ( p3 p11 h1 h2 )_t * i1 ( p4 p11 )_yt @@ -9508,7 +9508,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1/2 * P( 2 ) * Sum ( p11 ) * t ( p3 p11 h1 h2 END SUBROUTINE ccsdt_2pdm_pphh_mo_7_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p11 )_yt + = -1 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * y ( h7 h8 p6 p11 )_y @@ -9684,7 +9684,7 @@ C i1 ( p3 p11 )_yt + = -1 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * y ( h7 END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_7_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p11 )_yt @@ -9741,7 +9741,7 @@ C i1 ( p3 p11 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_7_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p11 )_yt + = 1/6 * Sum ( h7 h8 h9 p5 p6 ) * t ( p3 p5 p6 h7 h8 h9 )_t * y ( h7 h8 h9 p5 p6 p11 )_y @@ -9967,7 +9967,7 @@ C i1 ( p3 p11 )_yt + = 1/6 * Sum ( h7 h8 h9 p5 p6 ) * t ( p3 p5 p6 h7 h8 h9 END SUBROUTINE ccsdt_2pdm_pphh_mo_8(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = 1/4 * Sum ( h12 h13 ) * t ( p3 p4 h12 h13 )_t * i1 ( h12 h13 h1 h2 )_yt @@ -10130,7 +10130,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = 1/4 * Sum ( h12 h13 ) * t ( p3 p4 h12 h13 )_t * END SUBROUTINE ccsdt_2pdm_pphh_mo_8_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 h13 h1 h2 )_yt + = 1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h12 h13 p5 p6 )_y @@ -10292,7 +10292,7 @@ C i1 ( h12 h13 h1 h2 )_yt + = 1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_8_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 h13 h1 h2 )_yt @@ -10364,7 +10364,7 @@ C i1 ( h12 h13 h1 h2 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_8_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 h13 h1 h2 )_yt + = 1/3 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 h8 )_t * y ( h8 h12 h13 p5 p6 p7 )_y @@ -10587,7 +10587,7 @@ C i1 ( h12 h13 h1 h2 )_yt + = 1/3 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 END SUBROUTINE ccsdt_2pdm_pphh_mo_8_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 h13 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p11 ) * t ( p11 h1 )_t * i2 ( h12 h13 h2 p11 )_yt @@ -10740,7 +10740,7 @@ C i1 ( h12 h13 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p11 ) * t ( p11 h1 )_t * END SUBROUTINE ccsdt_2pdm_pphh_mo_8_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h1 p11 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h12 h13 p6 p11 )_y @@ -10895,7 +10895,7 @@ C i2 ( h12 h13 h1 p11 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h12 h13 END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_8_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h1 p11 )_yt @@ -10967,7 +10967,7 @@ C i2 ( h12 h13 h1 p11 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_8_3_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h1 p11 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t * y ( h9 h12 h13 p7 p8 p11 )_y @@ -11232,7 +11232,7 @@ C i2 ( h12 h13 h1 p11 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t * END SUBROUTINE ccsdt_2pdm_pphh_mo_9(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = 1/2 * P( 4 ) * Sum ( h11 p12 ) * t ( p3 p12 h1 h11 )_t * i1 ( h11 p4 h2 p12 )_yt @@ -11435,7 +11435,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = 1/2 * P( 4 ) * Sum ( h11 p12 ) * t ( p3 p12 h1 END SUBROUTINE ccsdt_2pdm_pphh_mo_9_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p3 h1 p12 )_yt + = 1 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * y ( h8 h11 p7 p12 )_y @@ -11638,7 +11638,7 @@ C i1 ( h11 p3 h1 p12 )_yt + = 1 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * y ( END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_9_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p3 h1 p12 )_yt @@ -11710,7 +11710,7 @@ C i1 ( h11 p3 h1 p12 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_9_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p3 h1 p12 )_yt + = 1/2 * Sum ( h7 h8 p5 p6 ) * t ( p3 p5 p6 h1 h7 h8 )_t * y ( h7 h8 h11 p5 p6 p12 )_y @@ -12046,7 +12046,7 @@ C i1 ( h11 p3 h1 p12 )_yt + = 1/2 * Sum ( h7 h8 p5 p6 ) * t ( p3 p5 p6 h1 h7 END SUBROUTINE ccsdt_2pdm_pphh_mo_9_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p3 h1 p12 )_ytt + = -1 * Sum ( h8 h9 p7 ) * t ( p3 p7 h8 h9 )_t * i2 ( h8 h9 h11 h1 p7 p12 )_yt @@ -12271,7 +12271,7 @@ C i1 ( h11 p3 h1 p12 )_ytt + = -1 * Sum ( h8 h9 p7 ) * t ( p3 p7 h8 h9 )_t * END SUBROUTINE ccsdt_2pdm_pphh_mo_9_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h11 h1 p7 p12 )_yt + = -1 * Sum ( p10 ) * t ( p10 h1 )_t * y ( h8 h9 h11 p7 p10 p12 )_y @@ -12450,7 +12450,7 @@ C i2 ( h8 h9 h11 h1 p7 p12 )_yt + = -1 * Sum ( p10 ) * t ( p10 h1 )_t * y ( END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_9_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h11 h1 p7 p12 )_yt @@ -12538,7 +12538,7 @@ C i2 ( h8 h9 h11 h1 p7 p12 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_10(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p3 p5 p6 h1 h2 h7 )_t * i1 ( h7 p4 p5 p6 )_yt @@ -12788,7 +12788,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p3 p5 p6 END SUBROUTINE ccsdt_2pdm_pphh_mo_10_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 p5 p6 )_yt + = -1 * Sum ( h9 h10 p8 ) * t ( p3 p8 h9 h10 )_t * y ( h7 h9 h10 p5 p6 p8 )_y @@ -13048,7 +13048,7 @@ C i1 ( h7 p3 p5 p6 )_yt + = -1 * Sum ( h9 h10 p8 ) * t ( p3 p8 h9 h10 )_t * END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_10_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 p5 p6 )_yt @@ -13120,7 +13120,7 @@ C i1 ( h7 p3 p5 p6 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_11(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = 1/12 * Sum ( h12 h13 h7 p11 ) * t ( p3 p4 p11 h7 h12 h13 )_t * i1 ( h7 h12 h13 h1 h2 p11 )_yt @@ -13327,7 +13327,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = 1/12 * Sum ( h12 h13 h7 p11 ) * t ( p3 p4 p11 h END SUBROUTINE ccsdt_2pdm_pphh_mo_11_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h12 h13 h1 h2 p11 )_yt + = 1 * Sum ( p9 p10 ) * t ( p9 p10 h1 h2 )_t * y ( h7 h12 h13 p9 p10 p11 )_y @@ -13527,7 +13527,7 @@ C i1 ( h7 h12 h13 h1 h2 p11 )_yt + = 1 * Sum ( p9 p10 ) * t ( p9 p10 h1 h2 ) END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_11_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h12 h13 h1 h2 p11 )_yt @@ -13615,7 +13615,7 @@ C i1 ( h7 h12 h13 h1 h2 p11 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_11_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h12 h13 h1 h2 p11 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h7 h12 h13 h2 p5 p11 )_yt @@ -13795,7 +13795,7 @@ C i1 ( h7 h12 h13 h1 h2 p11 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 ) END SUBROUTINE ccsdt_2pdm_pphh_mo_11_2_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h12 h13 h1 p5 p11 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h7 h12 h13 p5 p6 p11 )_y @@ -13975,7 +13975,7 @@ C i2 ( h7 h12 h13 h1 p5 p11 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_11_2_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h12 h13 h1 p5 p11 )_yt diff --git a/src/tce/gradients/ccsdt_2pdm_pphp_mo.F b/src/tce/gradients/ccsdt_2pdm_pphp_mo.F index 31aa81b7bc..89eedda4dc 100644 --- a/src/tce/gradients/ccsdt_2pdm_pphp_mo.F +++ b/src/tce/gradients/ccsdt_2pdm_pphp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdt_2pdm_pphp_mo(d_i0,d_t1,d_t2,d_t3,d_y1,d_y2,d_y3,k &_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y1_offset,k_y2_of &fset,k_y3_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_yt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 p3 h2 h5 )_t * y ( h5 p4 )_y @@ -156,7 +156,7 @@ C i1 ( h6 p1 p3 p5 )_yt + = 1 * Sum ( h8 h9 p7 ) * t ( p1 p7 h8 h9 )_t * END SUBROUTINE ccsdt_2pdm_pphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_yt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 p3 h2 h5 )_t * y ( h5 p4 )_y @@ -320,7 +320,7 @@ c & - noab - 1))))) END SUBROUTINE ccsdt_2pdm_pphp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_yt + = -1/4 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p1 p3 p5 h2 h6 h7 )_t * y ( h6 h7 p4 p5 )_y @@ -579,7 +579,7 @@ c & - noab - 1))))) END SUBROUTINE ccsdt_2pdm_pphp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytt + = -1/2 * P( 4 ) * t ( p1 h2 )_t * i1 ( p3 p4 )_yt @@ -747,7 +747,7 @@ c END IF END SUBROUTINE ccsdt_2pdm_pphp_mo_3_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yt + = 1 * Sum ( h5 ) * t ( p1 h5 )_t * y ( h5 p3 )_y @@ -875,7 +875,7 @@ C i1 ( p1 p3 )_yt + = 1 * Sum ( h5 ) * t ( p1 h5 )_t * y ( h5 p3 )_y END SUBROUTINE OFFSET_ccsdt_2pdm_pphp_mo_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yt @@ -931,7 +931,7 @@ C i1 ( p1 p3 )_yt END SUBROUTINE ccsdt_2pdm_pphp_mo_3_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yt + = 1/2 * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * y ( h6 h7 p3 p5 )_y @@ -1107,7 +1107,7 @@ C i1 ( p1 p3 )_yt + = 1/2 * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * y ( h6 END SUBROUTINE ccsdt_2pdm_pphp_mo_3_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yt + = 1/12 * Sum ( h7 h8 h9 p5 p6 ) * t ( p1 p5 p6 h7 h8 h9 )_t * y ( h7 h8 h9 p3 p5 p6 )_y @@ -1330,7 +1330,7 @@ C i1 ( p1 p3 )_yt + = 1/12 * Sum ( h7 h8 h9 p5 p6 ) * t ( p1 p5 p6 h7 h8 h9 END SUBROUTINE ccsdt_2pdm_pphp_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytt + = -1 * P( 2 ) * Sum ( h11 ) * t ( p1 h11 )_t * i1 ( h11 p3 h2 p4 )_yt @@ -1484,7 +1484,7 @@ C i0 ( p1 p3 h2 p4 )_ytt + = -1 * P( 2 ) * Sum ( h11 ) * t ( p1 h11 )_t * i1 END SUBROUTINE ccsdt_2pdm_pphp_mo_4_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p1 h2 p3 )_yt + = 1/2 * P( 2 ) * Sum ( h6 p5 ) * t ( p1 p5 h2 h6 )_t * y ( h6 h11 p3 p5 )_y @@ -1696,7 +1696,7 @@ c &b - 1))))) END SUBROUTINE OFFSET_ccsdt_2pdm_pphp_mo_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p1 h2 p3 )_yt @@ -1768,7 +1768,7 @@ C i1 ( h11 p1 h2 p3 )_yt END SUBROUTINE ccsdt_2pdm_pphp_mo_4_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p1 h2 p3 )_yt + = -1/8 * P( 2 ) * Sum ( h7 h8 p5 p6 ) * t ( p1 p5 p6 h2 h7 h8 )_t * y ( h7 h8 h11 p3 p5 p6 )_y @@ -2113,7 +2113,7 @@ c &b - 1))))) END SUBROUTINE ccsdt_2pdm_pphp_mo_4_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p1 h2 p3 )_ytt + = 1/2 * Sum ( h10 ) * t ( p1 h10 )_t * i2 ( h10 h11 h2 p3 )_yt @@ -2267,7 +2267,7 @@ C i1 ( h11 p1 h2 p3 )_ytt + = 1/2 * Sum ( h10 ) * t ( p1 h10 )_t * i2 ( h10 END SUBROUTINE ccsdt_2pdm_pphp_mo_4_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 h2 p1 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h10 h11 p1 p5 )_y @@ -2430,7 +2430,7 @@ c &)))) END SUBROUTINE OFFSET_ccsdt_2pdm_pphp_mo_4_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 h2 p1 )_yt @@ -2502,7 +2502,7 @@ C i2 ( h10 h11 h2 p1 )_yt END SUBROUTINE ccsdt_2pdm_pphp_mo_4_3_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 h2 p1 )_yt + = -1/4 * P( 2 ) * Sum ( h9 p7 p8 ) * t ( p7 p8 h2 h9 )_t * y ( h9 h10 h11 p1 p7 p8 )_y @@ -2772,7 +2772,7 @@ c &)))) END SUBROUTINE ccsdt_2pdm_pphp_mo_4_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p1 h2 p3 )_ytt + = -1/2 * Sum ( h8 h9 p7 ) * t ( p1 p7 h8 h9 )_t * i2 ( h8 h9 h11 h2 p3 p7 )_yt @@ -2971,7 +2971,7 @@ C i1 ( h11 p1 h2 p3 )_ytt + = -1/2 * Sum ( h8 h9 p7 ) * t ( p1 p7 h8 h9 )_t END SUBROUTINE ccsdt_2pdm_pphp_mo_4_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h11 h2 p1 p7 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h8 h9 h11 p1 p5 p7 )_y @@ -3186,7 +3186,7 @@ c &b - 1 + noab * (h9b - 1 + noab * (h8b - 1))))))) END SUBROUTINE OFFSET_ccsdt_2pdm_pphp_mo_4_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h11 h2 p1 p7 )_yt @@ -3274,7 +3274,7 @@ C i2 ( h8 h9 h11 h2 p1 p7 )_yt END SUBROUTINE ccsdt_2pdm_pphp_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p3 h5 h6 )_t * i1 ( h5 h6 h2 p4 )_yt @@ -3437,7 +3437,7 @@ C i0 ( p1 p3 h2 p4 )_ytt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p3 h5 h6 )_t * i1 END SUBROUTINE ccsdt_2pdm_pphp_mo_5_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h2 p1 )_yt + = -1/2 * P( 2 ) * Sum ( p7 ) * t ( p7 h2 )_t * y ( h5 h6 p1 p7 )_y @@ -3600,7 +3600,7 @@ c &)) END SUBROUTINE OFFSET_ccsdt_2pdm_pphp_mo_5_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h2 p1 )_yt @@ -3672,7 +3672,7 @@ C i1 ( h5 h6 h2 p1 )_yt END SUBROUTINE ccsdt_2pdm_pphp_mo_5_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h2 p1 )_yt + = -1/4 * P( 2 ) * Sum ( h9 p7 p8 ) * t ( p7 p8 h2 h9 )_t * y ( h5 h6 h9 p1 p7 p8 )_y @@ -3929,7 +3929,7 @@ c &)) END SUBROUTINE ccsdt_2pdm_pphp_mo_6(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytt + = -1/6 * Sum ( h6 h7 h8 p5 ) * t ( p1 p3 p5 h6 h7 h8 )_t * i1 ( h6 h7 h8 h2 p4 p5 )_yt @@ -4132,7 +4132,7 @@ C i0 ( p1 p3 h2 p4 )_ytt + = -1/6 * Sum ( h6 h7 h8 p5 ) * t ( p1 p3 p5 h6 h7 END SUBROUTINE ccsdt_2pdm_pphp_mo_6_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h8 h2 p1 p5 )_yt + = -1/2 * P( 2 ) * Sum ( p9 ) * t ( p9 h2 )_t * y ( h6 h7 h8 p1 p5 p9 )_y @@ -4341,7 +4341,7 @@ c & - 1 + noab * (h7b - 1 + noab * (h6b - 1))))))) END SUBROUTINE OFFSET_ccsdt_2pdm_pphp_mo_6_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h8 h2 p1 p5 )_yt @@ -4429,7 +4429,7 @@ C i1 ( h6 h7 h8 h2 p1 p5 )_yt END SUBROUTINE ccsdt_2pdm_pphp_mo_7(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytt + = 1/4 * P( 4 ) * Sum ( h6 p5 ) * t ( p1 p5 h2 h6 )_t * i1 ( h6 p3 p4 p5 )_yt @@ -4638,7 +4638,7 @@ c END IF END SUBROUTINE ccsdt_2pdm_pphp_mo_7_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p1 p3 p5 )_yt + = 1 * Sum ( h8 h9 p7 ) * t ( p1 p7 h8 h9 )_t * y ( h6 h8 h9 p3 p5 p7 )_y @@ -4963,7 +4963,7 @@ C i1 ( h6 p1 p3 p5 )_yt + = 1 * Sum ( h8 h9 p7 ) * t ( p1 p7 h8 h9 )_t * y ( END SUBROUTINE OFFSET_ccsdt_2pdm_pphp_mo_7_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p1 p3 p5 )_yt diff --git a/src/tce/gradients/ccsdt_2pdm_pppp_mo.F b/src/tce/gradients/ccsdt_2pdm_pppp_mo.F index 75780634a1..af775ba389 100644 --- a/src/tce/gradients/ccsdt_2pdm_pppp_mo.F +++ b/src/tce/gradients/ccsdt_2pdm_pppp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_2pdm_pppp_mo(d_i0,d_t1,d_t2,d_t3,d_y2,d_y3,k_i0_o &ffset,k_t1_offset,k_t2_offset,k_t3_offset,k_y2_offset,k_y3_offset) -C $Id: ccsdt_2pdm_pppp_mo.F,v 1.1 2008-10-01 00:17:12 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( h5 h6 p3 p4 )_y @@ -53,7 +53,7 @@ C i1 ( h9 p1 p2 p3 )_yt + = -1 * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t END SUBROUTINE ccsdt_2pdm_pppp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pppp_mo.F,v 1.1 2008-10-01 00:17:12 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( h5 h6 p3 p4 )_y @@ -216,7 +216,7 @@ C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( END SUBROUTINE ccsdt_2pdm_pppp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pppp_mo.F,v 1.1 2008-10-01 00:17:12 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/6 * Sum ( h6 h7 h8 p5 ) * t ( p1 p2 p5 h6 h7 h8 )_t * y ( h6 h7 h8 p3 p4 p5 )_y @@ -437,7 +437,7 @@ C i0 ( p1 p2 p3 p4 )_yt + = 1/6 * Sum ( h6 h7 h8 p5 ) * t ( p1 p2 p5 h6 h7 h END SUBROUTINE ccsdt_2pdm_pppp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pppp_mo.F,v 1.1 2008-10-01 00:17:12 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_ytt + = -1/2 * P( 2 ) * Sum ( h9 ) * t ( p1 h9 )_t * i1 ( h9 p2 p3 p4 )_yt @@ -591,7 +591,7 @@ C i0 ( p1 p2 p3 p4 )_ytt + = -1/2 * P( 2 ) * Sum ( h9 ) * t ( p1 h9 )_t * i1 END SUBROUTINE ccsdt_2pdm_pppp_mo_3_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pppp_mo.F,v 1.1 2008-10-01 00:17:12 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p1 p2 p3 )_yt + = 1 * Sum ( h6 ) * t ( p1 h6 )_t * y ( h6 h9 p2 p3 )_y @@ -745,7 +745,7 @@ C i1 ( h9 p1 p2 p3 )_yt + = 1 * Sum ( h6 ) * t ( p1 h6 )_t * y ( h6 h9 p2 p3 END SUBROUTINE OFFSET_ccsdt_2pdm_pppp_mo_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_pppp_mo.F,v 1.1 2008-10-01 00:17:12 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p1 p2 p3 )_yt @@ -817,7 +817,7 @@ C i1 ( h9 p1 p2 p3 )_yt END SUBROUTINE ccsdt_2pdm_pppp_mo_3_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pppp_mo.F,v 1.1 2008-10-01 00:17:12 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p1 p2 p3 )_yt + = -1 * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * y ( h6 h7 h9 p2 p3 p5 )_y diff --git a/src/tce/gradients/ccsdtq_1pdm_hh_mo.F b/src/tce/gradients/ccsdtq_1pdm_hh_mo.F index 2bde1ee4d5..5885b4e7af 100644 --- a/src/tce/gradients/ccsdtq_1pdm_hh_mo.F +++ b/src/tce/gradients/ccsdtq_1pdm_hh_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdtq_1pdm_hh_mo(d_i0,d_t1,d_t2,d_t3,d_t4,d_y1,d_y2,d_ &y3,d_y4,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_t4_offse &t,k_y1_offset,k_y2_offset,k_y3_offset,k_y4_offset) -C $Id: ccsdtq_1pdm_hh_mo.F,v 1.1 2008-10-01 16:18:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -44,7 +44,7 @@ C i0 ( h2 h1 )_yt + = -1/144 * Sum ( h7 h8 h9 p3 p4 p5 p6 ) * t ( p3 p4 p5 p END SUBROUTINE ccsdtq_1pdm_hh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdtq_1pdm_hh_mo.F,v 1.1 2008-10-01 16:18:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -172,7 +172,7 @@ C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y END SUBROUTINE ccsdtq_1pdm_hh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdtq_1pdm_hh_mo.F,v 1.1 2008-10-01 16:18:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 h5 p3 p4 )_y @@ -348,7 +348,7 @@ C i0 ( h2 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 END SUBROUTINE ccsdtq_1pdm_hh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdtq_1pdm_hh_mo.F,v 1.1 2008-10-01 16:18:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1/12 * Sum ( h6 h7 p3 p4 p5 ) * t ( p3 p4 p5 h1 h6 h7 )_t * y ( h2 h6 h7 p3 p4 p5 )_y @@ -571,7 +571,7 @@ C i0 ( h2 h1 )_yt + = -1/12 * Sum ( h6 h7 p3 p4 p5 ) * t ( p3 p4 p5 h1 h6 h7 END SUBROUTINE ccsdtq_1pdm_hh_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdtq_1pdm_hh_mo.F,v 1.1 2008-10-01 16:18:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1/144 * Sum ( h7 h8 h9 p3 p4 p5 p6 ) * t ( p3 p4 p5 p6 h1 h7 h8 h9 )_t * y ( h2 h7 h8 h9 p3 p4 p5 p6 )_y diff --git a/src/tce/gradients/ccsdtq_1pdm_hp_mo.F b/src/tce/gradients/ccsdtq_1pdm_hp_mo.F index 7a36beb12b..f0120aea1a 100644 --- a/src/tce/gradients/ccsdtq_1pdm_hp_mo.F +++ b/src/tce/gradients/ccsdtq_1pdm_hp_mo.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdtq_1pdm_hp_mo(d_i0,d_y1,k_i0_offset,k_y1_offset) -C $Id: ccsdtq_1pdm_hp_mo.F,v 1.1 2008-10-01 16:18:17 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_y + = 1 * y ( h2 p1 )_y @@ -17,7 +17,7 @@ C i0 ( h2 p1 )_y + = 1 * y ( h2 p1 )_y RETURN END SUBROUTINE ccsdtq_1pdm_hp_mo_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdtq_1pdm_hp_mo.F,v 1.1 2008-10-01 16:18:17 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_y + = 1 * y ( h2 p1 )_y diff --git a/src/tce/gradients/ccsdtq_1pdm_ph_mo.F b/src/tce/gradients/ccsdtq_1pdm_ph_mo.F index e43a8d94be..f284f28049 100644 --- a/src/tce/gradients/ccsdtq_1pdm_ph_mo.F +++ b/src/tce/gradients/ccsdtq_1pdm_ph_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdtq_1pdm_ph_mo(d_i0,d_t1,d_t2,d_t3,d_t4,d_y1,d_y2,d_ &y3,d_y4,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_t4_offse &t,k_y1_offset,k_y2_offset,k_y3_offset,k_y4_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_t + = 1 * t ( p2 h1 )_t @@ -117,7 +117,7 @@ C i1 ( h6 h7 h8 h9 h1 p3 p4 p5 )_yt + = -1 * Sum ( p10 ) * t ( p10 h1 )_ RETURN END SUBROUTINE ccsdtq_1pdm_ph_mo_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_t + = 1 * t ( p2 h1 )_t @@ -202,7 +202,7 @@ C i0 ( p2 h1 )_t + = 1 * t ( p2 h1 )_t END SUBROUTINE ccsdtq_1pdm_ph_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * y ( h4 p3 )_y @@ -364,7 +364,7 @@ C i0 ( p2 h1 )_yt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * y ( h4 p3 )_ END SUBROUTINE ccsdtq_1pdm_ph_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yt + = 1/4 * Sum ( h5 h6 p3 p4 ) * t ( p2 p3 p4 h1 h5 h6 )_t * y ( h5 h6 p3 p4 )_y @@ -606,7 +606,7 @@ C i0 ( p2 h1 )_yt + = 1/4 * Sum ( h5 h6 p3 p4 ) * t ( p2 p3 p4 h1 h5 h6 )_t END SUBROUTINE ccsdtq_1pdm_ph_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yt + = 1/36 * Sum ( h6 h7 h8 p3 p4 p5 ) * t ( p2 p3 p4 p5 h1 h6 h7 h8 )_t * y ( h6 h7 h8 p3 p4 p5 )_y @@ -965,7 +965,7 @@ C i0 ( p2 h1 )_yt + = 1/36 * Sum ( h6 h7 h8 p3 p4 p5 ) * t ( p2 p3 p4 p5 h1 END SUBROUTINE ccsdtq_1pdm_ph_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_ytt + = -1 * Sum ( h11 ) * t ( p2 h11 )_t * i1 ( h11 h1 )_yt @@ -1093,7 +1093,7 @@ C i0 ( p2 h1 )_ytt + = -1 * Sum ( h11 ) * t ( p2 h11 )_t * i1 ( h11 h1 )_yt END SUBROUTINE ccsdtq_1pdm_ph_mo_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h11 p3 )_y @@ -1221,7 +1221,7 @@ C i1 ( h11 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h11 p3 )_y END SUBROUTINE OFFSET_ccsdtq_1pdm_ph_mo_5_1(l_a_offset,k_a_offset,size &) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 h1 )_yt @@ -1277,7 +1277,7 @@ C i1 ( h11 h1 )_yt END SUBROUTINE ccsdtq_1pdm_ph_mo_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h5 h11 p3 p4 )_y @@ -1453,7 +1453,7 @@ C i1 ( h11 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h END SUBROUTINE ccsdtq_1pdm_ph_mo_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 h1 )_yt + = 1/12 * Sum ( h6 h7 p3 p4 p5 ) * t ( p3 p4 p5 h1 h6 h7 )_t * y ( h6 h7 h11 p3 p4 p5 )_y @@ -1679,7 +1679,7 @@ C i1 ( h11 h1 )_yt + = 1/12 * Sum ( h6 h7 p3 p4 p5 ) * t ( p3 p4 p5 h1 h6 h7 END SUBROUTINE ccsdtq_1pdm_ph_mo_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 h1 )_yt + = -1/144 * Sum ( h7 h8 h9 p3 p4 p5 p6 ) * t ( p3 p4 p5 p6 h1 h7 h8 h9 )_t * y ( h7 h8 h9 h11 p3 p4 p5 p6 )_y @@ -1959,7 +1959,7 @@ C i1 ( h11 h1 )_yt + = -1/144 * Sum ( h7 h8 h9 p3 p4 p5 p6 ) * t ( p3 p4 p5 END SUBROUTINE ccsdtq_1pdm_ph_mo_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_ytt + = -1/2 * Sum ( h8 h9 p11 ) * t ( p2 p11 h8 h9 )_t * i1 ( h8 h9 h1 p11 )_yt @@ -2125,7 +2125,7 @@ C i0 ( p2 h1 )_ytt + = -1/2 * Sum ( h8 h9 p11 ) * t ( p2 p11 h8 h9 )_t * i1 END SUBROUTINE ccsdtq_1pdm_ph_mo_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h9 h1 p11 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h8 h9 p6 p11 )_y @@ -2279,7 +2279,7 @@ C i1 ( h8 h9 h1 p11 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h8 h9 p6 p END SUBROUTINE OFFSET_ccsdtq_1pdm_ph_mo_6_1(l_a_offset,k_a_offset,size &) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h9 h1 p11 )_yt @@ -2351,7 +2351,7 @@ C i1 ( h8 h9 h1 p11 )_yt END SUBROUTINE ccsdtq_1pdm_ph_mo_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h9 h1 p11 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h5 h8 h9 p3 p4 p11 )_y @@ -2612,7 +2612,7 @@ C i1 ( h8 h9 h1 p11 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * END SUBROUTINE ccsdtq_1pdm_ph_mo_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h9 h1 p11 )_yt + = 1/12 * Sum ( h6 h7 p3 p4 p5 ) * t ( p3 p4 p5 h1 h6 h7 )_t * y ( h6 h7 h8 h9 p3 p4 p5 p11 )_y @@ -3085,7 +3085,7 @@ C i1 ( h8 h9 h1 p11 )_yt + = 1/12 * Sum ( h6 h7 p3 p4 p5 ) * t ( p3 p4 p5 h1 END SUBROUTINE ccsdtq_1pdm_ph_mo_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_ytt + = -1/12 * Sum ( h5 h6 h7 p3 p4 ) * t ( p2 p3 p4 h5 h6 h7 )_t * i1 ( h5 h6 h7 h1 p3 p4 )_yt @@ -3290,7 +3290,7 @@ C i0 ( p2 h1 )_ytt + = -1/12 * Sum ( h5 h6 h7 p3 p4 ) * t ( p2 p3 p4 h5 h6 h END SUBROUTINE ccsdtq_1pdm_ph_mo_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h7 h1 p3 p4 )_yt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * y ( h5 h6 h7 p3 p4 p8 )_y @@ -3464,7 +3464,7 @@ C i1 ( h5 h6 h7 h1 p3 p4 )_yt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * y ( h5 h6 END SUBROUTINE OFFSET_ccsdtq_1pdm_ph_mo_7_1(l_a_offset,k_a_offset,size &) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h7 h1 p3 p4 )_yt @@ -3552,7 +3552,7 @@ C i1 ( h5 h6 h7 h1 p3 p4 )_yt END SUBROUTINE ccsdtq_1pdm_ph_mo_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h7 h1 p3 p4 )_yt + = 1/2 * Sum ( h10 p8 p9 ) * t ( p8 p9 h1 h10 )_t * y ( h5 h6 h7 h10 p3 p4 p8 p9 )_y @@ -3999,7 +3999,7 @@ C i1 ( h5 h6 h7 h1 p3 p4 )_yt + = 1/2 * Sum ( h10 p8 p9 ) * t ( p8 p9 h1 h10 END SUBROUTINE ccsdtq_1pdm_ph_mo_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_ytt + = -1/144 * Sum ( h6 h7 h8 h9 p3 p4 p5 ) * t ( p2 p3 p4 p5 h6 h7 h8 h9 )_t * i1 ( h6 h7 h8 h9 h1 p3 p4 p5 )_yt @@ -4247,7 +4247,7 @@ C i0 ( p2 h1 )_ytt + = -1/144 * Sum ( h6 h7 h8 h9 p3 p4 p5 ) * t ( p2 p3 p4 END SUBROUTINE ccsdtq_1pdm_ph_mo_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h8 h9 h1 p3 p4 p5 )_yt + = -1 * Sum ( p10 ) * t ( p10 h1 )_t * y ( h6 h7 h8 h9 p3 p4 p5 p10 )_y @@ -4450,7 +4450,7 @@ C i1 ( h6 h7 h8 h9 h1 p3 p4 p5 )_yt + = -1 * Sum ( p10 ) * t ( p10 h1 )_t * END SUBROUTINE OFFSET_ccsdtq_1pdm_ph_mo_8_1(l_a_offset,k_a_offset,size &) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h8 h9 h1 p3 p4 p5 )_yt diff --git a/src/tce/gradients/ccsdtq_1pdm_pp_mo.F b/src/tce/gradients/ccsdtq_1pdm_pp_mo.F index c736e3b168..c8af324d87 100644 --- a/src/tce/gradients/ccsdtq_1pdm_pp_mo.F +++ b/src/tce/gradients/ccsdtq_1pdm_pp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdtq_1pdm_pp_mo(d_i0,d_t1,d_t2,d_t3,d_t4,d_y1,d_y2,d_ &y3,d_y4,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_t4_offse &t,k_y1_offset,k_y2_offset,k_y3_offset,k_y4_offset) -C $Id: ccsdtq_1pdm_pp_mo.F,v 1.1 2008-10-01 16:18:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y @@ -44,7 +44,7 @@ C i0 ( p1 p2 )_yt + = 1/144 * Sum ( h6 h7 h8 h9 p3 p4 p5 ) * t ( p1 p3 p4 p5 END SUBROUTINE ccsdtq_1pdm_pp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdtq_1pdm_pp_mo.F,v 1.1 2008-10-01 16:18:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y @@ -172,7 +172,7 @@ C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y END SUBROUTINE ccsdtq_1pdm_pp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdtq_1pdm_pp_mo.F,v 1.1 2008-10-01 16:18:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * y ( h4 h5 p2 p3 )_y @@ -348,7 +348,7 @@ C i0 ( p1 p2 )_yt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * y ( h4 END SUBROUTINE ccsdtq_1pdm_pp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdtq_1pdm_pp_mo.F,v 1.1 2008-10-01 16:18:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1/12 * Sum ( h5 h6 h7 p3 p4 ) * t ( p1 p3 p4 h5 h6 h7 )_t * y ( h5 h6 h7 p2 p3 p4 )_y @@ -571,7 +571,7 @@ C i0 ( p1 p2 )_yt + = 1/12 * Sum ( h5 h6 h7 p3 p4 ) * t ( p1 p3 p4 h5 h6 h7 END SUBROUTINE ccsdtq_1pdm_pp_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdtq_1pdm_pp_mo.F,v 1.1 2008-10-01 16:18:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1/144 * Sum ( h6 h7 h8 h9 p3 p4 p5 ) * t ( p1 p3 p4 p5 h6 h7 h8 h9 )_t * y ( h6 h7 h8 h9 p2 p3 p4 p5 )_y diff --git a/src/tce/gradients/ccsdtq_2pdm_hhhh_mo.F b/src/tce/gradients/ccsdtq_2pdm_hhhh_mo.F index 325eb43bed..1b6332f2aa 100644 --- a/src/tce/gradients/ccsdtq_2pdm_hhhh_mo.F +++ b/src/tce/gradients/ccsdtq_2pdm_hhhh_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdtq_2pdm_hhhh_mo(d_i0,d_t1,d_t2,d_t3,d_t4,d_y2,d_y3, &d_y4,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_t4_offset,k &_y2_offset,k_y3_offset,k_y4_offset) -C $Id: ccsdtq_2pdm_hhhh_mo.F,v 1.1 2008-10-01 16:19:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h3 h4 p5 p6 )_y @@ -78,7 +78,7 @@ C i1 ( h2 h3 h7 h1 p5 p6 )_yt + = 1 * Sum ( h10 p8 p9 ) * t ( p8 p9 h1 h END SUBROUTINE ccsdtq_2pdm_hhhh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hhhh_mo.F,v 1.1 2008-10-01 16:19:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h3 h4 p5 p6 )_y @@ -240,7 +240,7 @@ C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( END SUBROUTINE ccsdtq_2pdm_hhhh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hhhh_mo.F,v 1.1 2008-10-01 16:19:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/6 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 h8 )_t * y ( h3 h4 h8 p5 p6 p7 )_y @@ -460,7 +460,7 @@ C i0 ( h3 h4 h1 h2 )_yt + = 1/6 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 h END SUBROUTINE ccsdtq_2pdm_hhhh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hhhh_mo.F,v 1.1 2008-10-01 16:19:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/48 * Sum ( h9 h10 p5 p6 p7 p8 ) * t ( p5 p6 p7 p8 h1 h2 h9 h10 )_t * y ( h3 h4 h9 h10 p5 p6 p7 p8 )_y @@ -785,7 +785,7 @@ C i0 ( h3 h4 h1 h2 )_yt + = 1/48 * Sum ( h9 h10 p5 p6 p7 p8 ) * t ( p5 p6 p7 END SUBROUTINE ccsdtq_2pdm_hhhh_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hhhh_mo.F,v 1.1 2008-10-01 16:19:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h3 h1 h4 )_ytt + = -1/2 * P( 2 ) * Sum ( p11 ) * t ( p11 h1 )_t * i1 ( h2 h3 h4 p11 )_yt @@ -937,7 +937,7 @@ C i0 ( h2 h3 h1 h4 )_ytt + = -1/2 * P( 2 ) * Sum ( p11 ) * t ( p11 h1 )_t * END SUBROUTINE ccsdtq_2pdm_hhhh_mo_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hhhh_mo.F,v 1.1 2008-10-01 16:19:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 h1 p11 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h3 p6 p11 )_y @@ -1091,7 +1091,7 @@ C i1 ( h2 h3 h1 p11 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h3 p6 p END SUBROUTINE OFFSET_ccsdtq_2pdm_hhhh_mo_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_hhhh_mo.F,v 1.1 2008-10-01 16:19:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 h1 p11 )_yt @@ -1163,7 +1163,7 @@ C i1 ( h2 h3 h1 p11 )_yt END SUBROUTINE ccsdtq_2pdm_hhhh_mo_4_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hhhh_mo.F,v 1.1 2008-10-01 16:19:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 h1 p11 )_yt + = -1 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h2 h3 h7 p5 p6 p11 )_y @@ -1424,7 +1424,7 @@ C i1 ( h2 h3 h1 p11 )_yt + = -1 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y END SUBROUTINE ccsdtq_2pdm_hhhh_mo_4_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hhhh_mo.F,v 1.1 2008-10-01 16:19:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 h1 p11 )_yt + = 1/6 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h1 h8 h9 )_t * y ( h2 h3 h8 h9 p5 p6 p7 p11 )_y @@ -1897,7 +1897,7 @@ C i1 ( h2 h3 h1 p11 )_yt + = 1/6 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h1 END SUBROUTINE ccsdtq_2pdm_hhhh_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hhhh_mo.F,v 1.1 2008-10-01 16:19:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h3 h1 h4 )_ytt + = -1/8 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * i1 ( h2 h3 h7 h4 p5 p6 )_yt @@ -2086,7 +2086,7 @@ C i0 ( h2 h3 h1 h4 )_ytt + = -1/8 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 END SUBROUTINE ccsdtq_2pdm_hhhh_mo_5_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hhhh_mo.F,v 1.1 2008-10-01 16:19:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 h7 h1 p5 p6 )_yt + = 1 * Sum ( h10 p8 p9 ) * t ( p8 p9 h1 h10 )_t * y ( h2 h3 h7 h10 p5 p6 p8 p9 )_y @@ -3064,7 +3064,7 @@ C i1 ( h2 h3 h7 h1 p5 p6 )_yt + = 1 * Sum ( h10 p8 p9 ) * t ( p8 p9 h1 h10 ) END SUBROUTINE OFFSET_ccsdtq_2pdm_hhhh_mo_5_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_hhhh_mo.F,v 1.1 2008-10-01 16:19:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 h7 h1 p5 p6 )_yt diff --git a/src/tce/gradients/ccsdtq_2pdm_hhhp_mo.F b/src/tce/gradients/ccsdtq_2pdm_hhhp_mo.F index 73b27efd44..019766eefc 100644 --- a/src/tce/gradients/ccsdtq_2pdm_hhhp_mo.F +++ b/src/tce/gradients/ccsdtq_2pdm_hhhp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdtq_2pdm_hhhp_mo(d_i0,d_t1,d_t2,d_t3,d_y2,d_y3,d_y4, &k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y2_offset,k_y3_o &ffset,k_y4_offset) -C $Id: ccsdtq_2pdm_hhhp_mo.F,v 1.1 2008-10-01 16:19:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h2 p1 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h3 h4 p1 p5 )_y @@ -37,7 +37,7 @@ C i0 ( h3 h4 h2 p1 )_yt + = -1/24 * P( 2 ) * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 END SUBROUTINE ccsdtq_2pdm_hhhp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hhhp_mo.F,v 1.1 2008-10-01 16:19:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h2 p1 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h3 h4 p1 p5 )_y @@ -200,7 +200,7 @@ c &)) END SUBROUTINE ccsdtq_2pdm_hhhp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hhhp_mo.F,v 1.1 2008-10-01 16:19:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h2 p1 )_yt + = -1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p5 p6 h2 h7 )_t * y ( h3 h4 h7 p1 p5 p6 )_y @@ -457,7 +457,7 @@ c &)) END SUBROUTINE ccsdtq_2pdm_hhhp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hhhp_mo.F,v 1.1 2008-10-01 16:19:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h2 p1 )_yt + = -1/24 * P( 2 ) * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h2 h8 h9 )_t * y ( h3 h4 h8 h9 p1 p5 p6 p7 )_y diff --git a/src/tce/gradients/ccsdtq_2pdm_hhpp_mo.F b/src/tce/gradients/ccsdtq_2pdm_hhpp_mo.F index 7c721b18f4..c9fe35627a 100644 --- a/src/tce/gradients/ccsdtq_2pdm_hhpp_mo.F +++ b/src/tce/gradients/ccsdtq_2pdm_hhpp_mo.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdtq_2pdm_hhpp_mo(d_i0,d_y2,k_i0_offset,k_y2_offset) -C $Id: ccsdtq_2pdm_hhpp_mo.F,v 1.1 2008-10-01 16:19:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_y + = 1 * y ( h3 h4 p1 p2 )_y @@ -17,7 +17,7 @@ C i0 ( h3 h4 p1 p2 )_y + = 1 * y ( h3 h4 p1 p2 )_y RETURN END SUBROUTINE ccsdtq_2pdm_hhpp_mo_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_hhpp_mo.F,v 1.1 2008-10-01 16:19:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_y + = 1 * y ( h3 h4 p1 p2 )_y diff --git a/src/tce/gradients/ccsdtq_2pdm_hphh_mo.F b/src/tce/gradients/ccsdtq_2pdm_hphh_mo.F index 6e6bac845e..90894ae78f 100644 --- a/src/tce/gradients/ccsdtq_2pdm_hphh_mo.F +++ b/src/tce/gradients/ccsdtq_2pdm_hphh_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdtq_2pdm_hphh_mo(d_i0,d_t1,d_t2,d_t3,d_t4,d_y1,d_y2, &d_y3,d_y4,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_t4_off &set,k_y1_offset,k_y2_offset,k_y3_offset,k_y4_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p3 h1 h2 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * y ( h4 p5 )_y @@ -251,7 +251,7 @@ C i2 ( h2 h9 h10 h11 h1 p7 p8 p12 )_yt + = -1 * Sum ( p6 ) * t ( p6 END SUBROUTINE ccsdtq_2pdm_hphh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p3 h1 h2 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * y ( h4 p5 )_y @@ -415,7 +415,7 @@ c &)) END SUBROUTINE ccsdtq_2pdm_hphh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p3 h1 h2 )_yt + = -1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p3 p5 p6 h1 h2 h7 )_t * y ( h4 h7 p5 p6 )_y @@ -674,7 +674,7 @@ c &)) END SUBROUTINE ccsdtq_2pdm_hphh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p3 h1 h2 )_yt + = -1/24 * P( 2 ) * Sum ( h8 h9 p5 p6 p7 ) * t ( p3 p5 p6 p7 h1 h2 h8 h9 )_t * y ( h4 h8 h9 p5 p6 p7 )_y @@ -1149,7 +1149,7 @@ c &)) END SUBROUTINE ccsdtq_2pdm_hphh_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p3 h1 h4 )_ytt + = -1/2 * P( 4 ) * t ( p3 h1 )_t * i1 ( h2 h4 )_yt @@ -1317,7 +1317,7 @@ c END IF END SUBROUTINE ccsdtq_2pdm_hphh_mo_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h2 p5 )_y @@ -1445,7 +1445,7 @@ C i1 ( h2 h1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h2 p5 )_y END SUBROUTINE OFFSET_ccsdtq_2pdm_hphh_mo_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt @@ -1501,7 +1501,7 @@ C i1 ( h2 h1 )_yt END SUBROUTINE ccsdtq_2pdm_hphh_mo_4_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h2 h7 p5 p6 )_y @@ -1677,7 +1677,7 @@ C i1 ( h2 h1 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h2 END SUBROUTINE ccsdtq_2pdm_hphh_mo_4_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1/12 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h1 h8 h9 )_t * y ( h2 h8 h9 p5 p6 p7 )_y @@ -1900,7 +1900,7 @@ C i1 ( h2 h1 )_yt + = 1/12 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h1 h8 h9 END SUBROUTINE ccsdtq_2pdm_hphh_mo_4_4(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1/144 * Sum ( h9 h10 h11 p5 p6 p7 p8 ) * t ( p5 p6 p7 p8 h1 h9 h10 h11 )_t * y ( h2 h9 h10 h11 p5 p6 p7 p8 )_y @@ -2180,7 +2180,7 @@ C i1 ( h2 h1 )_yt + = 1/144 * Sum ( h9 h10 h11 p5 p6 p7 p8 ) * t ( p5 p6 p7 END SUBROUTINE ccsdtq_2pdm_hphh_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p3 h2 h4 )_ytt + = 1/4 * P( 2 ) * Sum ( h12 ) * t ( p3 h12 )_t * i1 ( h1 h12 h2 h4 )_yt @@ -2333,7 +2333,7 @@ c &)) END SUBROUTINE ccsdtq_2pdm_hphh_mo_5_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h12 h1 h2 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h4 h12 p5 p6 )_y @@ -2505,7 +2505,7 @@ C i1 ( h4 h12 h1 h2 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( END SUBROUTINE OFFSET_ccsdtq_2pdm_hphh_mo_5_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h12 h1 h2 )_yt @@ -2577,7 +2577,7 @@ C i1 ( h4 h12 h1 h2 )_yt END SUBROUTINE ccsdtq_2pdm_hphh_mo_5_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h12 h1 h2 )_yt + = 1/3 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 h8 )_t * y ( h4 h8 h12 p5 p6 p7 )_y @@ -2827,7 +2827,7 @@ C i1 ( h4 h12 h1 h2 )_yt + = 1/3 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 END SUBROUTINE ccsdtq_2pdm_hphh_mo_5_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h12 h1 h2 )_yt + = -1/24 * Sum ( h9 h10 p5 p6 p7 p8 ) * t ( p5 p6 p7 p8 h1 h2 h9 h10 )_t * y ( h4 h9 h10 h12 p5 p6 p7 p8 )_y @@ -3216,7 +3216,7 @@ C i1 ( h4 h12 h1 h2 )_yt + = -1/24 * Sum ( h9 h10 p5 p6 p7 p8 ) * t ( p5 p6 END SUBROUTINE ccsdtq_2pdm_hphh_mo_5_4(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h12 h1 h4 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h2 h12 h4 p5 )_yt @@ -3368,7 +3368,7 @@ C i1 ( h2 h12 h1 h4 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 END SUBROUTINE ccsdtq_2pdm_hphh_mo_5_4_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h12 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h12 p5 p6 )_y @@ -3538,7 +3538,7 @@ C i2 ( h2 h12 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h12 p5 END SUBROUTINE OFFSET_ccsdtq_2pdm_hphh_mo_5_4_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h12 h1 p5 )_yt @@ -3610,7 +3610,7 @@ C i2 ( h2 h12 h1 p5 )_yt END SUBROUTINE ccsdtq_2pdm_hphh_mo_5_4_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h12 h1 p5 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t * y ( h2 h9 h12 p5 p7 p8 )_y @@ -3965,7 +3965,7 @@ C i2 ( h2 h12 h1 p5 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t * y END SUBROUTINE ccsdtq_2pdm_hphh_mo_5_4_3(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h12 h1 p5 )_yt + = 1/6 * Sum ( h10 h11 p7 p8 p9 ) * t ( p7 p8 p9 h1 h10 h11 )_t * y ( h2 h10 h11 h12 p5 p7 p8 p9 )_y @@ -4709,7 +4709,7 @@ C i2 ( h2 h12 h1 p5 )_yt + = 1/6 * Sum ( h10 h11 p7 p8 p9 ) * t ( p7 p8 p9 h END SUBROUTINE ccsdtq_2pdm_hphh_mo_5_5(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h12 h1 h4 )_ytt + = -1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * i2 ( h2 h7 h12 h4 p5 p6 )_yt @@ -4908,7 +4908,7 @@ C i1 ( h2 h12 h1 h4 )_ytt + = -1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p5 p6 h END SUBROUTINE ccsdtq_2pdm_hphh_mo_5_5_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h12 h1 p5 p6 )_yt + = -1 * Sum ( h10 p8 p9 ) * t ( p8 p9 h1 h10 )_t * y ( h2 h7 h10 h12 p5 p6 p8 p9 )_y @@ -5888,7 +5888,7 @@ C i2 ( h2 h7 h12 h1 p5 p6 )_yt + = -1 * Sum ( h10 p8 p9 ) * t ( p8 p9 h1 h10 END SUBROUTINE OFFSET_ccsdtq_2pdm_hphh_mo_5_5_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h12 h1 p5 p6 )_yt @@ -5976,7 +5976,7 @@ C i2 ( h2 h7 h12 h1 p5 p6 )_yt END SUBROUTINE ccsdtq_2pdm_hphh_mo_6(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p3 h1 h4 )_ytt + = 1/2 * P( 4 ) * Sum ( h10 p12 ) * t ( p3 p12 h1 h10 )_t * i1 ( h2 h10 h4 p12 )_yt @@ -6185,7 +6185,7 @@ c END IF END SUBROUTINE ccsdtq_2pdm_hphh_mo_6_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h10 h1 p12 )_yt + = -1 * Sum ( p7 ) * t ( p7 h1 )_t * y ( h2 h10 p7 p12 )_y @@ -6355,7 +6355,7 @@ C i1 ( h2 h10 h1 p12 )_yt + = -1 * Sum ( p7 ) * t ( p7 h1 )_t * y ( h2 h10 p END SUBROUTINE OFFSET_ccsdtq_2pdm_hphh_mo_6_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h10 h1 p12 )_yt @@ -6427,7 +6427,7 @@ C i1 ( h2 h10 h1 p12 )_yt END SUBROUTINE ccsdtq_2pdm_hphh_mo_6_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h10 h1 p12 )_yt + = -1/2 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t * y ( h2 h9 h10 p7 p8 p12 )_y @@ -6782,7 +6782,7 @@ C i1 ( h2 h10 h1 p12 )_yt + = -1/2 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t END SUBROUTINE ccsdtq_2pdm_hphh_mo_6_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h10 h1 p12 )_yt + = -1/12 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h1 h8 h9 )_t * y ( h2 h8 h9 h10 p5 p6 p7 p12 )_y @@ -7523,7 +7523,7 @@ C i1 ( h2 h10 h1 p12 )_yt + = -1/12 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 END SUBROUTINE ccsdtq_2pdm_hphh_mo_7(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p3 h1 h4 )_ytt + = -1/8 * P( 4 ) * Sum ( h7 h8 p5 p6 ) * t ( p3 p5 p6 h1 h7 h8 )_t * i1 ( h2 h7 h8 h4 p5 p6 )_yt @@ -7811,7 +7811,7 @@ c END IF END SUBROUTINE ccsdtq_2pdm_hphh_mo_7_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h8 h1 p5 p6 )_yt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * y ( h2 h7 h8 p5 p6 p9 )_y @@ -8034,7 +8034,7 @@ C i1 ( h2 h7 h8 h1 p5 p6 )_yt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * y ( h2 h7 END SUBROUTINE OFFSET_ccsdtq_2pdm_hphh_mo_7_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h8 h1 p5 p6 )_yt @@ -8122,7 +8122,7 @@ C i1 ( h2 h7 h8 h1 p5 p6 )_yt END SUBROUTINE ccsdtq_2pdm_hphh_mo_7_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h8 h1 p5 p6 )_yt + = 1/2 * Sum ( h11 p9 p10 ) * t ( p9 p10 h1 h11 )_t * y ( h2 h7 h8 h11 p5 p6 p9 p10 )_y @@ -9105,7 +9105,7 @@ C i1 ( h2 h7 h8 h1 p5 p6 )_yt + = 1/2 * Sum ( h11 p9 p10 ) * t ( p9 p10 h1 h END SUBROUTINE ccsdtq_2pdm_hphh_mo_8(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p3 h1 h2 )_ytt + = -1/4 * Sum ( p12 p10 ) * t ( p10 p12 h1 h2 )_t * i1 ( h4 p3 p10 p12 )_yt @@ -9268,7 +9268,7 @@ C i0 ( h4 p3 h1 h2 )_ytt + = -1/4 * Sum ( p12 p10 ) * t ( p10 p12 h1 h2 )_t END SUBROUTINE ccsdtq_2pdm_hphh_mo_8_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 p3 p10 p12 )_yt + = 1/2 * P( 2 ) * Sum ( h8 h9 p7 ) * t ( p3 p7 h8 h9 )_t * y ( h1 h8 h9 p7 p10 p12 )_y @@ -9538,7 +9538,7 @@ c &3b - noab - 1))))) END SUBROUTINE OFFSET_ccsdtq_2pdm_hphh_mo_8_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 p3 p10 p12 )_yt @@ -9610,7 +9610,7 @@ C i1 ( h1 p3 p10 p12 )_yt END SUBROUTINE ccsdtq_2pdm_hphh_mo_8_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 p3 p10 p12 )_yt + = 1/12 * P( 2 ) * Sum ( h7 h8 h9 p5 p6 ) * t ( p3 p5 p6 h7 h8 h9 )_t * y ( h1 h7 h8 h9 p5 p6 p10 p12 )_y @@ -10092,7 +10092,7 @@ c &3b - noab - 1))))) END SUBROUTINE ccsdtq_2pdm_hphh_mo_9(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p3 h1 h4 )_ytt + = 1/72 * P( 4 ) * Sum ( h8 h9 h10 p5 p6 p7 ) * t ( p3 p5 p6 p7 h1 h8 h9 h10 )_t * i1 ( h2 h8 h9 h10 h4 p5 p6 p7 )_yt @@ -10502,7 +10502,7 @@ c END IF END SUBROUTINE ccsdtq_2pdm_hphh_mo_9_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h8 h9 h10 h1 p5 p6 p7 )_yt + = 1 * Sum ( p11 ) * t ( p11 h1 )_t * y ( h2 h8 h9 h10 p5 p6 p7 p11 )_y @@ -10837,7 +10837,7 @@ C i1 ( h2 h8 h9 h10 h1 p5 p6 p7 )_yt + = 1 * Sum ( p11 ) * t ( p11 h1 )_t * END SUBROUTINE OFFSET_ccsdtq_2pdm_hphh_mo_9_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h8 h9 h10 h1 p5 p6 p7 )_yt @@ -10940,7 +10940,7 @@ C i1 ( h2 h8 h9 h10 h1 p5 p6 p7 )_yt END SUBROUTINE ccsdtq_2pdm_hphh_mo_10(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p3 h1 h2 )_ytt + = -1/12 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 h8 )_t * i1 ( h4 h8 p3 p5 p6 p7 )_yt @@ -11144,7 +11144,7 @@ C i0 ( h4 p3 h1 h2 )_ytt + = -1/12 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h END SUBROUTINE ccsdtq_2pdm_hphh_mo_10_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 h8 p3 p5 p6 p7 )_yt + = -1/2 * P( 2 ) * Sum ( h10 h11 p9 ) * t ( p3 p9 h10 h11 )_t * y ( h1 h8 h10 h11 p5 p6 p7 p9 )_y @@ -11869,7 +11869,7 @@ c & * (h8b - 1 + noab * (h1b - 1 + noab * (p3b - noab - 1))))))) END SUBROUTINE OFFSET_ccsdtq_2pdm_hphh_mo_10_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 h8 p3 p5 p6 p7 )_yt @@ -11957,7 +11957,7 @@ C i1 ( h1 h8 p3 p5 p6 p7 )_yt END SUBROUTINE ccsdtq_2pdm_hphh_mo_11(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p3 h1 h4 )_yttt + = -1/4 * P( 2 ) * Sum ( p12 ) * t ( p12 h1 )_t * i1 ( h2 p3 h4 p12 )_ytt @@ -12111,7 +12111,7 @@ C i0 ( h2 p3 h1 h4 )_yttt + = -1/4 * P( 2 ) * Sum ( p12 ) * t ( p12 h1 )_t * END SUBROUTINE ccsdtq_2pdm_hphh_mo_11_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 p3 h2 p12 )_ytt + = 1/2 * P( 2 ) * Sum ( h13 h8 p11 ) * t ( p3 p11 h8 h13 )_t * i2 ( h1 h8 h13 h2 p11 p12 )_yt @@ -12312,7 +12312,7 @@ c &b - 1))))) END SUBROUTINE OFFSET_ccsdtq_2pdm_hphh_mo_11_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 p3 h2 p12 )_ytt @@ -12384,7 +12384,7 @@ C i1 ( h1 p3 h2 p12 )_ytt END SUBROUTINE ccsdtq_2pdm_hphh_mo_11_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h13 h1 p11 p12 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h8 h13 p6 p11 p12 )_y @@ -12624,7 +12624,7 @@ C i2 ( h2 h8 h13 h1 p11 p12 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 END SUBROUTINE OFFSET_ccsdtq_2pdm_hphh_mo_11_1_1(l_a_offset,k_a_offset &,size) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h13 h1 p11 p12 )_yt @@ -12712,7 +12712,7 @@ C i2 ( h2 h8 h13 h1 p11 p12 )_yt END SUBROUTINE ccsdtq_2pdm_hphh_mo_11_1_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h13 h1 p11 p12 )_yt + = 1 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h2 h7 h8 h13 p5 p6 p11 p12 )_y @@ -13702,7 +13702,7 @@ C i2 ( h2 h8 h13 h1 p11 p12 )_yt + = 1 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 END SUBROUTINE ccsdtq_2pdm_hphh_mo_11_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 p3 h2 p12 )_ytt + = 1/12 * P( 2 ) * Sum ( h9 h10 h11 p7 p8 ) * t ( p3 p7 p8 h9 h10 h11 )_t * i2 ( h1 h9 h10 h11 h2 p7 p8 p12 )_yt @@ -13957,7 +13957,7 @@ c &b - 1))))) END SUBROUTINE ccsdtq_2pdm_hphh_mo_11_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h9 h10 h11 h1 p7 p8 p12 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h9 h10 h11 p6 p7 p8 p12 )_y @@ -14292,7 +14292,7 @@ C i2 ( h2 h9 h10 h11 h1 p7 p8 p12 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * END SUBROUTINE OFFSET_ccsdtq_2pdm_hphh_mo_11_2_1(l_a_offset,k_a_offset &,size) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h9 h10 h11 h1 p7 p8 p12 )_yt diff --git a/src/tce/gradients/ccsdtq_2pdm_hphp_mo.F b/src/tce/gradients/ccsdtq_2pdm_hphp_mo.F index 8007694d66..2652139ce8 100644 --- a/src/tce/gradients/ccsdtq_2pdm_hphp_mo.F +++ b/src/tce/gradients/ccsdtq_2pdm_hphp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdtq_2pdm_hphp_mo(d_i0,d_t1,d_t2,d_t3,d_t4,d_y1,d_y2, &d_y3,d_y4,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_t4_off &set,k_y1_offset,k_y2_offset,k_y3_offset,k_y4_offset) -C $Id: ccsdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 16:20:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 h2 p3 )_yt + = -1/4 * P( 4 ) * t ( p1 h2 )_t * y ( h4 p3 )_y @@ -100,7 +100,7 @@ C i1 ( h4 h7 h8 h9 h2 p1 p5 p6 )_yt + = 1/2 * P( 2 ) * Sum ( p10 ) * t ( END SUBROUTINE ccsdtq_2pdm_hphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 16:20:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 h2 p3 )_yt + = -1/4 * P( 4 ) * t ( p1 h2 )_t * y ( h4 p3 )_y @@ -257,7 +257,7 @@ c & - 1))))) END SUBROUTINE ccsdtq_2pdm_hphp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 16:20:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 h2 p3 )_yt + = -1/4 * P( 4 ) * Sum ( h6 p5 ) * t ( p1 p5 h2 h6 )_t * y ( h4 h6 p3 p5 )_y @@ -481,7 +481,7 @@ c & - 1))))) END SUBROUTINE ccsdtq_2pdm_hphp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 16:20:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 h2 p3 )_yt + = -1/16 * P( 4 ) * Sum ( h7 h8 p5 p6 ) * t ( p1 p5 p6 h2 h7 h8 )_t * y ( h4 h7 h8 p3 p5 p6 )_y @@ -825,7 +825,7 @@ c & - 1))))) END SUBROUTINE ccsdtq_2pdm_hphp_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 16:20:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 h2 p3 )_yt + = -1/144 * P( 4 ) * Sum ( h8 h9 h10 p5 p6 p7 ) * t ( p1 p5 p6 p7 h2 h8 h9 h10 )_t * y ( h4 h8 h9 h10 p3 p5 p6 p7 )_y @@ -1384,7 +1384,7 @@ c & - 1))))) END SUBROUTINE ccsdtq_2pdm_hphp_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 16:20:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 h4 p3 )_ytt + = 1/2 * P( 2 ) * Sum ( h11 ) * t ( p1 h11 )_t * i1 ( h2 h11 h4 p3 )_yt @@ -1537,7 +1537,7 @@ c & - 1))))) END SUBROUTINE ccsdtq_2pdm_hphp_mo_5_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 16:20:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h11 h2 p1 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h4 h11 p1 p5 )_y @@ -1716,7 +1716,7 @@ c &))) END SUBROUTINE OFFSET_ccsdtq_2pdm_hphp_mo_5_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 16:20:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h11 h2 p1 )_yt @@ -1788,7 +1788,7 @@ C i1 ( h4 h11 h2 p1 )_yt END SUBROUTINE ccsdtq_2pdm_hphp_mo_5_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 16:20:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h11 h2 p1 )_yt + = -1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p5 p6 h2 h7 )_t * y ( h4 h7 h11 p1 p5 p6 )_y @@ -2152,7 +2152,7 @@ c &))) END SUBROUTINE ccsdtq_2pdm_hphp_mo_5_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 16:20:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h11 h2 p1 )_yt + = 1/24 * P( 2 ) * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h2 h8 h9 )_t * y ( h4 h8 h9 h11 p1 p5 p6 p7 )_y @@ -2902,7 +2902,7 @@ c &))) END SUBROUTINE ccsdtq_2pdm_hphp_mo_6(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 16:20:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 h4 p3 )_ytt + = -1/4 * P( 2 ) * Sum ( h12 h9 p11 ) * t ( p1 p11 h9 h12 )_t * i1 ( h2 h9 h12 h4 p3 p11 )_yt @@ -3092,7 +3092,7 @@ c & - 1))))) END SUBROUTINE ccsdtq_2pdm_hphp_mo_6_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 16:20:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h9 h12 h2 p1 p11 )_yt + = -1/2 * P( 2 ) * Sum ( p8 ) * t ( p8 h2 )_t * y ( h4 h9 h12 p1 p8 p11 )_y @@ -3433,7 +3433,7 @@ c &2b - 1 + noab * (h9b - 1 + noab * (h4b - 1))))))) END SUBROUTINE OFFSET_ccsdtq_2pdm_hphp_mo_6_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 16:20:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h9 h12 h2 p1 p11 )_yt @@ -3521,7 +3521,7 @@ C i1 ( h4 h9 h12 h2 p1 p11 )_yt END SUBROUTINE ccsdtq_2pdm_hphp_mo_6_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 16:20:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h9 h12 h2 p1 p11 )_yt + = 1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p5 p6 h2 h7 )_t * y ( h4 h7 h9 h12 p1 p5 p6 p11 )_y @@ -5311,7 +5311,7 @@ c &2b - 1 + noab * (h9b - 1 + noab * (h4b - 1))))))) END SUBROUTINE ccsdtq_2pdm_hphp_mo_7(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 16:20:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 h4 p3 )_ytt + = 1/24 * P( 2 ) * Sum ( h7 h8 h9 p5 p6 ) * t ( p1 p5 p6 h7 h8 h9 )_t * i1 ( h2 h7 h8 h9 h4 p3 p5 p6 )_yt @@ -5541,7 +5541,7 @@ c & - 1))))) END SUBROUTINE ccsdtq_2pdm_hphp_mo_7_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 16:20:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h7 h8 h9 h2 p1 p5 p6 )_yt + = 1/2 * P( 2 ) * Sum ( p10 ) * t ( p10 h2 )_t * y ( h4 h7 h8 h9 p1 p5 p6 p10 )_y @@ -6244,7 +6244,7 @@ c &+ noab * (h4b - 1))))))))) END SUBROUTINE OFFSET_ccsdtq_2pdm_hphp_mo_7_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 16:20:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h7 h8 h9 h2 p1 p5 p6 )_yt diff --git a/src/tce/gradients/ccsdtq_2pdm_hppp_mo.F b/src/tce/gradients/ccsdtq_2pdm_hppp_mo.F index 8efccb6b06..dac61714f4 100644 --- a/src/tce/gradients/ccsdtq_2pdm_hppp_mo.F +++ b/src/tce/gradients/ccsdtq_2pdm_hppp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdtq_2pdm_hppp_mo(d_i0,d_t1,d_t2,d_t3,d_y2,d_y3,d_y4, &k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y2_offset,k_y3_o &ffset,k_y4_offset) -C $Id: ccsdtq_2pdm_hppp_mo.F,v 1.1 2008-10-01 16:20:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 p2 p3 )_yt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * y ( h4 h5 p2 p3 )_y @@ -37,7 +37,7 @@ C i0 ( h4 p1 p2 p3 )_yt + = -1/24 * P( 2 ) * Sum ( h7 h8 h9 p5 p6 ) * t ( p1 END SUBROUTINE ccsdtq_2pdm_hppp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hppp_mo.F,v 1.1 2008-10-01 16:20:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 p2 p3 )_yt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * y ( h4 h5 p2 p3 )_y @@ -200,7 +200,7 @@ c & - noab - 1))))) END SUBROUTINE ccsdtq_2pdm_hppp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hppp_mo.F,v 1.1 2008-10-01 16:20:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 p2 p3 )_yt + = -1/4 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * y ( h4 h6 h7 p2 p3 p5 )_y @@ -457,7 +457,7 @@ c & - noab - 1))))) END SUBROUTINE ccsdtq_2pdm_hppp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hppp_mo.F,v 1.1 2008-10-01 16:20:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 p2 p3 )_yt + = -1/24 * P( 2 ) * Sum ( h7 h8 h9 p5 p6 ) * t ( p1 p5 p6 h7 h8 h9 )_t * y ( h4 h7 h8 h9 p2 p3 p5 p6 )_y diff --git a/src/tce/gradients/ccsdtq_2pdm_pphh_mo.F b/src/tce/gradients/ccsdtq_2pdm_pphh_mo.F index d3f2c85c2d..e1da551c3a 100644 --- a/src/tce/gradients/ccsdtq_2pdm_pphh_mo.F +++ b/src/tce/gradients/ccsdtq_2pdm_pphh_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdtq_2pdm_pphh_mo(d_i0,d_t1,d_t2,d_t3,d_t4,d_y1,d_y2, &d_y3,d_y4,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_t4_off &set,k_y1_offset,k_y2_offset,k_y3_offset,k_y4_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_t + = 1 * t ( p3 p4 h1 h2 )_t @@ -849,7 +849,7 @@ C i2 ( h8 h9 p3 p5 p6 p7 )_yt + = 1 * Sum ( h11 h12 p10 ) * t ( p3 p RETURN END SUBROUTINE ccsdtq_2pdm_pphh_mo_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_t + = 1 * t ( p3 p4 h1 h2 )_t @@ -949,7 +949,7 @@ C i0 ( p3 p4 h1 h2 )_t + = 1 * t ( p3 p4 h1 h2 )_t END SUBROUTINE ccsdtq_2pdm_pphh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt + = 1 * Sum ( h6 p5 ) * t ( p3 p4 p5 h1 h2 h6 )_t * y ( h6 p5 )_y @@ -1169,7 +1169,7 @@ C i0 ( p3 p4 h1 h2 )_yt + = 1 * Sum ( h6 p5 ) * t ( p3 p4 p5 h1 h2 h6 )_t * END SUBROUTINE ccsdtq_2pdm_pphh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt + = 1/4 * Sum ( h7 h8 p5 p6 ) * t ( p3 p4 p5 p6 h1 h2 h7 h8 )_t * y ( h7 h8 p5 p6 )_y @@ -1737,7 +1737,7 @@ C i0 ( p3 p4 h1 h2 )_yt + = 1/4 * Sum ( h7 h8 p5 p6 ) * t ( p3 p4 p5 p6 h1 h END SUBROUTINE ccsdtq_2pdm_pphh_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tt + = 1/2 * P( 4 ) * t ( p3 h1 )_t * i1 ( p4 h2 )_t @@ -1898,7 +1898,7 @@ C i0 ( p3 p4 h1 h2 )_tt + = 1/2 * P( 4 ) * t ( p3 h1 )_t * i1 ( p4 h2 )_t RETURN END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_t + = 1 * t ( p3 h1 )_t @@ -1983,7 +1983,7 @@ C i1 ( p3 h1 )_t + = 1 * t ( p3 h1 )_t END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_t @@ -2039,7 +2039,7 @@ C i1 ( p3 h1 )_t END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yt + = 2 * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * y ( h6 p5 )_y @@ -2201,7 +2201,7 @@ C i1 ( p3 h1 )_yt + = 2 * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * y ( h6 p5 )_ END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yt + = 1/2 * Sum ( h7 h8 p5 p6 ) * t ( p3 p5 p6 h1 h7 h8 )_t * y ( h7 h8 p5 p6 )_y @@ -2443,7 +2443,7 @@ C i1 ( p3 h1 )_yt + = 1/2 * Sum ( h7 h8 p5 p6 ) * t ( p3 p5 p6 h1 h7 h8 )_t END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_4(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yt + = 1/18 * Sum ( h8 h9 h10 p5 p6 p7 ) * t ( p3 p5 p6 p7 h1 h8 h9 h10 )_t * y ( h8 h9 h10 p5 p6 p7 )_y @@ -2807,7 +2807,7 @@ C i1 ( p3 h1 )_yt + = 1/18 * Sum ( h8 h9 h10 p5 p6 p7 ) * t ( p3 p5 p6 p7 h1 END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_5(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_ytt + = -1 * Sum ( h13 ) * t ( p3 h13 )_t * i2 ( h13 h1 )_yt @@ -2935,7 +2935,7 @@ C i1 ( p3 h1 )_ytt + = -1 * Sum ( h13 ) * t ( p3 h13 )_t * i2 ( h13 h1 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_5_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i3 ( h13 p7 )_y @@ -3063,7 +3063,7 @@ C i2 ( h13 h1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i3 ( h13 p7 )_y END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_4_5_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h1 )_yt @@ -3119,7 +3119,7 @@ C i2 ( h13 h1 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_5_1_1(d_a,k_a_offset,d_c,k_c_offs &et) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h13 p7 )_y + = 1 * y ( h13 p7 )_y @@ -3204,7 +3204,7 @@ C i3 ( h13 p7 )_y + = 1 * y ( h13 p7 )_y END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_4_5_1_1(l_a_offset,k_a_offse &t,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h13 p7 )_y @@ -3260,7 +3260,7 @@ C i3 ( h13 p7 )_y END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_5_1_2(d_a,k_a_offset,d_c,k_c_offs &et) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h13 p7 )_y + = 1 * y ( h13 p7 )_y @@ -3345,7 +3345,7 @@ C i3 ( h13 p7 )_y + = 1 * y ( h13 p7 )_y END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_5_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h1 )_yt + = -1 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h8 h13 p6 p7 )_y @@ -3521,7 +3521,7 @@ C i2 ( h13 h1 )_yt + = -1 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h8 END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_5_3(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h1 )_yt + = 1/6 * Sum ( h9 h10 p6 p7 p8 ) * t ( p6 p7 p8 h1 h9 h10 )_t * y ( h9 h10 h13 p6 p7 p8 )_y @@ -3750,7 +3750,7 @@ C i2 ( h13 h1 )_yt + = 1/6 * Sum ( h9 h10 p6 p7 p8 ) * t ( p6 p7 p8 h1 h9 h1 END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_5_4(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h1 )_yt + = -1/72 * Sum ( h10 h11 h12 p6 p7 p8 p9 ) * t ( p6 p7 p8 p9 h1 h10 h11 h12 )_t * y ( h10 h11 h12 h13 p6 p7 p8 p9 )_y @@ -4030,7 +4030,7 @@ C i2 ( h13 h1 )_yt + = -1/72 * Sum ( h10 h11 h12 p6 p7 p8 p9 ) * t ( p6 p7 p END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_6(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_ytt + = 1 * Sum ( h10 h11 p13 ) * t ( p3 p13 h10 h11 )_t * i2 ( h10 h11 h1 p13 )_yt @@ -4198,7 +4198,7 @@ C i1 ( p3 h1 )_ytt + = 1 * Sum ( h10 h11 p13 ) * t ( p3 p13 h10 h11 )_t * i2 END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_6_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 h1 p13 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h10 h11 p5 p13 )_y @@ -4353,7 +4353,7 @@ C i2 ( h10 h11 h1 p13 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h10 h11 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_4_6_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 h1 p13 )_yt @@ -4425,7 +4425,7 @@ C i2 ( h10 h11 h1 p13 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_6_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 h1 p13 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h7 h10 h11 p5 p6 p13 )_y @@ -4690,7 +4690,7 @@ C i2 ( h10 h11 h1 p13 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_6_3(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 h1 p13 )_yt + = -1/12 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h1 h8 h9 )_t * y ( h8 h9 h10 h11 p5 p6 p7 p13 )_y @@ -5163,7 +5163,7 @@ C i2 ( h10 h11 h1 p13 )_yt + = -1/12 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_7(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_ytt + = -1/6 * Sum ( h6 h7 h8 p13 p14 ) * t ( p3 p13 p14 h6 h7 h8 )_t * i2 ( h6 h7 h8 h1 p13 p14 )_yt @@ -5371,7 +5371,7 @@ C i1 ( p3 h1 )_ytt + = -1/6 * Sum ( h6 h7 h8 p13 p14 ) * t ( p3 p13 p14 h6 h END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_7_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h8 h1 p13 p14 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h6 h7 h8 p5 p13 p14 )_y @@ -5548,7 +5548,7 @@ C i2 ( h6 h7 h8 h1 p13 p14 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h6 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_4_7_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h8 h1 p13 p14 )_yt @@ -5636,7 +5636,7 @@ C i2 ( h6 h7 h8 h1 p13 p14 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_7_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h8 h1 p13 p14 )_yt + = 1/2 * Sum ( h12 p10 p11 ) * t ( p10 p11 h1 h12 )_t * y ( h6 h7 h8 h12 p10 p11 p13 p14 )_y @@ -6084,7 +6084,7 @@ C i2 ( h6 h7 h8 h1 p13 p14 )_yt + = 1/2 * Sum ( h12 p10 p11 ) * t ( p10 p11 END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_8(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_ytt + = 1/72 * Sum ( h9 h10 h11 h12 p6 p7 p8 ) * t ( p3 p6 p7 p8 h9 h10 h11 h12 )_t * i2 ( h9 h10 h11 h12 h1 p6 p7 p8 )_yt @@ -6332,7 +6332,7 @@ C i1 ( p3 h1 )_ytt + = 1/72 * Sum ( h9 h10 h11 h12 p6 p7 p8 ) * t ( p3 p6 p7 END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_8_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h11 h12 h1 p6 p7 p8 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h9 h10 h11 h12 p5 p6 p7 p8 )_y @@ -6536,7 +6536,7 @@ C i2 ( h9 h10 h11 h12 h1 p6 p7 p8 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_4_8_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h11 h12 h1 p6 p7 p8 )_yt @@ -6639,7 +6639,7 @@ C i2 ( h9 h10 h11 h12 h1 p6 p7 p8 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h13 ) * t ( p3 h13 )_t * i1 ( h13 p4 h1 h2 )_yt @@ -6793,7 +6793,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h13 ) * t ( p3 h13 )_t * i1 END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p3 h1 h2 )_yt + = -1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * y ( h13 p5 )_y @@ -6948,7 +6948,7 @@ C i1 ( h13 p3 h1 h2 )_yt + = -1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * y ( h13 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p3 h1 h2 )_yt @@ -7020,7 +7020,7 @@ C i1 ( h13 p3 h1 h2 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p3 h1 h2 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p3 p5 p6 h1 h2 h7 )_t * y ( h7 h13 p5 p6 )_y @@ -7270,7 +7270,7 @@ C i1 ( h13 p3 h1 h2 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p3 p5 p6 h1 h2 h7 END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p3 h1 h2 )_yt + = -1/12 * Sum ( h8 h9 p5 p6 p7 ) * t ( p3 p5 p6 p7 h1 h2 h8 h9 )_t * y ( h8 h9 h13 p5 p6 p7 )_y @@ -7739,7 +7739,7 @@ C i1 ( h13 p3 h1 h2 )_yt + = -1/12 * Sum ( h8 h9 p5 p6 p7 ) * t ( p3 p5 p6 p END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_4(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p3 h1 h2 )_ytt + = 1/4 * Sum ( h14 ) * t ( p3 h14 )_t * i2 ( h13 h14 h1 h2 )_yt @@ -7893,7 +7893,7 @@ C i1 ( h13 p3 h1 h2 )_ytt + = 1/4 * Sum ( h14 ) * t ( p3 h14 )_t * i2 ( h13 END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_4_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h14 h1 h2 )_yt + = -1 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * y ( h13 h14 p7 p8 )_y @@ -8055,7 +8055,7 @@ C i2 ( h13 h14 h1 h2 )_yt + = -1 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * y ( END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_4_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h14 h1 h2 )_yt @@ -8127,7 +8127,7 @@ C i2 ( h13 h14 h1 h2 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_4_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h14 h1 h2 )_yt + = -1/3 * Sum ( h10 p7 p8 p9 ) * t ( p7 p8 p9 h1 h2 h10 )_t * y ( h10 h13 h14 p7 p8 p9 )_y @@ -8354,7 +8354,7 @@ C i2 ( h13 h14 h1 h2 )_yt + = -1/3 * Sum ( h10 p7 p8 p9 ) * t ( p7 p8 p9 h1 END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_4_3(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h14 h1 h2 )_yt + = -1/24 * Sum ( h11 h12 p7 p8 p9 p10 ) * t ( p7 p8 p9 p10 h1 h2 h11 h12 )_t * y ( h11 h12 h13 h14 p7 p8 p9 p10 )_y @@ -8679,7 +8679,7 @@ C i2 ( h13 h14 h1 h2 )_yt + = -1/24 * Sum ( h11 h12 p7 p8 p9 p10 ) * t ( p7 END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_4_4(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h14 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h13 h14 h2 p5 )_yt @@ -8831,7 +8831,7 @@ C i2 ( h13 h14 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_4_4_1(d_a,k_a_offset,d_b,k_b_offs &et,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h13 h14 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h13 h14 p5 p6 )_y @@ -8985,7 +8985,7 @@ C i3 ( h13 h14 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h13 h14 p END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_4_4_1(l_a_offset,k_a_offse &t,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h13 h14 h1 p5 )_yt @@ -9057,7 +9057,7 @@ C i3 ( h13 h14 h1 p5 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_4_4_2(d_a,k_a_offset,d_b,k_b_offs &et,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h13 h14 h1 p5 )_yt + = 3/4 * Sum ( h10 p8 p9 ) * t ( p8 p9 h1 h10 )_t * i4 ( h10 h13 h14 p5 p8 p9 )_y @@ -9322,7 +9322,7 @@ C i3 ( h13 h14 h1 p5 )_yt + = 3/4 * Sum ( h10 p8 p9 ) * t ( p8 p9 h1 h10 )_t END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_4_4_2_1(d_a,k_a_offset,d_c,k_c_of &fset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h10 h13 h14 p5 p8 p9 )_y + = 1 * y ( h10 h13 h14 p5 p8 p9 )_y @@ -9437,7 +9437,7 @@ C i4 ( h10 h13 h14 p5 p8 p9 )_y + = 1 * y ( h10 h13 h14 p5 p8 p9 )_y END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_4_4_2_1(l_a_offset,k_a_off &set,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h10 h13 h14 p5 p8 p9 )_y @@ -9525,7 +9525,7 @@ C i4 ( h10 h13 h14 p5 p8 p9 )_y END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_4_4_2_2(d_a,k_a_offset,d_c,k_c_of &fset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h10 h13 h14 p5 p8 p9 )_y + = 1/3 * y ( h10 h13 h14 p5 p8 p9 )_y @@ -9641,7 +9641,7 @@ C i4 ( h10 h13 h14 p5 p8 p9 )_y + = 1/3 * y ( h10 h13 h14 p5 p8 p9 )_y END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_4_4_3(d_a,k_a_offset,d_b,k_b_offs &et,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h13 h14 h1 p5 )_yt + = 1/8 * Sum ( h11 h12 p8 p9 p10 ) * t ( p8 p9 p10 h1 h11 h12 )_t * i4 ( h11 h12 h13 h14 p5 p8 p9 p10 )_y @@ -10119,7 +10119,7 @@ C i3 ( h13 h14 h1 p5 )_yt + = 1/8 * Sum ( h11 h12 p8 p9 p10 ) * t ( p8 p9 p1 END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_4_4_3_1(d_a,k_a_offset,d_c,k_c_of &fset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h11 h12 h13 h14 p5 p8 p9 p10 )_y + = 1 * y ( h11 h12 h13 h14 p5 p8 p9 p10 )_y @@ -10249,7 +10249,7 @@ C i4 ( h11 h12 h13 h14 p5 p8 p9 p10 )_y + = 1 * y ( h11 h12 h13 h14 p5 p8 p9 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_4_4_3_1(l_a_offset,k_a_off &set,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h11 h12 h13 h14 p5 p8 p9 p10 )_y @@ -10353,7 +10353,7 @@ C i4 ( h11 h12 h13 h14 p5 p8 p9 p10 )_y END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_4_4_3_2(d_a,k_a_offset,d_c,k_c_of &fset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h11 h12 h13 h14 p5 p8 p9 p10 )_y + = 1/3 * y ( h11 h12 h13 h14 p5 p8 p9 p10 )_y @@ -10483,7 +10483,7 @@ C i4 ( h11 h12 h13 h14 p5 p8 p9 p10 )_y + = 1/3 * y ( h11 h12 h13 h14 p5 p8 END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_4_5(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h14 h1 h2 )_ytt + = -1/8 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * i3 ( h7 h13 h14 h2 p5 p6 )_yt @@ -10690,7 +10690,7 @@ C i2 ( h13 h14 h1 h2 )_ytt + = -1/8 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p5 p6 END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_4_5_1(d_a,k_a_offset,d_b,k_b_offs &et,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h13 h14 h1 p5 p6 )_yt + = -1 * Sum ( h10 p8 p9 ) * t ( p8 p9 h1 h10 )_t * i4 ( h7 h10 h13 h14 p5 p6 p8 p9 )_y @@ -11136,7 +11136,7 @@ C i3 ( h7 h13 h14 h1 p5 p6 )_yt + = -1 * Sum ( h10 p8 p9 ) * t ( p8 p9 h1 h1 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_4_5_1(l_a_offset,k_a_offse &t,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h13 h14 h1 p5 p6 )_yt @@ -11224,7 +11224,7 @@ C i3 ( h7 h13 h14 h1 p5 p6 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_4_5_1_1(d_a,k_a_offset,d_c,k_c_of &fset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h7 h10 h13 h14 p5 p6 p8 p9 )_y + = 1 * y ( h7 h10 h13 h14 p5 p6 p8 p9 )_y @@ -11354,7 +11354,7 @@ C i4 ( h7 h10 h13 h14 p5 p6 p8 p9 )_y + = 1 * y ( h7 h10 h13 h14 p5 p6 p8 p9 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_4_5_1_1(l_a_offset,k_a_off &set,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h7 h10 h13 h14 p5 p6 p8 p9 )_y @@ -11457,7 +11457,7 @@ C i4 ( h7 h10 h13 h14 p5 p6 p8 p9 )_y END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_4_5_1_2(d_a,k_a_offset,d_c,k_c_of &fset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h7 h10 h13 h14 p5 p6 p8 p9 )_y + = 1 * y ( h7 h10 h13 h14 p5 p6 p8 p9 )_y @@ -11587,7 +11587,7 @@ C i4 ( h7 h10 h13 h14 p5 p6 p8 p9 )_y + = 1 * y ( h7 h10 h13 h14 p5 p6 p8 p9 END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_5(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p3 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h11 p10 ) * t ( p3 p10 h1 h11 )_t * i2 ( h11 h13 h2 p10 )_yt @@ -11785,7 +11785,7 @@ C i1 ( h13 p3 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h11 p10 ) * t ( p3 p10 h1 END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_5_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h13 h1 p10 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h11 h13 p5 p10 )_y @@ -11940,7 +11940,7 @@ C i2 ( h11 h13 h1 p10 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h11 h13 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_5_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h13 h1 p10 )_yt @@ -12012,7 +12012,7 @@ C i2 ( h11 h13 h1 p10 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_5_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h13 h1 p10 )_yt + = 1/2 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t * y ( h9 h11 h13 p7 p8 p10 )_y @@ -12277,7 +12277,7 @@ C i2 ( h11 h13 h1 p10 )_yt + = 1/2 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_5_3(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h13 h1 p10 )_yt + = -1/12 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h1 h8 h9 )_t * y ( h8 h9 h11 h13 p5 p6 p7 p10 )_y @@ -12750,7 +12750,7 @@ C i2 ( h11 h13 h1 p10 )_yt + = -1/12 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_6(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p3 h1 h2 )_ytt + = -1/4 * P( 2 ) * Sum ( h6 h7 p12 p14 ) * t ( p3 p12 p14 h1 h6 h7 )_t * i2 ( h6 h7 h13 h2 p12 p14 )_yt @@ -13048,7 +13048,7 @@ C i1 ( h13 p3 h1 h2 )_ytt + = -1/4 * P( 2 ) * Sum ( h6 h7 p12 p14 ) * t ( p3 END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_6_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h13 h1 p12 p14 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h6 h7 h13 p5 p12 p14 )_y @@ -13226,7 +13226,7 @@ C i2 ( h6 h7 h13 h1 p12 p14 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h6 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_6_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h13 h1 p12 p14 )_yt @@ -13314,7 +13314,7 @@ C i2 ( h6 h7 h13 h1 p12 p14 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_6_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h13 h1 p12 p14 )_yt + = -1/2 * Sum ( h11 p9 p10 ) * t ( p9 p10 h1 h11 )_t * y ( h6 h7 h11 h13 p9 p10 p12 p14 )_y @@ -13761,7 +13761,7 @@ C i2 ( h6 h7 h13 h1 p12 p14 )_yt + = -1/2 * Sum ( h11 p9 p10 ) * t ( p9 p10 END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_7(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p3 h1 h2 )_ytt + = -1/4 * Sum ( p12 p10 ) * t ( p10 p12 h1 h2 )_t * i2 ( h13 p3 p10 p12 )_yt @@ -13925,7 +13925,7 @@ C i1 ( h13 p3 h1 h2 )_ytt + = -1/4 * Sum ( p12 p10 ) * t ( p10 p12 h1 h2 )_t END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_7_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p3 p10 p12 )_yt + = 1 * Sum ( h8 h9 p7 ) * t ( p3 p7 h8 h9 )_t * y ( h8 h9 h13 p7 p10 p12 )_y @@ -14190,7 +14190,7 @@ C i2 ( h13 p3 p10 p12 )_yt + = 1 * Sum ( h8 h9 p7 ) * t ( p3 p7 h8 h9 )_t * END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_7_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p3 p10 p12 )_yt @@ -14262,7 +14262,7 @@ C i2 ( h13 p3 p10 p12 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_7_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p3 p10 p12 )_yt + = -1/6 * Sum ( h7 h8 h9 p5 p6 ) * t ( p3 p5 p6 h7 h8 h9 )_t * y ( h7 h8 h9 h13 p5 p6 p10 p12 )_y @@ -14735,7 +14735,7 @@ C i2 ( h13 p3 p10 p12 )_yt + = -1/6 * Sum ( h7 h8 h9 p5 p6 ) * t ( p3 p5 p6 END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_8(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p3 h1 h2 )_ytt + = -1/36 * P( 2 ) * Sum ( h10 h11 h12 p7 p8 p9 ) * t ( p3 p7 p8 p9 h1 h10 h11 h12 )_t * i2 ( h10 h11 h12 h13 h2 p7 p8 p9 )_yt @@ -15159,7 +15159,7 @@ C i1 ( h13 p3 h1 h2 )_ytt + = -1/36 * P( 2 ) * Sum ( h10 h11 h12 p7 p8 p9 ) END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_8_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 h12 h13 h1 p7 p8 p9 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h10 h11 h12 h13 p5 p7 p8 p9 )_y @@ -15363,7 +15363,7 @@ C i2 ( h10 h11 h12 h13 h1 p7 p8 p9 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_8_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 h12 h13 h1 p7 p8 p9 )_yt @@ -15466,7 +15466,7 @@ C i2 ( h10 h11 h12 h13 h1 p7 p8 p9 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_9(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p3 h1 h2 )_ytt + = 1/12 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 h8 )_t * i2 ( h8 h13 p3 p5 p6 p7 )_yt @@ -15681,7 +15681,7 @@ C i1 ( h13 p3 h1 h2 )_ytt + = 1/12 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_9_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 p3 p5 p6 p7 )_yt + = -1 * Sum ( h10 h11 p9 ) * t ( p3 p9 h10 h11 )_t * y ( h8 h10 h11 h13 p5 p6 p7 p9 )_y @@ -16127,7 +16127,7 @@ C i2 ( h8 h13 p3 p5 p6 p7 )_yt + = -1 * Sum ( h10 h11 p9 ) * t ( p3 p9 h10 h END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_9_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 p3 p5 p6 p7 )_yt @@ -16215,7 +16215,7 @@ C i2 ( h8 h13 p3 p5 p6 p7 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_10(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p3 h1 h2 )_yttt + = -3/16 * P( 2 ) * Sum ( p14 ) * t ( p14 h1 )_t * i2 ( h13 p3 h2 p14 )_ytt @@ -16369,7 +16369,7 @@ C i1 ( h13 p3 h1 h2 )_yttt + = -3/16 * P( 2 ) * Sum ( p14 ) * t ( p14 h1 )_t END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_10_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p3 h1 p14 )_ytt + = -1 * Sum ( h9 h10 p8 ) * t ( p3 p8 h9 h10 )_t * i3 ( h9 h10 h13 h1 p8 p14 )_yt @@ -16597,7 +16597,7 @@ C i2 ( h13 p3 h1 p14 )_ytt + = -1 * Sum ( h9 h10 p8 ) * t ( p3 p8 h9 h10 )_t END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_10_1(l_a_offset,k_a_offset &,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p3 h1 p14 )_ytt @@ -16669,7 +16669,7 @@ C i2 ( h13 p3 h1 p14 )_ytt END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_10_1_1(d_a,k_a_offset,d_b,k_b_off &set,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h13 h1 p8 p14 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * i4 ( h9 h10 h13 p6 p8 p14 )_y @@ -16848,7 +16848,7 @@ C i3 ( h9 h10 h13 h1 p8 p14 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * i4 ( END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_10_1_1(l_a_offset,k_a_offs &et,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h13 h1 p8 p14 )_yt @@ -16936,7 +16936,7 @@ C i3 ( h9 h10 h13 h1 p8 p14 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_10_1_1_1(d_a,k_a_offset,d_c,k_c_o &ffset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h9 h10 h13 p6 p8 p14 )_y + = 1 * y ( h9 h10 h13 p6 p8 p14 )_y @@ -17051,7 +17051,7 @@ C i4 ( h9 h10 h13 p6 p8 p14 )_y + = 1 * y ( h9 h10 h13 p6 p8 p14 )_y END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_10_1_1_1(l_a_offset,k_a_of &fset,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h9 h10 h13 p6 p8 p14 )_y @@ -17139,7 +17139,7 @@ C i4 ( h9 h10 h13 p6 p8 p14 )_y END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_10_1_1_2(d_a,k_a_offset,d_c,k_c_o &ffset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h9 h10 h13 p6 p8 p14 )_y + = 1/3 * y ( h9 h10 h13 p6 p8 p14 )_y @@ -17255,7 +17255,7 @@ C i4 ( h9 h10 h13 p6 p8 p14 )_y + = 1/3 * y ( h9 h10 h13 p6 p8 p14 )_y END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_10_1_2(d_a,k_a_offset,d_b,k_b_off &set,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h13 h1 p8 p14 )_yt + = 2/3 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * i4 ( h7 h9 h10 h13 p5 p6 p8 p14 )_y @@ -17702,7 +17702,7 @@ C i3 ( h9 h10 h13 h1 p8 p14 )_yt + = 2/3 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_10_1_2_1(d_a,k_a_offset,d_c,k_c_o &ffset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h7 h9 h10 h13 p5 p6 p8 p14 )_y + = 1 * y ( h7 h9 h10 h13 p5 p6 p8 p14 )_y @@ -17832,7 +17832,7 @@ C i4 ( h7 h9 h10 h13 p5 p6 p8 p14 )_y + = 1 * y ( h7 h9 h10 h13 p5 p6 p8 p14 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_10_1_2_1(l_a_offset,k_a_of &fset,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h7 h9 h10 h13 p5 p6 p8 p14 )_y @@ -17935,7 +17935,7 @@ C i4 ( h7 h9 h10 h13 p5 p6 p8 p14 )_y END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_10_1_2_2(d_a,k_a_offset,d_c,k_c_o &ffset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h7 h9 h10 h13 p5 p6 p8 p14 )_y + = 1 * y ( h7 h9 h10 h13 p5 p6 p8 p14 )_y @@ -18065,7 +18065,7 @@ C i4 ( h7 h9 h10 h13 p5 p6 p8 p14 )_y + = 1 * y ( h7 h9 h10 h13 p5 p6 p8 p14 END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_10_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p3 h1 p14 )_ytt + = 1/6 * Sum ( h10 h11 h12 p8 p9 ) * t ( p3 p8 p9 h10 h11 h12 )_t * i3 ( h10 h11 h12 h13 h1 p8 p9 p14 )_yt @@ -18411,7 +18411,7 @@ C i2 ( h13 p3 h1 p14 )_ytt + = 1/6 * Sum ( h10 h11 h12 p8 p9 ) * t ( p3 p8 p END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_10_2_1(d_a,k_a_offset,d_b,k_b_off &set,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 h11 h12 h13 h1 p8 p9 p14 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * i4 ( h10 h11 h12 h13 p6 p8 p9 p14 )_y @@ -18615,7 +18615,7 @@ C i3 ( h10 h11 h12 h13 h1 p8 p9 p14 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_10_2_1(l_a_offset,k_a_offs &et,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 h11 h12 h13 h1 p8 p9 p14 )_yt @@ -18718,7 +18718,7 @@ C i3 ( h10 h11 h12 h13 h1 p8 p9 p14 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_10_2_1_1(d_a,k_a_offset,d_c,k_c_o &ffset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h10 h11 h12 h13 p6 p8 p9 p14 )_y + = 1 * y ( h10 h11 h12 h13 p6 p8 p9 p14 )_y @@ -18848,7 +18848,7 @@ C i4 ( h10 h11 h12 h13 p6 p8 p9 p14 )_y + = 1 * y ( h10 h11 h12 h13 p6 p8 p9 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_10_2_1_1(l_a_offset,k_a_of &fset,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h10 h11 h12 h13 p6 p8 p9 p14 )_y @@ -18952,7 +18952,7 @@ C i4 ( h10 h11 h12 h13 p6 p8 p9 p14 )_y END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_10_2_1_2(d_a,k_a_offset,d_c,k_c_o &ffset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h10 h11 h12 h13 p6 p8 p9 p14 )_y + = 1/3 * y ( h10 h11 h12 h13 p6 p8 p9 p14 )_y @@ -19082,7 +19082,7 @@ C i4 ( h10 h11 h12 h13 p6 p8 p9 p14 )_y + = 1/3 * y ( h10 h11 h12 h13 p6 p8 END SUBROUTINE ccsdtq_2pdm_pphh_mo_6(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h13 ) * t ( p3 p4 h1 h13 )_t * i1 ( h13 h2 )_yt @@ -19247,7 +19247,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h13 ) * t ( p3 p4 h1 h13 )_ END SUBROUTINE ccsdtq_2pdm_pphh_mo_6_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 h1 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h13 p6 )_y @@ -19375,7 +19375,7 @@ C i1 ( h13 h1 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h13 p6 )_y END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_6_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 h1 )_yt @@ -19431,7 +19431,7 @@ C i1 ( h13 h1 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_6_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 h1 )_yt + = -1/2 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h8 h13 p6 p7 )_y @@ -19607,7 +19607,7 @@ C i1 ( h13 h1 )_yt + = -1/2 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h END SUBROUTINE ccsdtq_2pdm_pphh_mo_6_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 h1 )_yt + = 1/12 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h1 h8 h9 )_t * y ( h8 h9 h13 p5 p6 p7 )_y @@ -19833,7 +19833,7 @@ C i1 ( h13 h1 )_yt + = 1/12 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h1 h8 h9 END SUBROUTINE ccsdtq_2pdm_pphh_mo_6_4(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 h1 )_yt + = -1/144 * Sum ( h9 h10 h11 p5 p6 p7 p8 ) * t ( p5 p6 p7 p8 h1 h9 h10 h11 )_t * y ( h9 h10 h11 h13 p5 p6 p7 p8 )_y @@ -20113,7 +20113,7 @@ C i1 ( h13 h1 )_yt + = -1/144 * Sum ( h9 h10 h11 p5 p6 p7 p8 ) * t ( p5 p6 p END SUBROUTINE ccsdtq_2pdm_pphh_mo_7(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1/2 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p3 p4 p5 h1 h6 h7 )_t * i1 ( h6 h7 h2 p5 )_yt @@ -20363,7 +20363,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1/2 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p3 p4 p5 END SUBROUTINE ccsdtq_2pdm_pphh_mo_7_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h1 p5 )_yt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * y ( h6 h7 p5 p8 )_y @@ -20517,7 +20517,7 @@ C i1 ( h6 h7 h1 p5 )_yt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * y ( h6 h7 p5 p END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_7_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h1 p5 )_yt @@ -20589,7 +20589,7 @@ C i1 ( h6 h7 h1 p5 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_7_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h1 p5 )_yt + = -1/2 * Sum ( h10 p8 p9 ) * t ( p8 p9 h1 h10 )_t * y ( h6 h7 h10 p5 p8 p9 )_y @@ -20850,7 +20850,7 @@ C i1 ( h6 h7 h1 p5 )_yt + = -1/2 * Sum ( h10 p8 p9 ) * t ( p8 p9 h1 h10 )_t END SUBROUTINE ccsdtq_2pdm_pphh_mo_7_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h1 p5 )_yt + = -1/12 * Sum ( h11 h12 p8 p9 p10 ) * t ( p8 p9 p10 h1 h11 h12 )_t * y ( h6 h7 h11 h12 p5 p8 p9 p10 )_y @@ -21328,7 +21328,7 @@ C i1 ( h6 h7 h1 p5 )_yt + = -1/12 * Sum ( h11 h12 p8 p9 p10 ) * t ( p8 p9 p1 END SUBROUTINE ccsdtq_2pdm_pphh_mo_8(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1/2 * P( 2 ) * Sum ( p13 ) * t ( p3 p13 h1 h2 )_t * i1 ( p4 p13 )_yt @@ -21493,7 +21493,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1/2 * P( 2 ) * Sum ( p13 ) * t ( p3 p13 h1 h2 END SUBROUTINE ccsdtq_2pdm_pphh_mo_8_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p13 )_yt + = -1 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * y ( h7 h8 p6 p13 )_y @@ -21669,7 +21669,7 @@ C i1 ( p3 p13 )_yt + = -1 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * y ( h7 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_8_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p13 )_yt @@ -21726,7 +21726,7 @@ C i1 ( p3 p13 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_8_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p13 )_yt + = 1/6 * Sum ( h7 h8 h9 p5 p6 ) * t ( p3 p5 p6 h7 h8 h9 )_t * y ( h7 h8 h9 p5 p6 p13 )_y @@ -21952,7 +21952,7 @@ C i1 ( p3 p13 )_yt + = 1/6 * Sum ( h7 h8 h9 p5 p6 ) * t ( p3 p5 p6 h7 h8 h9 END SUBROUTINE ccsdtq_2pdm_pphh_mo_8_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p13 )_yt + = -1/72 * Sum ( h8 h9 h10 h11 p5 p6 p7 ) * t ( p3 p5 p6 p7 h8 h9 h10 h11 )_t * y ( h8 h9 h10 h11 p5 p6 p7 p13 )_y @@ -22232,7 +22232,7 @@ C i1 ( p3 p13 )_yt + = -1/72 * Sum ( h8 h9 h10 h11 p5 p6 p7 ) * t ( p3 p5 p6 END SUBROUTINE ccsdtq_2pdm_pphh_mo_9(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1/4 * Sum ( h15 h14 ) * t ( p3 p4 h14 h15 )_t * i1 ( h14 h15 h1 h2 )_yt @@ -22395,7 +22395,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1/4 * Sum ( h15 h14 ) * t ( p3 p4 h14 h15 )_t END SUBROUTINE ccsdtq_2pdm_pphh_mo_9_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h14 h15 h1 h2 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h14 h15 p5 p6 )_y @@ -22557,7 +22557,7 @@ C i1 ( h14 h15 h1 h2 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_9_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h14 h15 h1 h2 )_yt @@ -22629,7 +22629,7 @@ C i1 ( h14 h15 h1 h2 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_9_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h14 h15 h1 h2 )_yt + = -1/3 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 h8 )_t * y ( h8 h14 h15 p5 p6 p7 )_y @@ -22852,7 +22852,7 @@ C i1 ( h14 h15 h1 h2 )_yt + = -1/3 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h END SUBROUTINE ccsdtq_2pdm_pphh_mo_9_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h14 h15 h1 h2 )_yt + = -1/24 * Sum ( h9 h10 p5 p6 p7 p8 ) * t ( p5 p6 p7 p8 h1 h2 h9 h10 )_t * y ( h9 h10 h14 h15 p5 p6 p7 p8 )_y @@ -23177,7 +23177,7 @@ C i1 ( h14 h15 h1 h2 )_yt + = -1/24 * Sum ( h9 h10 p5 p6 p7 p8 ) * t ( p5 p6 END SUBROUTINE ccsdtq_2pdm_pphh_mo_9_4(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h14 h15 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p10 ) * t ( p10 h1 )_t * i2 ( h14 h15 h2 p10 )_yt @@ -23330,7 +23330,7 @@ C i1 ( h14 h15 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p10 ) * t ( p10 h1 )_t * END SUBROUTINE ccsdtq_2pdm_pphh_mo_9_4_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h14 h15 h1 p10 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h14 h15 p6 p10 )_y @@ -23485,7 +23485,7 @@ C i2 ( h14 h15 h1 p10 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h14 h15 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_9_4_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h14 h15 h1 p10 )_yt @@ -23557,7 +23557,7 @@ C i2 ( h14 h15 h1 p10 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_9_4_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h14 h15 h1 p10 )_yt + = 1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t * y ( h9 h14 h15 p7 p8 p10 )_y @@ -23822,7 +23822,7 @@ C i2 ( h14 h15 h1 p10 )_yt + = 1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t * END SUBROUTINE ccsdtq_2pdm_pphh_mo_9_4_3(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h14 h15 h1 p10 )_yt + = -1/6 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h1 h8 h9 )_t * y ( h8 h9 h14 h15 p5 p6 p7 p10 )_y @@ -24295,7 +24295,7 @@ C i2 ( h14 h15 h1 p10 )_yt + = -1/6 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 END SUBROUTINE ccsdtq_2pdm_pphh_mo_9_5(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h14 h15 h1 h2 )_ytt + = -1/4 * P( 2 ) * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t * i2 ( h9 h14 h15 h2 p7 p8 )_yt @@ -24502,7 +24502,7 @@ C i1 ( h14 h15 h1 h2 )_ytt + = -1/4 * P( 2 ) * Sum ( h9 p7 p8 ) * t ( p7 p8 END SUBROUTINE ccsdtq_2pdm_pphh_mo_9_5_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h14 h15 h1 p7 p8 )_yt + = -1 * Sum ( h12 p10 p11 ) * t ( p10 p11 h1 h12 )_t * y ( h9 h12 h14 h15 p7 p8 p10 p11 )_y @@ -24949,7 +24949,7 @@ C i2 ( h9 h14 h15 h1 p7 p8 )_yt + = -1 * Sum ( h12 p10 p11 ) * t ( p10 p11 h END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_9_5_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h14 h15 h1 p7 p8 )_yt @@ -25037,7 +25037,7 @@ C i2 ( h9 h14 h15 h1 p7 p8 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_10(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = 1/2 * P( 4 ) * Sum ( h14 p15 ) * t ( p3 p15 h1 h14 )_t * i1 ( h14 p4 h2 p15 )_yt @@ -25240,7 +25240,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = 1/2 * P( 4 ) * Sum ( h14 p15 ) * t ( p3 p15 h1 END SUBROUTINE ccsdtq_2pdm_pphh_mo_10_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h14 p3 h1 p15 )_yt + = 1 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * y ( h8 h14 p7 p15 )_y @@ -25443,7 +25443,7 @@ C i1 ( h14 p3 h1 p15 )_yt + = 1 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * y ( END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_10_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h14 p3 h1 p15 )_yt @@ -25515,7 +25515,7 @@ C i1 ( h14 p3 h1 p15 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_10_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h14 p3 h1 p15 )_yt + = 1/2 * Sum ( h7 h8 p5 p6 ) * t ( p3 p5 p6 h1 h7 h8 )_t * y ( h7 h8 h14 p5 p6 p15 )_y @@ -25851,7 +25851,7 @@ C i1 ( h14 p3 h1 p15 )_yt + = 1/2 * Sum ( h7 h8 p5 p6 ) * t ( p3 p5 p6 h1 h7 END SUBROUTINE ccsdtq_2pdm_pphh_mo_10_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h14 p3 h1 p15 )_yt + = 1/18 * Sum ( h8 h9 h10 p5 p6 p7 ) * t ( p3 p5 p6 p7 h1 h8 h9 h10 )_t * y ( h8 h9 h10 h14 p5 p6 p7 p15 )_y @@ -26393,7 +26393,7 @@ C i1 ( h14 p3 h1 p15 )_yt + = 1/18 * Sum ( h8 h9 h10 p5 p6 p7 ) * t ( p3 p5 END SUBROUTINE ccsdtq_2pdm_pphh_mo_10_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h14 p3 h1 p15 )_ytt + = -1 * Sum ( h6 h13 p5 ) * t ( p3 p5 h6 h13 )_t * i2 ( h6 h13 h14 h1 p5 p15 )_yt @@ -26621,7 +26621,7 @@ C i1 ( h14 p3 h1 p15 )_ytt + = -1 * Sum ( h6 h13 p5 ) * t ( p3 p5 h6 h13 )_t END SUBROUTINE ccsdtq_2pdm_pphh_mo_10_4_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h13 h14 h1 p5 p15 )_yt + = -1 * Sum ( p10 ) * t ( p10 h1 )_t * y ( h6 h13 h14 p5 p10 p15 )_y @@ -26802,7 +26802,7 @@ C i2 ( h6 h13 h14 h1 p5 p15 )_yt + = -1 * Sum ( p10 ) * t ( p10 h1 )_t * y ( END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_10_4_1(l_a_offset,k_a_offset &,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h13 h14 h1 p5 p15 )_yt @@ -26890,7 +26890,7 @@ C i2 ( h6 h13 h14 h1 p5 p15 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_10_4_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h13 h14 h1 p5 p15 )_yt + = -1/4 * Sum ( h8 p16 p7 ) * t ( p7 p16 h1 h8 )_t * i3 ( h6 h8 h13 h14 p5 p7 p15 p16 )_y @@ -27337,7 +27337,7 @@ C i2 ( h6 h13 h14 h1 p5 p15 )_yt + = -1/4 * Sum ( h8 p16 p7 ) * t ( p7 p16 h END SUBROUTINE ccsdtq_2pdm_pphh_mo_10_4_2_1(d_a,k_a_offset,d_c,k_c_off &set) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h6 h8 h13 h14 p5 p7 p15 p16 )_y + = 1 * y ( h6 h8 h13 h14 p5 p7 p15 p16 )_y @@ -27467,7 +27467,7 @@ C i3 ( h6 h8 h13 h14 p5 p7 p15 p16 )_y + = 1 * y ( h6 h8 h13 h14 p5 p7 p15 p END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_10_4_2_1(l_a_offset,k_a_offs &et,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h6 h8 h13 h14 p5 p7 p15 p16 )_y @@ -27570,7 +27570,7 @@ C i3 ( h6 h8 h13 h14 p5 p7 p15 p16 )_y END SUBROUTINE ccsdtq_2pdm_pphh_mo_10_4_2_2(d_a,k_a_offset,d_c,k_c_off &set) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h6 h8 h13 h14 p5 p7 p15 p16 )_y + = 1 * y ( h6 h8 h13 h14 p5 p7 p15 p16 )_y @@ -27700,7 +27700,7 @@ C i3 ( h6 h8 h13 h14 p5 p7 p15 p16 )_y + = 1 * y ( h6 h8 h13 h14 p5 p7 p15 p END SUBROUTINE ccsdtq_2pdm_pphh_mo_10_5(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h14 p3 h1 p15 )_ytt + = 1/6 * Sum ( h7 h8 h9 p5 p6 ) * t ( p3 p5 p6 h7 h8 h9 )_t * i2 ( h7 h8 h9 h14 h1 p5 p6 p15 )_yt @@ -28041,7 +28041,7 @@ C i1 ( h14 p3 h1 p15 )_ytt + = 1/6 * Sum ( h7 h8 h9 p5 p6 ) * t ( p3 p5 p6 h END SUBROUTINE ccsdtq_2pdm_pphh_mo_10_5_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h9 h14 h1 p5 p6 p15 )_yt + = -1 * Sum ( p12 ) * t ( p12 h1 )_t * y ( h7 h8 h9 h14 p5 p6 p12 p15 )_y @@ -28244,7 +28244,7 @@ C i2 ( h7 h8 h9 h14 h1 p5 p6 p15 )_yt + = -1 * Sum ( p12 ) * t ( p12 h1 )_t END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_10_5_1(l_a_offset,k_a_offset &,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h9 h14 h1 p5 p6 p15 )_yt @@ -28347,7 +28347,7 @@ C i2 ( h7 h8 h9 h14 h1 p5 p6 p15 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_11(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1/12 * P( 2 ) * Sum ( h7 h8 h9 p5 p6 ) * t ( p3 p4 p5 p6 h1 h7 h8 h9 )_t * i1 ( h7 h8 h9 h2 p5 p6 )_yt @@ -28805,7 +28805,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1/12 * P( 2 ) * Sum ( h7 h8 h9 p5 p6 ) * t ( p END SUBROUTINE ccsdtq_2pdm_pphh_mo_11_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h9 h1 p5 p6 )_yt + = 1 * Sum ( p10 ) * t ( p10 h1 )_t * y ( h7 h8 h9 p5 p6 p10 )_y @@ -28982,7 +28982,7 @@ C i1 ( h7 h8 h9 h1 p5 p6 )_yt + = 1 * Sum ( p10 ) * t ( p10 h1 )_t * y ( h7 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_11_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h9 h1 p5 p6 )_yt @@ -29070,7 +29070,7 @@ C i1 ( h7 h8 h9 h1 p5 p6 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_11_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h9 h1 p5 p6 )_yt + = 1/2 * Sum ( h12 p10 p11 ) * t ( p10 p11 h1 h12 )_t * y ( h7 h8 h9 h12 p5 p6 p10 p11 )_y @@ -29518,7 +29518,7 @@ C i1 ( h7 h8 h9 h1 p5 p6 )_yt + = 1/2 * Sum ( h12 p10 p11 ) * t ( p10 p11 h1 END SUBROUTINE ccsdtq_2pdm_pphh_mo_12(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p3 p5 p6 h1 h2 h7 )_t * i1 ( h7 p4 p5 p6 )_yt @@ -29768,7 +29768,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p3 p5 p6 END SUBROUTINE ccsdtq_2pdm_pphh_mo_12_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 p5 p6 )_yt + = -1 * Sum ( h9 h10 p8 ) * t ( p3 p8 h9 h10 )_t * y ( h7 h9 h10 p5 p6 p8 )_y @@ -30028,7 +30028,7 @@ C i1 ( h7 p3 p5 p6 )_yt + = -1 * Sum ( h9 h10 p8 ) * t ( p3 p8 h9 h10 )_t * END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_12_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 p5 p6 )_yt @@ -30100,7 +30100,7 @@ C i1 ( h7 p3 p5 p6 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_12_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 p5 p6 )_yt + = -1/6 * Sum ( h10 h11 h12 p8 p9 ) * t ( p3 p8 p9 h10 h11 h12 )_t * y ( h7 h10 h11 h12 p5 p6 p8 p9 )_y @@ -30578,7 +30578,7 @@ C i1 ( h7 p3 p5 p6 )_yt + = -1/6 * Sum ( h10 h11 h12 p8 p9 ) * t ( p3 p8 p9 END SUBROUTINE ccsdtq_2pdm_pphh_mo_13(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = 1/12 * Sum ( h13 h14 h15 p12 ) * t ( p3 p4 p12 h13 h14 h15 )_t * i1 ( h13 h14 h15 h1 h2 p12 )_yt @@ -30788,7 +30788,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = 1/12 * Sum ( h13 h14 h15 p12 ) * t ( p3 p4 p12 END SUBROUTINE ccsdtq_2pdm_pphh_mo_13_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 h14 h15 h1 h2 p12 )_yt + = 1 * Sum ( p9 p10 ) * t ( p9 p10 h1 h2 )_t * y ( h13 h14 h15 p9 p10 p12 )_y @@ -30989,7 +30989,7 @@ C i1 ( h13 h14 h15 h1 h2 p12 )_yt + = 1 * Sum ( p9 p10 ) * t ( p9 p10 h1 h2 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_13_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 h14 h15 h1 h2 p12 )_yt @@ -31077,7 +31077,7 @@ C i1 ( h13 h14 h15 h1 h2 p12 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_13_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 h14 h15 h1 h2 p12 )_yt + = 1/3 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 h8 )_t * y ( h8 h13 h14 h15 p5 p6 p7 p12 )_y @@ -31459,7 +31459,7 @@ C i1 ( h13 h14 h15 h1 h2 p12 )_yt + = 1/3 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 END SUBROUTINE ccsdtq_2pdm_pphh_mo_13_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 h14 h15 h1 h2 p12 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h13 h14 h15 h2 p5 p12 )_yt @@ -31641,7 +31641,7 @@ C i1 ( h13 h14 h15 h1 h2 p12 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 END SUBROUTINE ccsdtq_2pdm_pphh_mo_13_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h14 h15 h1 p5 p12 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h13 h14 h15 p5 p6 p12 )_y @@ -31823,7 +31823,7 @@ C i2 ( h13 h14 h15 h1 p5 p12 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_13_3_1(l_a_offset,k_a_offset &,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h14 h15 h1 p5 p12 )_yt @@ -31911,7 +31911,7 @@ C i2 ( h13 h14 h15 h1 p5 p12 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_14(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1/24 * P( 2 ) * Sum ( h8 h9 p5 p6 p7 ) * t ( p3 p5 p6 p7 h1 h2 h8 h9 )_t * i1 ( h8 h9 p4 p5 p6 p7 )_yt @@ -32370,7 +32370,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1/24 * P( 2 ) * Sum ( h8 h9 p5 p6 p7 ) * t ( p END SUBROUTINE ccsdtq_2pdm_pphh_mo_14_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h9 p3 p5 p6 p7 )_yt + = 1 * Sum ( h11 h12 p10 ) * t ( p3 p10 h11 h12 )_t * y ( h8 h9 h11 h12 p5 p6 p7 p10 )_y @@ -32817,7 +32817,7 @@ C i1 ( h8 h9 p3 p5 p6 p7 )_yt + = 1 * Sum ( h11 h12 p10 ) * t ( p3 p10 h11 h END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_14_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h9 p3 p5 p6 p7 )_yt @@ -32905,7 +32905,7 @@ C i1 ( h8 h9 p3 p5 p6 p7 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_15(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1/96 * Sum ( h15 h7 h8 h9 p13 p14 ) * t ( p3 p4 p13 p14 h7 h8 h9 h15 )_t * i1 ( h7 h8 h9 h15 h1 h2 p13 p14 )_yt @@ -33177,7 +33177,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1/96 * Sum ( h15 h7 h8 h9 p13 p14 ) * t ( p3 p END SUBROUTINE ccsdtq_2pdm_pphh_mo_15_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h9 h15 h1 h2 p13 p14 )_yt + = -1 * Sum ( p11 p12 ) * t ( p11 p12 h1 h2 )_t * y ( h7 h8 h9 h15 p11 p12 p13 p14 )_y @@ -33423,7 +33423,7 @@ C i1 ( h7 h8 h9 h15 h1 h2 p13 p14 )_yt + = -1 * Sum ( p11 p12 ) * t ( p11 p1 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_15_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h9 h15 h1 h2 p13 p14 )_yt @@ -33526,7 +33526,7 @@ C i1 ( h7 h8 h9 h15 h1 h2 p13 p14 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_15_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h9 h15 h1 h2 p13 p14 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h7 h8 h9 h15 h2 p5 p13 p14 )_yt @@ -33732,7 +33732,7 @@ C i1 ( h7 h8 h9 h15 h1 h2 p13 p14 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p END SUBROUTINE ccsdtq_2pdm_pphh_mo_15_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h9 h15 h1 p5 p13 p14 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h7 h8 h9 h15 p5 p6 p13 p14 )_y @@ -33936,7 +33936,7 @@ C i2 ( h7 h8 h9 h15 h1 p5 p13 p14 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_15_2_1(l_a_offset,k_a_offset &,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h9 h15 h1 p5 p13 p14 )_yt @@ -34039,7 +34039,7 @@ C i2 ( h7 h8 h9 h15 h1 p5 p13 p14 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_16(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = 1/32 * P( 4 ) * Sum ( h7 h8 p5 p6 ) * t ( p3 p5 p6 h1 h7 h8 )_t * i1 ( h7 h8 p4 h2 p5 p6 )_yt @@ -34321,7 +34321,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = 1/32 * P( 4 ) * Sum ( h7 h8 p5 p6 ) * t ( p3 p5 END SUBROUTINE ccsdtq_2pdm_pphh_mo_16_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 p3 h1 p5 p6 )_yt + = 1 * Sum ( h11 h12 p9 p10 ) * t ( p3 p9 p10 h1 h11 h12 )_t * y ( h7 h8 h11 h12 p5 p6 p9 p10 )_y @@ -34996,7 +34996,7 @@ C i1 ( h7 h8 p3 h1 p5 p6 )_yt + = 1 * Sum ( h11 h12 p9 p10 ) * t ( p3 p9 p10 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_16_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 p3 h1 p5 p6 )_yt @@ -35084,7 +35084,7 @@ C i1 ( h7 h8 p3 h1 p5 p6 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_16_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 p3 h1 p5 p6 )_ytt + = -4 * Sum ( h10 h11 p9 ) * t ( p3 p9 h10 h11 )_t * i2 ( h7 h8 h10 h11 h1 p5 p6 p9 )_yt @@ -35466,7 +35466,7 @@ C i1 ( h7 h8 p3 h1 p5 p6 )_ytt + = -4 * Sum ( h10 h11 p9 ) * t ( p3 p9 h10 h END SUBROUTINE ccsdtq_2pdm_pphh_mo_16_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h10 h11 h1 p5 p6 p9 )_yt + = -1 * Sum ( p12 ) * t ( p12 h1 )_t * y ( h7 h8 h10 h11 p5 p6 p9 p12 )_y @@ -35669,7 +35669,7 @@ C i2 ( h7 h8 h10 h11 h1 p5 p6 p9 )_yt + = -1 * Sum ( p12 ) * t ( p12 h1 )_t END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_16_2_1(l_a_offset,k_a_offset &,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h10 h11 h1 p5 p6 p9 )_yt @@ -35772,7 +35772,7 @@ C i2 ( h7 h8 h10 h11 h1 p5 p6 p9 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_17(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yttt + = -1/12 * P( 2 ) * Sum ( p12 ) * t ( p12 h1 )_t * i1 ( p3 p4 h2 p12 )_ytt @@ -35926,7 +35926,7 @@ C i0 ( p3 p4 h1 h2 )_yttt + = -1/12 * P( 2 ) * Sum ( p12 ) * t ( p12 h1 )_t END SUBROUTINE ccsdtq_2pdm_pphh_mo_17_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p4 h1 p12 )_ytt + = 1 * Sum ( h6 h7 h8 p5 ) * t ( p3 p4 p5 h6 h7 h8 )_t * i2 ( h6 h7 h8 h1 p5 p12 )_yt @@ -36139,7 +36139,7 @@ C i1 ( p3 p4 h1 p12 )_ytt + = 1 * Sum ( h6 h7 h8 p5 ) * t ( p3 p4 p5 h6 h7 h END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_17_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p4 h1 p12 )_ytt @@ -36211,7 +36211,7 @@ C i1 ( p3 p4 h1 p12 )_ytt END SUBROUTINE ccsdtq_2pdm_pphh_mo_17_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h8 h1 p5 p12 )_yt + = -1 * Sum ( h11 p9 p10 ) * t ( p9 p10 h1 h11 )_t * y ( h6 h7 h8 h11 p5 p9 p10 p12 )_y @@ -36657,7 +36657,7 @@ C i2 ( h6 h7 h8 h1 p5 p12 )_yt + = -1 * Sum ( h11 p9 p10 ) * t ( p9 p10 h1 h END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_17_1_1(l_a_offset,k_a_offset &,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h8 h1 p5 p12 )_yt @@ -36745,7 +36745,7 @@ C i2 ( h6 h7 h8 h1 p5 p12 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_17_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p4 h1 p12 )_yttt + = 3/8 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p3 p5 h6 h7 )_t * i2 ( h6 h7 p4 h1 p5 p12 )_ytt @@ -36948,7 +36948,7 @@ C i1 ( p3 p4 h1 p12 )_yttt + = 3/8 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p3 p5 h END SUBROUTINE ccsdtq_2pdm_pphh_mo_17_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 p3 h1 p5 p12 )_ytt + = -1 * Sum ( h9 h10 p8 ) * t ( p3 p8 h9 h10 )_t * i3 ( h6 h7 h9 h10 h1 p5 p8 p12 )_yt @@ -37329,7 +37329,7 @@ C i2 ( h6 h7 p3 h1 p5 p12 )_ytt + = -1 * Sum ( h9 h10 p8 ) * t ( p3 p8 h9 h1 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_17_2_1(l_a_offset,k_a_offset &,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 p3 h1 p5 p12 )_ytt @@ -37419,7 +37419,7 @@ C i2 ( h6 h7 p3 h1 p5 p12 )_ytt END SUBROUTINE ccsdtq_2pdm_pphh_mo_17_2_1_1(d_a,k_a_offset,d_b,k_b_off &set,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h6 h7 h9 h10 h1 p5 p8 p12 )_yt + = 1 * Sum ( p11 ) * t ( p11 h1 )_t * i4 ( h6 h7 h9 h10 p5 p8 p11 p12 )_y @@ -37622,7 +37622,7 @@ C i3 ( h6 h7 h9 h10 h1 p5 p8 p12 )_yt + = 1 * Sum ( p11 ) * t ( p11 h1 )_t * END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_17_2_1_1(l_a_offset,k_a_offs &et,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h6 h7 h9 h10 h1 p5 p8 p12 )_yt @@ -37725,7 +37725,7 @@ C i3 ( h6 h7 h9 h10 h1 p5 p8 p12 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_17_2_1_1_1(d_a,k_a_offset,d_c,k_c_o &ffset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h6 h7 h9 h10 p5 p8 p11 p12 )_y + = 1 * y ( h6 h7 h9 h10 p5 p8 p11 p12 )_y @@ -37855,7 +37855,7 @@ C i4 ( h6 h7 h9 h10 p5 p8 p11 p12 )_y + = 1 * y ( h6 h7 h9 h10 p5 p8 p11 p12 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_17_2_1_1_1(l_a_offset,k_a_of &fset,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h6 h7 h9 h10 p5 p8 p11 p12 )_y @@ -37958,7 +37958,7 @@ C i4 ( h6 h7 h9 h10 p5 p8 p11 p12 )_y END SUBROUTINE ccsdtq_2pdm_pphh_mo_17_2_1_1_2(d_a,k_a_offset,d_c,k_c_o &ffset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h6 h7 h9 h10 p5 p8 p11 p12 )_y + = 1 * y ( h6 h7 h9 h10 p5 p8 p11 p12 )_y @@ -38088,7 +38088,7 @@ C i4 ( h6 h7 h9 h10 p5 p8 p11 p12 )_y + = 1 * y ( h6 h7 h9 h10 p5 p8 p11 p12 END SUBROUTINE ccsdtq_2pdm_pphh_mo_18(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yttt + = -1/8 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * i1 ( p3 p4 p5 p6 )_ytt @@ -38251,7 +38251,7 @@ C i0 ( p3 p4 h1 h2 )_yttt + = -1/8 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * i END SUBROUTINE ccsdtq_2pdm_pphh_mo_18_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p4 p5 p6 )_ytt + = 1/2 * P( 2 ) * Sum ( h8 h9 p7 ) * t ( p3 p7 h8 h9 )_t * i2 ( h8 h9 p4 p5 p6 p7 )_yt @@ -38463,7 +38463,7 @@ C i1 ( p3 p4 p5 p6 )_ytt + = 1/2 * P( 2 ) * Sum ( h8 h9 p7 ) * t ( p3 p7 h8 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_18_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p4 p5 p6 )_ytt @@ -38535,7 +38535,7 @@ C i1 ( p3 p4 p5 p6 )_ytt END SUBROUTINE ccsdtq_2pdm_pphh_mo_18_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 p3 p5 p6 p7 )_yt + = 1 * Sum ( h11 h12 p10 ) * t ( p3 p10 h11 h12 )_t * y ( h8 h9 h11 h12 p5 p6 p7 p10 )_y @@ -38982,7 +38982,7 @@ C i2 ( h8 h9 p3 p5 p6 p7 )_yt + = 1 * Sum ( h11 h12 p10 ) * t ( p3 p10 h11 h END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_18_1_1(l_a_offset,k_a_offset &,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 p3 p5 p6 p7 )_yt diff --git a/src/tce/gradients/ccsdtq_2pdm_pphp_mo.F b/src/tce/gradients/ccsdtq_2pdm_pphp_mo.F index a848765001..5d95ee417b 100644 --- a/src/tce/gradients/ccsdtq_2pdm_pphp_mo.F +++ b/src/tce/gradients/ccsdtq_2pdm_pphp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdtq_2pdm_pphp_mo(d_i0,d_t1,d_t2,d_t3,d_t4,d_y1,d_y2, &d_y3,d_y4,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_t4_off &set,k_y1_offset,k_y2_offset,k_y3_offset,k_y4_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_yt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 p3 h2 h5 )_t * y ( h5 p4 )_y @@ -251,7 +251,7 @@ C i2 ( h6 h7 h9 h10 h2 p1 p5 p8 )_yt + = 1/2 * P( 2 ) * Sum ( p11 ) END SUBROUTINE ccsdtq_2pdm_pphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_yt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 p3 h2 h5 )_t * y ( h5 p4 )_y @@ -415,7 +415,7 @@ c & - noab - 1))))) END SUBROUTINE ccsdtq_2pdm_pphp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_yt + = -1/4 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p1 p3 p5 h2 h6 h7 )_t * y ( h6 h7 p4 p5 )_y @@ -674,7 +674,7 @@ c & - noab - 1))))) END SUBROUTINE ccsdtq_2pdm_pphp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_yt + = -1/24 * P( 2 ) * Sum ( h7 h8 h9 p5 p6 ) * t ( p1 p3 p5 p6 h2 h7 h8 h9 )_t * y ( h7 h8 h9 p4 p5 p6 )_y @@ -1149,7 +1149,7 @@ c & - noab - 1))))) END SUBROUTINE ccsdtq_2pdm_pphp_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytt + = -1/2 * P( 4 ) * t ( p1 h2 )_t * i1 ( p3 p4 )_yt @@ -1317,7 +1317,7 @@ c END IF END SUBROUTINE ccsdtq_2pdm_pphp_mo_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yt + = 1 * Sum ( h5 ) * t ( p1 h5 )_t * y ( h5 p3 )_y @@ -1445,7 +1445,7 @@ C i1 ( p1 p3 )_yt + = 1 * Sum ( h5 ) * t ( p1 h5 )_t * y ( h5 p3 )_y END SUBROUTINE OFFSET_ccsdtq_2pdm_pphp_mo_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yt @@ -1501,7 +1501,7 @@ C i1 ( p1 p3 )_yt END SUBROUTINE ccsdtq_2pdm_pphp_mo_4_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yt + = 1/2 * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * y ( h6 h7 p3 p5 )_y @@ -1677,7 +1677,7 @@ C i1 ( p1 p3 )_yt + = 1/2 * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * y ( h6 END SUBROUTINE ccsdtq_2pdm_pphp_mo_4_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yt + = 1/12 * Sum ( h7 h8 h9 p5 p6 ) * t ( p1 p5 p6 h7 h8 h9 )_t * y ( h7 h8 h9 p3 p5 p6 )_y @@ -1900,7 +1900,7 @@ C i1 ( p1 p3 )_yt + = 1/12 * Sum ( h7 h8 h9 p5 p6 ) * t ( p1 p5 p6 h7 h8 h9 END SUBROUTINE ccsdtq_2pdm_pphp_mo_4_4(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yt + = 1/144 * Sum ( h8 h9 h10 h11 p5 p6 p7 ) * t ( p1 p5 p6 p7 h8 h9 h10 h11 )_t * y ( h8 h9 h10 h11 p3 p5 p6 p7 )_y @@ -2180,7 +2180,7 @@ C i1 ( p1 p3 )_yt + = 1/144 * Sum ( h8 h9 h10 h11 p5 p6 p7 ) * t ( p1 p5 p6 END SUBROUTINE ccsdtq_2pdm_pphp_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytt + = -1 * P( 2 ) * Sum ( h12 ) * t ( p1 h12 )_t * i1 ( h12 p3 h2 p4 )_yt @@ -2334,7 +2334,7 @@ C i0 ( p1 p3 h2 p4 )_ytt + = -1 * P( 2 ) * Sum ( h12 ) * t ( p1 h12 )_t * i1 END SUBROUTINE ccsdtq_2pdm_pphp_mo_5_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p1 h2 p3 )_yt + = 1/2 * P( 2 ) * Sum ( h6 p5 ) * t ( p1 p5 h2 h6 )_t * y ( h6 h12 p3 p5 )_y @@ -2546,7 +2546,7 @@ c &b - 1))))) END SUBROUTINE OFFSET_ccsdtq_2pdm_pphp_mo_5_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p1 h2 p3 )_yt @@ -2618,7 +2618,7 @@ C i1 ( h12 p1 h2 p3 )_yt END SUBROUTINE ccsdtq_2pdm_pphp_mo_5_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p1 h2 p3 )_yt + = -1/8 * P( 2 ) * Sum ( h7 h8 p5 p6 ) * t ( p1 p5 p6 h2 h7 h8 )_t * y ( h7 h8 h12 p3 p5 p6 )_y @@ -2963,7 +2963,7 @@ c &b - 1))))) END SUBROUTINE ccsdtq_2pdm_pphp_mo_5_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p1 h2 p3 )_yt + = 1/72 * P( 2 ) * Sum ( h8 h9 h10 p5 p6 p7 ) * t ( p1 p5 p6 p7 h2 h8 h9 h10 )_t * y ( h8 h9 h10 h12 p3 p5 p6 p7 )_y @@ -3514,7 +3514,7 @@ c &b - 1))))) END SUBROUTINE ccsdtq_2pdm_pphp_mo_5_4(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p1 h2 p3 )_ytt + = 1/2 * Sum ( h13 ) * t ( p1 h13 )_t * i2 ( h12 h13 h2 p3 )_yt @@ -3668,7 +3668,7 @@ C i1 ( h12 p1 h2 p3 )_ytt + = 1/2 * Sum ( h13 ) * t ( p1 h13 )_t * i2 ( h12 END SUBROUTINE ccsdtq_2pdm_pphp_mo_5_4_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h2 p1 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h12 h13 p1 p5 )_y @@ -3831,7 +3831,7 @@ c &)))) END SUBROUTINE OFFSET_ccsdtq_2pdm_pphp_mo_5_4_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h2 p1 )_yt @@ -3903,7 +3903,7 @@ C i2 ( h12 h13 h2 p1 )_yt END SUBROUTINE ccsdtq_2pdm_pphp_mo_5_4_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h2 p1 )_yt + = 1/4 * P( 2 ) * Sum ( h9 p7 p8 ) * t ( p7 p8 h2 h9 )_t * y ( h9 h12 h13 p1 p7 p8 )_y @@ -4173,7 +4173,7 @@ c &)))) END SUBROUTINE ccsdtq_2pdm_pphp_mo_5_4_3(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h2 p1 )_yt + = 1/24 * P( 2 ) * Sum ( h10 h11 p7 p8 p9 ) * t ( p7 p8 p9 h2 h10 h11 )_t * y ( h10 h11 h12 h13 p1 p7 p8 p9 )_y @@ -4658,7 +4658,7 @@ c &)))) END SUBROUTINE ccsdtq_2pdm_pphp_mo_5_5(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p1 h2 p3 )_ytt + = 1/2 * Sum ( h13 h8 p11 ) * t ( p1 p11 h8 h13 )_t * i2 ( h8 h12 h13 h2 p3 p11 )_yt @@ -4859,7 +4859,7 @@ C i1 ( h12 p1 h2 p3 )_ytt + = 1/2 * Sum ( h13 h8 p11 ) * t ( p1 p11 h8 h13 ) END SUBROUTINE ccsdtq_2pdm_pphp_mo_5_5_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h12 h13 h2 p1 p11 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h8 h12 h13 p1 p5 p11 )_y @@ -5077,7 +5077,7 @@ c &3b - 1 + noab * (h12b - 1 + noab * (h8b - 1))))))) END SUBROUTINE OFFSET_ccsdtq_2pdm_pphp_mo_5_5_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h12 h13 h2 p1 p11 )_yt @@ -5165,7 +5165,7 @@ C i2 ( h8 h12 h13 h2 p1 p11 )_yt END SUBROUTINE ccsdtq_2pdm_pphp_mo_5_5_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h12 h13 h2 p1 p11 )_yt + = -1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p5 p6 h2 h7 )_t * y ( h7 h8 h12 h13 p1 p5 p6 p11 )_y @@ -5891,7 +5891,7 @@ c &3b - 1 + noab * (h12b - 1 + noab * (h8b - 1))))))) END SUBROUTINE ccsdtq_2pdm_pphp_mo_5_6(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p1 h2 p3 )_ytt + = 1/12 * Sum ( h9 h10 h11 p7 p8 ) * t ( p1 p7 p8 h9 h10 h11 )_t * i2 ( h9 h10 h11 h12 h2 p3 p7 p8 )_yt @@ -6147,7 +6147,7 @@ C i1 ( h12 p1 h2 p3 )_ytt + = 1/12 * Sum ( h9 h10 h11 p7 p8 ) * t ( p1 p7 p8 END SUBROUTINE ccsdtq_2pdm_pphp_mo_5_6_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h11 h12 h2 p1 p7 p8 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h9 h10 h11 h12 p1 p5 p7 p8 )_y @@ -6443,7 +6443,7 @@ c & 1 + noab * (h9b - 1))))))))) END SUBROUTINE OFFSET_ccsdtq_2pdm_pphp_mo_5_6_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h11 h12 h2 p1 p7 p8 )_yt @@ -6546,7 +6546,7 @@ C i2 ( h9 h10 h11 h12 h2 p1 p7 p8 )_yt END SUBROUTINE ccsdtq_2pdm_pphp_mo_6(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytt + = -1/2 * Sum ( h12 h10 ) * t ( p1 p3 h10 h12 )_t * i1 ( h10 h12 h2 p4 )_yt @@ -6709,7 +6709,7 @@ C i0 ( p1 p3 h2 p4 )_ytt + = -1/2 * Sum ( h12 h10 ) * t ( p1 p3 h10 h12 )_t END SUBROUTINE ccsdtq_2pdm_pphp_mo_6_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 h12 h2 p1 )_yt + = 1/2 * P( 2 ) * Sum ( p7 ) * t ( p7 h2 )_t * y ( h10 h12 p1 p7 )_y @@ -6872,7 +6872,7 @@ c &)))) END SUBROUTINE OFFSET_ccsdtq_2pdm_pphp_mo_6_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 h12 h2 p1 )_yt @@ -6944,7 +6944,7 @@ C i1 ( h10 h12 h2 p1 )_yt END SUBROUTINE ccsdtq_2pdm_pphp_mo_6_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 h12 h2 p1 )_yt + = 1/4 * P( 2 ) * Sum ( h9 p7 p8 ) * t ( p7 p8 h2 h9 )_t * y ( h9 h10 h12 p1 p7 p8 )_y @@ -7214,7 +7214,7 @@ c &)))) END SUBROUTINE ccsdtq_2pdm_pphp_mo_6_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 h12 h2 p1 )_yt + = 1/24 * P( 2 ) * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h2 h8 h9 )_t * y ( h8 h9 h10 h12 p1 p5 p6 p7 )_y @@ -7696,7 +7696,7 @@ c &)))) END SUBROUTINE ccsdtq_2pdm_pphp_mo_7(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytt + = -1/6 * Sum ( h6 h7 h8 p5 ) * t ( p1 p3 p5 h6 h7 h8 )_t * i1 ( h6 h7 h8 h2 p4 p5 )_yt @@ -7899,7 +7899,7 @@ C i0 ( p1 p3 h2 p4 )_ytt + = -1/6 * Sum ( h6 h7 h8 p5 ) * t ( p1 p3 p5 h6 h7 END SUBROUTINE ccsdtq_2pdm_pphp_mo_7_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h8 h2 p1 p5 )_yt + = -1/2 * P( 2 ) * Sum ( p9 ) * t ( p9 h2 )_t * y ( h6 h7 h8 p1 p5 p9 )_y @@ -8108,7 +8108,7 @@ c & - 1 + noab * (h7b - 1 + noab * (h6b - 1))))))) END SUBROUTINE OFFSET_ccsdtq_2pdm_pphp_mo_7_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h8 h2 p1 p5 )_yt @@ -8196,7 +8196,7 @@ C i1 ( h6 h7 h8 h2 p1 p5 )_yt END SUBROUTINE ccsdtq_2pdm_pphp_mo_7_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h8 h2 p1 p5 )_yt + = -1/4 * P( 2 ) * Sum ( h11 p9 p10 ) * t ( p9 p10 h2 h11 )_t * y ( h6 h7 h8 h11 p1 p5 p9 p10 )_y @@ -8922,7 +8922,7 @@ c & - 1 + noab * (h7b - 1 + noab * (h6b - 1))))))) END SUBROUTINE ccsdtq_2pdm_pphp_mo_8(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytt + = 1/4 * P( 4 ) * Sum ( h10 p12 ) * t ( p1 p12 h2 h10 )_t * i1 ( h10 p3 p4 p12 )_yt @@ -9131,7 +9131,7 @@ c END IF END SUBROUTINE ccsdtq_2pdm_pphp_mo_8_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p1 p3 p12 )_yt + = -1 * Sum ( h8 h9 p7 ) * t ( p1 p7 h8 h9 )_t * y ( h8 h9 h10 p3 p7 p12 )_y @@ -9486,7 +9486,7 @@ C i1 ( h10 p1 p3 p12 )_yt + = -1 * Sum ( h8 h9 p7 ) * t ( p1 p7 h8 h9 )_t * END SUBROUTINE OFFSET_ccsdtq_2pdm_pphp_mo_8_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p1 p3 p12 )_yt @@ -9558,7 +9558,7 @@ C i1 ( h10 p1 p3 p12 )_yt END SUBROUTINE ccsdtq_2pdm_pphp_mo_8_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p1 p3 p12 )_yt + = -1/6 * Sum ( h7 h8 h9 p5 p6 ) * t ( p1 p5 p6 h7 h8 h9 )_t * y ( h7 h8 h9 h10 p3 p5 p6 p12 )_y @@ -10299,7 +10299,7 @@ C i1 ( h10 p1 p3 p12 )_yt + = -1/6 * Sum ( h7 h8 h9 p5 p6 ) * t ( p1 p5 p6 h END SUBROUTINE ccsdtq_2pdm_pphp_mo_9(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytt + = 1/48 * Sum ( h7 h8 h9 h10 p5 p6 ) * t ( p1 p3 p5 p6 h7 h8 h9 h10 )_t * i1 ( h7 h8 h9 h10 h2 p4 p5 p6 )_yt @@ -10569,7 +10569,7 @@ C i0 ( p1 p3 h2 p4 )_ytt + = 1/48 * Sum ( h7 h8 h9 h10 p5 p6 ) * t ( p1 p3 p END SUBROUTINE ccsdtq_2pdm_pphp_mo_9_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h9 h10 h2 p1 p5 p6 )_yt + = -1/2 * P( 2 ) * Sum ( p11 ) * t ( p11 h2 )_t * y ( h7 h8 h9 h10 p1 p5 p6 p11 )_y @@ -10870,7 +10870,7 @@ c & + noab * (h7b - 1))))))))) END SUBROUTINE OFFSET_ccsdtq_2pdm_pphp_mo_9_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h9 h10 h2 p1 p5 p6 )_yt @@ -10973,7 +10973,7 @@ C i1 ( h7 h8 h9 h10 h2 p1 p5 p6 )_yt END SUBROUTINE ccsdtq_2pdm_pphp_mo_10(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytt + = -1/16 * P( 4 ) * Sum ( h7 h8 p5 p6 ) * t ( p1 p5 p6 h2 h7 h8 )_t * i1 ( h7 h8 p3 p4 p5 p6 )_yt @@ -11262,7 +11262,7 @@ c END IF END SUBROUTINE ccsdtq_2pdm_pphp_mo_10_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 p1 p3 p5 p6 )_yt + = 1 * Sum ( h10 h11 p9 ) * t ( p1 p9 h10 h11 )_t * y ( h7 h8 h10 h11 p3 p5 p6 p9 )_y @@ -12240,7 +12240,7 @@ C i1 ( h7 h8 p1 p3 p5 p6 )_yt + = 1 * Sum ( h10 h11 p9 ) * t ( p1 p9 h10 h11 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphp_mo_10_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 p1 p3 p5 p6 )_yt @@ -12328,7 +12328,7 @@ C i1 ( h7 h8 p1 p3 p5 p6 )_yt END SUBROUTINE ccsdtq_2pdm_pphp_mo_11(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_yttt + = -1/8 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * i1 ( h6 h7 p3 h2 p4 p5 )_ytt @@ -12519,7 +12519,7 @@ C i0 ( p1 p3 h2 p4 )_yttt + = -1/8 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p1 p5 h END SUBROUTINE ccsdtq_2pdm_pphp_mo_11_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 p1 h2 p3 p5 )_ytt + = -1 * Sum ( h9 h10 p8 ) * t ( p1 p8 h9 h10 )_t * i2 ( h6 h7 h9 h10 h2 p3 p5 p8 )_yt @@ -12834,7 +12834,7 @@ C i1 ( h6 h7 p1 h2 p3 p5 )_ytt + = -1 * Sum ( h9 h10 p8 ) * t ( p1 p8 h9 h10 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphp_mo_11_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 p1 h2 p3 p5 )_ytt @@ -12924,7 +12924,7 @@ C i1 ( h6 h7 p1 h2 p3 p5 )_ytt END SUBROUTINE ccsdtq_2pdm_pphp_mo_11_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h9 h10 h2 p1 p5 p8 )_yt + = 1/2 * P( 2 ) * Sum ( p11 ) * t ( p11 h2 )_t * y ( h6 h7 h9 h10 p1 p5 p8 p11 )_y @@ -13225,7 +13225,7 @@ c & + noab * (h6b - 1))))))))) END SUBROUTINE OFFSET_ccsdtq_2pdm_pphp_mo_11_1_1(l_a_offset,k_a_offset &,size) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h9 h10 h2 p1 p5 p8 )_yt diff --git a/src/tce/gradients/ccsdtq_2pdm_pppp_mo.F b/src/tce/gradients/ccsdtq_2pdm_pppp_mo.F index a0c7a275be..be8befdd6e 100644 --- a/src/tce/gradients/ccsdtq_2pdm_pppp_mo.F +++ b/src/tce/gradients/ccsdtq_2pdm_pppp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdtq_2pdm_pppp_mo(d_i0,d_t1,d_t2,d_t3,d_t4,d_y2,d_y3, &d_y4,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_t4_offset,k &_y2_offset,k_y3_offset,k_y4_offset) -C $Id: ccsdtq_2pdm_pppp_mo.F,v 1.1 2008-10-01 16:21:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( h5 h6 p3 p4 )_y @@ -78,7 +78,7 @@ C i1 ( h6 h7 p1 p2 p3 p5 )_yt + = 1 * Sum ( h9 h10 p8 ) * t ( p1 p8 h9 h END SUBROUTINE ccsdtq_2pdm_pppp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pppp_mo.F,v 1.1 2008-10-01 16:21:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( h5 h6 p3 p4 )_y @@ -241,7 +241,7 @@ C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( END SUBROUTINE ccsdtq_2pdm_pppp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pppp_mo.F,v 1.1 2008-10-01 16:21:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/6 * Sum ( h6 h7 h8 p5 ) * t ( p1 p2 p5 h6 h7 h8 )_t * y ( h6 h7 h8 p3 p4 p5 )_y @@ -462,7 +462,7 @@ C i0 ( p1 p2 p3 p4 )_yt + = 1/6 * Sum ( h6 h7 h8 p5 ) * t ( p1 p2 p5 h6 h7 h END SUBROUTINE ccsdtq_2pdm_pppp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pppp_mo.F,v 1.1 2008-10-01 16:21:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/48 * Sum ( h7 h8 h9 h10 p5 p6 ) * t ( p1 p2 p5 p6 h7 h8 h9 h10 )_t * y ( h7 h8 h9 h10 p3 p4 p5 p6 )_y @@ -784,7 +784,7 @@ C i0 ( p1 p2 p3 p4 )_yt + = 1/48 * Sum ( h7 h8 h9 h10 p5 p6 ) * t ( p1 p2 p5 END SUBROUTINE ccsdtq_2pdm_pppp_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pppp_mo.F,v 1.1 2008-10-01 16:21:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_ytt + = -1/2 * P( 2 ) * Sum ( h11 ) * t ( p1 h11 )_t * i1 ( h11 p2 p3 p4 )_yt @@ -938,7 +938,7 @@ C i0 ( p1 p2 p3 p4 )_ytt + = -1/2 * P( 2 ) * Sum ( h11 ) * t ( p1 h11 )_t * END SUBROUTINE ccsdtq_2pdm_pppp_mo_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pppp_mo.F,v 1.1 2008-10-01 16:21:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p1 p2 p3 )_yt + = 1 * Sum ( h6 ) * t ( p1 h6 )_t * y ( h6 h11 p2 p3 )_y @@ -1092,7 +1092,7 @@ C i1 ( h11 p1 p2 p3 )_yt + = 1 * Sum ( h6 ) * t ( p1 h6 )_t * y ( h6 h11 p2 END SUBROUTINE OFFSET_ccsdtq_2pdm_pppp_mo_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_pppp_mo.F,v 1.1 2008-10-01 16:21:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p1 p2 p3 )_yt @@ -1164,7 +1164,7 @@ C i1 ( h11 p1 p2 p3 )_yt END SUBROUTINE ccsdtq_2pdm_pppp_mo_4_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pppp_mo.F,v 1.1 2008-10-01 16:21:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p1 p2 p3 )_yt + = -1 * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * y ( h6 h7 h11 p2 p3 p5 )_y @@ -1425,7 +1425,7 @@ C i1 ( h11 p1 p2 p3 )_yt + = -1 * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * y END SUBROUTINE ccsdtq_2pdm_pppp_mo_4_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pppp_mo.F,v 1.1 2008-10-01 16:21:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p1 p2 p3 )_yt + = 1/6 * Sum ( h7 h8 h9 p5 p6 ) * t ( p1 p5 p6 h7 h8 h9 )_t * y ( h7 h8 h9 h11 p2 p3 p5 p6 )_y @@ -1898,7 +1898,7 @@ C i1 ( h11 p1 p2 p3 )_yt + = 1/6 * Sum ( h7 h8 h9 p5 p6 ) * t ( p1 p5 p6 h7 END SUBROUTINE ccsdtq_2pdm_pppp_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pppp_mo.F,v 1.1 2008-10-01 16:21:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_ytt + = -1/8 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * i1 ( h6 h7 p2 p3 p4 p5 )_yt @@ -2090,7 +2090,7 @@ C i0 ( p1 p2 p3 p4 )_ytt + = -1/8 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 END SUBROUTINE ccsdtq_2pdm_pppp_mo_5_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pppp_mo.F,v 1.1 2008-10-01 16:21:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 p1 p2 p3 p5 )_yt + = 1 * Sum ( h9 h10 p8 ) * t ( p1 p8 h9 h10 )_t * y ( h6 h7 h9 h10 p2 p3 p5 p8 )_y @@ -3062,7 +3062,7 @@ C i1 ( h6 h7 p1 p2 p3 p5 )_yt + = 1 * Sum ( h9 h10 p8 ) * t ( p1 p8 h9 h10 ) END SUBROUTINE OFFSET_ccsdtq_2pdm_pppp_mo_5_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_pppp_mo.F,v 1.1 2008-10-01 16:21:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 p1 p2 p3 p5 )_yt diff --git a/src/tce/gradients/cis_1pdm_hh_mo.F b/src/tce/gradients/cis_1pdm_hh_mo.F index 7d39d39c9f..b1905ae93c 100644 --- a/src/tce/gradients/cis_1pdm_hh_mo.F +++ b/src/tce/gradients/cis_1pdm_hh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cis_1pdm_hh_mo(d_i0,d_x1,d_y1,k_i0_offset,k_x1_offset,k &_y1_offset) -C $Id: cis_1pdm_hh_mo.F,v 1.1 2008-10-02 23:14:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yx + = -1 * Sum ( p3 ) * x ( p3 h1 )_x * y ( h2 p3 )_y @@ -22,7 +22,7 @@ C i0 ( h2 h1 )_yx + = -1 * Sum ( p3 ) * x ( p3 h1 )_x * y ( h2 p3 )_y END SUBROUTINE cis_1pdm_hh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: cis_1pdm_hh_mo.F,v 1.1 2008-10-02 23:14:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yx + = -1 * Sum ( p3 ) * x ( p3 h1 )_x * y ( h2 p3 )_y diff --git a/src/tce/gradients/cis_1pdm_pp_mo.F b/src/tce/gradients/cis_1pdm_pp_mo.F index ecdc58dbcf..a290894920 100644 --- a/src/tce/gradients/cis_1pdm_pp_mo.F +++ b/src/tce/gradients/cis_1pdm_pp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cis_1pdm_pp_mo(d_i0,d_x1,d_y1,k_i0_offset,k_x1_offset,k &_y1_offset) -C $Id: cis_1pdm_pp_mo.F,v 1.1 2008-10-02 23:15:20 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yx + = 1 * Sum ( h3 ) * x ( p1 h3 )_x * y ( h3 p2 )_y @@ -22,7 +22,7 @@ C i0 ( p1 p2 )_yx + = 1 * Sum ( h3 ) * x ( p1 h3 )_x * y ( h3 p2 )_y END SUBROUTINE cis_1pdm_pp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: cis_1pdm_pp_mo.F,v 1.1 2008-10-02 23:15:20 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yx + = 1 * Sum ( h3 ) * x ( p1 h3 )_x * y ( h3 p2 )_y diff --git a/src/tce/gradients/cis_2pdm_hphp_mo.F b/src/tce/gradients/cis_2pdm_hphp_mo.F index 4c5f297e18..445d22f7a3 100644 --- a/src/tce/gradients/cis_2pdm_hphp_mo.F +++ b/src/tce/gradients/cis_2pdm_hphp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cis_2pdm_hphp_mo(d_i0,d_x1,d_y1,k_i0_offset,k_x1_offset &,k_y1_offset) -C $Id: cis_2pdm_hphp_mo.F,v 1.1 2008-10-02 23:16:04 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yx + = -1/4 * P( 4 ) * x ( p2 h1 )_x * y ( h3 p4 )_y @@ -22,7 +22,7 @@ C i0 ( h3 p2 h1 p4 )_yx + = -1/4 * P( 4 ) * x ( p2 h1 )_x * y ( h3 p4 )_y END SUBROUTINE cis_2pdm_hphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: cis_2pdm_hphp_mo.F,v 1.1 2008-10-02 23:16:04 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yx + = -1/4 * P( 4 ) * x ( p2 h1 )_x * y ( h3 p4 )_y diff --git a/src/tce/gradients/cis_x1.F b/src/tce/gradients/cis_x1.F index d221806e34..59aae141c8 100644 --- a/src/tce/gradients/cis_x1.F +++ b/src/tce/gradients/cis_x1.F @@ -1,6 +1,6 @@ SUBROUTINE cis_x1(d_f1,d_i0,d_v2,d_x1,k_f1_offset,k_i0_offset,k_v2 &_offset,k_x1_offset) -C $Id: cis_x1.F,v 1.1 2008-10-02 23:16:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = -1 * Sum ( h3 ) * x ( p2 h3 )_x * f ( h3 h1 )_f @@ -26,7 +26,7 @@ C i0 ( p2 h1 )_xv + = -1 * Sum ( p4 h3 ) * x ( p4 h3 )_x * v ( h3 p2 h1 p4 ) RETURN END SUBROUTINE cis_x1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cis_x1.F,v 1.1 2008-10-02 23:16:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = -1 * Sum ( h3 ) * x ( p2 h3 )_x * f ( h3 h1 )_f @@ -148,7 +148,7 @@ C i0 ( p2 h1 )_xf + = -1 * Sum ( h3 ) * x ( p2 h3 )_x * f ( h3 h1 )_f RETURN END SUBROUTINE cis_x1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cis_x1.F,v 1.1 2008-10-02 23:16:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * f ( p2 p3 )_f @@ -270,7 +270,7 @@ C i0 ( p2 h1 )_xf + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * f ( p2 p3 )_f RETURN END SUBROUTINE cis_x1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cis_x1.F,v 1.1 2008-10-02 23:16:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xv + = -1 * Sum ( p4 h3 ) * x ( p4 h3 )_x * v ( h3 p2 h1 p4 )_v diff --git a/src/tce/gradients/cis_xdiagon.F b/src/tce/gradients/cis_xdiagon.F index fc5f2f5f0f..aa84b80d6a 100644 --- a/src/tce/gradients/cis_xdiagon.F +++ b/src/tce/gradients/cis_xdiagon.F @@ -1,6 +1,6 @@ subroutine cis_xdiagon(size_x1,k_x1_offset,d_r1,omega,residual) c -c $Id: cis_xdiagon.F,v 1.2 2008-10-03 17:44:21 d3p975 Exp $ +c $Id$ c c Form a subspace matrix and diagonalize c diff --git a/src/tce/gradients/cis_xguess.F b/src/tce/gradients/cis_xguess.F index 54bfebff8d..547d2a6e0c 100644 --- a/src/tce/gradients/cis_xguess.F +++ b/src/tce/gradients/cis_xguess.F @@ -1,6 +1,6 @@ subroutine cis_xguess(size_x1,k_x1_offset) c -c $Id: cis_xguess.F,v 1.1 2008-10-02 23:18:24 d3p975 Exp $ +c $Id$ c c Generates initial trial vectors that are all singly excited c determinants within the same irrep_x diff --git a/src/tce/gradients/cis_xtidy.F b/src/tce/gradients/cis_xtidy.F index ba157a6430..f360f14374 100644 --- a/src/tce/gradients/cis_xtidy.F +++ b/src/tce/gradients/cis_xtidy.F @@ -1,6 +1,6 @@ subroutine cis_xtidy c -c $Id: cis_xtidy.F,v 1.1 2008-10-02 23:18:44 d3p975 Exp $ +c $Id$ c c Delete files for trial and product vectors c diff --git a/src/tce/gradients/cisd_1pdm_hh_mo.F b/src/tce/gradients/cisd_1pdm_hh_mo.F index 7f6549cde1..b1750a4248 100644 --- a/src/tce/gradients/cisd_1pdm_hh_mo.F +++ b/src/tce/gradients/cisd_1pdm_hh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisd_1pdm_hh_mo(d_i0,d_t1,d_t2,d_y1,d_y2,k_i0_offset,k_ &t1_offset,k_t2_offset,k_y1_offset,k_y2_offset) -C $Id: cisd_1pdm_hh_mo.F,v 1.1 2008-10-01 18:48:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -29,7 +29,7 @@ C i0 ( h2 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 END SUBROUTINE cisd_1pdm_hh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: cisd_1pdm_hh_mo.F,v 1.1 2008-10-01 18:48:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -157,7 +157,7 @@ C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y END SUBROUTINE cisd_1pdm_hh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: cisd_1pdm_hh_mo.F,v 1.1 2008-10-01 18:48:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 h5 p3 p4 )_y diff --git a/src/tce/gradients/cisd_1pdm_pp_mo.F b/src/tce/gradients/cisd_1pdm_pp_mo.F index 6d578abf90..642de52c27 100644 --- a/src/tce/gradients/cisd_1pdm_pp_mo.F +++ b/src/tce/gradients/cisd_1pdm_pp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisd_1pdm_pp_mo(d_i0,d_t1,d_t2,d_y1,d_y2,k_i0_offset,k_ &t1_offset,k_t2_offset,k_y1_offset,k_y2_offset) -C $Id: cisd_1pdm_pp_mo.F,v 1.1 2008-10-01 18:49:00 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y @@ -29,7 +29,7 @@ C i0 ( p1 p2 )_yt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * y ( h4 END SUBROUTINE cisd_1pdm_pp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: cisd_1pdm_pp_mo.F,v 1.1 2008-10-01 18:49:00 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y @@ -157,7 +157,7 @@ C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y END SUBROUTINE cisd_1pdm_pp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: cisd_1pdm_pp_mo.F,v 1.1 2008-10-01 18:49:00 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * y ( h4 h5 p2 p3 )_y diff --git a/src/tce/gradients/cisd_2pdm_hhhh_mo.F b/src/tce/gradients/cisd_2pdm_hhhh_mo.F index 8d1d7b4d88..1eeec673f2 100644 --- a/src/tce/gradients/cisd_2pdm_hhhh_mo.F +++ b/src/tce/gradients/cisd_2pdm_hhhh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisd_2pdm_hhhh_mo(d_i0,d_t2,d_y2,k_i0_offset,k_t2_offse &t,k_y2_offset) -C $Id: cisd_2pdm_hhhh_mo.F,v 1.1 2008-10-01 18:49:43 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h3 h4 p5 p6 )_y @@ -22,7 +22,7 @@ C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( END SUBROUTINE cisd_2pdm_hhhh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisd_2pdm_hhhh_mo.F,v 1.1 2008-10-01 18:49:43 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h3 h4 p5 p6 )_y diff --git a/src/tce/gradients/cisd_2pdm_hhhp_mo.F b/src/tce/gradients/cisd_2pdm_hhhp_mo.F index 721bbdcca9..06d26a2247 100644 --- a/src/tce/gradients/cisd_2pdm_hhhp_mo.F +++ b/src/tce/gradients/cisd_2pdm_hhhp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisd_2pdm_hhhp_mo(d_i0,d_t1,d_y2,k_i0_offset,k_t1_offse &t,k_y2_offset) -C $Id: cisd_2pdm_hhhp_mo.F,v 1.1 2008-10-01 18:49:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 p2 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * y ( h3 h4 p2 p5 )_y @@ -22,7 +22,7 @@ C i0 ( h3 h4 h1 p2 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * y ( END SUBROUTINE cisd_2pdm_hhhp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisd_2pdm_hhhp_mo.F,v 1.1 2008-10-01 18:49:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 p2 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * y ( h3 h4 p2 p5 )_y diff --git a/src/tce/gradients/cisd_2pdm_hhpp_mo.F b/src/tce/gradients/cisd_2pdm_hhpp_mo.F index 496a45c5f2..71659e49d3 100644 --- a/src/tce/gradients/cisd_2pdm_hhpp_mo.F +++ b/src/tce/gradients/cisd_2pdm_hhpp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisd_2pdm_hhpp_mo(d_i0,d_t0,d_y2,k_i0_offset,k_t0_offse &t,k_y2_offset) -C $Id: cisd_2pdm_hhpp_mo.F,v 1.1 2008-10-01 18:50:16 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yt + = 1 * t ( )_t * y ( h3 h4 p1 p2 )_y @@ -22,7 +22,7 @@ C i0 ( h3 h4 p1 p2 )_yt + = 1 * t ( )_t * y ( h3 h4 p1 p2 )_y END SUBROUTINE cisd_2pdm_hhpp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisd_2pdm_hhpp_mo.F,v 1.1 2008-10-01 18:50:16 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yt + = 1 * t ( )_t * y ( h3 h4 p1 p2 )_y diff --git a/src/tce/gradients/cisd_2pdm_hphh_mo.F b/src/tce/gradients/cisd_2pdm_hphh_mo.F index e5acdd946a..c7d5aa57e9 100644 --- a/src/tce/gradients/cisd_2pdm_hphh_mo.F +++ b/src/tce/gradients/cisd_2pdm_hphh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisd_2pdm_hphh_mo(d_i0,d_t2,d_y1,k_i0_offset,k_t2_offse &t,k_y1_offset) -C $Id: cisd_2pdm_hphh_mo.F,v 1.1 2008-10-01 18:50:41 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p4 h1 h2 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p4 p5 h1 h2 )_t * y ( h3 p5 )_y @@ -22,7 +22,7 @@ C i0 ( h3 p4 h1 h2 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p4 p5 h1 h2 )_t END SUBROUTINE cisd_2pdm_hphh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisd_2pdm_hphh_mo.F,v 1.1 2008-10-01 18:50:41 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p4 h1 h2 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p4 p5 h1 h2 )_t * y ( h3 p5 )_y diff --git a/src/tce/gradients/cisd_2pdm_hphp_mo.F b/src/tce/gradients/cisd_2pdm_hphp_mo.F index 51646af746..dbeb425811 100644 --- a/src/tce/gradients/cisd_2pdm_hphp_mo.F +++ b/src/tce/gradients/cisd_2pdm_hphp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisd_2pdm_hphp_mo(d_i0,d_t1,d_t2,d_y1,d_y2,k_i0_offset, &k_t1_offset,k_t2_offset,k_y1_offset,k_y2_offset) -C $Id: cisd_2pdm_hphp_mo.F,v 1.1 2008-10-01 18:51:00 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yt + = -1/4 * P( 4 ) * t ( p2 h1 )_t * y ( h3 p4 )_y @@ -29,7 +29,7 @@ C i0 ( h3 p2 h1 p4 )_yt + = -1/4 * P( 4 ) * Sum ( h6 p5 ) * t ( p2 p5 h1 h6 END SUBROUTINE cisd_2pdm_hphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisd_2pdm_hphp_mo.F,v 1.1 2008-10-01 18:51:00 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yt + = -1/4 * P( 4 ) * t ( p2 h1 )_t * y ( h3 p4 )_y @@ -186,7 +186,7 @@ c & - 1))))) END SUBROUTINE cisd_2pdm_hphp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisd_2pdm_hphp_mo.F,v 1.1 2008-10-01 18:51:00 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yt + = -1/4 * P( 4 ) * Sum ( h6 p5 ) * t ( p2 p5 h1 h6 )_t * y ( h3 h6 p4 p5 )_y diff --git a/src/tce/gradients/cisd_2pdm_hppp_mo.F b/src/tce/gradients/cisd_2pdm_hppp_mo.F index 8d659a8a67..22de7a8398 100644 --- a/src/tce/gradients/cisd_2pdm_hppp_mo.F +++ b/src/tce/gradients/cisd_2pdm_hppp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisd_2pdm_hppp_mo(d_i0,d_t1,d_y2,k_i0_offset,k_t1_offse &t,k_y2_offset) -C $Id: cisd_2pdm_hppp_mo.F,v 1.1 2008-10-01 18:51:17 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p1 p2 p4 )_yt + = 1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * y ( h3 h5 p2 p4 )_y @@ -22,7 +22,7 @@ C i0 ( h3 p1 p2 p4 )_yt + = 1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * y ( END SUBROUTINE cisd_2pdm_hppp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisd_2pdm_hppp_mo.F,v 1.1 2008-10-01 18:51:17 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p1 p2 p4 )_yt + = 1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * y ( h3 h5 p2 p4 )_y diff --git a/src/tce/gradients/cisd_2pdm_pphh_mo.F b/src/tce/gradients/cisd_2pdm_pphh_mo.F index 87c7edc2d5..8e227dfbe7 100644 --- a/src/tce/gradients/cisd_2pdm_pphh_mo.F +++ b/src/tce/gradients/cisd_2pdm_pphh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisd_2pdm_pphh_mo(d_i0,d_t2,d_y0,k_i0_offset,k_t2_offse &t,k_y0_offset) -C $Id: cisd_2pdm_pphh_mo.F,v 1.1 2008-10-01 18:51:36 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt + = 1 * t ( p3 p4 h1 h2 )_t * y ( )_y @@ -22,7 +22,7 @@ C i0 ( p3 p4 h1 h2 )_yt + = 1 * t ( p3 p4 h1 h2 )_t * y ( )_y END SUBROUTINE cisd_2pdm_pphh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisd_2pdm_pphh_mo.F,v 1.1 2008-10-01 18:51:36 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt + = 1 * t ( p3 p4 h1 h2 )_t * y ( )_y diff --git a/src/tce/gradients/cisd_2pdm_pphp_mo.F b/src/tce/gradients/cisd_2pdm_pphp_mo.F index 6f3649e604..34bbda621c 100644 --- a/src/tce/gradients/cisd_2pdm_pphp_mo.F +++ b/src/tce/gradients/cisd_2pdm_pphp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisd_2pdm_pphp_mo(d_i0,d_t2,d_y1,k_i0_offset,k_t2_offse &t,k_y1_offset) -C $Id: cisd_2pdm_pphp_mo.F,v 1.1 2008-10-01 18:51:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p3 h1 p4 )_yt + = 1/2 * P( 2 ) * Sum ( h5 ) * t ( p2 p3 h1 h5 )_t * y ( h5 p4 )_y @@ -22,7 +22,7 @@ C i0 ( p2 p3 h1 p4 )_yt + = 1/2 * P( 2 ) * Sum ( h5 ) * t ( p2 p3 h1 h5 )_t END SUBROUTINE cisd_2pdm_pphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisd_2pdm_pphp_mo.F,v 1.1 2008-10-01 18:51:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p3 h1 p4 )_yt + = 1/2 * P( 2 ) * Sum ( h5 ) * t ( p2 p3 h1 h5 )_t * y ( h5 p4 )_y diff --git a/src/tce/gradients/cisd_2pdm_pppp_mo.F b/src/tce/gradients/cisd_2pdm_pppp_mo.F index ae6f18bc4f..dcacc42415 100644 --- a/src/tce/gradients/cisd_2pdm_pppp_mo.F +++ b/src/tce/gradients/cisd_2pdm_pppp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisd_2pdm_pppp_mo(d_i0,d_t2,d_y2,k_i0_offset,k_t2_offse &t,k_y2_offset) -C $Id: cisd_2pdm_pppp_mo.F,v 1.1 2008-10-01 18:52:24 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( h5 h6 p3 p4 )_y @@ -22,7 +22,7 @@ C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( END SUBROUTINE cisd_2pdm_pppp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisd_2pdm_pppp_mo.F,v 1.1 2008-10-01 18:52:24 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( h5 h6 p3 p4 )_y diff --git a/src/tce/gradients/cisdt_1pdm_hh_mo.F b/src/tce/gradients/cisdt_1pdm_hh_mo.F index 7098c9b644..a0960e40e0 100644 --- a/src/tce/gradients/cisdt_1pdm_hh_mo.F +++ b/src/tce/gradients/cisdt_1pdm_hh_mo.F @@ -1,7 +1,7 @@ SUBROUTINE cisdt_1pdm_hh_mo(d_i0,d_t1,d_t2,d_t3,d_y1,d_y2,d_y3,k_i &0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y1_offset,k_y2_offs &et,k_y3_offset) -C $Id: cisdt_1pdm_hh_mo.F,v 1.1 2008-10-01 20:49:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -37,7 +37,7 @@ C i0 ( h2 h1 )_yt + = -1/12 * Sum ( h6 h7 p3 p4 p5 ) * t ( p3 p4 p5 h1 h6 h7 END SUBROUTINE cisdt_1pdm_hh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: cisdt_1pdm_hh_mo.F,v 1.1 2008-10-01 20:49:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -165,7 +165,7 @@ C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y END SUBROUTINE cisdt_1pdm_hh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: cisdt_1pdm_hh_mo.F,v 1.1 2008-10-01 20:49:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 h5 p3 p4 )_y @@ -341,7 +341,7 @@ C i0 ( h2 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 END SUBROUTINE cisdt_1pdm_hh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: cisdt_1pdm_hh_mo.F,v 1.1 2008-10-01 20:49:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1/12 * Sum ( h6 h7 p3 p4 p5 ) * t ( p3 p4 p5 h1 h6 h7 )_t * y ( h2 h6 h7 p3 p4 p5 )_y diff --git a/src/tce/gradients/cisdt_1pdm_pp_mo.F b/src/tce/gradients/cisdt_1pdm_pp_mo.F index 65f4d590e4..9cfe769f55 100644 --- a/src/tce/gradients/cisdt_1pdm_pp_mo.F +++ b/src/tce/gradients/cisdt_1pdm_pp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE cisdt_1pdm_pp_mo(d_i0,d_t1,d_t2,d_t3,d_y1,d_y2,d_y3,k_i &0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y1_offset,k_y2_offs &et,k_y3_offset) -C $Id: cisdt_1pdm_pp_mo.F,v 1.1 2008-10-01 20:50:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y @@ -37,7 +37,7 @@ C i0 ( p1 p2 )_yt + = 1/12 * Sum ( h5 h6 h7 p3 p4 ) * t ( p1 p3 p4 h5 h6 h7 END SUBROUTINE cisdt_1pdm_pp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: cisdt_1pdm_pp_mo.F,v 1.1 2008-10-01 20:50:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y @@ -165,7 +165,7 @@ C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y END SUBROUTINE cisdt_1pdm_pp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: cisdt_1pdm_pp_mo.F,v 1.1 2008-10-01 20:50:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * y ( h4 h5 p2 p3 )_y @@ -341,7 +341,7 @@ C i0 ( p1 p2 )_yt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * y ( h4 END SUBROUTINE cisdt_1pdm_pp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: cisdt_1pdm_pp_mo.F,v 1.1 2008-10-01 20:50:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1/12 * Sum ( h5 h6 h7 p3 p4 ) * t ( p1 p3 p4 h5 h6 h7 )_t * y ( h5 h6 h7 p2 p3 p4 )_y diff --git a/src/tce/gradients/cisdt_2pdm_hhhh_mo.F b/src/tce/gradients/cisdt_2pdm_hhhh_mo.F index 585f9573fc..0507cce320 100644 --- a/src/tce/gradients/cisdt_2pdm_hhhh_mo.F +++ b/src/tce/gradients/cisdt_2pdm_hhhh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisdt_2pdm_hhhh_mo(d_i0,d_t2,d_t3,d_y2,d_y3,k_i0_offset &,k_t2_offset,k_t3_offset,k_y2_offset,k_y3_offset) -C $Id: cisdt_2pdm_hhhh_mo.F,v 1.1 2008-10-01 20:52:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h3 h4 p5 p6 )_y @@ -29,7 +29,7 @@ C i0 ( h3 h4 h1 h2 )_yt + = 1/6 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 h END SUBROUTINE cisdt_2pdm_hhhh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_hhhh_mo.F,v 1.1 2008-10-01 20:52:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h3 h4 p5 p6 )_y @@ -191,7 +191,7 @@ C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( END SUBROUTINE cisdt_2pdm_hhhh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_hhhh_mo.F,v 1.1 2008-10-01 20:52:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/6 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 h8 )_t * y ( h3 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/gradients/cisdt_2pdm_hhhp_mo.F b/src/tce/gradients/cisdt_2pdm_hhhp_mo.F index 65bc97f266..8dad333263 100644 --- a/src/tce/gradients/cisdt_2pdm_hhhp_mo.F +++ b/src/tce/gradients/cisdt_2pdm_hhhp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisdt_2pdm_hhhp_mo(d_i0,d_t1,d_t2,d_y2,d_y3,k_i0_offset &,k_t1_offset,k_t2_offset,k_y2_offset,k_y3_offset) -C $Id: cisdt_2pdm_hhhp_mo.F,v 1.1 2008-10-01 20:52:16 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 p2 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * y ( h3 h4 p2 p5 )_y @@ -29,7 +29,7 @@ C i0 ( h3 h4 h1 p2 )_yt + = 1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h END SUBROUTINE cisdt_2pdm_hhhp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_hhhp_mo.F,v 1.1 2008-10-01 20:52:16 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 p2 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * y ( h3 h4 p2 p5 )_y @@ -192,7 +192,7 @@ c &)) END SUBROUTINE cisdt_2pdm_hhhp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_hhhp_mo.F,v 1.1 2008-10-01 20:52:16 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 p2 )_yt + = 1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h3 h4 h7 p2 p5 p6 )_y diff --git a/src/tce/gradients/cisdt_2pdm_hhpp_mo.F b/src/tce/gradients/cisdt_2pdm_hhpp_mo.F index 22f72be554..d5fe97d87a 100644 --- a/src/tce/gradients/cisdt_2pdm_hhpp_mo.F +++ b/src/tce/gradients/cisdt_2pdm_hhpp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisdt_2pdm_hhpp_mo(d_i0,d_t0,d_t1,d_y2,d_y3,k_i0_offset &,k_t0_offset,k_t1_offset,k_y2_offset,k_y3_offset) -C $Id: cisdt_2pdm_hhpp_mo.F,v 1.1 2008-10-01 20:52:36 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yt + = 1 * t ( )_t * y ( h3 h4 p1 p2 )_y @@ -29,7 +29,7 @@ C i0 ( h3 h4 p1 p2 )_yt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * y ( h3 h4 h6 END SUBROUTINE cisdt_2pdm_hhpp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_hhpp_mo.F,v 1.1 2008-10-01 20:52:36 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yt + = 1 * t ( )_t * y ( h3 h4 p1 p2 )_y @@ -162,7 +162,7 @@ C i0 ( h3 h4 p1 p2 )_yt + = 1 * t ( )_t * y ( h3 h4 p1 p2 )_y END SUBROUTINE cisdt_2pdm_hhpp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_hhpp_mo.F,v 1.1 2008-10-01 20:52:36 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * y ( h3 h4 h6 p1 p2 p5 )_y diff --git a/src/tce/gradients/cisdt_2pdm_hphh_mo.F b/src/tce/gradients/cisdt_2pdm_hphh_mo.F index 889ed224f7..19acb23808 100644 --- a/src/tce/gradients/cisdt_2pdm_hphh_mo.F +++ b/src/tce/gradients/cisdt_2pdm_hphh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisdt_2pdm_hphh_mo(d_i0,d_t2,d_t3,d_y1,d_y2,k_i0_offset &,k_t2_offset,k_t3_offset,k_y1_offset,k_y2_offset) -C $Id: cisdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 20:53:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p4 h1 h2 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p4 p5 h1 h2 )_t * y ( h3 p5 )_y @@ -29,7 +29,7 @@ C i0 ( h3 p4 h1 h2 )_yt + = 1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p4 p5 p6 h END SUBROUTINE cisdt_2pdm_hphh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 20:53:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p4 h1 h2 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p4 p5 h1 h2 )_t * y ( h3 p5 )_y @@ -193,7 +193,7 @@ c &)) END SUBROUTINE cisdt_2pdm_hphh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 20:53:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p4 h1 h2 )_yt + = 1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p4 p5 p6 h1 h2 h7 )_t * y ( h3 h7 p5 p6 )_y diff --git a/src/tce/gradients/cisdt_2pdm_hphp_mo.F b/src/tce/gradients/cisdt_2pdm_hphp_mo.F index e5740049d6..90ef96e076 100644 --- a/src/tce/gradients/cisdt_2pdm_hphp_mo.F +++ b/src/tce/gradients/cisdt_2pdm_hphp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE cisdt_2pdm_hphp_mo(d_i0,d_t1,d_t2,d_t3,d_y1,d_y2,d_y3,k &_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y1_offset,k_y2_of &fset,k_y3_offset) -C $Id: cisdt_2pdm_hphp_mo.F,v 1.1 2008-10-01 20:53:24 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yt + = -1/4 * P( 4 ) * t ( p2 h1 )_t * y ( h3 p4 )_y @@ -37,7 +37,7 @@ C i0 ( h3 p2 h1 p4 )_yt + = -1/16 * P( 4 ) * Sum ( h7 h8 p5 p6 ) * t ( p2 p5 END SUBROUTINE cisdt_2pdm_hphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_hphp_mo.F,v 1.1 2008-10-01 20:53:24 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yt + = -1/4 * P( 4 ) * t ( p2 h1 )_t * y ( h3 p4 )_y @@ -194,7 +194,7 @@ c & - 1))))) END SUBROUTINE cisdt_2pdm_hphp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_hphp_mo.F,v 1.1 2008-10-01 20:53:24 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yt + = -1/4 * P( 4 ) * Sum ( h6 p5 ) * t ( p2 p5 h1 h6 )_t * y ( h3 h6 p4 p5 )_y @@ -418,7 +418,7 @@ c & - 1))))) END SUBROUTINE cisdt_2pdm_hphp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_hphp_mo.F,v 1.1 2008-10-01 20:53:24 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yt + = -1/16 * P( 4 ) * Sum ( h7 h8 p5 p6 ) * t ( p2 p5 p6 h1 h7 h8 )_t * y ( h3 h7 h8 p4 p5 p6 )_y diff --git a/src/tce/gradients/cisdt_2pdm_hppp_mo.F b/src/tce/gradients/cisdt_2pdm_hppp_mo.F index a804859364..c1ef9771f6 100644 --- a/src/tce/gradients/cisdt_2pdm_hppp_mo.F +++ b/src/tce/gradients/cisdt_2pdm_hppp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisdt_2pdm_hppp_mo(d_i0,d_t1,d_t2,d_y2,d_y3,k_i0_offset &,k_t1_offset,k_t2_offset,k_y2_offset,k_y3_offset) -C $Id: cisdt_2pdm_hppp_mo.F,v 1.1 2008-10-01 20:53:43 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p1 p2 p4 )_yt + = 1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * y ( h3 h5 p2 p4 )_y @@ -29,7 +29,7 @@ C i0 ( h3 p1 p2 p4 )_yt + = 1/4 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h END SUBROUTINE cisdt_2pdm_hppp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_hppp_mo.F,v 1.1 2008-10-01 20:53:43 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p1 p2 p4 )_yt + = 1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * y ( h3 h5 p2 p4 )_y @@ -192,7 +192,7 @@ c & - noab - 1))))) END SUBROUTINE cisdt_2pdm_hppp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_hppp_mo.F,v 1.1 2008-10-01 20:53:43 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p1 p2 p4 )_yt + = 1/4 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * y ( h3 h6 h7 p2 p4 p5 )_y diff --git a/src/tce/gradients/cisdt_2pdm_pphh_mo.F b/src/tce/gradients/cisdt_2pdm_pphh_mo.F index 650e8a8305..6714e0d2c4 100644 --- a/src/tce/gradients/cisdt_2pdm_pphh_mo.F +++ b/src/tce/gradients/cisdt_2pdm_pphh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisdt_2pdm_pphh_mo(d_i0,d_t2,d_t3,d_y0,d_y1,k_i0_offset &,k_t2_offset,k_t3_offset,k_y0_offset,k_y1_offset) -C $Id: cisdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 20:54:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt + = 1 * t ( p3 p4 h1 h2 )_t * y ( )_y @@ -29,7 +29,7 @@ C i0 ( p3 p4 h1 h2 )_yt + = 1 * Sum ( h6 p5 ) * t ( p3 p4 p5 h1 h2 h6 )_t * END SUBROUTINE cisdt_2pdm_pphh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 20:54:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt + = 1 * t ( p3 p4 h1 h2 )_t * y ( )_y @@ -166,7 +166,7 @@ C i0 ( p3 p4 h1 h2 )_yt + = 1 * t ( p3 p4 h1 h2 )_t * y ( )_y END SUBROUTINE cisdt_2pdm_pphh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 20:54:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt + = 1 * Sum ( h6 p5 ) * t ( p3 p4 p5 h1 h2 h6 )_t * y ( h6 p5 )_y diff --git a/src/tce/gradients/cisdt_2pdm_pphp_mo.F b/src/tce/gradients/cisdt_2pdm_pphp_mo.F index 905f6ae200..8d23d533f6 100644 --- a/src/tce/gradients/cisdt_2pdm_pphp_mo.F +++ b/src/tce/gradients/cisdt_2pdm_pphp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisdt_2pdm_pphp_mo(d_i0,d_t2,d_t3,d_y1,d_y2,k_i0_offset &,k_t2_offset,k_t3_offset,k_y1_offset,k_y2_offset) -C $Id: cisdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 20:54:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p3 h1 p4 )_yt + = 1/2 * P( 2 ) * Sum ( h5 ) * t ( p2 p3 h1 h5 )_t * y ( h5 p4 )_y @@ -29,7 +29,7 @@ C i0 ( p2 p3 h1 p4 )_yt + = 1/4 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p2 p3 p5 h END SUBROUTINE cisdt_2pdm_pphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 20:54:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p3 h1 p4 )_yt + = 1/2 * P( 2 ) * Sum ( h5 ) * t ( p2 p3 h1 h5 )_t * y ( h5 p4 )_y @@ -193,7 +193,7 @@ c & - noab - 1))))) END SUBROUTINE cisdt_2pdm_pphp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 20:54:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p3 h1 p4 )_yt + = 1/4 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p2 p3 p5 h1 h6 h7 )_t * y ( h6 h7 p4 p5 )_y diff --git a/src/tce/gradients/cisdt_2pdm_pppp_mo.F b/src/tce/gradients/cisdt_2pdm_pppp_mo.F index 02b3747cf4..24db3cf293 100644 --- a/src/tce/gradients/cisdt_2pdm_pppp_mo.F +++ b/src/tce/gradients/cisdt_2pdm_pppp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisdt_2pdm_pppp_mo(d_i0,d_t2,d_t3,d_y2,d_y3,k_i0_offset &,k_t2_offset,k_t3_offset,k_y2_offset,k_y3_offset) -C $Id: cisdt_2pdm_pppp_mo.F,v 1.1 2008-10-01 20:54:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( h5 h6 p3 p4 )_y @@ -29,7 +29,7 @@ C i0 ( p1 p2 p3 p4 )_yt + = 1/6 * Sum ( h6 h7 h8 p5 ) * t ( p1 p2 p5 h6 h7 h END SUBROUTINE cisdt_2pdm_pppp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_pppp_mo.F,v 1.1 2008-10-01 20:54:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( h5 h6 p3 p4 )_y @@ -192,7 +192,7 @@ C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( END SUBROUTINE cisdt_2pdm_pppp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_pppp_mo.F,v 1.1 2008-10-01 20:54:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/6 * Sum ( h6 h7 h8 p5 ) * t ( p1 p2 p5 h6 h7 h8 )_t * y ( h6 h7 h8 p3 p4 p5 )_y diff --git a/src/tce/gradients/cisdtq_1pdm_hh_mo.F b/src/tce/gradients/cisdtq_1pdm_hh_mo.F index 2b6071ff67..f9192290f3 100644 --- a/src/tce/gradients/cisdtq_1pdm_hh_mo.F +++ b/src/tce/gradients/cisdtq_1pdm_hh_mo.F @@ -1,7 +1,7 @@ SUBROUTINE cisdtq_1pdm_hh_mo(d_i0,d_t1,d_t2,d_t3,d_t4,d_y1,d_y2,d_ &y3,d_y4,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_t4_offse &t,k_y1_offset,k_y2_offset,k_y3_offset,k_y4_offset) -C $Id: cisdtq_1pdm_hh_mo.F,v 1.1 2008-10-01 22:19:07 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -44,7 +44,7 @@ C i0 ( h2 h1 )_yt + = -1/144 * Sum ( h7 h8 h9 p3 p4 p5 p6 ) * t ( p3 p4 p5 p END SUBROUTINE cisdtq_1pdm_hh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisdtq_1pdm_hh_mo.F,v 1.1 2008-10-01 22:19:07 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -172,7 +172,7 @@ C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y END SUBROUTINE cisdtq_1pdm_hh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisdtq_1pdm_hh_mo.F,v 1.1 2008-10-01 22:19:07 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 h5 p3 p4 )_y @@ -348,7 +348,7 @@ C i0 ( h2 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 END SUBROUTINE cisdtq_1pdm_hh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisdtq_1pdm_hh_mo.F,v 1.1 2008-10-01 22:19:07 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1/12 * Sum ( h6 h7 p3 p4 p5 ) * t ( p3 p4 p5 h1 h6 h7 )_t * y ( h2 h6 h7 p3 p4 p5 )_y @@ -571,7 +571,7 @@ C i0 ( h2 h1 )_yt + = -1/12 * Sum ( h6 h7 p3 p4 p5 ) * t ( p3 p4 p5 h1 h6 h7 END SUBROUTINE cisdtq_1pdm_hh_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisdtq_1pdm_hh_mo.F,v 1.1 2008-10-01 22:19:07 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1/144 * Sum ( h7 h8 h9 p3 p4 p5 p6 ) * t ( p3 p4 p5 p6 h1 h7 h8 h9 )_t * y ( h2 h7 h8 h9 p3 p4 p5 p6 )_y diff --git a/src/tce/gradients/cisdtq_1pdm_pp_mo.F b/src/tce/gradients/cisdtq_1pdm_pp_mo.F index a08483b713..60ea3a7051 100644 --- a/src/tce/gradients/cisdtq_1pdm_pp_mo.F +++ b/src/tce/gradients/cisdtq_1pdm_pp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE cisdtq_1pdm_pp_mo(d_i0,d_t1,d_t2,d_t3,d_t4,d_y1,d_y2,d_ &y3,d_y4,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_t4_offse &t,k_y1_offset,k_y2_offset,k_y3_offset,k_y4_offset) -C $Id: cisdtq_1pdm_pp_mo.F,v 1.1 2008-10-01 22:19:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y @@ -44,7 +44,7 @@ C i0 ( p1 p2 )_yt + = 1/144 * Sum ( h6 h7 h8 h9 p3 p4 p5 ) * t ( p1 p3 p4 p5 END SUBROUTINE cisdtq_1pdm_pp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisdtq_1pdm_pp_mo.F,v 1.1 2008-10-01 22:19:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y @@ -172,7 +172,7 @@ C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y END SUBROUTINE cisdtq_1pdm_pp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisdtq_1pdm_pp_mo.F,v 1.1 2008-10-01 22:19:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * y ( h4 h5 p2 p3 )_y @@ -348,7 +348,7 @@ C i0 ( p1 p2 )_yt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * y ( h4 END SUBROUTINE cisdtq_1pdm_pp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisdtq_1pdm_pp_mo.F,v 1.1 2008-10-01 22:19:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1/12 * Sum ( h5 h6 h7 p3 p4 ) * t ( p1 p3 p4 h5 h6 h7 )_t * y ( h5 h6 h7 p2 p3 p4 )_y @@ -571,7 +571,7 @@ C i0 ( p1 p2 )_yt + = 1/12 * Sum ( h5 h6 h7 p3 p4 ) * t ( p1 p3 p4 h5 h6 h7 END SUBROUTINE cisdtq_1pdm_pp_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisdtq_1pdm_pp_mo.F,v 1.1 2008-10-01 22:19:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1/144 * Sum ( h6 h7 h8 h9 p3 p4 p5 ) * t ( p1 p3 p4 p5 h6 h7 h8 h9 )_t * y ( h6 h7 h8 h9 p2 p3 p4 p5 )_y diff --git a/src/tce/gradients/cisdtq_2pdm_hhhh_mo.F b/src/tce/gradients/cisdtq_2pdm_hhhh_mo.F index 0f87c73638..6d63cf80db 100644 --- a/src/tce/gradients/cisdtq_2pdm_hhhh_mo.F +++ b/src/tce/gradients/cisdtq_2pdm_hhhh_mo.F @@ -1,7 +1,7 @@ SUBROUTINE cisdtq_2pdm_hhhh_mo(d_i0,d_t2,d_t3,d_t4,d_y2,d_y3,d_y4, &k_i0_offset,k_t2_offset,k_t3_offset,k_t4_offset,k_y2_offset,k_y3_o &ffset,k_y4_offset) -C $Id: cisdtq_2pdm_hhhh_mo.F,v 1.1 2008-10-01 22:19:49 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h3 h4 p5 p6 )_y @@ -37,7 +37,7 @@ C i0 ( h3 h4 h1 h2 )_yt + = 1/48 * Sum ( h9 h10 p5 p6 p7 p8 ) * t ( p5 p6 p7 END SUBROUTINE cisdtq_2pdm_hhhh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hhhh_mo.F,v 1.1 2008-10-01 22:19:49 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h3 h4 p5 p6 )_y @@ -199,7 +199,7 @@ C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( END SUBROUTINE cisdtq_2pdm_hhhh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hhhh_mo.F,v 1.1 2008-10-01 22:19:49 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/6 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 h8 )_t * y ( h3 h4 h8 p5 p6 p7 )_y @@ -419,7 +419,7 @@ C i0 ( h3 h4 h1 h2 )_yt + = 1/6 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 h END SUBROUTINE cisdtq_2pdm_hhhh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hhhh_mo.F,v 1.1 2008-10-01 22:19:49 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/48 * Sum ( h9 h10 p5 p6 p7 p8 ) * t ( p5 p6 p7 p8 h1 h2 h9 h10 )_t * y ( h3 h4 h9 h10 p5 p6 p7 p8 )_y diff --git a/src/tce/gradients/cisdtq_2pdm_hhhp_mo.F b/src/tce/gradients/cisdtq_2pdm_hhhp_mo.F index e734fc5f83..9077774490 100644 --- a/src/tce/gradients/cisdtq_2pdm_hhhp_mo.F +++ b/src/tce/gradients/cisdtq_2pdm_hhhp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE cisdtq_2pdm_hhhp_mo(d_i0,d_t1,d_t2,d_t3,d_y2,d_y3,d_y4, &k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y2_offset,k_y3_o &ffset,k_y4_offset) -C $Id: cisdtq_2pdm_hhhp_mo.F,v 1.1 2008-10-01 22:20:15 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 p2 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * y ( h3 h4 p2 p5 )_y @@ -37,7 +37,7 @@ C i0 ( h3 h4 h1 p2 )_yt + = 1/24 * P( 2 ) * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 END SUBROUTINE cisdtq_2pdm_hhhp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hhhp_mo.F,v 1.1 2008-10-01 22:20:15 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 p2 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * y ( h3 h4 p2 p5 )_y @@ -200,7 +200,7 @@ c &)) END SUBROUTINE cisdtq_2pdm_hhhp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hhhp_mo.F,v 1.1 2008-10-01 22:20:15 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 p2 )_yt + = 1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h3 h4 h7 p2 p5 p6 )_y @@ -457,7 +457,7 @@ c &)) END SUBROUTINE cisdtq_2pdm_hhhp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hhhp_mo.F,v 1.1 2008-10-01 22:20:15 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 p2 )_yt + = 1/24 * P( 2 ) * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h1 h8 h9 )_t * y ( h3 h4 h8 h9 p2 p5 p6 p7 )_y diff --git a/src/tce/gradients/cisdtq_2pdm_hhpp_mo.F b/src/tce/gradients/cisdtq_2pdm_hhpp_mo.F index 9d2547cb8e..ddc23e3944 100644 --- a/src/tce/gradients/cisdtq_2pdm_hhpp_mo.F +++ b/src/tce/gradients/cisdtq_2pdm_hhpp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE cisdtq_2pdm_hhpp_mo(d_i0,d_t0,d_t1,d_t2,d_y2,d_y3,d_y4, &k_i0_offset,k_t0_offset,k_t1_offset,k_t2_offset,k_y2_offset,k_y3_o &ffset,k_y4_offset) -C $Id: cisdtq_2pdm_hhpp_mo.F,v 1.1 2008-10-01 22:20:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yt + = 1 * t ( )_t * y ( h3 h4 p1 p2 )_y @@ -37,7 +37,7 @@ C i0 ( h3 h4 p1 p2 )_yt + = 1/4 * Sum ( h7 h8 p5 p6 ) * t ( p5 p6 h7 h8 )_t END SUBROUTINE cisdtq_2pdm_hhpp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hhpp_mo.F,v 1.1 2008-10-01 22:20:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yt + = 1 * t ( )_t * y ( h3 h4 p1 p2 )_y @@ -170,7 +170,7 @@ C i0 ( h3 h4 p1 p2 )_yt + = 1 * t ( )_t * y ( h3 h4 p1 p2 )_y END SUBROUTINE cisdtq_2pdm_hhpp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hhpp_mo.F,v 1.1 2008-10-01 22:20:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * y ( h3 h4 h6 p1 p2 p5 )_y @@ -387,7 +387,7 @@ C i0 ( h3 h4 p1 p2 )_yt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * y ( h3 h4 h6 END SUBROUTINE cisdtq_2pdm_hhpp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hhpp_mo.F,v 1.1 2008-10-01 22:20:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yt + = 1/4 * Sum ( h7 h8 p5 p6 ) * t ( p5 p6 h7 h8 )_t * y ( h3 h4 h7 h8 p1 p2 p5 p6 )_y diff --git a/src/tce/gradients/cisdtq_2pdm_hphh_mo.F b/src/tce/gradients/cisdtq_2pdm_hphh_mo.F index ebfffa693f..7d36f7e71c 100644 --- a/src/tce/gradients/cisdtq_2pdm_hphh_mo.F +++ b/src/tce/gradients/cisdtq_2pdm_hphh_mo.F @@ -1,7 +1,7 @@ SUBROUTINE cisdtq_2pdm_hphh_mo(d_i0,d_t2,d_t3,d_t4,d_y1,d_y2,d_y3, &k_i0_offset,k_t2_offset,k_t3_offset,k_t4_offset,k_y1_offset,k_y2_o &ffset,k_y3_offset) -C $Id: cisdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 22:20:52 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p4 h1 h2 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p4 p5 h1 h2 )_t * y ( h3 p5 )_y @@ -37,7 +37,7 @@ C i0 ( h3 p4 h1 h2 )_yt + = 1/24 * P( 2 ) * Sum ( h8 h9 p5 p6 p7 ) * t ( p4 END SUBROUTINE cisdtq_2pdm_hphh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 22:20:52 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p4 h1 h2 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p4 p5 h1 h2 )_t * y ( h3 p5 )_y @@ -201,7 +201,7 @@ c &)) END SUBROUTINE cisdtq_2pdm_hphh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 22:20:52 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p4 h1 h2 )_yt + = 1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p4 p5 p6 h1 h2 h7 )_t * y ( h3 h7 p5 p6 )_y @@ -460,7 +460,7 @@ c &)) END SUBROUTINE cisdtq_2pdm_hphh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 22:20:52 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p4 h1 h2 )_yt + = 1/24 * P( 2 ) * Sum ( h8 h9 p5 p6 p7 ) * t ( p4 p5 p6 p7 h1 h2 h8 h9 )_t * y ( h3 h8 h9 p5 p6 p7 )_y diff --git a/src/tce/gradients/cisdtq_2pdm_hphp_mo.F b/src/tce/gradients/cisdtq_2pdm_hphp_mo.F index bb44abbe64..023846bea3 100644 --- a/src/tce/gradients/cisdtq_2pdm_hphp_mo.F +++ b/src/tce/gradients/cisdtq_2pdm_hphp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE cisdtq_2pdm_hphp_mo(d_i0,d_t1,d_t2,d_t3,d_t4,d_y1,d_y2, &d_y3,d_y4,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_t4_off &set,k_y1_offset,k_y2_offset,k_y3_offset,k_y4_offset) -C $Id: cisdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 22:21:07 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yt + = -1/4 * P( 4 ) * t ( p2 h1 )_t * y ( h3 p4 )_y @@ -44,7 +44,7 @@ C i0 ( h3 p2 h1 p4 )_yt + = -1/144 * P( 4 ) * Sum ( h8 h9 h10 p5 p6 p7 ) * t END SUBROUTINE cisdtq_2pdm_hphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 22:21:07 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yt + = -1/4 * P( 4 ) * t ( p2 h1 )_t * y ( h3 p4 )_y @@ -201,7 +201,7 @@ c & - 1))))) END SUBROUTINE cisdtq_2pdm_hphp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 22:21:07 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yt + = -1/4 * P( 4 ) * Sum ( h6 p5 ) * t ( p2 p5 h1 h6 )_t * y ( h3 h6 p4 p5 )_y @@ -425,7 +425,7 @@ c & - 1))))) END SUBROUTINE cisdtq_2pdm_hphp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 22:21:07 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yt + = -1/16 * P( 4 ) * Sum ( h7 h8 p5 p6 ) * t ( p2 p5 p6 h1 h7 h8 )_t * y ( h3 h7 h8 p4 p5 p6 )_y @@ -769,7 +769,7 @@ c & - 1))))) END SUBROUTINE cisdtq_2pdm_hphp_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 22:21:07 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yt + = -1/144 * P( 4 ) * Sum ( h8 h9 h10 p5 p6 p7 ) * t ( p2 p5 p6 p7 h1 h8 h9 h10 )_t * y ( h3 h8 h9 h10 p4 p5 p6 p7 )_y diff --git a/src/tce/gradients/cisdtq_2pdm_hppp_mo.F b/src/tce/gradients/cisdtq_2pdm_hppp_mo.F index cbf0f7550b..5bd17f06c8 100644 --- a/src/tce/gradients/cisdtq_2pdm_hppp_mo.F +++ b/src/tce/gradients/cisdtq_2pdm_hppp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE cisdtq_2pdm_hppp_mo(d_i0,d_t1,d_t2,d_t3,d_y2,d_y3,d_y4, &k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y2_offset,k_y3_o &ffset,k_y4_offset) -C $Id: cisdtq_2pdm_hppp_mo.F,v 1.1 2008-10-01 22:21:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p1 p2 p4 )_yt + = 1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * y ( h3 h5 p2 p4 )_y @@ -37,7 +37,7 @@ C i0 ( h3 p1 p2 p4 )_yt + = 1/24 * P( 2 ) * Sum ( h7 h8 h9 p5 p6 ) * t ( p1 END SUBROUTINE cisdtq_2pdm_hppp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hppp_mo.F,v 1.1 2008-10-01 22:21:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p1 p2 p4 )_yt + = 1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * y ( h3 h5 p2 p4 )_y @@ -200,7 +200,7 @@ c & - noab - 1))))) END SUBROUTINE cisdtq_2pdm_hppp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hppp_mo.F,v 1.1 2008-10-01 22:21:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p1 p2 p4 )_yt + = 1/4 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * y ( h3 h6 h7 p2 p4 p5 )_y @@ -454,7 +454,7 @@ C i0 ( h3 p1 p2 p4 )_yt + = 1/4 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h END SUBROUTINE cisdtq_2pdm_hppp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hppp_mo.F,v 1.1 2008-10-01 22:21:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p1 p2 p4 )_yt + = 1/24 * P( 2 ) * Sum ( h7 h8 h9 p5 p6 ) * t ( p1 p5 p6 h7 h8 h9 )_t * y ( h3 h7 h8 h9 p2 p4 p5 p6 )_y diff --git a/src/tce/gradients/cisdtq_2pdm_pphh_mo.F b/src/tce/gradients/cisdtq_2pdm_pphh_mo.F index cf68cb5345..191ea33215 100644 --- a/src/tce/gradients/cisdtq_2pdm_pphh_mo.F +++ b/src/tce/gradients/cisdtq_2pdm_pphh_mo.F @@ -1,7 +1,7 @@ SUBROUTINE cisdtq_2pdm_pphh_mo(d_i0,d_t2,d_t3,d_t4,d_y0,d_y1,d_y2, &k_i0_offset,k_t2_offset,k_t3_offset,k_t4_offset,k_y0_offset,k_y1_o &ffset,k_y2_offset) -C $Id: cisdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 22:21:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt + = 1 * t ( p3 p4 h1 h2 )_t * y ( )_y @@ -37,7 +37,7 @@ C i0 ( p3 p4 h1 h2 )_yt + = 1/4 * Sum ( h7 h8 p5 p6 ) * t ( p3 p4 p5 p6 h1 h END SUBROUTINE cisdtq_2pdm_pphh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 22:21:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt + = 1 * t ( p3 p4 h1 h2 )_t * y ( )_y @@ -174,7 +174,7 @@ C i0 ( p3 p4 h1 h2 )_yt + = 1 * t ( p3 p4 h1 h2 )_t * y ( )_y END SUBROUTINE cisdtq_2pdm_pphh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 22:21:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt + = 1 * Sum ( h6 p5 ) * t ( p3 p4 p5 h1 h2 h6 )_t * y ( h6 p5 )_y @@ -394,7 +394,7 @@ C i0 ( p3 p4 h1 h2 )_yt + = 1 * Sum ( h6 p5 ) * t ( p3 p4 p5 h1 h2 h6 )_t * END SUBROUTINE cisdtq_2pdm_pphh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 22:21:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt + = 1/4 * Sum ( h7 h8 p5 p6 ) * t ( p3 p4 p5 p6 h1 h2 h7 h8 )_t * y ( h7 h8 p5 p6 )_y diff --git a/src/tce/gradients/cisdtq_2pdm_pphp_mo.F b/src/tce/gradients/cisdtq_2pdm_pphp_mo.F index f3fbe40352..99e60a224d 100644 --- a/src/tce/gradients/cisdtq_2pdm_pphp_mo.F +++ b/src/tce/gradients/cisdtq_2pdm_pphp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE cisdtq_2pdm_pphp_mo(d_i0,d_t2,d_t3,d_t4,d_y1,d_y2,d_y3, &k_i0_offset,k_t2_offset,k_t3_offset,k_t4_offset,k_y1_offset,k_y2_o &ffset,k_y3_offset) -C $Id: cisdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 22:22:15 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p3 h1 p4 )_yt + = 1/2 * P( 2 ) * Sum ( h5 ) * t ( p2 p3 h1 h5 )_t * y ( h5 p4 )_y @@ -37,7 +37,7 @@ C i0 ( p2 p3 h1 p4 )_yt + = 1/24 * P( 2 ) * Sum ( h7 h8 h9 p5 p6 ) * t ( p2 END SUBROUTINE cisdtq_2pdm_pphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 22:22:15 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p3 h1 p4 )_yt + = 1/2 * P( 2 ) * Sum ( h5 ) * t ( p2 p3 h1 h5 )_t * y ( h5 p4 )_y @@ -201,7 +201,7 @@ c & - noab - 1))))) END SUBROUTINE cisdtq_2pdm_pphp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 22:22:15 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p3 h1 p4 )_yt + = 1/4 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p2 p3 p5 h1 h6 h7 )_t * y ( h6 h7 p4 p5 )_y @@ -460,7 +460,7 @@ c & - noab - 1))))) END SUBROUTINE cisdtq_2pdm_pphp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 22:22:15 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p3 h1 p4 )_yt + = 1/24 * P( 2 ) * Sum ( h7 h8 h9 p5 p6 ) * t ( p2 p3 p5 p6 h1 h7 h8 h9 )_t * y ( h7 h8 h9 p4 p5 p6 )_y diff --git a/src/tce/gradients/cisdtq_2pdm_pppp_mo.F b/src/tce/gradients/cisdtq_2pdm_pppp_mo.F index fc308d9777..6992122819 100644 --- a/src/tce/gradients/cisdtq_2pdm_pppp_mo.F +++ b/src/tce/gradients/cisdtq_2pdm_pppp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE cisdtq_2pdm_pppp_mo(d_i0,d_t2,d_t3,d_t4,d_y2,d_y3,d_y4, &k_i0_offset,k_t2_offset,k_t3_offset,k_t4_offset,k_y2_offset,k_y3_o &ffset,k_y4_offset) -C $Id: cisdtq_2pdm_pppp_mo.F,v 1.1 2008-10-01 22:22:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( h5 h6 p3 p4 )_y @@ -37,7 +37,7 @@ C i0 ( p1 p2 p3 p4 )_yt + = 1/48 * Sum ( h7 h8 h9 h10 p5 p6 ) * t ( p1 p2 p5 END SUBROUTINE cisdtq_2pdm_pppp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_pppp_mo.F,v 1.1 2008-10-01 22:22:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( h5 h6 p3 p4 )_y @@ -200,7 +200,7 @@ C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( END SUBROUTINE cisdtq_2pdm_pppp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_pppp_mo.F,v 1.1 2008-10-01 22:22:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/6 * Sum ( h6 h7 h8 p5 ) * t ( p1 p2 p5 h6 h7 h8 )_t * y ( h6 h7 h8 p3 p4 p5 )_y @@ -421,7 +421,7 @@ C i0 ( p1 p2 p3 p4 )_yt + = 1/6 * Sum ( h6 h7 h8 p5 ) * t ( p1 p2 p5 h6 h7 h END SUBROUTINE cisdtq_2pdm_pppp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_pppp_mo.F,v 1.1 2008-10-01 22:22:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/48 * Sum ( h7 h8 h9 h10 p5 p6 ) * t ( p1 p2 p5 p6 h7 h8 h9 h10 )_t * y ( h7 h8 h9 h10 p3 p4 p5 p6 )_y diff --git a/src/tce/gradients/eomccsd_1pdm_hh_mo.F b/src/tce/gradients/eomccsd_1pdm_hh_mo.F index d5b6e6d365..77d4ec53be 100644 --- a/src/tce/gradients/eomccsd_1pdm_hh_mo.F +++ b/src/tce/gradients/eomccsd_1pdm_hh_mo.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_1pdm_hh_mo(d_i0,d_t1,d_t2,d_x0,d_x1,d_x2,d_y1,d &_y2,k_i0_offset,k_t1_offset,k_t2_offset,k_x0_offset,k_x1_offset,k_ &x2_offset,k_y1_offset,k_y2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yx + = -1 * Sum ( p3 ) * x ( p3 h1 )_x * y ( h2 p3 )_y @@ -72,7 +72,7 @@ C i1 ( h1 p3 )_yx + = 1 * Sum ( h5 p4 ) * x ( p4 h5 )_x * y ( h1 h5 p3 p END SUBROUTINE eomccsd_1pdm_hh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yx + = -1 * Sum ( p3 ) * x ( p3 h1 )_x * y ( h2 p3 )_y @@ -200,7 +200,7 @@ C i0 ( h2 h1 )_yx + = -1 * Sum ( p3 ) * x ( p3 h1 )_x * y ( h2 p3 )_y END SUBROUTINE eomccsd_1pdm_hh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yx + = -1/2 * Sum ( h5 p3 p4 ) * x ( p3 p4 h1 h5 )_x * y ( h2 h5 p3 p4 )_y @@ -376,7 +376,7 @@ C i0 ( h2 h1 )_yx + = -1/2 * Sum ( h5 p3 p4 ) * x ( p3 p4 h1 h5 )_x * y ( h2 END SUBROUTINE eomccsd_1pdm_hh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_ytx + = -1 * x ( )_x * i1 ( h1 h2 )_yt @@ -493,7 +493,7 @@ C i0 ( h1 h2 )_ytx + = -1 * x ( )_x * i1 ( h1 h2 )_yt END SUBROUTINE eomccsd_1pdm_hh_mo_3_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -621,7 +621,7 @@ C i1 ( h2 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y END SUBROUTINE OFFSET_eomccsd_1pdm_hh_mo_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt @@ -677,7 +677,7 @@ C i1 ( h2 h1 )_yt END SUBROUTINE eomccsd_1pdm_hh_mo_3_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 h5 p3 p4 )_y @@ -853,7 +853,7 @@ C i1 ( h2 h1 )_yt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 END SUBROUTINE eomccsd_1pdm_hh_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yxt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * i1 ( h2 p3 )_yx @@ -981,7 +981,7 @@ C i0 ( h2 h1 )_yxt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * i1 ( h2 p3 )_yx END SUBROUTINE eomccsd_1pdm_hh_mo_4_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 p3 )_yx + = 1 * Sum ( h5 p4 ) * x ( p4 h5 )_x * y ( h1 h5 p3 p4 )_y @@ -1142,7 +1142,7 @@ C i1 ( h1 p3 )_yx + = 1 * Sum ( h5 p4 ) * x ( p4 h5 )_x * y ( h1 h5 p3 p4 )_ END SUBROUTINE OFFSET_eomccsd_1pdm_hh_mo_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 p3 )_yx diff --git a/src/tce/gradients/eomccsd_1pdm_hp_mo.F b/src/tce/gradients/eomccsd_1pdm_hp_mo.F index d41a39dc15..1d3042baff 100644 --- a/src/tce/gradients/eomccsd_1pdm_hp_mo.F +++ b/src/tce/gradients/eomccsd_1pdm_hp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE eomccsd_1pdm_hp_mo(d_i0,d_x0,d_x1,d_y1,d_y2,k_i0_offset &,k_x0_offset,k_x1_offset,k_y1_offset,k_y2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yx + = 1 * x ( )_x * y ( h2 p1 )_y @@ -29,7 +29,7 @@ C i0 ( h2 p1 )_yx + = 1 * Sum ( h4 p3 ) * x ( p3 h4 )_x * y ( h2 h4 p1 p3 )_ END SUBROUTINE eomccsd_1pdm_hp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yx + = 1 * x ( )_x * y ( h2 p1 )_y @@ -146,7 +146,7 @@ C i0 ( h2 p1 )_yx + = 1 * x ( )_x * y ( h2 p1 )_y END SUBROUTINE eomccsd_1pdm_hp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yx + = 1 * Sum ( h4 p3 ) * x ( p3 h4 )_x * y ( h2 h4 p1 p3 )_y diff --git a/src/tce/gradients/eomccsd_1pdm_ph_mo.F b/src/tce/gradients/eomccsd_1pdm_ph_mo.F index 8015202a51..97423d9ac1 100644 --- a/src/tce/gradients/eomccsd_1pdm_ph_mo.F +++ b/src/tce/gradients/eomccsd_1pdm_ph_mo.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_1pdm_ph_mo(d_i0,d_t1,d_t2,d_x0,d_x1,d_x2,d_y1,d &_y2,k_i0_offset,k_t1_offset,k_t2_offset,k_x0_offset,k_x1_offset,k_ &x2_offset,k_y1_offset,k_y2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yx + = 1 * Sum ( h4 p3 ) * x ( p2 p3 h1 h4 )_x * y ( h4 p3 )_y @@ -194,7 +194,7 @@ C i2 ( h4 h5 h1 p3 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h4 END SUBROUTINE eomccsd_1pdm_ph_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yx + = 1 * Sum ( h4 p3 ) * x ( p2 p3 h1 h4 )_x * y ( h4 p3 )_y @@ -356,7 +356,7 @@ C i0 ( p2 h1 )_yx + = 1 * Sum ( h4 p3 ) * x ( p2 p3 h1 h4 )_x * y ( h4 p3 )_ END SUBROUTINE eomccsd_1pdm_ph_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yxt + = -1 * Sum ( h7 ) * t ( p2 h7 )_t * i1 ( h7 h1 )_yx @@ -484,7 +484,7 @@ C i0 ( p2 h1 )_yxt + = -1 * Sum ( h7 ) * t ( p2 h7 )_t * i1 ( h7 h1 )_yx END SUBROUTINE eomccsd_1pdm_ph_mo_2_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_yx + = 1 * Sum ( p4 ) * x ( p4 h1 )_x * y ( h7 p4 )_y @@ -612,7 +612,7 @@ C i1 ( h7 h1 )_yx + = 1 * Sum ( p4 ) * x ( p4 h1 )_x * y ( h7 p4 )_y END SUBROUTINE OFFSET_eomccsd_1pdm_ph_mo_2_1(l_a_offset,k_a_offset,siz &e) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_yx @@ -668,7 +668,7 @@ C i1 ( h7 h1 )_yx END SUBROUTINE eomccsd_1pdm_ph_mo_2_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_yx + = -1/2 * Sum ( h6 p4 p5 ) * x ( p4 p5 h1 h6 )_x * y ( h6 h7 p4 p5 )_y @@ -844,7 +844,7 @@ C i1 ( h7 h1 )_yx + = -1/2 * Sum ( h6 p4 p5 ) * x ( p4 p5 h1 h6 )_x * y ( h6 END SUBROUTINE eomccsd_1pdm_ph_mo_2_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_ytx + = 1 * x ( )_x * i2 ( h7 h1 )_yt @@ -961,7 +961,7 @@ C i1 ( h7 h1 )_ytx + = 1 * x ( )_x * i2 ( h7 h1 )_yt END SUBROUTINE eomccsd_1pdm_ph_mo_2_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h7 p3 )_y @@ -1089,7 +1089,7 @@ C i2 ( h7 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h7 p3 )_y END SUBROUTINE OFFSET_eomccsd_1pdm_ph_mo_2_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h1 )_yt @@ -1145,7 +1145,7 @@ C i2 ( h7 h1 )_yt END SUBROUTINE eomccsd_1pdm_ph_mo_2_3_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h5 h7 p3 p4 )_y @@ -1321,7 +1321,7 @@ C i2 ( h7 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h5 END SUBROUTINE eomccsd_1pdm_ph_mo_2_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_yxt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i2 ( h7 p3 )_yx @@ -1449,7 +1449,7 @@ C i1 ( h7 h1 )_yxt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i2 ( h7 p3 )_yx END SUBROUTINE eomccsd_1pdm_ph_mo_2_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p3 )_yx + = -1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h6 h7 p3 p5 )_y @@ -1610,7 +1610,7 @@ C i2 ( h7 p3 )_yx + = -1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h6 h7 p3 p5 ) END SUBROUTINE OFFSET_eomccsd_1pdm_ph_mo_2_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p3 )_yx @@ -1666,7 +1666,7 @@ C i2 ( h7 p3 )_yx END SUBROUTINE eomccsd_1pdm_ph_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_ytx + = -1 * Sum ( h7 ) * x ( p2 h7 )_x * i1 ( h7 h1 )_yt @@ -1794,7 +1794,7 @@ C i0 ( p2 h1 )_ytx + = -1 * Sum ( h7 ) * x ( p2 h7 )_x * i1 ( h7 h1 )_yt END SUBROUTINE eomccsd_1pdm_ph_mo_3_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h7 p3 )_y @@ -1922,7 +1922,7 @@ C i1 ( h7 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h7 p3 )_y END SUBROUTINE OFFSET_eomccsd_1pdm_ph_mo_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_yt @@ -1978,7 +1978,7 @@ C i1 ( h7 h1 )_yt END SUBROUTINE eomccsd_1pdm_ph_mo_3_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h5 h7 p3 p4 )_y @@ -2154,7 +2154,7 @@ C i1 ( h7 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h5 END SUBROUTINE eomccsd_1pdm_ph_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yxt + = 1 * t ( p2 h1 )_t * i1 ( )_yx @@ -2274,7 +2274,7 @@ C i0 ( p2 h1 )_yxt + = 1 * t ( p2 h1 )_t * i1 ( )_yx END SUBROUTINE eomccsd_1pdm_ph_mo_4_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yx + = 1 * Sum ( h4 p3 ) * x ( p3 h4 )_x * y ( h4 p3 )_y @@ -2391,7 +2391,7 @@ C i1 ( )_yx + = 1 * Sum ( h4 p3 ) * x ( p3 h4 )_x * y ( h4 p3 )_y END SUBROUTINE OFFSET_eomccsd_1pdm_ph_mo_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yx @@ -2425,7 +2425,7 @@ C i1 ( )_yx END SUBROUTINE eomccsd_1pdm_ph_mo_4_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yx + = 1/4 * Sum ( h5 h6 p3 p4 ) * x ( p3 p4 h5 h6 )_x * y ( h5 h6 p3 p4 )_y @@ -2581,7 +2581,7 @@ C i1 ( )_yx + = 1/4 * Sum ( h5 h6 p3 p4 ) * x ( p3 p4 h5 h6 )_x * y ( h5 h6 END SUBROUTINE eomccsd_1pdm_ph_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yxt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * i1 ( h4 p3 )_yx @@ -2743,7 +2743,7 @@ C i0 ( p2 h1 )_yxt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * i1 ( h4 p3 END SUBROUTINE eomccsd_1pdm_ph_mo_5_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p3 )_yx + = 1 * x ( )_x * y ( h4 p3 )_y @@ -2860,7 +2860,7 @@ C i1 ( h4 p3 )_yx + = 1 * x ( )_x * y ( h4 p3 )_y END SUBROUTINE OFFSET_eomccsd_1pdm_ph_mo_5_1(l_a_offset,k_a_offset,siz &e) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p3 )_yx @@ -2916,7 +2916,7 @@ C i1 ( h4 p3 )_yx END SUBROUTINE eomccsd_1pdm_ph_mo_5_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p3 )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h4 h6 p3 p5 )_y @@ -3077,7 +3077,7 @@ C i1 ( h4 p3 )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h4 h6 p3 p5 )_ END SUBROUTINE eomccsd_1pdm_ph_mo_6(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_ytx + = 1/2 * Sum ( h5 h6 p4 ) * x ( p2 p4 h5 h6 )_x * i1 ( h5 h6 h1 p4 )_yt @@ -3243,7 +3243,7 @@ C i0 ( p2 h1 )_ytx + = 1/2 * Sum ( h5 h6 p4 ) * x ( p2 p4 h5 h6 )_x * i1 ( h END SUBROUTINE eomccsd_1pdm_ph_mo_6_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 p4 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h5 h6 p3 p4 )_y @@ -3397,7 +3397,7 @@ C i1 ( h5 h6 h1 p4 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h5 h6 p3 p END SUBROUTINE OFFSET_eomccsd_1pdm_ph_mo_6_1(l_a_offset,k_a_offset,siz &e) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 p4 )_yt @@ -3469,7 +3469,7 @@ C i1 ( h5 h6 h1 p4 )_yt END SUBROUTINE eomccsd_1pdm_ph_mo_7(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yxt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( h4 h5 h1 p3 )_yx @@ -3635,7 +3635,7 @@ C i0 ( p2 h1 )_yxt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( END SUBROUTINE eomccsd_1pdm_ph_mo_7_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_yx + = -1 * Sum ( p6 ) * x ( p6 h1 )_x * y ( h4 h5 p3 p6 )_y @@ -3789,7 +3789,7 @@ C i1 ( h4 h5 h1 p3 )_yx + = -1 * Sum ( p6 ) * x ( p6 h1 )_x * y ( h4 h5 p3 p END SUBROUTINE OFFSET_eomccsd_1pdm_ph_mo_7_1(l_a_offset,k_a_offset,siz &e) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_yx @@ -3861,7 +3861,7 @@ C i1 ( h4 h5 h1 p3 )_yx END SUBROUTINE eomccsd_1pdm_ph_mo_8(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yttx + = 1/2 * x ( )_x * i1 ( p2 h1 )_ytt @@ -3978,7 +3978,7 @@ C i0 ( p2 h1 )_yttx + = 1/2 * x ( )_x * i1 ( p2 h1 )_ytt END SUBROUTINE eomccsd_1pdm_ph_mo_8_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 h1 )_ytt + = -1 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i2 ( h4 h5 h1 p3 )_yt @@ -4144,7 +4144,7 @@ C i1 ( p2 h1 )_ytt + = -1 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i2 ( h4 END SUBROUTINE OFFSET_eomccsd_1pdm_ph_mo_8_1(l_a_offset,k_a_offset,siz &e) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 h1 )_ytt @@ -4200,7 +4200,7 @@ C i1 ( p2 h1 )_ytt END SUBROUTINE eomccsd_1pdm_ph_mo_8_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h1 p3 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h4 h5 p3 p6 )_y @@ -4354,7 +4354,7 @@ C i2 ( h4 h5 h1 p3 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h4 h5 p3 p END SUBROUTINE OFFSET_eomccsd_1pdm_ph_mo_8_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h1 p3 )_yt diff --git a/src/tce/gradients/eomccsd_1pdm_pp_mo.F b/src/tce/gradients/eomccsd_1pdm_pp_mo.F index d9dbdda3a7..c6b51c43e0 100644 --- a/src/tce/gradients/eomccsd_1pdm_pp_mo.F +++ b/src/tce/gradients/eomccsd_1pdm_pp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_1pdm_pp_mo(d_i0,d_t1,d_t2,d_x0,d_x1,d_x2,d_y1,d &_y2,k_i0_offset,k_t1_offset,k_t2_offset,k_x0_offset,k_x1_offset,k_ &x2_offset,k_y1_offset,k_y2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yx + = 1 * Sum ( h3 ) * x ( p1 h3 )_x * y ( h3 p2 )_y @@ -72,7 +72,7 @@ C i1 ( p1 p2 )_yt + = 1 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * y ( h END SUBROUTINE eomccsd_1pdm_pp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yx + = 1 * Sum ( h3 ) * x ( p1 h3 )_x * y ( h3 p2 )_y @@ -200,7 +200,7 @@ C i0 ( p1 p2 )_yx + = 1 * Sum ( h3 ) * x ( p1 h3 )_x * y ( h3 p2 )_y END SUBROUTINE eomccsd_1pdm_pp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yx + = 1/2 * Sum ( h4 h5 p3 ) * x ( p1 p3 h4 h5 )_x * y ( h4 h5 p2 p3 )_y @@ -376,7 +376,7 @@ C i0 ( p1 p2 )_yx + = 1/2 * Sum ( h4 h5 p3 ) * x ( p1 p3 h4 h5 )_x * y ( h4 END SUBROUTINE eomccsd_1pdm_pp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yxt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * i1 ( h3 p2 )_yx @@ -504,7 +504,7 @@ C i0 ( p1 p2 )_yxt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * i1 ( h3 p2 )_yx END SUBROUTINE eomccsd_1pdm_pp_mo_3_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_yx + = 1 * x ( )_x * y ( h3 p1 )_y @@ -621,7 +621,7 @@ C i1 ( h3 p1 )_yx + = 1 * x ( )_x * y ( h3 p1 )_y END SUBROUTINE OFFSET_eomccsd_1pdm_pp_mo_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_yx @@ -677,7 +677,7 @@ C i1 ( h3 p1 )_yx END SUBROUTINE eomccsd_1pdm_pp_mo_3_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_yx + = 1 * Sum ( h5 p4 ) * x ( p4 h5 )_x * y ( h3 h5 p1 p4 )_y @@ -838,7 +838,7 @@ C i1 ( h3 p1 )_yx + = 1 * Sum ( h5 p4 ) * x ( p4 h5 )_x * y ( h3 h5 p1 p4 )_ END SUBROUTINE eomccsd_1pdm_pp_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_ytx + = 1/2 * x ( )_x * i1 ( p1 p2 )_yt @@ -955,7 +955,7 @@ C i0 ( p1 p2 )_ytx + = 1/2 * x ( )_x * i1 ( p1 p2 )_yt END SUBROUTINE eomccsd_1pdm_pp_mo_4_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p2 )_yt + = 1 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * y ( h4 h5 p2 p3 )_y @@ -1131,7 +1131,7 @@ C i1 ( p1 p2 )_yt + = 1 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * y ( h4 h5 END SUBROUTINE OFFSET_eomccsd_1pdm_pp_mo_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p2 )_yt diff --git a/src/tce/gradients/eomccsd_2pdm_hhhh_mo.F b/src/tce/gradients/eomccsd_2pdm_hhhh_mo.F index ce9be08c0f..d0efa0f3bb 100644 --- a/src/tce/gradients/eomccsd_2pdm_hhhh_mo.F +++ b/src/tce/gradients/eomccsd_2pdm_hhhh_mo.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_2pdm_hhhh_mo(d_i0,d_t1,d_t2,d_x0,d_x1,d_x2,d_y2 &,k_i0_offset,k_t1_offset,k_t2_offset,k_x0_offset,k_x1_offset,k_x2_ &offset,k_y2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yx + = 1/2 * Sum ( p5 p6 ) * x ( p5 p6 h1 h2 )_x * y ( h3 h4 p5 p6 )_y @@ -82,7 +82,7 @@ C i2 ( h2 h3 h1 p5 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 END SUBROUTINE eomccsd_2pdm_hhhh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yx + = 1/2 * Sum ( p5 p6 ) * x ( p5 p6 h1 h2 )_x * y ( h3 h4 p5 p6 )_y @@ -244,7 +244,7 @@ C i0 ( h3 h4 h1 h2 )_yx + = 1/2 * Sum ( p5 p6 ) * x ( p5 p6 h1 h2 )_x * y ( END SUBROUTINE eomccsd_2pdm_hhhh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h3 h1 h4 )_yxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i1 ( h2 h3 h4 p5 )_yx @@ -396,7 +396,7 @@ C i0 ( h2 h3 h1 h4 )_yxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i1 ( END SUBROUTINE eomccsd_2pdm_hhhh_mo_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 h1 p5 )_yx + = -1 * Sum ( p6 ) * x ( p6 h1 )_x * y ( h2 h3 p5 p6 )_y @@ -550,7 +550,7 @@ C i1 ( h2 h3 h1 p5 )_yx + = -1 * Sum ( p6 ) * x ( p6 h1 )_x * y ( h2 h3 p5 p END SUBROUTINE OFFSET_eomccsd_2pdm_hhhh_mo_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 h1 p5 )_yx @@ -622,7 +622,7 @@ C i1 ( h2 h3 h1 p5 )_yx END SUBROUTINE eomccsd_2pdm_hhhh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 h3 h4 )_ytx + = 1/2 * x ( )_x * i1 ( h1 h2 h3 h4 )_yt @@ -754,7 +754,7 @@ C i0 ( h1 h2 h3 h4 )_ytx + = 1/2 * x ( )_x * i1 ( h1 h2 h3 h4 )_yt END SUBROUTINE eomccsd_2pdm_hhhh_mo_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h1 h2 )_yt + = 1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h3 h4 p5 p6 )_y @@ -916,7 +916,7 @@ C i1 ( h3 h4 h1 h2 )_yt + = 1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h3 END SUBROUTINE OFFSET_eomccsd_2pdm_hhhh_mo_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h1 h2 )_yt @@ -988,7 +988,7 @@ C i1 ( h3 h4 h1 h2 )_yt END SUBROUTINE eomccsd_2pdm_hhhh_mo_3_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 h1 h4 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h2 h3 h4 p5 )_yt @@ -1140,7 +1140,7 @@ C i1 ( h2 h3 h1 h4 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( END SUBROUTINE eomccsd_2pdm_hhhh_mo_3_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h3 h1 p5 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h3 p5 p6 )_y @@ -1294,7 +1294,7 @@ C i2 ( h2 h3 h1 p5 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h3 p5 p END SUBROUTINE OFFSET_eomccsd_2pdm_hhhh_mo_3_2_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h3 h1 p5 )_yt diff --git a/src/tce/gradients/eomccsd_2pdm_hhhp_mo.F b/src/tce/gradients/eomccsd_2pdm_hhhp_mo.F index 3318c03c3a..72d68669f2 100644 --- a/src/tce/gradients/eomccsd_2pdm_hhhp_mo.F +++ b/src/tce/gradients/eomccsd_2pdm_hhhp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE eomccsd_2pdm_hhhp_mo(d_i0,d_t1,d_x0,d_x1,d_y2,k_i0_offs &et,k_t1_offset,k_x0_offset,k_x1_offset,k_y2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h2 p1 )_yx + = -1/2 * P( 2 ) * Sum ( p5 ) * x ( p5 h2 )_x * y ( h3 h4 p1 p5 )_y @@ -45,7 +45,7 @@ C i1 ( p5 h2 )_xt + = 1 * t ( p5 h2 )_t * x ( )_x END SUBROUTINE eomccsd_2pdm_hhhp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h2 p1 )_yx + = -1/2 * P( 2 ) * Sum ( p5 ) * x ( p5 h2 )_x * y ( h3 h4 p1 p5 )_y @@ -212,7 +212,7 @@ c END SUBROUTINE eomccsd_2pdm_hhhp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h3 h4 p1 )_xty + = -1/2 * P( 2 ) * Sum ( p5 ) * y ( h2 h3 p1 p5 )_y * i1 ( p5 h4 )_xt @@ -380,7 +380,7 @@ c &)) END SUBROUTINE eomccsd_2pdm_hhhp_mo_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 h2 )_xt + = 1 * t ( p5 h2 )_t * x ( )_x @@ -500,7 +500,7 @@ C i1 ( p5 h2 )_xt + = 1 * t ( p5 h2 )_t * x ( )_x END SUBROUTINE OFFSET_eomccsd_2pdm_hhhp_mo_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 h2 )_xt diff --git a/src/tce/gradients/eomccsd_2pdm_hhpp_mo.F b/src/tce/gradients/eomccsd_2pdm_hhpp_mo.F index b893a6cc7d..e780e3b4de 100644 --- a/src/tce/gradients/eomccsd_2pdm_hhpp_mo.F +++ b/src/tce/gradients/eomccsd_2pdm_hhpp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE eomccsd_2pdm_hhpp_mo(d_i0,d_x0,d_y2,k_i0_offset,k_x0_of &fset,k_y2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yx + = 1 * x ( )_x * y ( h3 h4 p1 p2 )_y @@ -22,7 +22,7 @@ C i0 ( h3 h4 p1 p2 )_yx + = 1 * x ( )_x * y ( h3 h4 p1 p2 )_y END SUBROUTINE eomccsd_2pdm_hhpp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yx + = 1 * x ( )_x * y ( h3 h4 p1 p2 )_y diff --git a/src/tce/gradients/eomccsd_2pdm_hphh_mo.F b/src/tce/gradients/eomccsd_2pdm_hphh_mo.F index 71435b1f9a..0f81454da7 100644 --- a/src/tce/gradients/eomccsd_2pdm_hphh_mo.F +++ b/src/tce/gradients/eomccsd_2pdm_hphh_mo.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_2pdm_hphh_mo(d_i0,d_t1,d_t2,d_x0,d_x1,d_x2,d_y1 &,d_y2,k_i0_offset,k_t1_offset,k_t2_offset,k_x0_offset,k_x1_offset, &k_x2_offset,k_y1_offset,k_y2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p3 h1 h2 )_yx + = -1/2 * P( 2 ) * Sum ( p5 ) * x ( p3 p5 h1 h2 )_x * y ( h4 p5 )_y @@ -254,7 +254,7 @@ C i2 ( h2 h7 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 END SUBROUTINE eomccsd_2pdm_hphh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p3 h1 h2 )_yx + = -1/2 * P( 2 ) * Sum ( p5 ) * x ( p3 p5 h1 h2 )_x * y ( h4 p5 )_y @@ -422,7 +422,7 @@ c END SUBROUTINE eomccsd_2pdm_hphh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p3 h1 h4 )_ytx + = -1/2 * P( 4 ) * x ( p3 h1 )_x * i1 ( h2 h4 )_yt @@ -599,7 +599,7 @@ c END SUBROUTINE eomccsd_2pdm_hphh_mo_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h2 p5 )_y @@ -727,7 +727,7 @@ C i1 ( h2 h1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h2 p5 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_hphh_mo_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt @@ -783,7 +783,7 @@ C i1 ( h2 h1 )_yt END SUBROUTINE eomccsd_2pdm_hphh_mo_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h2 h7 p5 p6 )_y @@ -959,7 +959,7 @@ C i1 ( h2 h1 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h2 END SUBROUTINE eomccsd_2pdm_hphh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p3 h1 h4 )_yxt + = -1/2 * P( 4 ) * t ( p3 h1 )_t * i1 ( h2 h4 )_yx @@ -1134,7 +1134,7 @@ c END SUBROUTINE eomccsd_2pdm_hphh_mo_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yx + = 1 * Sum ( p5 ) * x ( p5 h1 )_x * y ( h2 p5 )_y @@ -1262,7 +1262,7 @@ C i1 ( h2 h1 )_yx + = 1 * Sum ( p5 ) * x ( p5 h1 )_x * y ( h2 p5 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_hphh_mo_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yx @@ -1318,7 +1318,7 @@ C i1 ( h2 h1 )_yx END SUBROUTINE eomccsd_2pdm_hphh_mo_3_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yx + = 1/2 * Sum ( h7 p5 p6 ) * x ( p5 p6 h1 h7 )_x * y ( h2 h7 p5 p6 )_y @@ -1494,7 +1494,7 @@ C i1 ( h2 h1 )_yx + = 1/2 * Sum ( h7 p5 p6 ) * x ( p5 p6 h1 h7 )_x * y ( h2 END SUBROUTINE eomccsd_2pdm_hphh_mo_3_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 h2 )_ytx + = 1 * x ( )_x * i2 ( h1 h2 )_yt @@ -1611,7 +1611,7 @@ C i1 ( h1 h2 )_ytx + = 1 * x ( )_x * i2 ( h1 h2 )_yt END SUBROUTINE eomccsd_2pdm_hphh_mo_3_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h2 p5 )_y @@ -1739,7 +1739,7 @@ C i2 ( h2 h1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h2 p5 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_hphh_mo_3_3_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h1 )_yt @@ -1795,7 +1795,7 @@ C i2 ( h2 h1 )_yt END SUBROUTINE eomccsd_2pdm_hphh_mo_3_3_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h1 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h2 h7 p5 p6 )_y @@ -1971,7 +1971,7 @@ C i2 ( h2 h1 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h2 END SUBROUTINE eomccsd_2pdm_hphh_mo_3_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yxt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h2 p5 )_yx @@ -2099,7 +2099,7 @@ C i1 ( h2 h1 )_yxt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h2 p5 )_yx END SUBROUTINE eomccsd_2pdm_hphh_mo_3_4_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 p5 )_yx + = 1 * Sum ( h7 p6 ) * x ( p6 h7 )_x * y ( h1 h7 p5 p6 )_y @@ -2260,7 +2260,7 @@ C i2 ( h1 p5 )_yx + = 1 * Sum ( h7 p6 ) * x ( p6 h7 )_x * y ( h1 h7 p5 p6 )_ END SUBROUTINE OFFSET_eomccsd_2pdm_hphh_mo_3_4_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 p5 )_yx @@ -2316,7 +2316,7 @@ C i2 ( h1 p5 )_yx END SUBROUTINE eomccsd_2pdm_hphh_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p3 h1 h2 )_yxt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i1 ( h4 p5 )_yx @@ -2485,7 +2485,7 @@ c END SUBROUTINE eomccsd_2pdm_hphh_mo_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 p5 )_yx + = 1 * x ( )_x * y ( h1 p5 )_y @@ -2602,7 +2602,7 @@ C i1 ( h1 p5 )_yx + = 1 * x ( )_x * y ( h1 p5 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_hphh_mo_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 p5 )_yx @@ -2658,7 +2658,7 @@ C i1 ( h1 p5 )_yx END SUBROUTINE eomccsd_2pdm_hphh_mo_4_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 p5 )_yx + = 1 * Sum ( h7 p6 ) * x ( p6 h7 )_x * y ( h1 h7 p5 p6 )_y @@ -2819,7 +2819,7 @@ C i1 ( h1 p5 )_yx + = 1 * Sum ( h7 p6 ) * x ( p6 h7 )_x * y ( h1 h7 p5 p6 )_ END SUBROUTINE eomccsd_2pdm_hphh_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p3 h2 h4 )_yxt + = 1/4 * P( 2 ) * Sum ( h8 ) * t ( p3 h8 )_t * i1 ( h1 h8 h2 h4 )_yx @@ -2976,7 +2976,7 @@ c END SUBROUTINE eomccsd_2pdm_hphh_mo_5_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h8 h1 h2 )_yx + = -1 * Sum ( p6 p7 ) * x ( p6 p7 h1 h2 )_x * y ( h4 h8 p6 p7 )_y @@ -3148,7 +3148,7 @@ C i1 ( h4 h8 h1 h2 )_yx + = -1 * Sum ( p6 p7 ) * x ( p6 p7 h1 h2 )_x * y ( h END SUBROUTINE OFFSET_eomccsd_2pdm_hphh_mo_5_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h8 h1 h2 )_yx @@ -3220,7 +3220,7 @@ C i1 ( h4 h8 h1 h2 )_yx END SUBROUTINE eomccsd_2pdm_hphh_mo_5_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h8 h1 h4 )_yxt + = -2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h2 h8 h4 p5 )_yx @@ -3372,7 +3372,7 @@ C i1 ( h2 h8 h1 h4 )_yxt + = -2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( END SUBROUTINE eomccsd_2pdm_hphh_mo_5_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h1 p5 )_yx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * y ( h2 h8 p5 p7 )_y @@ -3542,7 +3542,7 @@ C i2 ( h2 h8 h1 p5 )_yx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * y ( h2 h8 p5 p7 END SUBROUTINE OFFSET_eomccsd_2pdm_hphh_mo_5_2_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h1 p5 )_yx @@ -3614,7 +3614,7 @@ C i2 ( h2 h8 h1 p5 )_yx END SUBROUTINE eomccsd_2pdm_hphh_mo_5_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 h8 h2 h4 )_ytx + = 1 * x ( )_x * i2 ( h1 h8 h2 h4 )_yt @@ -3746,7 +3746,7 @@ C i1 ( h1 h8 h2 h4 )_ytx + = 1 * x ( )_x * i2 ( h1 h8 h2 h4 )_yt END SUBROUTINE eomccsd_2pdm_hphh_mo_5_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h8 h1 h2 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h4 h8 p5 p6 )_y @@ -3918,7 +3918,7 @@ C i2 ( h4 h8 h1 h2 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h END SUBROUTINE OFFSET_eomccsd_2pdm_hphh_mo_5_3_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h8 h1 h2 )_yt @@ -3990,7 +3990,7 @@ C i2 ( h4 h8 h1 h2 )_yt END SUBROUTINE eomccsd_2pdm_hphh_mo_5_3_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h1 h4 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h2 h8 h4 p5 )_yt @@ -4142,7 +4142,7 @@ C i2 ( h2 h8 h1 h4 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( END SUBROUTINE eomccsd_2pdm_hphh_mo_5_3_2_1(d_a,k_a_offset,d_b,k_b_off &set,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h8 p5 p6 )_y @@ -4312,7 +4312,7 @@ C i3 ( h2 h8 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h8 p5 p6 END SUBROUTINE OFFSET_eomccsd_2pdm_hphh_mo_5_3_2_1(l_a_offset,k_a_offs &et,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h1 p5 )_yt @@ -4384,7 +4384,7 @@ C i3 ( h2 h8 h1 p5 )_yt END SUBROUTINE eomccsd_2pdm_hphh_mo_6(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p3 h1 h4 )_ytx + = -1/2 * P( 4 ) * Sum ( h7 p6 ) * x ( p3 p6 h1 h7 )_x * i1 ( h2 h7 h4 p6 )_yt @@ -4601,7 +4601,7 @@ c END SUBROUTINE eomccsd_2pdm_hphh_mo_6_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h1 p6 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h2 h7 p5 p6 )_y @@ -4771,7 +4771,7 @@ C i1 ( h2 h7 h1 p6 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h2 h7 p5 p6 END SUBROUTINE OFFSET_eomccsd_2pdm_hphh_mo_6_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h1 p6 )_yt @@ -4843,7 +4843,7 @@ C i1 ( h2 h7 h1 p6 )_yt END SUBROUTINE eomccsd_2pdm_hphh_mo_7(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p3 h1 h4 )_yxt + = 1/2 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i1 ( h2 h6 h4 p5 )_yx @@ -5059,7 +5059,7 @@ c END SUBROUTINE eomccsd_2pdm_hphh_mo_7_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h6 h1 p5 )_yx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * y ( h2 h6 p5 p7 )_y @@ -5229,7 +5229,7 @@ C i1 ( h2 h6 h1 p5 )_yx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * y ( h2 h6 p5 p7 END SUBROUTINE OFFSET_eomccsd_2pdm_hphh_mo_7_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h6 h1 p5 )_yx @@ -5301,7 +5301,7 @@ C i1 ( h2 h6 h1 p5 )_yx END SUBROUTINE eomccsd_2pdm_hphh_mo_7_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 h6 h2 p5 )_ytx + = 1 * x ( )_x * i2 ( h1 h6 h2 p5 )_yt @@ -5434,7 +5434,7 @@ C i1 ( h1 h6 h2 p5 )_ytx + = 1 * x ( )_x * i2 ( h1 h6 h2 p5 )_yt END SUBROUTINE eomccsd_2pdm_hphh_mo_7_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h1 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * y ( h2 h6 p5 p7 )_y @@ -5604,7 +5604,7 @@ C i2 ( h2 h6 h1 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * y ( h2 h6 p5 p7 END SUBROUTINE OFFSET_eomccsd_2pdm_hphh_mo_7_2_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h1 p5 )_yt @@ -5676,7 +5676,7 @@ C i2 ( h2 h6 h1 p5 )_yt END SUBROUTINE eomccsd_2pdm_hphh_mo_8(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p3 h2 h4 )_ytx + = 1/4 * P( 2 ) * Sum ( h7 ) * x ( p3 h7 )_x * i1 ( h1 h7 h2 h4 )_yt @@ -5834,7 +5834,7 @@ c END SUBROUTINE eomccsd_2pdm_hphh_mo_8_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h7 h1 h2 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h4 h7 p5 p6 )_y @@ -6006,7 +6006,7 @@ C i1 ( h4 h7 h1 h2 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h END SUBROUTINE OFFSET_eomccsd_2pdm_hphh_mo_8_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h7 h1 h2 )_yt @@ -6078,7 +6078,7 @@ C i1 ( h4 h7 h1 h2 )_yt END SUBROUTINE eomccsd_2pdm_hphh_mo_8_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h1 h4 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h2 h7 h4 p5 )_yt @@ -6230,7 +6230,7 @@ C i1 ( h2 h7 h1 h4 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( END SUBROUTINE eomccsd_2pdm_hphh_mo_8_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h7 p5 p6 )_y @@ -6400,7 +6400,7 @@ C i2 ( h2 h7 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h7 p5 p6 END SUBROUTINE OFFSET_eomccsd_2pdm_hphh_mo_8_2_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h1 p5 )_yt diff --git a/src/tce/gradients/eomccsd_2pdm_hphp_mo.F b/src/tce/gradients/eomccsd_2pdm_hphp_mo.F index 9cc23155bb..ad056bbf21 100644 --- a/src/tce/gradients/eomccsd_2pdm_hphp_mo.F +++ b/src/tce/gradients/eomccsd_2pdm_hphp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_2pdm_hphp_mo(d_i0,d_t1,d_t2,d_x0,d_x1,d_x2,d_y1 &,d_y2,k_i0_offset,k_t1_offset,k_t2_offset,k_x0_offset,k_x1_offset, &k_x2_offset,k_y1_offset,k_y2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 h2 p3 )_yx + = -1/4 * P( 4 ) * x ( p1 h2 )_x * y ( h4 p3 )_y @@ -118,7 +118,7 @@ C i1 ( h2 h6 p1 p5 )_yx + = 1 * x ( )_x * y ( h2 h6 p1 p5 )_y END SUBROUTINE eomccsd_2pdm_hphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 h2 p3 )_yx + = -1/4 * P( 4 ) * x ( p1 h2 )_x * y ( h4 p3 )_y @@ -280,7 +280,7 @@ c END SUBROUTINE eomccsd_2pdm_hphp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 h2 p3 )_yx + = -1/4 * P( 4 ) * Sum ( h6 p5 ) * x ( p1 p5 h2 h6 )_x * y ( h4 h6 p3 p5 )_y @@ -509,7 +509,7 @@ c END SUBROUTINE eomccsd_2pdm_hphp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 h2 p3 )_yxt + = -1/4 * P( 4 ) * t ( p1 h2 )_t * i1 ( h4 p3 )_yx @@ -671,7 +671,7 @@ c END SUBROUTINE eomccsd_2pdm_hphp_mo_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p1 )_yx + = 1 * x ( )_x * y ( h2 p1 )_y @@ -788,7 +788,7 @@ C i1 ( h2 p1 )_yx + = 1 * x ( )_x * y ( h2 p1 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_hphp_mo_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p1 )_yx @@ -844,7 +844,7 @@ C i1 ( h2 p1 )_yx END SUBROUTINE eomccsd_2pdm_hphp_mo_3_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p1 )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h2 h6 p1 p5 )_y @@ -1005,7 +1005,7 @@ C i1 ( h2 p1 )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h2 h6 p1 p5 )_ END SUBROUTINE eomccsd_2pdm_hphp_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 h4 p3 )_yxt + = 1/2 * P( 2 ) * Sum ( h7 ) * t ( p1 h7 )_t * i1 ( h2 h7 h4 p3 )_yx @@ -1163,7 +1163,7 @@ c END SUBROUTINE eomccsd_2pdm_hphp_mo_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h7 h2 p1 )_yx + = 1/2 * P( 2 ) * Sum ( p6 ) * x ( p6 h2 )_x * y ( h4 h7 p1 p6 )_y @@ -1344,7 +1344,7 @@ c &)) END SUBROUTINE OFFSET_eomccsd_2pdm_hphp_mo_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h7 h2 p1 )_yx @@ -1416,7 +1416,7 @@ C i1 ( h4 h7 h2 p1 )_yx END SUBROUTINE eomccsd_2pdm_hphp_mo_4_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h4 p1 )_ytx + = 1 * x ( )_x * i2 ( h2 h7 h4 p1 )_yt @@ -1549,7 +1549,7 @@ C i1 ( h2 h7 h4 p1 )_ytx + = 1 * x ( )_x * i2 ( h2 h7 h4 p1 )_yt END SUBROUTINE eomccsd_2pdm_hphp_mo_4_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h7 h2 p1 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h4 h7 p1 p5 )_y @@ -1730,7 +1730,7 @@ c END SUBROUTINE OFFSET_eomccsd_2pdm_hphp_mo_4_2_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h7 h2 p1 )_yt @@ -1802,7 +1802,7 @@ C i2 ( h4 h7 h2 p1 )_yt END SUBROUTINE eomccsd_2pdm_hphp_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 h4 p3 )_ytx + = 1/2 * P( 2 ) * Sum ( h6 ) * x ( p1 h6 )_x * i1 ( h2 h6 h4 p3 )_yt @@ -1959,7 +1959,7 @@ c END SUBROUTINE eomccsd_2pdm_hphp_mo_5_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h6 h2 p1 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h4 h6 p1 p5 )_y @@ -2140,7 +2140,7 @@ c END SUBROUTINE OFFSET_eomccsd_2pdm_hphp_mo_5_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h6 h2 p1 )_yt @@ -2212,7 +2212,7 @@ C i1 ( h4 h6 h2 p1 )_yt END SUBROUTINE eomccsd_2pdm_hphp_mo_6(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 h2 p3 )_yxt + = -1/4 * P( 4 ) * Sum ( h6 p5 ) * t ( p1 p5 h2 h6 )_t * i1 ( h4 h6 p3 p5 )_yx @@ -2414,7 +2414,7 @@ c END SUBROUTINE eomccsd_2pdm_hphp_mo_6_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h6 p1 p5 )_yx + = 1 * x ( )_x * y ( h2 h6 p1 p5 )_y @@ -2573,7 +2573,7 @@ C i1 ( h2 h6 p1 p5 )_yx + = 1 * x ( )_x * y ( h2 h6 p1 p5 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_hphp_mo_6_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h6 p1 p5 )_yx diff --git a/src/tce/gradients/eomccsd_2pdm_hppp_mo.F b/src/tce/gradients/eomccsd_2pdm_hppp_mo.F index a4ce1a83e2..6b5c866eae 100644 --- a/src/tce/gradients/eomccsd_2pdm_hppp_mo.F +++ b/src/tce/gradients/eomccsd_2pdm_hppp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE eomccsd_2pdm_hppp_mo(d_i0,d_t1,d_x0,d_x1,d_y2,k_i0_offs &et,k_t1_offset,k_x0_offset,k_x1_offset,k_y2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 p2 p3 )_yx + = -1/2 * P( 2 ) * Sum ( h5 ) * x ( p1 h5 )_x * y ( h4 h5 p2 p3 )_y @@ -45,7 +45,7 @@ C i1 ( p1 h5 )_xt + = 1 * t ( p1 h5 )_t * x ( )_x END SUBROUTINE eomccsd_2pdm_hppp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 p2 p3 )_yx + = -1/2 * P( 2 ) * Sum ( h5 ) * x ( p1 h5 )_x * y ( h4 h5 p2 p3 )_y @@ -212,7 +212,7 @@ c END SUBROUTINE eomccsd_2pdm_hppp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p3 p1 p2 )_xty + = -1/2 * P( 2 ) * Sum ( h5 ) * y ( h4 h5 p1 p2 )_y * i1 ( p3 h5 )_xt @@ -380,7 +380,7 @@ c END SUBROUTINE eomccsd_2pdm_hppp_mo_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 h5 )_xt + = 1 * t ( p1 h5 )_t * x ( )_x @@ -500,7 +500,7 @@ C i1 ( p1 h5 )_xt + = 1 * t ( p1 h5 )_t * x ( )_x END SUBROUTINE OFFSET_eomccsd_2pdm_hppp_mo_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 h5 )_xt diff --git a/src/tce/gradients/eomccsd_2pdm_pphh_mo.F b/src/tce/gradients/eomccsd_2pdm_pphh_mo.F index db9e07414c..f87e95be18 100644 --- a/src/tce/gradients/eomccsd_2pdm_pphh_mo.F +++ b/src/tce/gradients/eomccsd_2pdm_pphh_mo.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_2pdm_pphh_mo(d_i0,d_t1,d_t2,d_x0,d_x1,d_x2,d_y1 &,d_y2,k_i0_offset,k_t1_offset,k_t2_offset,k_x0_offset,k_x1_offset, &k_x2_offset,k_y1_offset,k_y2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yxt + = -1 * P( 2 ) * Sum ( h10 ) * t ( p3 h10 )_t * i1 ( h10 p4 h1 h2 )_yx @@ -703,7 +703,7 @@ C i2 ( p3 p5 )_yt + = 1 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * y END SUBROUTINE eomccsd_2pdm_pphh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yxt + = -1 * P( 2 ) * Sum ( h10 ) * t ( p3 h10 )_t * i1 ( h10 p4 h1 h2 )_yx @@ -857,7 +857,7 @@ C i0 ( p3 p4 h1 h2 )_yxt + = -1 * P( 2 ) * Sum ( h10 ) * t ( p3 h10 )_t * i1 END SUBROUTINE eomccsd_2pdm_pphh_mo_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_yx + = -1 * Sum ( p6 ) * x ( p3 p6 h1 h2 )_x * y ( h10 p6 )_y @@ -1012,7 +1012,7 @@ C i1 ( h10 p3 h1 h2 )_yx + = -1 * Sum ( p6 ) * x ( p3 p6 h1 h2 )_x * y ( h10 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_yx @@ -1084,7 +1084,7 @@ C i1 ( h10 p3 h1 h2 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_1_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_yxt + = -1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i2 ( h10 p5 )_yx @@ -1239,7 +1239,7 @@ C i1 ( h10 p3 h1 h2 )_yxt + = -1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i2 ( h END SUBROUTINE eomccsd_2pdm_pphh_mo_1_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_yx + = 1 * x ( )_x * y ( h10 p5 )_y @@ -1356,7 +1356,7 @@ C i2 ( h10 p5 )_yx + = 1 * x ( )_x * y ( h10 p5 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_1_2_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_yx @@ -1412,7 +1412,7 @@ C i2 ( h10 p5 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_1_2_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_yx + = -1 * Sum ( h8 p7 ) * x ( p7 h8 )_x * y ( h8 h10 p5 p7 )_y @@ -1573,7 +1573,7 @@ C i2 ( h10 p5 )_yx + = -1 * Sum ( h8 p7 ) * x ( p7 h8 )_x * y ( h8 h10 p5 p7 END SUBROUTINE eomccsd_2pdm_pphh_mo_1_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_yxt + = 1/4 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h10 h1 h2 )_yx @@ -1727,7 +1727,7 @@ C i1 ( h10 p3 h1 h2 )_yxt + = 1/4 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h10 END SUBROUTINE eomccsd_2pdm_pphh_mo_1_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_yx + = 1 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * y ( h9 h10 p7 p8 )_y @@ -1889,7 +1889,7 @@ C i2 ( h9 h10 h1 h2 )_yx + = 1 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * y ( h END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_1_3_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_yx @@ -1961,7 +1961,7 @@ C i2 ( h9 h10 h1 h2 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_1_3_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_yxt + = -2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h9 h10 h2 p5 )_yx @@ -2113,7 +2113,7 @@ C i2 ( h9 h10 h1 h2 )_yxt + = -2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 END SUBROUTINE eomccsd_2pdm_pphh_mo_1_3_2_1(d_a,k_a_offset,d_b,k_b_off &set,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 p5 )_yx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * y ( h9 h10 p5 p8 )_y @@ -2267,7 +2267,7 @@ C i3 ( h9 h10 h1 p5 )_yx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * y ( h9 h10 p5 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_1_3_2_1(l_a_offset,k_a_offs &et,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 p5 )_yx @@ -2339,7 +2339,7 @@ C i3 ( h9 h10 h1 p5 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_1_3_3(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_ytx + = 1 * x ( )_x * i3 ( h9 h10 h1 h2 )_yt @@ -2471,7 +2471,7 @@ C i2 ( h9 h10 h1 h2 )_ytx + = 1 * x ( )_x * i3 ( h9 h10 h1 h2 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_1_3_3_1(d_a,k_a_offset,d_b,k_b_off &set,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 h2 )_yt + = 1 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * y ( h9 h10 p7 p8 )_y @@ -2633,7 +2633,7 @@ C i3 ( h9 h10 h1 h2 )_yt + = 1 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * y ( h END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_1_3_3_1(l_a_offset,k_a_offs &et,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 h2 )_yt @@ -2705,7 +2705,7 @@ C i3 ( h9 h10 h1 h2 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_1_3_3_2(d_a,k_a_offset,d_b,k_b_off &set,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i4 ( h9 h10 h2 p5 )_yt @@ -2857,7 +2857,7 @@ C i3 ( h9 h10 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i4 END SUBROUTINE eomccsd_2pdm_pphh_mo_1_3_3_2_1(d_a,k_a_offset,d_b,k_b_o &ffset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h9 h10 h1 p5 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h9 h10 p5 p6 )_y @@ -3011,7 +3011,7 @@ C i4 ( h9 h10 h1 p5 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h9 h10 p5 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_1_3_3_2_1(l_a_offset,k_a_of &fset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h9 h10 h1 p5 )_yt @@ -3083,7 +3083,7 @@ C i4 ( h9 h10 h1 p5 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_1_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_ytx + = -1 * P( 2 ) * Sum ( h8 p7 ) * x ( p3 p7 h1 h8 )_x * i2 ( h8 h10 h2 p7 )_yt @@ -3280,7 +3280,7 @@ C i1 ( h10 p3 h1 h2 )_ytx + = -1 * P( 2 ) * Sum ( h8 p7 ) * x ( p3 p7 h1 h8 END SUBROUTINE eomccsd_2pdm_pphh_mo_1_4_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h8 h10 p5 p7 )_y @@ -3434,7 +3434,7 @@ C i2 ( h8 h10 h1 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h8 h10 p5 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_1_4_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 p7 )_yt @@ -3506,7 +3506,7 @@ C i2 ( h8 h10 h1 p7 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_1_5(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_yxt + = -1 * P( 2 ) * Sum ( h7 p9 ) * t ( p3 p9 h1 h7 )_t * i2 ( h7 h10 h2 p9 )_yx @@ -3703,7 +3703,7 @@ C i1 ( h10 p3 h1 h2 )_yxt + = -1 * P( 2 ) * Sum ( h7 p9 ) * t ( p3 p9 h1 h7 END SUBROUTINE eomccsd_2pdm_pphh_mo_1_5_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h10 h1 p9 )_yx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * y ( h7 h10 p8 p9 )_y @@ -3857,7 +3857,7 @@ C i2 ( h7 h10 h1 p9 )_yx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * y ( h7 h10 p8 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_1_5_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h10 h1 p9 )_yx @@ -3929,7 +3929,7 @@ C i2 ( h7 h10 h1 p9 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_1_5_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h10 h1 p9 )_ytx + = 1 * x ( )_x * i3 ( h7 h10 h1 p9 )_yt @@ -4062,7 +4062,7 @@ C i2 ( h7 h10 h1 p9 )_ytx + = 1 * x ( )_x * i3 ( h7 h10 h1 p9 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_1_5_2_1(d_a,k_a_offset,d_b,k_b_off &set,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h1 p9 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h7 h10 p5 p9 )_y @@ -4216,7 +4216,7 @@ C i3 ( h7 h10 h1 p9 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h7 h10 p5 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_1_5_2_1(l_a_offset,k_a_offs &et,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h1 p9 )_yt @@ -4288,7 +4288,7 @@ C i3 ( h7 h10 h1 p9 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_1_6(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_ytx + = 1/2 * Sum ( h8 ) * x ( p3 h8 )_x * i2 ( h8 h10 h1 h2 )_yt @@ -4442,7 +4442,7 @@ C i1 ( h10 p3 h1 h2 )_ytx + = 1/2 * Sum ( h8 ) * x ( p3 h8 )_x * i2 ( h8 h10 END SUBROUTINE eomccsd_2pdm_pphh_mo_1_6_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_yt + = 1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h8 h10 p5 p6 )_y @@ -4604,7 +4604,7 @@ C i2 ( h8 h10 h1 h2 )_yt + = 1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_1_6_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_yt @@ -4676,7 +4676,7 @@ C i2 ( h8 h10 h1 h2 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_1_6_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h8 h10 h2 p5 )_yt @@ -4828,7 +4828,7 @@ C i2 ( h8 h10 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 END SUBROUTINE eomccsd_2pdm_pphh_mo_1_6_2_1(d_a,k_a_offset,d_b,k_b_off &set,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h10 h1 p5 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h8 h10 p5 p6 )_y @@ -4982,7 +4982,7 @@ C i3 ( h8 h10 h1 p5 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h8 h10 p5 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_1_6_2_1(l_a_offset,k_a_offs &et,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h10 h1 p5 )_yt @@ -5054,7 +5054,7 @@ C i3 ( h8 h10 h1 p5 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytx + = -1 * P( 2 ) * Sum ( h9 ) * x ( p3 p4 h1 h9 )_x * i1 ( h9 h2 )_yt @@ -5219,7 +5219,7 @@ C i0 ( p3 p4 h1 h2 )_ytx + = -1 * P( 2 ) * Sum ( h9 ) * x ( p3 p4 h1 h9 )_x END SUBROUTINE eomccsd_2pdm_pphh_mo_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h9 p5 )_y @@ -5347,7 +5347,7 @@ C i1 ( h9 h1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h9 p5 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h1 )_yt @@ -5403,7 +5403,7 @@ C i1 ( h9 h1 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h1 )_yt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h7 h9 p5 p6 )_y @@ -5579,7 +5579,7 @@ C i1 ( h9 h1 )_yt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h7 END SUBROUTINE eomccsd_2pdm_pphh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yxt + = 1 * P( 4 ) * t ( p3 h1 )_t * i1 ( p4 h2 )_yx @@ -5741,7 +5741,7 @@ C i0 ( p3 p4 h1 h2 )_yxt + = 1 * P( 4 ) * t ( p3 h1 )_t * i1 ( p4 h2 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yx + = 1 * Sum ( h6 p5 ) * x ( p3 p5 h1 h6 )_x * y ( h6 p5 )_y @@ -5903,7 +5903,7 @@ C i1 ( p3 h1 )_yx + = 1 * Sum ( h6 p5 ) * x ( p3 p5 h1 h6 )_x * y ( h6 p5 )_ END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yx @@ -5959,7 +5959,7 @@ C i1 ( p3 h1 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_3_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yxt + = -1 * Sum ( h10 ) * t ( p3 h10 )_t * i2 ( h10 h1 )_yx @@ -6087,7 +6087,7 @@ C i1 ( p3 h1 )_yxt + = -1 * Sum ( h10 ) * t ( p3 h10 )_t * i2 ( h10 h1 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_3_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h1 )_yx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * y ( h10 p6 )_y @@ -6215,7 +6215,7 @@ C i2 ( h10 h1 )_yx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * y ( h10 p6 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_3_2_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h1 )_yx @@ -6271,7 +6271,7 @@ C i2 ( h10 h1 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_3_2_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h1 )_yx + = -1/2 * Sum ( h8 p6 p7 ) * x ( p6 p7 h1 h8 )_x * y ( h8 h10 p6 p7 )_y @@ -6447,7 +6447,7 @@ C i2 ( h10 h1 )_yx + = -1/2 * Sum ( h8 p6 p7 ) * x ( p6 p7 h1 h8 )_x * y ( h END SUBROUTINE eomccsd_2pdm_pphh_mo_3_2_3(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h1 )_ytx + = 1/2 * x ( )_x * i3 ( h10 h1 )_yt @@ -6564,7 +6564,7 @@ C i2 ( h10 h1 )_ytx + = 1/2 * x ( )_x * i3 ( h10 h1 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_3_2_3_1(d_a,k_a_offset,d_b,k_b_off &set,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 h1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i4 ( h10 p7 )_y @@ -6692,7 +6692,7 @@ C i3 ( h10 h1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i4 ( h10 p7 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_3_2_3_1(l_a_offset,k_a_offs &et,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 h1 )_yt @@ -6748,7 +6748,7 @@ C i3 ( h10 h1 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_3_2_3_1_1(d_a,k_a_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h10 p7 )_y + = 1 * y ( h10 p7 )_y @@ -6833,7 +6833,7 @@ C i4 ( h10 p7 )_y + = 1 * y ( h10 p7 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_3_2_3_1_1(l_a_offset,k_a_of &fset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h10 p7 )_y @@ -6889,7 +6889,7 @@ C i4 ( h10 p7 )_y END SUBROUTINE eomccsd_2pdm_pphh_mo_3_2_3_1_2(d_a,k_a_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h10 p7 )_y + = 1 * y ( h10 p7 )_y @@ -6974,7 +6974,7 @@ C i4 ( h10 p7 )_y + = 1 * y ( h10 p7 )_y END SUBROUTINE eomccsd_2pdm_pphh_mo_3_2_3_2(d_a,k_a_offset,d_b,k_b_off &set,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 h1 )_yt + = -1 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h8 h10 p6 p7 )_y @@ -7150,7 +7150,7 @@ C i3 ( h10 h1 )_yt + = -1 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h8 END SUBROUTINE eomccsd_2pdm_pphh_mo_3_2_4(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h1 )_yxt + = 1/2 * Sum ( p9 ) * t ( p9 h1 )_t * i3 ( h10 p9 )_yx @@ -7278,7 +7278,7 @@ C i2 ( h10 h1 )_yxt + = 1/2 * Sum ( p9 ) * t ( p9 h1 )_t * i3 ( h10 p9 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_3_2_4_1(d_a,k_a_offset,d_b,k_b_off &set,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p9 )_yx + = 1 * Sum ( h8 p7 ) * x ( p7 h8 )_x * i4 ( h8 h10 p7 p9 )_y @@ -7439,7 +7439,7 @@ C i3 ( h10 p9 )_yx + = 1 * Sum ( h8 p7 ) * x ( p7 h8 )_x * i4 ( h8 h10 p7 p9 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_3_2_4_1(l_a_offset,k_a_offs &et,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p9 )_yx @@ -7495,7 +7495,7 @@ C i3 ( h10 p9 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_3_2_4_1_1(d_a,k_a_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h8 h10 p7 p9 )_y + = 1 * y ( h8 h10 p7 p9 )_y @@ -7595,7 +7595,7 @@ C i4 ( h8 h10 p7 p9 )_y + = 1 * y ( h8 h10 p7 p9 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_3_2_4_1_1(l_a_offset,k_a_of &fset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h8 h10 p7 p9 )_y @@ -7665,7 +7665,7 @@ C i4 ( h8 h10 p7 p9 )_y END SUBROUTINE eomccsd_2pdm_pphh_mo_3_2_4_1_2(d_a,k_a_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h8 h10 p7 p9 )_y + = 1 * y ( h8 h10 p7 p9 )_y @@ -7765,7 +7765,7 @@ C i4 ( h8 h10 p7 p9 )_y + = 1 * y ( h8 h10 p7 p9 )_y END SUBROUTINE eomccsd_2pdm_pphh_mo_3_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_ytx + = -1 * Sum ( h9 ) * x ( p3 h9 )_x * i2 ( h9 h1 )_yt @@ -7893,7 +7893,7 @@ C i1 ( p3 h1 )_ytx + = -1 * Sum ( h9 ) * x ( p3 h9 )_x * i2 ( h9 h1 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_3_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h9 p5 )_y @@ -8021,7 +8021,7 @@ C i2 ( h9 h1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h9 p5 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_3_3_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h1 )_yt @@ -8077,7 +8077,7 @@ C i2 ( h9 h1 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_3_3_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h1 )_yt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h7 h9 p5 p6 )_y @@ -8253,7 +8253,7 @@ C i2 ( h9 h1 )_yt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h7 END SUBROUTINE eomccsd_2pdm_pphh_mo_3_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yxt + = 1/2 * t ( p3 h1 )_t * i2 ( )_yx @@ -8373,7 +8373,7 @@ C i1 ( p3 h1 )_yxt + = 1/2 * t ( p3 h1 )_t * i2 ( )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_3_4_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h6 p5 )_y @@ -8490,7 +8490,7 @@ C i2 ( )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h6 p5 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_3_4_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( )_yx @@ -8524,7 +8524,7 @@ C i2 ( )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_3_4_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( )_yx + = 1/4 * Sum ( h7 h8 p5 p6 ) * x ( p5 p6 h7 h8 )_x * y ( h7 h8 p5 p6 )_y @@ -8680,7 +8680,7 @@ C i2 ( )_yx + = 1/4 * Sum ( h7 h8 p5 p6 ) * x ( p5 p6 h7 h8 )_x * y ( h7 h8 END SUBROUTINE eomccsd_2pdm_pphh_mo_3_5(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yxt + = 1 * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i2 ( h6 p5 )_yx @@ -8842,7 +8842,7 @@ C i1 ( p3 h1 )_yxt + = 1 * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i2 ( h6 p5 END SUBROUTINE eomccsd_2pdm_pphh_mo_3_5_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p5 )_yx + = 1 * x ( )_x * y ( h6 p5 )_y @@ -8959,7 +8959,7 @@ C i2 ( h6 p5 )_yx + = 1 * x ( )_x * y ( h6 p5 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_3_5_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p5 )_yx @@ -9015,7 +9015,7 @@ C i2 ( h6 p5 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_3_5_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p5 )_yx + = 1 * Sum ( h8 p7 ) * x ( p7 h8 )_x * y ( h6 h8 p5 p7 )_y @@ -9176,7 +9176,7 @@ C i2 ( h6 p5 )_yx + = 1 * Sum ( h8 p7 ) * x ( p7 h8 )_x * y ( h6 h8 p5 p7 )_ END SUBROUTINE eomccsd_2pdm_pphh_mo_3_6(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_ytx + = 1/2 * Sum ( h7 h8 p6 ) * x ( p3 p6 h7 h8 )_x * i2 ( h7 h8 h1 p6 )_yt @@ -9342,7 +9342,7 @@ C i1 ( p3 h1 )_ytx + = 1/2 * Sum ( h7 h8 p6 ) * x ( p3 p6 h7 h8 )_x * i2 ( h END SUBROUTINE eomccsd_2pdm_pphh_mo_3_6_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p6 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h7 h8 p5 p6 )_y @@ -9496,7 +9496,7 @@ C i2 ( h7 h8 h1 p6 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h7 h8 p5 p END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_3_6_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p6 )_yt @@ -9568,7 +9568,7 @@ C i2 ( h7 h8 h1 p6 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_3_7(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yxt + = -1/2 * Sum ( h6 h7 p5 ) * t ( p3 p5 h6 h7 )_t * i2 ( h6 h7 h1 p5 )_yx @@ -9734,7 +9734,7 @@ C i1 ( p3 h1 )_yxt + = -1/2 * Sum ( h6 h7 p5 ) * t ( p3 p5 h6 h7 )_t * i2 ( END SUBROUTINE eomccsd_2pdm_pphh_mo_3_7_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h1 p5 )_yx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * y ( h6 h7 p5 p8 )_y @@ -9888,7 +9888,7 @@ C i2 ( h6 h7 h1 p5 )_yx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * y ( h6 h7 p5 p END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_3_7_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h1 p5 )_yx @@ -9960,7 +9960,7 @@ C i2 ( h6 h7 h1 p5 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_3_8(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yttx + = -1/2 * x ( )_x * i2 ( p3 h1 )_ytt @@ -10077,7 +10077,7 @@ C i1 ( p3 h1 )_yttx + = -1/2 * x ( )_x * i2 ( p3 h1 )_ytt END SUBROUTINE eomccsd_2pdm_pphh_mo_3_8_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p3 h1 )_ytt + = -1 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * i3 ( h7 h8 h1 p6 )_yt @@ -10243,7 +10243,7 @@ C i2 ( p3 h1 )_ytt + = -1 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * i3 ( h7 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_3_8_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p3 h1 )_ytt @@ -10299,7 +10299,7 @@ C i2 ( p3 h1 )_ytt END SUBROUTINE eomccsd_2pdm_pphh_mo_3_8_1_1(d_a,k_a_offset,d_b,k_b_off &set,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h1 p6 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h7 h8 p5 p6 )_y @@ -10453,7 +10453,7 @@ C i3 ( h7 h8 h1 p6 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h7 h8 p5 p END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_3_8_1_1(l_a_offset,k_a_offs &et,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h1 p6 )_yt @@ -10525,7 +10525,7 @@ C i3 ( h7 h8 h1 p6 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytx + = 1 * P( 4 ) * x ( p3 h1 )_x * i1 ( p4 h2 )_yt @@ -10687,7 +10687,7 @@ C i0 ( p3 p4 h1 h2 )_ytx + = 1 * P( 4 ) * x ( p3 h1 )_x * i1 ( p4 h2 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yt + = 1 * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * y ( h6 p5 )_y @@ -10849,7 +10849,7 @@ C i1 ( p3 h1 )_yt + = 1 * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * y ( h6 p5 )_ END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yt @@ -10905,7 +10905,7 @@ C i1 ( p3 h1 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_4_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_ytt + = -1 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h1 )_yt @@ -11033,7 +11033,7 @@ C i1 ( p3 h1 )_ytt + = -1 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h1 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_4_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h9 p5 )_y @@ -11161,7 +11161,7 @@ C i2 ( h9 h1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h9 p5 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_4_2_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h1 )_yt @@ -11217,7 +11217,7 @@ C i2 ( h9 h1 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_4_2_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h1 )_yt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h7 h9 p5 p6 )_y @@ -11393,7 +11393,7 @@ C i2 ( h9 h1 )_yt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h7 END SUBROUTINE eomccsd_2pdm_pphh_mo_4_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_ytt + = -1/2 * Sum ( h6 h7 p5 ) * t ( p3 p5 h6 h7 )_t * i2 ( h6 h7 h1 p5 )_yt @@ -11559,7 +11559,7 @@ C i1 ( p3 h1 )_ytt + = -1/2 * Sum ( h6 h7 p5 ) * t ( p3 p5 h6 h7 )_t * i2 ( END SUBROUTINE eomccsd_2pdm_pphh_mo_4_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h1 p5 )_yt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * y ( h6 h7 p5 p8 )_y @@ -11713,7 +11713,7 @@ C i2 ( h6 h7 h1 p5 )_yt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * y ( h6 h7 p5 p END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_4_3_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h1 p5 )_yt @@ -11785,7 +11785,7 @@ C i2 ( h6 h7 h1 p5 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yxt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_yx @@ -11950,7 +11950,7 @@ C i0 ( p3 p4 h1 h2 )_yxt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t END SUBROUTINE eomccsd_2pdm_pphh_mo_5_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_yx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * y ( h5 p6 )_y @@ -12078,7 +12078,7 @@ C i1 ( h5 h1 )_yx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * y ( h5 p6 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_5_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_yx @@ -12134,7 +12134,7 @@ C i1 ( h5 h1 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_5_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_yx + = 1/2 * Sum ( h8 p6 p7 ) * x ( p6 p7 h1 h8 )_x * y ( h5 h8 p6 p7 )_y @@ -12310,7 +12310,7 @@ C i1 ( h5 h1 )_yx + = 1/2 * Sum ( h8 p6 p7 ) * x ( p6 p7 h1 h8 )_x * y ( h5 END SUBROUTINE eomccsd_2pdm_pphh_mo_5_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_ytx + = 1 * x ( )_x * i2 ( h5 h1 )_yt @@ -12427,7 +12427,7 @@ C i1 ( h5 h1 )_ytx + = 1 * x ( )_x * i2 ( h5 h1 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_5_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h1 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h5 p6 )_y @@ -12555,7 +12555,7 @@ C i2 ( h5 h1 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h5 p6 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_5_3_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h1 )_yt @@ -12611,7 +12611,7 @@ C i2 ( h5 h1 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_5_3_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h1 )_yt + = 1/2 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h5 h8 p6 p7 )_y @@ -12787,7 +12787,7 @@ C i2 ( h5 h1 )_yt + = 1/2 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h5 END SUBROUTINE eomccsd_2pdm_pphh_mo_5_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_yxt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * i2 ( h5 p6 )_yx @@ -12915,7 +12915,7 @@ C i1 ( h5 h1 )_yxt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * i2 ( h5 p6 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_5_4_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p6 )_yx + = 1 * Sum ( h8 p7 ) * x ( p7 h8 )_x * y ( h5 h8 p6 p7 )_y @@ -13076,7 +13076,7 @@ C i2 ( h5 p6 )_yx + = 1 * Sum ( h8 p7 ) * x ( p7 h8 )_x * y ( h5 h8 p6 p7 )_ END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_5_4_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p6 )_yx @@ -13132,7 +13132,7 @@ C i2 ( h5 p6 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_6(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytx + = -1 * P( 2 ) * Sum ( h9 ) * x ( p3 h9 )_x * i1 ( h9 p4 h1 h2 )_yt @@ -13286,7 +13286,7 @@ C i0 ( p3 p4 h1 h2 )_ytx + = -1 * P( 2 ) * Sum ( h9 ) * x ( p3 h9 )_x * i1 ( END SUBROUTINE eomccsd_2pdm_pphh_mo_6_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_yt + = -1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * y ( h9 p5 )_y @@ -13441,7 +13441,7 @@ C i1 ( h9 p3 h1 h2 )_yt + = -1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * y ( h9 p END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_6_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_yt @@ -13513,7 +13513,7 @@ C i1 ( h9 p3 h1 h2 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_6_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i2 ( h6 h9 h2 p5 )_yt @@ -13710,7 +13710,7 @@ C i1 ( h9 p3 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 ) END SUBROUTINE eomccsd_2pdm_pphh_mo_6_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 h1 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * y ( h6 h9 p5 p7 )_y @@ -13864,7 +13864,7 @@ C i2 ( h6 h9 h1 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * y ( h6 h9 p5 p7 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_6_2_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 h1 p5 )_yt @@ -13936,7 +13936,7 @@ C i2 ( h6 h9 h1 p5 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_7(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yxt + = 1 * t ( p3 p4 h1 h2 )_t * i1 ( )_yx @@ -14073,7 +14073,7 @@ C i0 ( p3 p4 h1 h2 )_yxt + = 1 * t ( p3 p4 h1 h2 )_t * i1 ( )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_7_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h6 p5 )_y @@ -14190,7 +14190,7 @@ C i1 ( )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h6 p5 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_7_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yx @@ -14224,7 +14224,7 @@ C i1 ( )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_7_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yx + = 1/4 * Sum ( h7 h8 p5 p6 ) * x ( p5 p6 h7 h8 )_x * y ( h7 h8 p5 p6 )_y @@ -14380,7 +14380,7 @@ C i1 ( )_yx + = 1/4 * Sum ( h7 h8 p5 p6 ) * x ( p5 p6 h7 h8 )_x * y ( h7 h8 END SUBROUTINE eomccsd_2pdm_pphh_mo_8(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytx + = 1/2 * P( 2 ) * Sum ( p8 ) * x ( p3 p8 h1 h2 )_x * i1 ( p4 p8 )_yt @@ -14545,7 +14545,7 @@ C i0 ( p3 p4 h1 h2 )_ytx + = 1/2 * P( 2 ) * Sum ( p8 ) * x ( p3 p8 h1 h2 )_x END SUBROUTINE eomccsd_2pdm_pphh_mo_8_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p8 )_yt + = 1 * Sum ( h6 h7 p5 ) * t ( p3 p5 h6 h7 )_t * y ( h6 h7 p5 p8 )_y @@ -14721,7 +14721,7 @@ C i1 ( p3 p8 )_yt + = 1 * Sum ( h6 h7 p5 ) * t ( p3 p5 h6 h7 )_t * y ( h6 h7 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_8_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p8 )_yt @@ -14777,7 +14777,7 @@ C i1 ( p3 p8 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_9(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yxt + = -1/4 * Sum ( h11 h9 ) * t ( p3 p4 h9 h11 )_t * i1 ( h9 h11 h1 h2 )_yx @@ -14940,7 +14940,7 @@ C i0 ( p3 p4 h1 h2 )_yxt + = -1/4 * Sum ( h11 h9 ) * t ( p3 p4 h9 h11 )_t * END SUBROUTINE eomccsd_2pdm_pphh_mo_9_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h11 h1 h2 )_yx + = -1 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * y ( h9 h11 p7 p8 )_y @@ -15102,7 +15102,7 @@ C i1 ( h9 h11 h1 h2 )_yx + = -1 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * y ( END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_9_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h11 h1 h2 )_yx @@ -15174,7 +15174,7 @@ C i1 ( h9 h11 h1 h2 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_9_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h11 h1 h2 )_yxt + = -2 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h9 h11 h2 p7 )_yx @@ -15326,7 +15326,7 @@ C i1 ( h9 h11 h1 h2 )_yxt + = -2 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 END SUBROUTINE eomccsd_2pdm_pphh_mo_9_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h11 h1 p7 )_yx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * y ( h9 h11 p7 p8 )_y @@ -15480,7 +15480,7 @@ C i2 ( h9 h11 h1 p7 )_yx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * y ( h9 h11 p7 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_9_2_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h11 h1 p7 )_yx @@ -15552,7 +15552,7 @@ C i2 ( h9 h11 h1 p7 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_9_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h11 h1 h2 )_ytx + = 1 * x ( )_x * i2 ( h9 h11 h1 h2 )_yt @@ -15684,7 +15684,7 @@ C i1 ( h9 h11 h1 h2 )_ytx + = 1 * x ( )_x * i2 ( h9 h11 h1 h2 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_9_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h11 h1 h2 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h9 h11 p5 p6 )_y @@ -15846,7 +15846,7 @@ C i2 ( h9 h11 h1 h2 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_9_3_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h11 h1 h2 )_yt @@ -15918,7 +15918,7 @@ C i2 ( h9 h11 h1 h2 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_9_3_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h11 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h9 h11 h2 p5 )_yt @@ -16070,7 +16070,7 @@ C i2 ( h9 h11 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 END SUBROUTINE eomccsd_2pdm_pphh_mo_9_3_2_1(d_a,k_a_offset,d_b,k_b_off &set,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h11 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h9 h11 p5 p6 )_y @@ -16224,7 +16224,7 @@ C i3 ( h9 h11 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h9 h11 p5 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_9_3_2_1(l_a_offset,k_a_offs &et,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h11 h1 p5 )_yt @@ -16296,7 +16296,7 @@ C i3 ( h9 h11 h1 p5 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_10(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yxt + = 1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i1 ( h6 p4 h2 p5 )_yx @@ -16499,7 +16499,7 @@ C i0 ( p3 p4 h1 h2 )_yxt + = 1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_ END SUBROUTINE eomccsd_2pdm_pphh_mo_10_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_yx + = 1 * Sum ( h8 p7 ) * x ( p3 p7 h1 h8 )_x * y ( h6 h8 p5 p7 )_y @@ -16702,7 +16702,7 @@ C i1 ( h6 p3 h1 p5 )_yx + = 1 * Sum ( h8 p7 ) * x ( p3 p7 h1 h8 )_x * y ( h6 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_10_1(l_a_offset,k_a_offset, &size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_yx @@ -16774,7 +16774,7 @@ C i1 ( h6 p3 h1 p5 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_10_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_yxt + = 1/2 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * i2 ( h6 h8 p5 p7 )_yx @@ -16977,7 +16977,7 @@ C i1 ( h6 p3 h1 p5 )_yxt + = 1/2 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * i2 END SUBROUTINE eomccsd_2pdm_pphh_mo_10_2_1(d_a,k_a_offset,d_b,k_b_offs &et,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h8 p5 p7 )_yx + = 1 * x ( )_x * y ( h6 h8 p5 p7 )_y @@ -17110,7 +17110,7 @@ C i2 ( h6 h8 p5 p7 )_yx + = 1 * x ( )_x * y ( h6 h8 p5 p7 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_10_2_1(l_a_offset,k_a_offse &t,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h8 p5 p7 )_yx @@ -17182,7 +17182,7 @@ C i2 ( h6 h8 p5 p7 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_11(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytx + = 1/4 * Sum ( h7 h8 ) * x ( p3 p4 h7 h8 )_x * i1 ( h7 h8 h1 h2 )_yt @@ -17345,7 +17345,7 @@ C i0 ( p3 p4 h1 h2 )_ytx + = 1/4 * Sum ( h7 h8 ) * x ( p3 p4 h7 h8 )_x * i1 END SUBROUTINE eomccsd_2pdm_pphh_mo_11_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h1 h2 )_yt + = 1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h7 h8 p5 p6 )_y @@ -17507,7 +17507,7 @@ C i1 ( h7 h8 h1 h2 )_yt + = 1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h7 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_11_1(l_a_offset,k_a_offset, &size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h1 h2 )_yt @@ -17579,7 +17579,7 @@ C i1 ( h7 h8 h1 h2 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_11_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h7 h8 h2 p5 )_yt @@ -17731,7 +17731,7 @@ C i1 ( h7 h8 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( END SUBROUTINE eomccsd_2pdm_pphh_mo_11_2_1(d_a,k_a_offset,d_b,k_b_offs &et,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p5 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h7 h8 p5 p6 )_y @@ -17885,7 +17885,7 @@ C i2 ( h7 h8 h1 p5 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h7 h8 p5 p END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_11_2_1(l_a_offset,k_a_offse &t,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p5 )_yt @@ -17957,7 +17957,7 @@ C i2 ( h7 h8 h1 p5 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_12(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yxt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i1 ( p4 p5 )_yx @@ -18122,7 +18122,7 @@ C i0 ( p3 p4 h1 h2 )_yxt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_ END SUBROUTINE eomccsd_2pdm_pphh_mo_12_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_yx + = 1 * Sum ( h7 h8 p6 ) * x ( p3 p6 h7 h8 )_x * y ( h7 h8 p5 p6 )_y @@ -18298,7 +18298,7 @@ C i1 ( p3 p5 )_yx + = 1 * Sum ( h7 h8 p6 ) * x ( p3 p6 h7 h8 )_x * y ( h7 h8 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_12_1(l_a_offset,k_a_offset, &size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_yx @@ -18354,7 +18354,7 @@ C i1 ( p3 p5 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_12_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_ytx + = 1 * x ( )_x * i2 ( p3 p5 )_yt @@ -18471,7 +18471,7 @@ C i1 ( p3 p5 )_ytx + = 1 * x ( )_x * i2 ( p3 p5 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_12_2_1(d_a,k_a_offset,d_b,k_b_offs &et,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p3 p5 )_yt + = 1 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * y ( h7 h8 p5 p6 )_y @@ -18647,7 +18647,7 @@ C i2 ( p3 p5 )_yt + = 1 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * y ( h7 h8 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_12_2_1(l_a_offset,k_a_offse &t,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p3 p5 )_yt diff --git a/src/tce/gradients/eomccsd_2pdm_pphh_zvec_mo.F b/src/tce/gradients/eomccsd_2pdm_pphh_zvec_mo.F index 87fc16f30b..fb07d5315f 100644 --- a/src/tce/gradients/eomccsd_2pdm_pphh_zvec_mo.F +++ b/src/tce/gradients/eomccsd_2pdm_pphh_zvec_mo.F @@ -1,6 +1,6 @@ SUBROUTINE eomccsd_2pdm_pphh_zvec_mo(d_i0,d_t1,d_t2,d_y1,d_y2,k_i0 &_offset,k_t1_offset,k_t2_offset,k_y1_offset,k_y2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h9 ) * t ( p3 h9 )_t * i1 ( h9 p4 h1 h2 )_yt @@ -223,7 +223,7 @@ C i1 ( h6 p3 h1 p5 )_yt + = 1 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * y END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_1(d_a,k_a_offset,d_b,k_b_offs &et,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h9 ) * t ( p3 h9 )_t * i1 ( h9 p4 h1 h2 )_yt @@ -377,7 +377,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h9 ) * t ( p3 h9 )_t * i1 ( END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_1_1(d_a,k_a_offset,d_b,k_b_of &fset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_yt + = -1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * y ( h9 p5 )_y @@ -532,7 +532,7 @@ C i1 ( h9 p3 h1 h2 )_yt + = -1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * y ( h9 p END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_zvec_mo_1_1(l_a_offset,k_a_off &set,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_yt @@ -604,7 +604,7 @@ C i1 ( h9 p3 h1 h2 )_yt END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_1_2(d_a,k_a_offset,d_b,k_b_of &fset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_ytt + = 1/4 * Sum ( h10 ) * t ( p3 h10 )_t * i2 ( h9 h10 h1 h2 )_yt @@ -758,7 +758,7 @@ C i1 ( h9 p3 h1 h2 )_ytt + = 1/4 * Sum ( h10 ) * t ( p3 h10 )_t * i2 ( h9 h1 END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_1_2_1(d_a,k_a_offset,d_b,k_b_ &offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_yt + = -1 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * y ( h9 h10 p7 p8 )_y @@ -920,7 +920,7 @@ C i2 ( h9 h10 h1 h2 )_yt + = -1 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * y ( END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_zvec_mo_1_2_1(l_a_offset,k_a_o &ffset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_yt @@ -992,7 +992,7 @@ C i2 ( h9 h10 h1 h2 )_yt END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_1_2_2(d_a,k_a_offset,d_b,k_b_ &offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h9 h10 h2 p5 )_yt @@ -1144,7 +1144,7 @@ C i2 ( h9 h10 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_1_2_2_1(d_a,k_a_offset,d_b,k_ &b_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h9 h10 p5 p6 )_y @@ -1298,7 +1298,7 @@ C i3 ( h9 h10 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h9 h10 p5 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_zvec_mo_1_2_2_1(l_a_offset,k_a &_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 p5 )_yt @@ -1370,7 +1370,7 @@ C i3 ( h9 h10 h1 p5 )_yt END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_1_3(d_a,k_a_offset,d_b,k_b_of &fset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * i2 ( h8 h9 h2 p7 )_yt @@ -1567,7 +1567,7 @@ C i1 ( h9 p3 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 ) END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_1_3_1(d_a,k_a_offset,d_b,k_b_ &offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h1 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h8 h9 p5 p7 )_y @@ -1721,7 +1721,7 @@ C i2 ( h8 h9 h1 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h8 h9 p5 p END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_zvec_mo_1_3_1(l_a_offset,k_a_o &ffset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h1 p7 )_yt @@ -1793,7 +1793,7 @@ C i2 ( h8 h9 h1 p7 )_yt END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_2(d_a,k_a_offset,d_b,k_b_offs &et,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_yt @@ -1958,7 +1958,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_2_1(d_a,k_a_offset,d_b,k_b_of &fset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h5 p6 )_y @@ -2086,7 +2086,7 @@ C i1 ( h5 h1 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h5 p6 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_zvec_mo_2_1(l_a_offset,k_a_off &set,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_yt @@ -2142,7 +2142,7 @@ C i1 ( h5 h1 )_yt END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_2_2(d_a,k_a_offset,d_b,k_b_of &fset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_yt + = 1/2 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h5 h8 p6 p7 )_y @@ -2318,7 +2318,7 @@ C i1 ( h5 h1 )_yt + = 1/2 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h5 END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_3(d_a,k_a_offset,d_b,k_b_offs &et,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = 1 * P( 4 ) * t ( p3 h1 )_t * i1 ( p4 h2 )_yt @@ -2480,7 +2480,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = 1 * P( 4 ) * t ( p3 h1 )_t * i1 ( p4 h2 )_yt END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_3_1(d_a,k_a_offset,d_b,k_b_of &fset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yt + = 1 * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * y ( h6 p5 )_y @@ -2642,7 +2642,7 @@ C i1 ( p3 h1 )_yt + = 1 * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * y ( h6 p5 )_ END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_zvec_mo_3_1(l_a_offset,k_a_off &set,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yt @@ -2698,7 +2698,7 @@ C i1 ( p3 h1 )_yt END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_3_2(d_a,k_a_offset,d_b,k_b_of &fset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_ytt + = -1/2 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h1 )_yt @@ -2826,7 +2826,7 @@ C i1 ( p3 h1 )_ytt + = -1/2 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h1 )_yt END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_3_2_1(d_a,k_a_offset,d_b,k_b_ &offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i3 ( h9 p7 )_y @@ -2954,7 +2954,7 @@ C i2 ( h9 h1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i3 ( h9 p7 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_zvec_mo_3_2_1(l_a_offset,k_a_o &ffset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h1 )_yt @@ -3010,7 +3010,7 @@ C i2 ( h9 h1 )_yt END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_3_2_1_1(d_a,k_a_offset,d_c,k_ &c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 p7 )_y + = 1 * y ( h9 p7 )_y @@ -3095,7 +3095,7 @@ C i3 ( h9 p7 )_y + = 1 * y ( h9 p7 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_zvec_mo_3_2_1_1(l_a_offset,k_a &_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 p7 )_y @@ -3151,7 +3151,7 @@ C i3 ( h9 p7 )_y END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_3_2_1_2(d_a,k_a_offset,d_c,k_ &c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 p7 )_y + = 1 * y ( h9 p7 )_y @@ -3236,7 +3236,7 @@ C i3 ( h9 p7 )_y + = 1 * y ( h9 p7 )_y END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_3_2_2(d_a,k_a_offset,d_b,k_b_ &offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h1 )_yt + = -1 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h8 h9 p6 p7 )_y @@ -3412,7 +3412,7 @@ C i2 ( h9 h1 )_yt + = -1 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h8 h END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_3_3(d_a,k_a_offset,d_b,k_b_of &fset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_ytt + = 1/2 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * i2 ( h7 h8 h1 p6 )_yt @@ -3578,7 +3578,7 @@ C i1 ( p3 h1 )_ytt + = 1/2 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * i2 ( h END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_3_3_1(d_a,k_a_offset,d_b,k_b_ &offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p6 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h7 h8 p5 p6 )_y @@ -3732,7 +3732,7 @@ C i2 ( h7 h8 h1 p6 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h7 h8 p5 p END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_zvec_mo_3_3_1(l_a_offset,k_a_o &ffset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p6 )_yt @@ -3804,7 +3804,7 @@ C i2 ( h7 h8 h1 p6 )_yt END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_4(d_a,k_a_offset,d_b,k_b_offs &et,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i1 ( p4 p5 )_yt @@ -3969,7 +3969,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_ END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_4_1(d_a,k_a_offset,d_b,k_b_of &fset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_yt + = 1 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * y ( h7 h8 p5 p6 )_y @@ -4145,7 +4145,7 @@ C i1 ( p3 p5 )_yt + = 1 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * y ( h7 h8 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_zvec_mo_4_1(l_a_offset,k_a_off &set,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_yt @@ -4201,7 +4201,7 @@ C i1 ( p3 p5 )_yt END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_5(d_a,k_a_offset,d_b,k_b_offs &et,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = 1/4 * Sum ( h7 h8 ) * t ( p3 p4 h7 h8 )_t * i1 ( h7 h8 h1 h2 )_yt @@ -4364,7 +4364,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = 1/4 * Sum ( h7 h8 ) * t ( p3 p4 h7 h8 )_t * i1 END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_5_1(d_a,k_a_offset,d_b,k_b_of &fset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h1 h2 )_yt + = 1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h7 h8 p5 p6 )_y @@ -4526,7 +4526,7 @@ C i1 ( h7 h8 h1 h2 )_yt + = 1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h7 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_zvec_mo_5_1(l_a_offset,k_a_off &set,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h1 h2 )_yt @@ -4598,7 +4598,7 @@ C i1 ( h7 h8 h1 h2 )_yt END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_5_2(d_a,k_a_offset,d_b,k_b_of &fset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h7 h8 h2 p5 )_yt @@ -4750,7 +4750,7 @@ C i1 ( h7 h8 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_5_2_1(d_a,k_a_offset,d_b,k_b_ &offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p5 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h7 h8 p5 p6 )_y @@ -4904,7 +4904,7 @@ C i2 ( h7 h8 h1 p5 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h7 h8 p5 p END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_zvec_mo_5_2_1(l_a_offset,k_a_o &ffset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p5 )_yt @@ -4976,7 +4976,7 @@ C i2 ( h7 h8 h1 p5 )_yt END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_6(d_a,k_a_offset,d_b,k_b_offs &et,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = 1/2 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i1 ( h6 p4 h2 p5 )_yt @@ -5179,7 +5179,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = 1/2 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_6_1(d_a,k_a_offset,d_b,k_b_of &fset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_yt + = 1 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * y ( h6 h8 p5 p7 )_y @@ -5382,7 +5382,7 @@ C i1 ( h6 p3 h1 p5 )_yt + = 1 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * y ( h6 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_zvec_mo_6_1(l_a_offset,k_a_off &set,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_yt diff --git a/src/tce/gradients/eomccsd_2pdm_pphp_mo.F b/src/tce/gradients/eomccsd_2pdm_pphp_mo.F index 0a08a11115..336b604a45 100644 --- a/src/tce/gradients/eomccsd_2pdm_pphp_mo.F +++ b/src/tce/gradients/eomccsd_2pdm_pphp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_2pdm_pphp_mo(d_i0,d_t1,d_t2,d_x0,d_x1,d_x2,d_y1 &,d_y2,k_i0_offset,k_t1_offset,k_t2_offset,k_x0_offset,k_x1_offset, &k_x2_offset,k_y1_offset,k_y2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_yx + = -1/2 * P( 2 ) * Sum ( h5 ) * x ( p1 p3 h2 h5 )_x * y ( h5 p4 )_y @@ -254,7 +254,7 @@ C i1 ( h7 p1 h2 p3 )_yt + = 1/2 * P( 2 ) * Sum ( h6 p5 ) * t ( p1 p5 h2 END SUBROUTINE eomccsd_2pdm_pphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_yx + = -1/2 * P( 2 ) * Sum ( h5 ) * x ( p1 p3 h2 h5 )_x * y ( h5 p4 )_y @@ -422,7 +422,7 @@ c END SUBROUTINE eomccsd_2pdm_pphp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytx + = -1/2 * P( 4 ) * x ( p1 h2 )_x * i1 ( p3 p4 )_yt @@ -592,7 +592,7 @@ c END IF END SUBROUTINE eomccsd_2pdm_pphp_mo_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yt + = 1 * Sum ( h5 ) * t ( p1 h5 )_t * y ( h5 p3 )_y @@ -720,7 +720,7 @@ C i1 ( p1 p3 )_yt + = 1 * Sum ( h5 ) * t ( p1 h5 )_t * y ( h5 p3 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphp_mo_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yt @@ -776,7 +776,7 @@ C i1 ( p1 p3 )_yt END SUBROUTINE eomccsd_2pdm_pphp_mo_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yt + = 1/2 * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * y ( h6 h7 p3 p5 )_y @@ -952,7 +952,7 @@ C i1 ( p1 p3 )_yt + = 1/2 * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * y ( h6 END SUBROUTINE eomccsd_2pdm_pphp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_yxt + = -1/2 * P( 4 ) * t ( p1 h2 )_t * i1 ( p3 p4 )_yx @@ -1122,7 +1122,7 @@ c END IF END SUBROUTINE eomccsd_2pdm_pphp_mo_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yx + = 1 * Sum ( h5 ) * x ( p1 h5 )_x * y ( h5 p3 )_y @@ -1250,7 +1250,7 @@ C i1 ( p1 p3 )_yx + = 1 * Sum ( h5 ) * x ( p1 h5 )_x * y ( h5 p3 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphp_mo_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yx @@ -1306,7 +1306,7 @@ C i1 ( p1 p3 )_yx END SUBROUTINE eomccsd_2pdm_pphp_mo_3_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yx + = 1/2 * Sum ( h6 h7 p5 ) * x ( p1 p5 h6 h7 )_x * y ( h6 h7 p3 p5 )_y @@ -1482,7 +1482,7 @@ C i1 ( p1 p3 )_yx + = 1/2 * Sum ( h6 h7 p5 ) * x ( p1 p5 h6 h7 )_x * y ( h6 END SUBROUTINE eomccsd_2pdm_pphp_mo_3_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yxt + = 1 * Sum ( h5 ) * t ( p1 h5 )_t * i2 ( h5 p3 )_yx @@ -1610,7 +1610,7 @@ C i1 ( p1 p3 )_yxt + = 1 * Sum ( h5 ) * t ( p1 h5 )_t * i2 ( h5 p3 )_yx END SUBROUTINE eomccsd_2pdm_pphp_mo_3_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p1 )_yx + = 1 * x ( )_x * y ( h5 p1 )_y @@ -1727,7 +1727,7 @@ C i2 ( h5 p1 )_yx + = 1 * x ( )_x * y ( h5 p1 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphp_mo_3_3_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p1 )_yx @@ -1783,7 +1783,7 @@ C i2 ( h5 p1 )_yx END SUBROUTINE eomccsd_2pdm_pphp_mo_3_3_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p1 )_yx + = 1 * Sum ( h7 p6 ) * x ( p6 h7 )_x * y ( h5 h7 p1 p6 )_y @@ -1944,7 +1944,7 @@ C i2 ( h5 p1 )_yx + = 1 * Sum ( h7 p6 ) * x ( p6 h7 )_x * y ( h5 h7 p1 p6 )_ END SUBROUTINE eomccsd_2pdm_pphp_mo_3_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_ytx + = 1/2 * x ( )_x * i2 ( p1 p3 )_yt @@ -2061,7 +2061,7 @@ C i1 ( p1 p3 )_ytx + = 1/2 * x ( )_x * i2 ( p1 p3 )_yt END SUBROUTINE eomccsd_2pdm_pphp_mo_3_4_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p1 p3 )_yt + = 1 * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * y ( h6 h7 p3 p5 )_y @@ -2237,7 +2237,7 @@ C i2 ( p1 p3 )_yt + = 1 * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * y ( h6 h7 END SUBROUTINE OFFSET_eomccsd_2pdm_pphp_mo_3_4_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p1 p3 )_yt @@ -2293,7 +2293,7 @@ C i2 ( p1 p3 )_yt END SUBROUTINE eomccsd_2pdm_pphp_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_yxt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 p3 h2 h5 )_t * i1 ( h5 p4 )_yx @@ -2460,7 +2460,7 @@ c END SUBROUTINE eomccsd_2pdm_pphp_mo_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p1 )_yx + = 1 * x ( )_x * y ( h5 p1 )_y @@ -2577,7 +2577,7 @@ C i1 ( h5 p1 )_yx + = 1 * x ( )_x * y ( h5 p1 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphp_mo_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p1 )_yx @@ -2633,7 +2633,7 @@ C i1 ( h5 p1 )_yx END SUBROUTINE eomccsd_2pdm_pphp_mo_4_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p1 )_yx + = 1 * Sum ( h7 p6 ) * x ( p6 h7 )_x * y ( h5 h7 p1 p6 )_y @@ -2794,7 +2794,7 @@ C i1 ( h5 p1 )_yx + = 1 * Sum ( h7 p6 ) * x ( p6 h7 )_x * y ( h5 h7 p1 p6 )_ END SUBROUTINE eomccsd_2pdm_pphp_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_yxt + = 1 * P( 2 ) * Sum ( h8 ) * t ( p1 h8 )_t * i1 ( h8 p3 h2 p4 )_yx @@ -2948,7 +2948,7 @@ C i0 ( p1 p3 h2 p4 )_yxt + = 1 * P( 2 ) * Sum ( h8 ) * t ( p1 h8 )_t * i1 ( END SUBROUTINE eomccsd_2pdm_pphp_mo_5_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 p1 h2 p3 )_yx + = -1/2 * P( 2 ) * Sum ( h7 p6 ) * x ( p1 p6 h2 h7 )_x * y ( h7 h8 p3 p6 )_y @@ -3161,7 +3161,7 @@ c & - 1))))) END SUBROUTINE OFFSET_eomccsd_2pdm_pphp_mo_5_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 p1 h2 p3 )_yx @@ -3233,7 +3233,7 @@ C i1 ( h8 p1 h2 p3 )_yx END SUBROUTINE eomccsd_2pdm_pphp_mo_5_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 p1 h2 p3 )_yxt + = -1/2 * Sum ( h9 ) * t ( p1 h9 )_t * i2 ( h8 h9 h2 p3 )_yx @@ -3387,7 +3387,7 @@ C i1 ( h8 p1 h2 p3 )_yxt + = -1/2 * Sum ( h9 ) * t ( p1 h9 )_t * i2 ( h8 h9 END SUBROUTINE eomccsd_2pdm_pphp_mo_5_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h2 p1 )_yx + = 1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h2 )_x * y ( h8 h9 p1 p7 )_y @@ -3551,7 +3551,7 @@ c &)) END SUBROUTINE OFFSET_eomccsd_2pdm_pphp_mo_5_2_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h2 p1 )_yx @@ -3623,7 +3623,7 @@ C i2 ( h8 h9 h2 p1 )_yx END SUBROUTINE eomccsd_2pdm_pphp_mo_5_2_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h2 p1 )_ytx + = 1 * x ( )_x * i3 ( h8 h9 h2 p1 )_yt @@ -3756,7 +3756,7 @@ C i2 ( h8 h9 h2 p1 )_ytx + = 1 * x ( )_x * i3 ( h8 h9 h2 p1 )_yt END SUBROUTINE eomccsd_2pdm_pphp_mo_5_2_2_1(d_a,k_a_offset,d_b,k_b_off &set,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h2 p1 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h8 h9 p1 p5 )_y @@ -3922,7 +3922,7 @@ c END SUBROUTINE OFFSET_eomccsd_2pdm_pphp_mo_5_2_2_1(l_a_offset,k_a_offs &et,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h2 p1 )_yt @@ -3994,7 +3994,7 @@ C i3 ( h8 h9 h2 p1 )_yt END SUBROUTINE eomccsd_2pdm_pphp_mo_5_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 p1 h2 p3 )_ytx + = -1 * Sum ( h7 ) * x ( p1 h7 )_x * i2 ( h7 h8 h2 p3 )_yt @@ -4148,7 +4148,7 @@ C i1 ( h8 p1 h2 p3 )_ytx + = -1 * Sum ( h7 ) * x ( p1 h7 )_x * i2 ( h7 h8 h2 END SUBROUTINE eomccsd_2pdm_pphp_mo_5_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h2 p1 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h7 h8 p1 p5 )_y @@ -4314,7 +4314,7 @@ c END SUBROUTINE OFFSET_eomccsd_2pdm_pphp_mo_5_3_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h2 p1 )_yt @@ -4386,7 +4386,7 @@ C i2 ( h7 h8 h2 p1 )_yt END SUBROUTINE eomccsd_2pdm_pphp_mo_5_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 p1 h2 p3 )_yxt + = -1/2 * P( 2 ) * Sum ( h6 p5 ) * t ( p1 p5 h2 h6 )_t * i2 ( h6 h8 p3 p5 )_yx @@ -4583,7 +4583,7 @@ c & - 1))))) END SUBROUTINE eomccsd_2pdm_pphp_mo_5_4_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h8 p1 p5 )_yx + = 1 * x ( )_x * y ( h6 h8 p1 p5 )_y @@ -4726,7 +4726,7 @@ C i2 ( h6 h8 p1 p5 )_yx + = 1 * x ( )_x * y ( h6 h8 p1 p5 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphp_mo_5_4_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h8 p1 p5 )_yx @@ -4798,7 +4798,7 @@ C i2 ( h6 h8 p1 p5 )_yx END SUBROUTINE eomccsd_2pdm_pphp_mo_6(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytx + = 1/2 * Sum ( h6 h7 ) * x ( p1 p3 h6 h7 )_x * i1 ( h6 h7 h2 p4 )_yt @@ -4961,7 +4961,7 @@ C i0 ( p1 p3 h2 p4 )_ytx + = 1/2 * Sum ( h6 h7 ) * x ( p1 p3 h6 h7 )_x * i1 END SUBROUTINE eomccsd_2pdm_pphp_mo_6_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h2 p1 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h6 h7 p1 p5 )_y @@ -5125,7 +5125,7 @@ c &)) END SUBROUTINE OFFSET_eomccsd_2pdm_pphp_mo_6_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h2 p1 )_yt @@ -5197,7 +5197,7 @@ C i1 ( h6 h7 h2 p1 )_yt END SUBROUTINE eomccsd_2pdm_pphp_mo_7(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_yxt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p3 h5 h6 )_t * i1 ( h5 h6 h2 p4 )_yx @@ -5360,7 +5360,7 @@ C i0 ( p1 p3 h2 p4 )_yxt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p3 h5 h6 )_t * i1 END SUBROUTINE eomccsd_2pdm_pphp_mo_7_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h2 p1 )_yx + = -1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h2 )_x * y ( h5 h6 p1 p7 )_y @@ -5524,7 +5524,7 @@ c &)) END SUBROUTINE OFFSET_eomccsd_2pdm_pphp_mo_7_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h2 p1 )_yx @@ -5596,7 +5596,7 @@ C i1 ( h5 h6 h2 p1 )_yx END SUBROUTINE eomccsd_2pdm_pphp_mo_7_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h2 p1 )_ytx + = 1 * x ( )_x * i2 ( h5 h6 h2 p1 )_yt @@ -5729,7 +5729,7 @@ C i1 ( h5 h6 h2 p1 )_ytx + = 1 * x ( )_x * i2 ( h5 h6 h2 p1 )_yt END SUBROUTINE eomccsd_2pdm_pphp_mo_7_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h2 p1 )_yt + = -1/2 * P( 2 ) * Sum ( p7 ) * t ( p7 h2 )_t * y ( h5 h6 p1 p7 )_y @@ -5893,7 +5893,7 @@ c &)) END SUBROUTINE OFFSET_eomccsd_2pdm_pphp_mo_7_2_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h2 p1 )_yt @@ -5965,7 +5965,7 @@ C i2 ( h5 h6 h2 p1 )_yt END SUBROUTINE eomccsd_2pdm_pphp_mo_8(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytx + = -1 * P( 2 ) * Sum ( h7 ) * x ( p1 h7 )_x * i1 ( h7 p3 h2 p4 )_yt @@ -6119,7 +6119,7 @@ C i0 ( p1 p3 h2 p4 )_ytx + = -1 * P( 2 ) * Sum ( h7 ) * x ( p1 h7 )_x * i1 ( END SUBROUTINE eomccsd_2pdm_pphp_mo_8_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p1 h2 p3 )_yt + = 1/2 * P( 2 ) * Sum ( h6 p5 ) * t ( p1 p5 h2 h6 )_t * y ( h6 h7 p3 p5 )_y @@ -6332,7 +6332,7 @@ c & - 1))))) END SUBROUTINE OFFSET_eomccsd_2pdm_pphp_mo_8_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p1 h2 p3 )_yt diff --git a/src/tce/gradients/eomccsd_2pdm_pppp_mo.F b/src/tce/gradients/eomccsd_2pdm_pppp_mo.F index d7547a2c75..f3c1e227a1 100644 --- a/src/tce/gradients/eomccsd_2pdm_pppp_mo.F +++ b/src/tce/gradients/eomccsd_2pdm_pppp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_2pdm_pppp_mo(d_i0,d_t1,d_t2,d_x0,d_x1,d_x2,d_y2 &,k_i0_offset,k_t1_offset,k_t2_offset,k_x0_offset,k_x1_offset,k_x2_ &offset,k_y2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yx + = 1/2 * Sum ( h5 h6 ) * x ( p1 p2 h5 h6 )_x * y ( h5 h6 p3 p4 )_y @@ -82,7 +82,7 @@ C i1 ( h5 h6 p1 p2 )_yx + = 1 * x ( )_x * y ( h5 h6 p1 p2 )_y END SUBROUTINE eomccsd_2pdm_pppp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yx + = 1/2 * Sum ( h5 h6 ) * x ( p1 p2 h5 h6 )_x * y ( h5 h6 p3 p4 )_y @@ -245,7 +245,7 @@ C i0 ( p1 p2 p3 p4 )_yx + = 1/2 * Sum ( h5 h6 ) * x ( p1 p2 h5 h6 )_x * y ( END SUBROUTINE eomccsd_2pdm_pppp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yxt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * i1 ( h5 p2 p3 p4 )_yx @@ -399,7 +399,7 @@ C i0 ( p1 p2 p3 p4 )_yxt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * i1 ( END SUBROUTINE eomccsd_2pdm_pppp_mo_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p1 p2 p3 )_yx + = -1 * Sum ( h6 ) * x ( p1 h6 )_x * y ( h5 h6 p2 p3 )_y @@ -553,7 +553,7 @@ C i1 ( h5 p1 p2 p3 )_yx + = -1 * Sum ( h6 ) * x ( p1 h6 )_x * y ( h5 h6 p2 p END SUBROUTINE OFFSET_eomccsd_2pdm_pppp_mo_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p1 p2 p3 )_yx @@ -625,7 +625,7 @@ C i1 ( h5 p1 p2 p3 )_yx END SUBROUTINE eomccsd_2pdm_pppp_mo_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p1 p2 p3 )_yxt + = 1/2 * Sum ( h6 ) * t ( p1 h6 )_t * i2 ( h5 h6 p2 p3 )_yx @@ -779,7 +779,7 @@ C i1 ( h5 p1 p2 p3 )_yxt + = 1/2 * Sum ( h6 ) * t ( p1 h6 )_t * i2 ( h5 h6 p END SUBROUTINE eomccsd_2pdm_pppp_mo_2_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 p1 p2 )_yx + = -1 * x ( )_x * y ( h5 h6 p1 p2 )_y @@ -912,7 +912,7 @@ C i2 ( h5 h6 p1 p2 )_yx + = -1 * x ( )_x * y ( h5 h6 p1 p2 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pppp_mo_2_2_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 p1 p2 )_yx @@ -984,7 +984,7 @@ C i2 ( h5 h6 p1 p2 )_yx END SUBROUTINE eomccsd_2pdm_pppp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yxt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * i1 ( h5 h6 p3 p4 )_yx @@ -1147,7 +1147,7 @@ C i0 ( p1 p2 p3 p4 )_yxt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * i1 END SUBROUTINE eomccsd_2pdm_pppp_mo_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 p1 p2 )_yx + = 1 * x ( )_x * y ( h5 h6 p1 p2 )_y @@ -1280,7 +1280,7 @@ C i1 ( h5 h6 p1 p2 )_yx + = 1 * x ( )_x * y ( h5 h6 p1 p2 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pppp_mo_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 p1 p2 )_yx diff --git a/src/tce/gradients/eomccsd_x1_grad.F b/src/tce/gradients/eomccsd_x1_grad.F index 70ace741ae..b6fb1d9615 100644 --- a/src/tce/gradients/eomccsd_x1_grad.F +++ b/src/tce/gradients/eomccsd_x1_grad.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_x1_grad(d_f1,d_i0,d_t1,d_t2,d_v2,d_x1,d_x2,k_f1 &_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_v2_offset,k_x1_offse &t,k_x2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = -1 * Sum ( h6 ) * x ( p2 h6 )_x * i1 ( h6 h1 )_f @@ -204,7 +204,7 @@ C i1 ( h4 h5 h1 p3 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( h4 h5 p END SUBROUTINE eomccsd_x1_grad_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = -1 * Sum ( h6 ) * x ( p2 h6 )_x * i1 ( h6 h1 )_f @@ -331,7 +331,7 @@ C i0 ( p2 h1 )_xf + = -1 * Sum ( h6 ) * x ( p2 h6 )_x * i1 ( h6 h1 )_f RETURN END SUBROUTINE eomccsd_x1_grad_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_f + = 1 * f ( h6 h1 )_f @@ -415,7 +415,7 @@ C i1 ( h6 h1 )_f + = 1 * f ( h6 h1 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x1_grad_1_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_f @@ -471,7 +471,7 @@ C i1 ( h6 h1 )_f END SUBROUTINE eomccsd_x1_grad_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_ft + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h6 p7 )_f @@ -598,7 +598,7 @@ C i1 ( h6 h1 )_ft + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h6 p7 )_f RETURN END SUBROUTINE eomccsd_x1_grad_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f @@ -683,7 +683,7 @@ C i2 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f END SUBROUTINE OFFSET_eomccsd_x1_grad_1_2_1(l_a_offset,k_a_offset,size &) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_f @@ -739,7 +739,7 @@ C i2 ( h6 p7 )_f END SUBROUTINE eomccsd_x1_grad_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_vt + = 1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h6 p4 p7 )_v @@ -900,7 +900,7 @@ C i2 ( h6 p7 )_vt + = 1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h6 p4 p7 )_ END SUBROUTINE eomccsd_x1_grad_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 h1 p3 )_v @@ -1045,7 +1045,7 @@ C i1 ( h6 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 h1 p3 ) END SUBROUTINE eomccsd_x1_grad_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 h6 p3 p4 )_v @@ -1221,7 +1221,7 @@ C i1 ( h6 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 END SUBROUTINE eomccsd_x1_grad_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * i1 ( p2 p6 )_f @@ -1348,7 +1348,7 @@ C i0 ( p2 h1 )_xf + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * i1 ( p2 p6 )_f RETURN END SUBROUTINE eomccsd_x1_grad_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p6 )_f + = 1 * f ( p2 p6 )_f @@ -1432,7 +1432,7 @@ C i1 ( p2 p6 )_f + = 1 * f ( p2 p6 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x1_grad_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p6 )_f @@ -1488,7 +1488,7 @@ C i1 ( p2 p6 )_f END SUBROUTINE eomccsd_x1_grad_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p6 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 p3 p6 )_v @@ -1633,7 +1633,7 @@ C i1 ( p2 p6 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 p3 p6 )_ END SUBROUTINE eomccsd_x1_grad_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xv + = -1 * Sum ( p4 h3 ) * x ( p4 h3 )_x * v ( h3 p2 h1 p4 )_v @@ -1770,7 +1770,7 @@ C i0 ( p2 h1 )_xv + = -1 * Sum ( p4 h3 ) * x ( p4 h3 )_x * v ( h3 p2 h1 p4 ) END SUBROUTINE eomccsd_x1_grad_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = 1 * Sum ( p7 h6 ) * x ( p2 p7 h1 h6 )_x * i1 ( h6 p7 )_f @@ -1931,7 +1931,7 @@ C i0 ( p2 h1 )_xf + = 1 * Sum ( p7 h6 ) * x ( p2 p7 h1 h6 )_x * i1 ( h6 p7 ) RETURN END SUBROUTINE eomccsd_x1_grad_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f @@ -2015,7 +2015,7 @@ C i1 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x1_grad_4_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p7 )_f @@ -2071,7 +2071,7 @@ C i1 ( h6 p7 )_f END SUBROUTINE eomccsd_x1_grad_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 p3 p7 )_v @@ -2232,7 +2232,7 @@ C i1 ( h6 p7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 p3 p7 )_ END SUBROUTINE eomccsd_x1_grad_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p7 h6 h8 ) * x ( p2 p7 h6 h8 )_x * i1 ( h6 h8 h1 p7 )_v @@ -2397,7 +2397,7 @@ C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p7 h6 h8 ) * x ( p2 p7 h6 h8 )_x * i1 ( h RETURN END SUBROUTINE eomccsd_x1_grad_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 h1 p7 )_v + = 1 * v ( h6 h8 h1 p7 )_v @@ -2498,7 +2498,7 @@ C i1 ( h6 h8 h1 p7 )_v + = 1 * v ( h6 h8 h1 p7 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x1_grad_5_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 h1 p7 )_v @@ -2568,7 +2568,7 @@ C i1 ( h6 h8 h1 p7 )_v END SUBROUTINE eomccsd_x1_grad_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 h1 p7 )_vt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * v ( h6 h8 p3 p7 )_v @@ -2722,7 +2722,7 @@ C i1 ( h6 h8 h1 p7 )_vt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * v ( h6 h8 p3 p7 END SUBROUTINE eomccsd_x1_grad_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p4 p5 h3 ) * x ( p4 p5 h1 h3 )_x * v ( h3 p2 p4 p5 )_v @@ -2890,7 +2890,7 @@ C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p4 p5 h3 ) * x ( p4 p5 h1 h3 )_x * v ( h3 END SUBROUTINE eomccsd_x1_grad_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_fxt + = -1 * Sum ( h8 ) * t ( p2 h8 )_t * i1 ( h8 h1 )_fx @@ -3018,7 +3018,7 @@ C i0 ( p2 h1 )_fxt + = -1 * Sum ( h8 ) * t ( p2 h8 )_t * i1 ( h8 h1 )_fx END SUBROUTINE eomccsd_x1_grad_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_fx + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * i2 ( h8 p3 )_f @@ -3145,7 +3145,7 @@ C i1 ( h8 h1 )_fx + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * i2 ( h8 p3 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x1_grad_7_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_fx @@ -3200,7 +3200,7 @@ C i1 ( h8 h1 )_fx RETURN END SUBROUTINE eomccsd_x1_grad_7_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_f + = 1 * f ( h8 p3 )_f @@ -3285,7 +3285,7 @@ C i2 ( h8 p3 )_f + = 1 * f ( h8 p3 )_f END SUBROUTINE OFFSET_eomccsd_x1_grad_7_1_1(l_a_offset,k_a_offset,size &) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_f @@ -3341,7 +3341,7 @@ C i2 ( h8 p3 )_f END SUBROUTINE eomccsd_x1_grad_7_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_vt + = -1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h8 p3 p4 )_v @@ -3502,7 +3502,7 @@ C i2 ( h8 p3 )_vt + = -1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h8 p3 p4 ) END SUBROUTINE eomccsd_x1_grad_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vx + = -1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 h8 h1 p5 )_v @@ -3647,7 +3647,7 @@ C i1 ( h8 h1 )_vx + = -1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 h8 h1 p5 ) END SUBROUTINE eomccsd_x1_grad_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vx + = -1/2 * Sum ( h4 p5 p6 ) * x ( p5 p6 h1 h4 )_x * v ( h4 h8 p5 p6 )_v @@ -3823,7 +3823,7 @@ C i1 ( h8 h1 )_vx + = -1/2 * Sum ( h4 p5 p6 ) * x ( p5 p6 h1 h4 )_x * v ( h4 END SUBROUTINE eomccsd_x1_grad_7_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vxt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i2 ( h8 p3 )_vx @@ -3951,7 +3951,7 @@ C i1 ( h8 h1 )_vxt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i2 ( h8 p3 )_vx END SUBROUTINE eomccsd_x1_grad_7_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_vx + = -1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h5 h8 p3 p6 )_v @@ -4112,7 +4112,7 @@ C i2 ( h8 p3 )_vx + = -1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h5 h8 p3 p6 ) END SUBROUTINE OFFSET_eomccsd_x1_grad_7_4_1(l_a_offset,k_a_offset,size &) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_vx @@ -4168,7 +4168,7 @@ C i2 ( h8 p3 )_vx END SUBROUTINE eomccsd_x1_grad_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vxt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * i1 ( p2 p3 )_vx @@ -4296,7 +4296,7 @@ C i0 ( p2 h1 )_vxt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * i1 ( p2 p3 )_vx END SUBROUTINE eomccsd_x1_grad_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p3 )_vx + = 1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 p2 p3 p5 )_v @@ -4440,7 +4440,7 @@ C i1 ( p2 p3 )_vx + = 1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 p2 p3 p5 )_ RETURN END SUBROUTINE OFFSET_eomccsd_x1_grad_8_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p3 )_vx @@ -4496,7 +4496,7 @@ C i1 ( p2 p3 )_vx END SUBROUTINE eomccsd_x1_grad_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vxt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * i1 ( h4 p3 )_vx @@ -4658,7 +4658,7 @@ C i0 ( p2 h1 )_vxt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * i1 ( h4 p3 END SUBROUTINE eomccsd_x1_grad_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p3 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h4 h5 p3 p6 )_v @@ -4818,7 +4818,7 @@ C i1 ( h4 p3 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h4 h5 p3 p6 )_ RETURN END SUBROUTINE OFFSET_eomccsd_x1_grad_9_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p3 )_vx @@ -4874,7 +4874,7 @@ C i1 ( h4 p3 )_vx END SUBROUTINE eomccsd_x1_grad_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vxt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( h4 h5 h1 p3 )_vx @@ -5040,7 +5040,7 @@ C i0 ( p2 h1 )_vxt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( h END SUBROUTINE eomccsd_x1_grad_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( h4 h5 p3 p6 )_v @@ -5193,7 +5193,7 @@ C i1 ( h4 h5 h1 p3 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( h4 h5 p3 p6 RETURN END SUBROUTINE OFFSET_eomccsd_x1_grad_10_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_vx diff --git a/src/tce/gradients/eomccsd_x2_grad.F b/src/tce/gradients/eomccsd_x2_grad.F index 6d75e548cf..569641e217 100644 --- a/src/tce/gradients/eomccsd_x2_grad.F +++ b/src/tce/gradients/eomccsd_x2_grad.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_x2_grad(d_f1,d_i0,d_t1,d_t2,d_v2,d_x1,d_x2,k_f1 &_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_v2_offset,k_x1_offse &t,k_x2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( h9 ) * x ( p3 h9 )_x * i1 ( h9 p4 h1 h2 )_v @@ -470,7 +470,7 @@ C i1 ( h6 p3 h1 p5 )_vx + = 1 * Sum ( h7 p8 ) * x ( p3 p8 h1 h7 )_x * v END SUBROUTINE eomccsd_x2_grad_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( h9 ) * x ( p3 h9 )_x * i1 ( h9 p4 h1 h2 )_v @@ -623,7 +623,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( h9 ) * x ( p3 h9 )_x * i1 ( RETURN END SUBROUTINE eomccsd_x2_grad_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_v + = 1 * v ( h9 p3 h1 h2 )_v @@ -724,7 +724,7 @@ C i1 ( h9 p3 h1 h2 )_v + = 1 * v ( h9 p3 h1 h2 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x2_grad_1_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_v @@ -794,7 +794,7 @@ C i1 ( h9 p3 h1 h2 )_v END SUBROUTINE eomccsd_x2_grad_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h9 p3 h2 p5 )_v @@ -947,7 +947,7 @@ C i1 ( h9 p3 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( RETURN END SUBROUTINE eomccsd_x2_grad_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p3 h1 p5 )_v + = 1 * v ( h9 p3 h1 p5 )_v @@ -1049,7 +1049,7 @@ C i2 ( h9 p3 h1 p5 )_v + = 1 * v ( h9 p3 h1 p5 )_v END SUBROUTINE OFFSET_eomccsd_x2_grad_1_2_1(l_a_offset,k_a_offset,size &) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p3 h1 p5 )_v @@ -1119,7 +1119,7 @@ C i2 ( h9 p3 h1 p5 )_v END SUBROUTINE eomccsd_x2_grad_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p3 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h9 p3 p5 p6 )_v @@ -1273,7 +1273,7 @@ C i2 ( h9 p3 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h9 p3 p5 END SUBROUTINE eomccsd_x2_grad_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_ft + = -1 * Sum ( p8 ) * t ( p3 p8 h1 h2 )_t * i2 ( h9 p8 )_f @@ -1427,7 +1427,7 @@ C i1 ( h9 p3 h1 h2 )_ft + = -1 * Sum ( p8 ) * t ( p3 p8 h1 h2 )_t * i2 ( h9 RETURN END SUBROUTINE eomccsd_x2_grad_1_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p8 )_f + = 1 * f ( h9 p8 )_f @@ -1512,7 +1512,7 @@ C i2 ( h9 p8 )_f + = 1 * f ( h9 p8 )_f END SUBROUTINE OFFSET_eomccsd_x2_grad_1_3_1(l_a_offset,k_a_offset,size &) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p8 )_f @@ -1568,7 +1568,7 @@ C i2 ( h9 p8 )_f END SUBROUTINE eomccsd_x2_grad_1_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p8 )_vt + = 1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h9 p6 p8 )_v @@ -1729,7 +1729,7 @@ C i2 ( h9 p8 )_vt + = 1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h9 p6 p8 )_ END SUBROUTINE eomccsd_x2_grad_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i2 ( h6 h9 h2 p5 )_v @@ -1925,7 +1925,7 @@ C i1 ( h9 p3 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t RETURN END SUBROUTINE eomccsd_x2_grad_1_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 h1 p5 )_v + = 1 * v ( h6 h9 h1 p5 )_v @@ -2027,7 +2027,7 @@ C i2 ( h6 h9 h1 p5 )_v + = 1 * v ( h6 h9 h1 p5 )_v END SUBROUTINE OFFSET_eomccsd_x2_grad_1_4_1(l_a_offset,k_a_offset,size &) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 h1 p5 )_v @@ -2097,7 +2097,7 @@ C i2 ( h6 h9 h1 p5 )_v END SUBROUTINE eomccsd_x2_grad_1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 h1 p5 )_vt + = -1 * Sum ( p7 ) * t ( p7 h1 )_t * v ( h6 h9 p5 p7 )_v @@ -2251,7 +2251,7 @@ C i2 ( h6 h9 h1 p5 )_vt + = -1 * Sum ( p7 ) * t ( p7 h1 )_t * v ( h6 h9 p5 p END SUBROUTINE eomccsd_x2_grad_1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( h9 p3 p5 p6 )_v @@ -2416,7 +2416,7 @@ C i1 ( h9 p3 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( END SUBROUTINE eomccsd_x2_grad_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( p5 ) * x ( p5 h1 )_x * v ( p3 p4 h2 p5 )_v @@ -2572,7 +2572,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( p5 ) * x ( p5 h1 )_x * v ( p END SUBROUTINE eomccsd_x2_grad_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xf + = -1 * P( 2 ) * Sum ( h8 ) * x ( p3 p4 h1 h8 )_x * i1 ( h8 h2 )_f @@ -2736,7 +2736,7 @@ C i0 ( p3 p4 h1 h2 )_xf + = -1 * P( 2 ) * Sum ( h8 ) * x ( p3 p4 h1 h8 )_x * RETURN END SUBROUTINE eomccsd_x2_grad_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_f + = 1 * f ( h8 h1 )_f @@ -2820,7 +2820,7 @@ C i1 ( h8 h1 )_f + = 1 * f ( h8 h1 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x2_grad_3_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_f @@ -2876,7 +2876,7 @@ C i1 ( h8 h1 )_f END SUBROUTINE eomccsd_x2_grad_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_ft + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * i2 ( h8 p9 )_f @@ -3003,7 +3003,7 @@ C i1 ( h8 h1 )_ft + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * i2 ( h8 p9 )_f RETURN END SUBROUTINE eomccsd_x2_grad_3_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p9 )_f + = 1 * f ( h8 p9 )_f @@ -3088,7 +3088,7 @@ C i2 ( h8 p9 )_f + = 1 * f ( h8 p9 )_f END SUBROUTINE OFFSET_eomccsd_x2_grad_3_2_1(l_a_offset,k_a_offset,size &) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p9 )_f @@ -3144,7 +3144,7 @@ C i2 ( h8 p9 )_f END SUBROUTINE eomccsd_x2_grad_3_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p9 )_vt + = 1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h8 p6 p9 )_v @@ -3305,7 +3305,7 @@ C i2 ( h8 p9 )_vt + = 1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h8 p6 p9 )_ END SUBROUTINE eomccsd_x2_grad_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h8 h1 p5 )_v @@ -3450,7 +3450,7 @@ C i1 ( h8 h1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h8 h1 p5 ) END SUBROUTINE eomccsd_x2_grad_3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * v ( h7 h8 p5 p6 )_v @@ -3626,7 +3626,7 @@ C i1 ( h8 h1 )_vt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * v ( h7 END SUBROUTINE eomccsd_x2_grad_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xf + = 1 * P( 2 ) * Sum ( p8 ) * x ( p3 p8 h1 h2 )_x * i1 ( p4 p8 )_f @@ -3790,7 +3790,7 @@ C i0 ( p3 p4 h1 h2 )_xf + = 1 * P( 2 ) * Sum ( p8 ) * x ( p3 p8 h1 h2 )_x * RETURN END SUBROUTINE eomccsd_x2_grad_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p8 )_f + = 1 * f ( p3 p8 )_f @@ -3874,7 +3874,7 @@ C i1 ( p3 p8 )_f + = 1 * f ( p3 p8 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x2_grad_4_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p8 )_f @@ -3930,7 +3930,7 @@ C i1 ( p3 p8 )_f END SUBROUTINE eomccsd_x2_grad_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p8 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p3 p5 p8 )_v @@ -4075,7 +4075,7 @@ C i1 ( p3 p8 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p3 p5 p8 )_ END SUBROUTINE eomccsd_x2_grad_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p8 )_vt + = 1/2 * Sum ( h6 h7 p5 ) * t ( p3 p5 h6 h7 )_t * v ( h6 h7 p5 p8 )_v @@ -4251,7 +4251,7 @@ C i1 ( p3 p8 )_vt + = 1/2 * Sum ( h6 h7 p5 ) * t ( p3 p5 h6 h7 )_t * v ( h6 END SUBROUTINE eomccsd_x2_grad_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = 1/2 * Sum ( h9 h10 ) * x ( p3 p4 h9 h10 )_x * i1 ( h9 h10 h1 h2 )_v @@ -4413,7 +4413,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = 1/2 * Sum ( h9 h10 ) * x ( p3 p4 h9 h10 )_x * i1 RETURN END SUBROUTINE eomccsd_x2_grad_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h10 h1 h2 )_v + = 1 * v ( h9 h10 h1 h2 )_v @@ -4511,7 +4511,7 @@ C i1 ( h9 h10 h1 h2 )_v + = 1 * v ( h9 h10 h1 h2 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x2_grad_5_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h10 h1 h2 )_v @@ -4581,7 +4581,7 @@ C i1 ( h9 h10 h1 h2 )_v END SUBROUTINE eomccsd_x2_grad_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h10 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h9 h10 h2 p5 )_v @@ -4732,7 +4732,7 @@ C i1 ( h9 h10 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( RETURN END SUBROUTINE eomccsd_x2_grad_5_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 p5 )_v + = 1 * v ( h9 h10 h1 p5 )_v @@ -4834,7 +4834,7 @@ C i2 ( h9 h10 h1 p5 )_v + = 1 * v ( h9 h10 h1 p5 )_v END SUBROUTINE OFFSET_eomccsd_x2_grad_5_2_1(l_a_offset,k_a_offset,size &) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 p5 )_v @@ -4904,7 +4904,7 @@ C i2 ( h9 h10 h1 p5 )_v END SUBROUTINE eomccsd_x2_grad_5_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h9 h10 p5 p6 )_v @@ -5058,7 +5058,7 @@ C i2 ( h9 h10 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h9 h10 END SUBROUTINE eomccsd_x2_grad_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h10 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( h9 h10 p5 p6 )_v @@ -5220,7 +5220,7 @@ C i1 ( h9 h10 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( END SUBROUTINE eomccsd_x2_grad_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 4 ) * Sum ( p8 h7 ) * x ( p3 p8 h1 h7 )_x * i1 ( h7 p4 h2 p8 )_v @@ -5422,7 +5422,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 4 ) * Sum ( p8 h7 ) * x ( p3 p8 h1 h7 )_ RETURN END SUBROUTINE eomccsd_x2_grad_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 h1 p8 )_v + = 1 * v ( h7 p3 h1 p8 )_v @@ -5523,7 +5523,7 @@ C i1 ( h7 p3 h1 p8 )_v + = 1 * v ( h7 p3 h1 p8 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x2_grad_6_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 h1 p8 )_v @@ -5593,7 +5593,7 @@ C i1 ( h7 p3 h1 p8 )_v END SUBROUTINE eomccsd_x2_grad_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 h1 p8 )_vt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * v ( h7 p3 p5 p8 )_v @@ -5747,7 +5747,7 @@ C i1 ( h7 p3 h1 p8 )_vt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * v ( h7 p3 p5 p8 END SUBROUTINE eomccsd_x2_grad_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = 1/2 * Sum ( p5 p6 ) * x ( p5 p6 h1 h2 )_x * v ( p3 p4 p5 p6 )_v @@ -5910,7 +5910,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = 1/2 * Sum ( p5 p6 ) * x ( p5 p6 h1 h2 )_x * v ( END SUBROUTINE eomccsd_x2_grad_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h10 ) * t ( p3 h10 )_t * i1 ( h10 p4 h1 h2 )_vx @@ -6064,7 +6064,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h10 ) * t ( p3 h10 )_t * i1 END SUBROUTINE eomccsd_x2_grad_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx + = -1 * Sum ( h8 ) * x ( p3 h8 )_x * i2 ( h8 h10 h1 h2 )_v @@ -6217,7 +6217,7 @@ C i1 ( h10 p3 h1 h2 )_vx + = -1 * Sum ( h8 ) * x ( p3 h8 )_x * i2 ( h8 h10 h RETURN END SUBROUTINE OFFSET_eomccsd_x2_grad_8_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx @@ -6288,7 +6288,7 @@ C i1 ( h10 p3 h1 h2 )_vx RETURN END SUBROUTINE eomccsd_x2_grad_8_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_v + = 1 * v ( h8 h10 h1 h2 )_v @@ -6387,7 +6387,7 @@ C i2 ( h8 h10 h1 h2 )_v + = 1 * v ( h8 h10 h1 h2 )_v END SUBROUTINE OFFSET_eomccsd_x2_grad_8_1_1(l_a_offset,k_a_offset,size &) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_v @@ -6457,7 +6457,7 @@ C i2 ( h8 h10 h1 h2 )_v END SUBROUTINE eomccsd_x2_grad_8_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h8 h10 h2 p5 )_v @@ -6608,7 +6608,7 @@ C i2 ( h8 h10 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( RETURN END SUBROUTINE eomccsd_x2_grad_8_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h10 h1 p5 )_v + = 1 * v ( h8 h10 h1 p5 )_v @@ -6710,7 +6710,7 @@ C i3 ( h8 h10 h1 p5 )_v + = 1 * v ( h8 h10 h1 p5 )_v END SUBROUTINE OFFSET_eomccsd_x2_grad_8_1_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h10 h1 p5 )_v @@ -6780,7 +6780,7 @@ C i3 ( h8 h10 h1 p5 )_v END SUBROUTINE eomccsd_x2_grad_8_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h10 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h8 h10 p5 p6 )_v @@ -6934,7 +6934,7 @@ C i3 ( h8 h10 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h8 h10 END SUBROUTINE eomccsd_x2_grad_8_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( h8 h10 p5 p6 )_v @@ -7096,7 +7096,7 @@ C i2 ( h8 h10 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( END SUBROUTINE eomccsd_x2_grad_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( p6 ) * x ( p6 h1 )_x * v ( h10 p3 h2 p6 )_v @@ -7252,7 +7252,7 @@ C i1 ( h10 p3 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( p6 ) * x ( p6 h1 )_x * v ( h END SUBROUTINE eomccsd_x2_grad_8_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_fx + = 1 * Sum ( p5 ) * x ( p3 p5 h1 h2 )_x * i2 ( h10 p5 )_f @@ -7406,7 +7406,7 @@ C i1 ( h10 p3 h1 h2 )_fx + = 1 * Sum ( p5 ) * x ( p3 p5 h1 h2 )_x * i2 ( h10 RETURN END SUBROUTINE eomccsd_x2_grad_8_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_f + = 1 * f ( h10 p5 )_f @@ -7491,7 +7491,7 @@ C i2 ( h10 p5 )_f + = 1 * f ( h10 p5 )_f END SUBROUTINE OFFSET_eomccsd_x2_grad_8_3_1(l_a_offset,k_a_offset,size &) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_f @@ -7547,7 +7547,7 @@ C i2 ( h10 p5 )_f END SUBROUTINE eomccsd_x2_grad_8_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h10 p5 p6 )_v @@ -7708,7 +7708,7 @@ C i2 ( h10 p5 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h10 p5 p6 END SUBROUTINE eomccsd_x2_grad_8_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( h8 p9 ) * x ( p3 p9 h1 h8 )_x * i2 ( h8 h10 h2 p9 )_v @@ -7904,7 +7904,7 @@ C i1 ( h10 p3 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( h8 p9 ) * x ( p3 p9 h1 h8 ) RETURN END SUBROUTINE eomccsd_x2_grad_8_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 p9 )_v + = 1 * v ( h8 h10 h1 p9 )_v @@ -8006,7 +8006,7 @@ C i2 ( h8 h10 h1 p9 )_v + = 1 * v ( h8 h10 h1 p9 )_v END SUBROUTINE OFFSET_eomccsd_x2_grad_8_4_1(l_a_offset,k_a_offset,size &) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 p9 )_v @@ -8076,7 +8076,7 @@ C i2 ( h8 h10 h1 p9 )_v END SUBROUTINE eomccsd_x2_grad_8_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 p9 )_vt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * v ( h8 h10 p5 p9 )_v @@ -8230,7 +8230,7 @@ C i2 ( h8 h10 h1 p9 )_vt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * v ( h8 h10 p5 END SUBROUTINE eomccsd_x2_grad_8_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx + = -1/2 * Sum ( p6 p7 ) * x ( p6 p7 h1 h2 )_x * v ( h10 p3 p6 p7 )_v @@ -8395,7 +8395,7 @@ C i1 ( h10 p3 h1 h2 )_vx + = -1/2 * Sum ( p6 p7 ) * x ( p6 p7 h1 h2 )_x * v END SUBROUTINE eomccsd_x2_grad_8_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vxt + = 1 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h10 h1 h2 )_vx @@ -8549,7 +8549,7 @@ C i1 ( h10 p3 h1 h2 )_vxt + = 1 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h10 h END SUBROUTINE eomccsd_x2_grad_8_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_vx + = 1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( h9 h10 h2 p7 )_v @@ -8703,7 +8703,7 @@ C i2 ( h9 h10 h1 h2 )_vx + = 1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( END SUBROUTINE OFFSET_eomccsd_x2_grad_8_6_1(l_a_offset,k_a_offset,size &) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_vx @@ -8775,7 +8775,7 @@ C i2 ( h9 h10 h1 h2 )_vx END SUBROUTINE eomccsd_x2_grad_8_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_vx + = -1/4 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * v ( h9 h10 p7 p8 )_v @@ -8937,7 +8937,7 @@ C i2 ( h9 h10 h1 h2 )_vx + = -1/4 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * v END SUBROUTINE eomccsd_x2_grad_8_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h9 h10 h2 p5 )_vx @@ -9089,7 +9089,7 @@ C i2 ( h9 h10 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 END SUBROUTINE eomccsd_x2_grad_8_6_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 p5 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h9 h10 p5 p8 )_v @@ -9243,7 +9243,7 @@ C i3 ( h9 h10 h1 p5 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h9 h10 p5 END SUBROUTINE OFFSET_eomccsd_x2_grad_8_6_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 p5 )_vx @@ -9315,7 +9315,7 @@ C i3 ( h9 h10 h1 p5 )_vx END SUBROUTINE eomccsd_x2_grad_8_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h10 p3 h2 p5 )_vx @@ -9469,7 +9469,7 @@ C i1 ( h10 p3 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 END SUBROUTINE eomccsd_x2_grad_8_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p3 h1 p5 )_vx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h10 p3 p5 p7 )_v @@ -9623,7 +9623,7 @@ C i2 ( h10 p3 h1 p5 )_vx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h10 p3 p5 END SUBROUTINE OFFSET_eomccsd_x2_grad_8_7_1(l_a_offset,k_a_offset,size &) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p3 h1 p5 )_vx @@ -9695,7 +9695,7 @@ C i2 ( h10 p3 h1 p5 )_vx END SUBROUTINE eomccsd_x2_grad_8_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vxt + = 1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i2 ( h10 p5 )_vx @@ -9850,7 +9850,7 @@ C i1 ( h10 p3 h1 h2 )_vxt + = 1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i2 ( h1 END SUBROUTINE eomccsd_x2_grad_8_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_vx + = -1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h7 h10 p5 p8 )_v @@ -10011,7 +10011,7 @@ C i2 ( h10 p5 )_vx + = -1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h7 h10 p5 p8 END SUBROUTINE OFFSET_eomccsd_x2_grad_8_8_1(l_a_offset,k_a_offset,size &) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_vx @@ -10067,7 +10067,7 @@ C i2 ( h10 p5 )_vx END SUBROUTINE eomccsd_x2_grad_8_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i2 ( h6 h10 h2 p5 )_vx @@ -10264,7 +10264,7 @@ C i1 ( h10 p3 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 ) END SUBROUTINE eomccsd_x2_grad_8_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h10 h1 p5 )_vx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h6 h10 p5 p8 )_v @@ -10418,7 +10418,7 @@ C i2 ( h6 h10 h1 p5 )_vx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h6 h10 p5 END SUBROUTINE OFFSET_eomccsd_x2_grad_8_9_1(l_a_offset,k_a_offset,size &) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h10 h1 p5 )_vx @@ -10490,7 +10490,7 @@ C i2 ( h6 h10 h1 p5 )_vx END SUBROUTINE eomccsd_x2_grad_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i1 ( p3 p4 h2 p5 )_vx @@ -10644,7 +10644,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i1 ( END SUBROUTINE eomccsd_x2_grad_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p4 h1 p5 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( p3 p4 p5 p6 )_v @@ -10797,7 +10797,7 @@ C i1 ( p3 p4 h1 p5 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( p3 p4 p5 p6 RETURN END SUBROUTINE OFFSET_eomccsd_x2_grad_9_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p4 h1 p5 )_vx @@ -10869,7 +10869,7 @@ C i1 ( p3 p4 h1 p5 )_vx END SUBROUTINE eomccsd_x2_grad_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_fxt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_fx @@ -11034,7 +11034,7 @@ C i0 ( p3 p4 h1 h2 )_fxt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t END SUBROUTINE eomccsd_x2_grad_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_fx + = 1 * Sum ( p9 ) * x ( p9 h1 )_x * i2 ( h5 p9 )_f @@ -11161,7 +11161,7 @@ C i1 ( h5 h1 )_fx + = 1 * Sum ( p9 ) * x ( p9 h1 )_x * i2 ( h5 p9 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x2_grad_10_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_fx @@ -11216,7 +11216,7 @@ C i1 ( h5 h1 )_fx RETURN END SUBROUTINE eomccsd_x2_grad_10_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p9 )_f + = 1 * f ( h5 p9 )_f @@ -11301,7 +11301,7 @@ C i2 ( h5 p9 )_f + = 1 * f ( h5 p9 )_f END SUBROUTINE OFFSET_eomccsd_x2_grad_10_1_1(l_a_offset,k_a_offset,siz &e) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p9 )_f @@ -11357,7 +11357,7 @@ C i2 ( h5 p9 )_f END SUBROUTINE eomccsd_x2_grad_10_1_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p9 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h5 h7 p6 p9 )_v @@ -11518,7 +11518,7 @@ C i2 ( h5 p9 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h5 h7 p6 p9 ) END SUBROUTINE eomccsd_x2_grad_10_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_vx + = 1 * Sum ( h6 p7 ) * x ( p7 h6 )_x * v ( h5 h6 h1 p7 )_v @@ -11663,7 +11663,7 @@ C i1 ( h5 h1 )_vx + = 1 * Sum ( h6 p7 ) * x ( p7 h6 )_x * v ( h5 h6 h1 p7 )_ END SUBROUTINE eomccsd_x2_grad_10_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_vx + = 1/2 * Sum ( h6 p7 p8 ) * x ( p7 p8 h1 h6 )_x * v ( h5 h6 p7 p8 )_v @@ -11839,7 +11839,7 @@ C i1 ( h5 h1 )_vx + = 1/2 * Sum ( h6 p7 p8 ) * x ( p7 p8 h1 h6 )_x * v ( h5 END SUBROUTINE eomccsd_x2_grad_10_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_vxt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * i2 ( h5 p6 )_vx @@ -11967,7 +11967,7 @@ C i1 ( h5 h1 )_vxt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * i2 ( h5 p6 )_vx END SUBROUTINE eomccsd_x2_grad_10_4_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p6 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h5 h7 p6 p8 )_v @@ -12128,7 +12128,7 @@ C i2 ( h5 p6 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h5 h7 p6 p8 )_ END SUBROUTINE OFFSET_eomccsd_x2_grad_10_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p6 )_vx @@ -12184,7 +12184,7 @@ C i2 ( h5 p6 )_vx END SUBROUTINE eomccsd_x2_grad_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = 1 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * i1 ( h5 h6 h1 h2 )_vx @@ -12347,7 +12347,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = 1 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * i1 ( END SUBROUTINE eomccsd_x2_grad_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( h5 h6 h2 p7 )_v @@ -12500,7 +12500,7 @@ C i1 ( h5 h6 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( RETURN END SUBROUTINE OFFSET_eomccsd_x2_grad_11_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 h2 )_vx @@ -12572,7 +12572,7 @@ C i1 ( h5 h6 h1 h2 )_vx END SUBROUTINE eomccsd_x2_grad_11_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 h2 )_vx + = 1/4 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * v ( h5 h6 p7 p8 )_v @@ -12734,7 +12734,7 @@ C i1 ( h5 h6 h1 h2 )_vx + = 1/4 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * v ( END SUBROUTINE eomccsd_x2_grad_11_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h5 h6 h2 p7 )_vx @@ -12886,7 +12886,7 @@ C i1 ( h5 h6 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 END SUBROUTINE eomccsd_x2_grad_11_3_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h1 p7 )_vx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h5 h6 p7 p8 )_v @@ -13040,7 +13040,7 @@ C i2 ( h5 h6 h1 p7 )_vx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h5 h6 p7 p8 END SUBROUTINE OFFSET_eomccsd_x2_grad_11_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h1 p7 )_vx @@ -13112,7 +13112,7 @@ C i2 ( h5 h6 h1 p7 )_vx END SUBROUTINE eomccsd_x2_grad_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i1 ( p4 p5 )_vx @@ -13277,7 +13277,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t END SUBROUTINE eomccsd_x2_grad_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_vx + = 1 * Sum ( h6 p7 ) * x ( p7 h6 )_x * v ( h6 p3 p5 p7 )_v @@ -13421,7 +13421,7 @@ C i1 ( p3 p5 )_vx + = 1 * Sum ( h6 p7 ) * x ( p7 h6 )_x * v ( h6 p3 p5 p7 )_ RETURN END SUBROUTINE OFFSET_eomccsd_x2_grad_12_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_vx @@ -13477,7 +13477,7 @@ C i1 ( p3 p5 )_vx END SUBROUTINE eomccsd_x2_grad_12_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_vx + = 1/2 * Sum ( h6 h7 p8 ) * x ( p3 p8 h6 h7 )_x * v ( h6 h7 p5 p8 )_v @@ -13653,7 +13653,7 @@ C i1 ( p3 p5 )_vx + = 1/2 * Sum ( h6 h7 p8 ) * x ( p3 p8 h6 h7 )_x * v ( h6 END SUBROUTINE eomccsd_x2_grad_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i1 ( h6 p4 h2 p5 )_vx @@ -13856,7 +13856,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_ END SUBROUTINE eomccsd_x2_grad_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_vx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h6 p3 p5 p7 )_v @@ -14009,7 +14009,7 @@ C i1 ( h6 p3 h1 p5 )_vx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h6 p3 p5 p7 RETURN END SUBROUTINE OFFSET_eomccsd_x2_grad_13_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_vx @@ -14081,7 +14081,7 @@ C i1 ( h6 p3 h1 p5 )_vx END SUBROUTINE eomccsd_x2_grad_13_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_vx + = 1 * Sum ( h7 p8 ) * x ( p3 p8 h1 h7 )_x * v ( h6 h7 p5 p8 )_v diff --git a/src/tce/gradients/eomccsd_z1.F b/src/tce/gradients/eomccsd_z1.F index 3186b4ce89..d4c9ec095b 100644 --- a/src/tce/gradients/eomccsd_z1.F +++ b/src/tce/gradients/eomccsd_z1.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_z1(d_f1,d_i0,d_t1,d_t2,d_v2,d_x2,d_y1,d_y2,d_z1 &,d_z2,k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_v2_offset, &k_x2_offset,k_y1_offset,k_y2_offset,k_z1_offset,k_z2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_zf + = -1 * Sum ( h7 ) * z ( h7 p1 )_z * i1 ( h2 h7 )_f @@ -763,7 +763,7 @@ c END SUBROUTINE eomccsd_z1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_zf + = -1 * Sum ( h7 ) * z ( h7 p1 )_z * i1 ( h2 h7 )_f @@ -889,7 +889,7 @@ C i0 ( h2 p1 )_zf + = -1 * Sum ( h7 ) * z ( h7 p1 )_z * i1 ( h2 h7 )_f RETURN END SUBROUTINE eomccsd_z1_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_f + = 1 * f ( h2 h7 )_f @@ -973,7 +973,7 @@ C i1 ( h2 h7 )_f + = 1 * f ( h2 h7 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z1_1_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_f @@ -1029,7 +1029,7 @@ C i1 ( h2 h7 )_f END SUBROUTINE eomccsd_z1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_ft + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * i2 ( h2 p3 )_f @@ -1156,7 +1156,7 @@ C i1 ( h2 h7 )_ft + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * i2 ( h2 p3 )_f RETURN END SUBROUTINE eomccsd_z1_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p3 )_f + = 1 * f ( h2 p3 )_f @@ -1240,7 +1240,7 @@ C i2 ( h2 p3 )_f + = 1 * f ( h2 p3 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z1_1_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p3 )_f @@ -1296,7 +1296,7 @@ C i2 ( h2 p3 )_f END SUBROUTINE eomccsd_z1_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p3 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h2 h6 p3 p5 )_v @@ -1457,7 +1457,7 @@ C i2 ( h2 p3 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h2 h6 p3 p5 )_ END SUBROUTINE eomccsd_z1_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h2 h4 h7 p3 )_v @@ -1602,7 +1602,7 @@ C i1 ( h2 h7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h2 h4 h7 p3 )_ END SUBROUTINE eomccsd_z1_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_vt + = -1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h7 )_t * v ( h2 h6 p3 p4 )_v @@ -1778,7 +1778,7 @@ C i1 ( h2 h7 )_vt + = -1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h7 )_t * v ( h2 END SUBROUTINE eomccsd_z1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_zf + = 1 * Sum ( p7 ) * z ( h2 p7 )_z * i1 ( p7 p1 )_f @@ -1904,7 +1904,7 @@ C i0 ( h2 p1 )_zf + = 1 * Sum ( p7 ) * z ( h2 p7 )_z * i1 ( p7 p1 )_f RETURN END SUBROUTINE eomccsd_z1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p1 )_f + = 1 * f ( p7 p1 )_f @@ -1988,7 +1988,7 @@ C i1 ( p7 p1 )_f + = 1 * f ( p7 p1 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z1_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p1 )_f @@ -2044,7 +2044,7 @@ C i1 ( p7 p1 )_f END SUBROUTINE eomccsd_z1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p7 p1 p3 )_v @@ -2189,7 +2189,7 @@ C i1 ( p7 p1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p7 p1 p3 ) END SUBROUTINE eomccsd_z1_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p1 )_vtt + = -1 * Sum ( h4 ) * t ( p7 h4 )_t * i2 ( h4 p1 )_vt @@ -2317,7 +2317,7 @@ C i1 ( p7 p1 )_vtt + = -1 * Sum ( h4 ) * t ( p7 h4 )_t * i2 ( h4 p1 )_vt END SUBROUTINE eomccsd_z1_2_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h4 h6 p1 p5 )_v @@ -2477,7 +2477,7 @@ C i2 ( h4 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h4 h6 p1 p5 )_ RETURN END SUBROUTINE OFFSET_eomccsd_z1_2_3_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p1 )_vt @@ -2533,7 +2533,7 @@ C i2 ( h4 p1 )_vt END SUBROUTINE eomccsd_z1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_zv + = -1 * Sum ( h4 p3 ) * z ( h4 p3 )_z * v ( h2 p3 h4 p1 )_v @@ -2669,7 +2669,7 @@ C i0 ( h2 p1 )_zv + = -1 * Sum ( h4 p3 ) * z ( h4 p3 )_z * v ( h2 p3 h4 p1 ) END SUBROUTINE eomccsd_z1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_zf + = 1 * Sum ( h11 p9 ) * z ( h2 h11 p1 p9 )_z * i1 ( p9 h11 )_f @@ -2829,7 +2829,7 @@ C i0 ( h2 p1 )_zf + = 1 * Sum ( h11 p9 ) * z ( h2 h11 p1 p9 )_z * i1 ( p9 h1 RETURN END SUBROUTINE eomccsd_z1_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_f + = 1 * f ( p9 h11 )_f @@ -2913,7 +2913,7 @@ C i1 ( p9 h11 )_f + = 1 * f ( p9 h11 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z1_4_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_f @@ -2969,7 +2969,7 @@ C i1 ( p9 h11 )_f END SUBROUTINE eomccsd_z1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_ft + = -1 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h10 h11 )_f @@ -3096,7 +3096,7 @@ C i1 ( p9 h11 )_ft + = -1 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h10 h11 )_f RETURN END SUBROUTINE eomccsd_z1_4_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_f + = 1 * f ( h10 h11 )_f @@ -3180,7 +3180,7 @@ C i2 ( h10 h11 )_f + = 1 * f ( h10 h11 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z1_4_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_f @@ -3236,7 +3236,7 @@ C i2 ( h10 h11 )_f END SUBROUTINE eomccsd_z1_4_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_ft + = 1 * Sum ( p3 ) * t ( p3 h11 )_t * i3 ( h10 p3 )_f @@ -3363,7 +3363,7 @@ C i2 ( h10 h11 )_ft + = 1 * Sum ( p3 ) * t ( p3 h11 )_t * i3 ( h10 p3 )_f RETURN END SUBROUTINE eomccsd_z1_4_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p3 )_f + = 1 * f ( h10 p3 )_f @@ -3447,7 +3447,7 @@ C i3 ( h10 p3 )_f + = 1 * f ( h10 p3 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z1_4_2_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p3 )_f @@ -3503,7 +3503,7 @@ C i3 ( h10 p3 )_f END SUBROUTINE eomccsd_z1_4_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p3 )_vt + = -1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 h10 p3 p7 )_v @@ -3664,7 +3664,7 @@ C i3 ( h10 p3 )_vt + = -1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 h10 p3 p7 END SUBROUTINE eomccsd_z1_4_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h10 h11 p5 )_v @@ -3809,7 +3809,7 @@ C i2 ( h10 h11 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h10 h11 END SUBROUTINE eomccsd_z1_4_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_vt + = 1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h11 )_t * v ( h6 h10 p3 p4 )_v @@ -3985,7 +3985,7 @@ C i2 ( h10 h11 )_vt + = 1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h11 )_t * v ( END SUBROUTINE eomccsd_z1_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_ft + = 1 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( p9 p7 )_f @@ -4112,7 +4112,7 @@ C i1 ( p9 h11 )_ft + = 1 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( p9 p7 )_f RETURN END SUBROUTINE eomccsd_z1_4_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p9 p7 )_f + = 1 * f ( p9 p7 )_f @@ -4196,7 +4196,7 @@ C i2 ( p9 p7 )_f + = 1 * f ( p9 p7 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z1_4_3_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p9 p7 )_f @@ -4252,7 +4252,7 @@ C i2 ( p9 p7 )_f END SUBROUTINE eomccsd_z1_4_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p9 p7 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p9 p5 p7 )_v @@ -4397,7 +4397,7 @@ C i2 ( p9 p7 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p9 p5 p7 )_ END SUBROUTINE eomccsd_z1_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_ft + = 1 * Sum ( h5 p4 ) * t ( p4 p9 h5 h11 )_t * i2 ( h5 p4 )_f @@ -4558,7 +4558,7 @@ C i1 ( p9 h11 )_ft + = 1 * Sum ( h5 p4 ) * t ( p4 p9 h5 h11 )_t * i2 ( h5 p4 RETURN END SUBROUTINE eomccsd_z1_4_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p4 )_f + = 1 * f ( h5 p4 )_f @@ -4642,7 +4642,7 @@ C i2 ( h5 p4 )_f + = 1 * f ( h5 p4 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z1_4_4_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p4 )_f @@ -4698,7 +4698,7 @@ C i2 ( h5 p4 )_f END SUBROUTINE eomccsd_z1_4_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p4 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h5 h8 p4 p7 )_v @@ -4859,7 +4859,7 @@ C i2 ( h5 p4 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h5 h8 p4 p7 )_ END SUBROUTINE eomccsd_z1_4_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p9 h11 p3 )_v @@ -4996,7 +4996,7 @@ C i1 ( p9 h11 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p9 h11 p3 END SUBROUTINE eomccsd_z1_4_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_vt + = 1/2 * Sum ( h5 h6 p4 ) * t ( p4 p9 h5 h6 )_t * i2 ( h5 h6 h11 p4 )_v @@ -5163,7 +5163,7 @@ C i1 ( p9 h11 )_vt + = 1/2 * Sum ( h5 h6 p4 ) * t ( p4 p9 h5 h6 )_t * i2 ( h RETURN END SUBROUTINE eomccsd_z1_4_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h11 p4 )_v + = 1 * v ( h5 h6 h11 p4 )_v @@ -5262,7 +5262,7 @@ C i2 ( h5 h6 h11 p4 )_v + = 1 * v ( h5 h6 h11 p4 )_v RETURN END SUBROUTINE OFFSET_eomccsd_z1_4_6_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h11 p4 )_v @@ -5332,7 +5332,7 @@ C i2 ( h5 h6 h11 p4 )_v END SUBROUTINE eomccsd_z1_4_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h11 p4 )_vt + = -1 * Sum ( p7 ) * t ( p7 h11 )_t * v ( h5 h6 p4 p7 )_v @@ -5486,7 +5486,7 @@ C i2 ( h5 h6 h11 p4 )_vt + = -1 * Sum ( p7 ) * t ( p7 h11 )_t * v ( h5 h6 p4 END SUBROUTINE eomccsd_z1_4_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_vt + = 1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h11 )_t * v ( h6 p9 p3 p4 )_v @@ -5654,7 +5654,7 @@ C i1 ( p9 h11 )_vt + = 1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h11 )_t * v ( h END SUBROUTINE eomccsd_z1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_zv + = 1/2 * Sum ( h12 h10 p9 ) * z ( h10 h12 p1 p9 )_z * i1 ( h2 p9 h10 h12 )_v @@ -5818,7 +5818,7 @@ C i0 ( h2 p1 )_zv + = 1/2 * Sum ( h12 h10 p9 ) * z ( h10 h12 p1 p9 )_z * i1 RETURN END SUBROUTINE eomccsd_z1_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h10 h12 )_v + = -1 * v ( h2 p9 h10 h12 )_v @@ -5919,7 +5919,7 @@ C i1 ( h2 p9 h10 h12 )_v + = -1 * v ( h2 p9 h10 h12 )_v RETURN END SUBROUTINE OFFSET_eomccsd_z1_5_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h10 h12 )_v @@ -5989,7 +5989,7 @@ C i1 ( h2 p9 h10 h12 )_v END SUBROUTINE eomccsd_z1_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h10 h12 )_ft + = -1 * Sum ( p5 ) * t ( p5 p9 h10 h12 )_t * i2 ( h2 p5 )_f @@ -6143,7 +6143,7 @@ C i1 ( h2 p9 h10 h12 )_ft + = -1 * Sum ( p5 ) * t ( p5 p9 h10 h12 )_t * i2 ( RETURN END SUBROUTINE eomccsd_z1_5_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p5 )_f + = 1 * f ( h2 p5 )_f @@ -6227,7 +6227,7 @@ C i2 ( h2 p5 )_f + = 1 * f ( h2 p5 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z1_5_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p5 )_f @@ -6283,7 +6283,7 @@ C i2 ( h2 p5 )_f END SUBROUTINE eomccsd_z1_5_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p5 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h2 h8 p5 p7 )_v @@ -6444,7 +6444,7 @@ C i2 ( h2 p5 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h2 h8 p5 p7 )_ END SUBROUTINE eomccsd_z1_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h10 h12 )_vt + = 1 * Sum ( h7 ) * t ( p9 h7 )_t * i2 ( h2 h7 h10 h12 )_v @@ -6587,7 +6587,7 @@ C i1 ( h2 p9 h10 h12 )_vt + = 1 * Sum ( h7 ) * t ( p9 h7 )_t * i2 ( h2 h7 h1 RETURN END SUBROUTINE eomccsd_z1_5_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h10 h12 )_v + = 1 * v ( h2 h7 h10 h12 )_v @@ -6695,7 +6695,7 @@ C i2 ( h2 h7 h10 h12 )_v + = 1 * v ( h2 h7 h10 h12 )_v RETURN END SUBROUTINE OFFSET_eomccsd_z1_5_3_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h10 h12 )_v @@ -6765,7 +6765,7 @@ C i2 ( h2 h7 h10 h12 )_v END SUBROUTINE eomccsd_z1_5_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h10 h12 )_vt + = 2 * Sum ( p3 ) * t ( p3 h12 )_t * i3 ( h2 h7 h10 p3 )_v @@ -6918,7 +6918,7 @@ C i2 ( h2 h7 h10 h12 )_vt + = 2 * Sum ( p3 ) * t ( p3 h12 )_t * i3 ( h2 h7 h RETURN END SUBROUTINE eomccsd_z1_5_3_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h10 p3 )_v + = 1 * v ( h2 h7 h10 p3 )_v @@ -7027,7 +7027,7 @@ C i3 ( h2 h7 h10 p3 )_v + = 1 * v ( h2 h7 h10 p3 )_v RETURN END SUBROUTINE OFFSET_eomccsd_z1_5_3_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h10 p3 )_v @@ -7097,7 +7097,7 @@ C i3 ( h2 h7 h10 p3 )_v END SUBROUTINE eomccsd_z1_5_3_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h10 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h10 )_t * v ( h2 h7 p3 p5 )_v @@ -7267,7 +7267,7 @@ C i3 ( h2 h7 h10 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h10 )_t * v ( h2 h7 END SUBROUTINE eomccsd_z1_5_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h10 h12 )_vt + = 1/2 * Sum ( p3 p4 ) * t ( p3 p4 h10 h12 )_t * v ( h2 h7 p3 p4 )_v @@ -7439,7 +7439,7 @@ C i2 ( h2 h7 h10 h12 )_vt + = 1/2 * Sum ( p3 p4 ) * t ( p3 p4 h10 h12 )_t * END SUBROUTINE eomccsd_z1_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h10 h12 )_vt + = -2 * Sum ( p3 ) * t ( p3 h12 )_t * i2 ( h2 p9 h10 p3 )_v @@ -7594,7 +7594,7 @@ C i1 ( h2 p9 h10 h12 )_vt + = -2 * Sum ( p3 ) * t ( p3 h12 )_t * i2 ( h2 p9 RETURN END SUBROUTINE eomccsd_z1_5_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p9 h10 p3 )_v + = 1 * v ( h2 p9 h10 p3 )_v @@ -7695,7 +7695,7 @@ C i2 ( h2 p9 h10 p3 )_v + = 1 * v ( h2 p9 h10 p3 )_v RETURN END SUBROUTINE OFFSET_eomccsd_z1_5_4_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p9 h10 p3 )_v @@ -7765,7 +7765,7 @@ C i2 ( h2 p9 h10 p3 )_v END SUBROUTINE eomccsd_z1_5_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p9 h10 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h10 )_t * v ( h2 p9 p3 p5 )_v @@ -7919,7 +7919,7 @@ C i2 ( h2 p9 h10 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h10 )_t * v ( h2 p9 END SUBROUTINE eomccsd_z1_5_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h10 h12 )_vt + = -2 * Sum ( h6 p4 ) * t ( p4 p9 h6 h12 )_t * i2 ( h2 h6 h10 p4 )_v @@ -8107,7 +8107,7 @@ C i1 ( h2 p9 h10 h12 )_vt + = -2 * Sum ( h6 p4 ) * t ( p4 p9 h6 h12 )_t * i2 RETURN END SUBROUTINE eomccsd_z1_5_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h10 p4 )_v + = 1 * v ( h2 h6 h10 p4 )_v @@ -8216,7 +8216,7 @@ C i2 ( h2 h6 h10 p4 )_v + = 1 * v ( h2 h6 h10 p4 )_v RETURN END SUBROUTINE OFFSET_eomccsd_z1_5_5_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h10 p4 )_v @@ -8286,7 +8286,7 @@ C i2 ( h2 h6 h10 p4 )_v END SUBROUTINE eomccsd_z1_5_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h10 p4 )_vt + = -1 * Sum ( p7 ) * t ( p7 h10 )_t * v ( h2 h6 p4 p7 )_v @@ -8456,7 +8456,7 @@ C i2 ( h2 h6 h10 p4 )_vt + = -1 * Sum ( p7 ) * t ( p7 h10 )_t * v ( h2 h6 p4 END SUBROUTINE eomccsd_z1_5_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h10 h12 )_vt + = -1/2 * Sum ( p3 p4 ) * t ( p3 p4 h10 h12 )_t * v ( h2 p9 p3 p4 )_v @@ -8621,7 +8621,7 @@ C i1 ( h2 p9 h10 h12 )_vt + = -1/2 * Sum ( p3 p4 ) * t ( p3 p4 h10 h12 )_t * END SUBROUTINE eomccsd_z1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_zv + = 1/2 * Sum ( h7 p8 p5 ) * z ( h2 h7 p5 p8 )_z * i1 ( p5 p8 h7 p1 )_v @@ -8785,7 +8785,7 @@ C i0 ( h2 p1 )_zv + = 1/2 * Sum ( h7 p8 p5 ) * z ( h2 h7 p5 p8 )_z * i1 ( p5 RETURN END SUBROUTINE eomccsd_z1_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 p8 h7 p1 )_v + = -1 * v ( p5 p8 h7 p1 )_v @@ -8886,7 +8886,7 @@ C i1 ( p5 p8 h7 p1 )_v + = -1 * v ( p5 p8 h7 p1 )_v RETURN END SUBROUTINE OFFSET_eomccsd_z1_6_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 p8 h7 p1 )_v @@ -8956,7 +8956,7 @@ C i1 ( p5 p8 h7 p1 )_v END SUBROUTINE eomccsd_z1_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 p8 h7 p1 )_vt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * v ( p5 p8 p1 p3 )_v @@ -9110,7 +9110,7 @@ C i1 ( p5 p8 h7 p1 )_vt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * v ( p5 p8 p1 p3 END SUBROUTINE eomccsd_z1_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ztf + = -1 * Sum ( h3 ) * i1 ( h2 h3 )_zt * f ( h3 p1 )_f @@ -9237,7 +9237,7 @@ C i0 ( h2 p1 )_ztf + = -1 * Sum ( h3 ) * i1 ( h2 h3 )_zt * f ( h3 p1 )_f END SUBROUTINE eomccsd_z1_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_zt + = 1 * Sum ( p4 ) * t ( p4 h3 )_t * z ( h2 p4 )_z @@ -9366,7 +9366,7 @@ C i1 ( h2 h3 )_zt + = 1 * Sum ( p4 ) * t ( p4 h3 )_t * z ( h2 p4 )_z RETURN END SUBROUTINE OFFSET_eomccsd_z1_7_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_zt @@ -9424,7 +9424,7 @@ C i1 ( h2 h3 )_zt END SUBROUTINE eomccsd_z1_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_zt + = 1/2 * Sum ( h6 p4 p5 ) * t ( p4 p5 h3 h6 )_t * z ( h2 h6 p4 p5 )_z @@ -9602,7 +9602,7 @@ C i1 ( h2 h3 )_zt + = 1/2 * Sum ( h6 p4 p5 ) * t ( p4 p5 h3 h6 )_t * z ( h2 END SUBROUTINE eomccsd_z1_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_yx + = 1/2 * Sum ( h6 p4 p5 ) * x ( p4 p5 h3 h6 )_x * y ( h2 h6 p4 p5 )_y @@ -9778,7 +9778,7 @@ C i1 ( h2 h3 )_yx + = 1/2 * Sum ( h6 p4 p5 ) * x ( p4 p5 h3 h6 )_x * y ( h2 END SUBROUTINE eomccsd_z1_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ztv + = 1 * Sum ( h8 h9 ) * i1 ( h8 h9 )_zt * v ( h2 h9 h8 p1 )_v @@ -9922,7 +9922,7 @@ C i0 ( h2 p1 )_ztv + = 1 * Sum ( h8 h9 ) * i1 ( h8 h9 )_zt * v ( h2 h9 h8 p1 END SUBROUTINE eomccsd_z1_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h9 )_zt + = 1 * Sum ( p3 ) * t ( p3 h9 )_t * z ( h8 p3 )_z @@ -10051,7 +10051,7 @@ C i1 ( h8 h9 )_zt + = 1 * Sum ( p3 ) * t ( p3 h9 )_t * z ( h8 p3 )_z RETURN END SUBROUTINE OFFSET_eomccsd_z1_8_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h9 )_zt @@ -10109,7 +10109,7 @@ C i1 ( h8 h9 )_zt END SUBROUTINE eomccsd_z1_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h9 )_zt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h9 )_t * z ( h5 h8 p3 p4 )_z @@ -10287,7 +10287,7 @@ C i1 ( h8 h9 )_zt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h9 )_t * z ( h5 END SUBROUTINE eomccsd_z1_8_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h9 )_yx + = 1/2 * Sum ( h7 p5 p6 ) * x ( p5 p6 h7 h9 )_x * y ( h7 h8 p5 p6 )_y @@ -10463,7 +10463,7 @@ C i1 ( h8 h9 )_yx + = 1/2 * Sum ( h7 p5 p6 ) * x ( p5 p6 h7 h9 )_x * y ( h7 END SUBROUTINE eomccsd_z1_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ztv + = 1 * Sum ( p8 p9 ) * i1 ( p8 p9 )_zt * v ( h2 p9 p1 p8 )_v @@ -10607,7 +10607,7 @@ C i0 ( h2 p1 )_ztv + = 1 * Sum ( p8 p9 ) * i1 ( p8 p9 )_zt * v ( h2 p9 p1 p8 END SUBROUTINE eomccsd_z1_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p8 p9 )_zt + = 1 * Sum ( h4 ) * t ( p8 h4 )_t * z ( h4 p9 )_z @@ -10736,7 +10736,7 @@ C i1 ( p8 p9 )_zt + = 1 * Sum ( h4 ) * t ( p8 h4 )_t * z ( h4 p9 )_z RETURN END SUBROUTINE OFFSET_eomccsd_z1_9_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p8 p9 )_zt @@ -10794,7 +10794,7 @@ C i1 ( p8 p9 )_zt END SUBROUTINE eomccsd_z1_9_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p8 p9 )_zt + = 1/2 * Sum ( h5 h6 p3 ) * t ( p3 p8 h5 h6 )_t * z ( h5 h6 p3 p9 )_z @@ -10972,7 +10972,7 @@ C i1 ( p8 p9 )_zt + = 1/2 * Sum ( h5 h6 p3 ) * t ( p3 p8 h5 h6 )_t * z ( h5 END SUBROUTINE eomccsd_z1_9_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p8 p9 )_yx + = 1/2 * Sum ( h6 h7 p5 ) * x ( p5 p8 h6 h7 )_x * y ( h6 h7 p5 p9 )_y @@ -11148,7 +11148,7 @@ C i1 ( p8 p9 )_yx + = 1/2 * Sum ( h6 h7 p5 ) * x ( p5 p8 h6 h7 )_x * y ( h6 END SUBROUTINE eomccsd_z1_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ztv + = 1 * Sum ( p9 h11 ) * i1 ( p9 h11 )_zt * v ( h2 h11 p1 p9 )_v @@ -11309,7 +11309,7 @@ C i0 ( h2 p1 )_ztv + = 1 * Sum ( p9 h11 ) * i1 ( p9 h11 )_zt * v ( h2 h11 p1 END SUBROUTINE eomccsd_z1_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_zt + = 1 * Sum ( h5 p3 ) * t ( p3 p9 h5 h11 )_t * z ( h5 p3 )_z @@ -11472,7 +11472,7 @@ C i1 ( p9 h11 )_zt + = 1 * Sum ( h5 p3 ) * t ( p3 p9 h5 h11 )_t * z ( h5 p3 RETURN END SUBROUTINE OFFSET_eomccsd_z1_10_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_zt @@ -11530,7 +11530,7 @@ C i1 ( p9 h11 )_zt END SUBROUTINE eomccsd_z1_10_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_ztt + = -1 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h10 h11 )_zt @@ -11660,7 +11660,7 @@ C i1 ( p9 h11 )_ztt + = -1 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h10 h11 )_z END SUBROUTINE eomccsd_z1_10_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_zt + = 1 * Sum ( p5 ) * t ( p5 h11 )_t * z ( h10 p5 )_z @@ -11789,7 +11789,7 @@ C i2 ( h10 h11 )_zt + = 1 * Sum ( p5 ) * t ( p5 h11 )_t * z ( h10 p5 )_z RETURN END SUBROUTINE OFFSET_eomccsd_z1_10_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_zt @@ -11847,7 +11847,7 @@ C i2 ( h10 h11 )_zt END SUBROUTINE eomccsd_z1_10_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_zt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h11 )_t * z ( h5 h10 p3 p4 )_z @@ -12025,7 +12025,7 @@ C i2 ( h10 h11 )_zt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h11 )_t * z ( END SUBROUTINE eomccsd_z1_10_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_yx + = 1/2 * Sum ( h8 p6 p7 ) * x ( p6 p7 h8 h11 )_x * y ( h8 h10 p6 p7 )_y @@ -12201,7 +12201,7 @@ C i2 ( h10 h11 )_yx + = 1/2 * Sum ( h8 p6 p7 ) * x ( p6 p7 h8 h11 )_x * y ( END SUBROUTINE eomccsd_z1_10_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_ztt + = 1/2 * Sum ( h5 h6 p3 ) * t ( p3 p9 h5 h6 )_t * i2 ( h5 h6 h11 p3 )_zt @@ -12371,7 +12371,7 @@ C i1 ( p9 h11 )_ztt + = 1/2 * Sum ( h5 h6 p3 ) * t ( p3 p9 h5 h6 )_t * i2 ( END SUBROUTINE eomccsd_z1_10_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h11 p3 )_zt + = -1 * Sum ( p7 ) * t ( p7 h11 )_t * z ( h5 h6 p3 p7 )_z @@ -12526,7 +12526,7 @@ C i2 ( h5 h6 h11 p3 )_zt + = -1 * Sum ( p7 ) * t ( p7 h11 )_t * z ( h5 h6 p3 RETURN END SUBROUTINE OFFSET_eomccsd_z1_10_3_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h11 p3 )_zt @@ -12600,7 +12600,7 @@ C i2 ( h5 h6 h11 p3 )_zt END SUBROUTINE eomccsd_z1_10_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 p9 h6 h11 )_x * y ( h6 p5 )_y @@ -12762,7 +12762,7 @@ C i1 ( p9 h11 )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 p9 h6 h11 )_x * y ( h6 p5 END SUBROUTINE eomccsd_z1_10_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_ytx + = -1/2 * Sum ( h7 h8 p6 ) * x ( p6 p9 h7 h8 )_x * i2 ( h7 h8 h11 p6 )_yt @@ -12930,7 +12930,7 @@ C i1 ( p9 h11 )_ytx + = -1/2 * Sum ( h7 h8 p6 ) * x ( p6 p9 h7 h8 )_x * i2 ( END SUBROUTINE eomccsd_z1_10_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h11 p6 )_yt + = -1 * Sum ( p3 ) * t ( p3 h11 )_t * y ( h7 h8 p3 p6 )_y @@ -13083,7 +13083,7 @@ C i2 ( h7 h8 h11 p6 )_yt + = -1 * Sum ( p3 ) * t ( p3 h11 )_t * y ( h7 h8 p3 RETURN END SUBROUTINE OFFSET_eomccsd_z1_10_5_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h11 p6 )_yt @@ -13155,7 +13155,7 @@ C i2 ( h7 h8 h11 p6 )_yt END SUBROUTINE eomccsd_z1_10_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_yxt + = 1/4 * t ( p9 h11 )_t * i2 ( )_yx @@ -13275,7 +13275,7 @@ C i1 ( p9 h11 )_yxt + = 1/4 * t ( p9 h11 )_t * i2 ( )_yx END SUBROUTINE eomccsd_z1_10_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( )_yx + = 1 * Sum ( h7 h8 p5 p6 ) * x ( p5 p6 h7 h8 )_x * y ( h7 h8 p5 p6 )_y @@ -13430,7 +13430,7 @@ C i2 ( )_yx + = 1 * Sum ( h7 h8 p5 p6 ) * x ( p5 p6 h7 h8 )_x * y ( h7 h8 p5 RETURN END SUBROUTINE OFFSET_eomccsd_z1_10_6_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( )_yx @@ -13464,7 +13464,7 @@ C i2 ( )_yx END SUBROUTINE eomccsd_z1_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ztv + = -1/2 * Sum ( p9 h11 h12 ) * i1 ( h2 p9 h11 h12 )_zt * v ( h11 h12 p1 p9 )_v @@ -13631,7 +13631,7 @@ C i0 ( h2 p1 )_ztv + = -1/2 * Sum ( p9 h11 h12 ) * i1 ( h2 p9 h11 h12 )_zt * END SUBROUTINE eomccsd_z1_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_zt + = 1 * Sum ( p3 ) * t ( p3 p9 h11 h12 )_t * z ( h2 p3 )_z @@ -13787,7 +13787,7 @@ C i1 ( h2 p9 h11 h12 )_zt + = 1 * Sum ( p3 ) * t ( p3 p9 h11 h12 )_t * z ( h RETURN END SUBROUTINE OFFSET_eomccsd_z1_11_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_zt @@ -13861,7 +13861,7 @@ C i1 ( h2 p9 h11 h12 )_zt END SUBROUTINE eomccsd_z1_11_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_ztt + = 1/2 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h2 h10 h11 h12 )_zt @@ -14008,7 +14008,7 @@ C i1 ( h2 p9 h11 h12 )_ztt + = 1/2 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h2 END SUBROUTINE eomccsd_z1_11_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h11 h12 )_zt + = -1 * Sum ( p3 p4 ) * t ( p3 p4 h11 h12 )_t * z ( h2 h10 p3 p4 )_z @@ -14181,7 +14181,7 @@ C i2 ( h2 h10 h11 h12 )_zt + = -1 * Sum ( p3 p4 ) * t ( p3 p4 h11 h12 )_t * RETURN END SUBROUTINE OFFSET_eomccsd_z1_11_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h11 h12 )_zt @@ -14255,7 +14255,7 @@ C i2 ( h2 h10 h11 h12 )_zt END SUBROUTINE eomccsd_z1_11_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h11 h12 )_ztt + = -2 * Sum ( p5 ) * t ( p5 h11 )_t * i3 ( h2 h10 h12 p5 )_zt @@ -14411,7 +14411,7 @@ C i2 ( h2 h10 h11 h12 )_ztt + = -2 * Sum ( p5 ) * t ( p5 h11 )_t * i3 ( h2 h END SUBROUTINE eomccsd_z1_11_2_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h10 h12 p5 )_zt + = 1 * Sum ( p7 ) * t ( p7 h12 )_t * z ( h2 h10 p5 p7 )_z @@ -14582,7 +14582,7 @@ C i3 ( h2 h10 h12 p5 )_zt + = 1 * Sum ( p7 ) * t ( p7 h12 )_t * z ( h2 h10 p RETURN END SUBROUTINE OFFSET_eomccsd_z1_11_2_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h10 h12 p5 )_zt @@ -14656,7 +14656,7 @@ C i3 ( h2 h10 h12 p5 )_zt END SUBROUTINE eomccsd_z1_11_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h11 h12 )_yx + = -1 * Sum ( p7 p8 ) * x ( p7 p8 h11 h12 )_x * y ( h2 h10 p7 p8 )_y @@ -14828,7 +14828,7 @@ C i2 ( h2 h10 h11 h12 )_yx + = -1 * Sum ( p7 p8 ) * x ( p7 p8 h11 h12 )_x * END SUBROUTINE eomccsd_z1_11_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_ztt + = 2 * Sum ( h5 p3 ) * t ( p3 p9 h5 h11 )_t * i2 ( h2 h5 h12 p3 )_zt @@ -15019,7 +15019,7 @@ C i1 ( h2 p9 h11 h12 )_ztt + = 2 * Sum ( h5 p3 ) * t ( p3 p9 h5 h11 )_t * i2 END SUBROUTINE eomccsd_z1_11_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h5 h12 p3 )_zt + = 1 * Sum ( p7 ) * t ( p7 h12 )_t * z ( h2 h5 p3 p7 )_z @@ -15190,7 +15190,7 @@ C i2 ( h2 h5 h12 p3 )_zt + = 1 * Sum ( p7 ) * t ( p7 h12 )_t * z ( h2 h5 p3 RETURN END SUBROUTINE OFFSET_eomccsd_z1_11_3_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h5 h12 p3 )_zt @@ -15264,7 +15264,7 @@ C i2 ( h2 h5 h12 p3 )_zt END SUBROUTINE eomccsd_z1_11_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_ztt + = 1 * t ( p9 h12 )_t * i2 ( h2 h11 )_zt @@ -15412,7 +15412,7 @@ C i1 ( h2 p9 h11 h12 )_ztt + = 1 * t ( p9 h12 )_t * i2 ( h2 h11 )_zt END SUBROUTINE eomccsd_z1_11_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h11 )_zt + = -1 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h11 )_t * z ( h2 h5 p3 p4 )_z @@ -15589,7 +15589,7 @@ C i2 ( h2 h11 )_zt + = -1 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h11 )_t * z ( h2 RETURN END SUBROUTINE OFFSET_eomccsd_z1_11_4_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h11 )_zt @@ -15647,7 +15647,7 @@ C i2 ( h2 h11 )_zt END SUBROUTINE eomccsd_z1_11_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_yx + = 1 * Sum ( p6 ) * x ( p6 p9 h11 h12 )_x * y ( h2 p6 )_y @@ -15802,7 +15802,7 @@ C i1 ( h2 p9 h11 h12 )_yx + = 1 * Sum ( p6 ) * x ( p6 p9 h11 h12 )_x * y ( h END SUBROUTINE eomccsd_z1_11_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_ytx + = 2 * Sum ( h8 p7 ) * x ( p7 p9 h8 h12 )_x * i2 ( h2 h8 h11 p7 )_yt @@ -15991,7 +15991,7 @@ C i1 ( h2 p9 h11 h12 )_ytx + = 2 * Sum ( h8 p7 ) * x ( p7 p9 h8 h12 )_x * i2 END SUBROUTINE eomccsd_z1_11_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h11 p7 )_yt + = 1 * Sum ( p3 ) * t ( p3 h11 )_t * y ( h2 h8 p3 p7 )_y @@ -16160,7 +16160,7 @@ C i2 ( h2 h8 h11 p7 )_yt + = 1 * Sum ( p3 ) * t ( p3 h11 )_t * y ( h2 h8 p3 RETURN END SUBROUTINE OFFSET_eomccsd_z1_11_6_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h11 p7 )_yt @@ -16232,7 +16232,7 @@ C i2 ( h2 h8 h11 p7 )_yt END SUBROUTINE eomccsd_z1_11_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_yxt + = -1 * t ( p9 h11 )_t * i2 ( h2 h12 )_yx @@ -16378,7 +16378,7 @@ C i1 ( h2 p9 h11 h12 )_yxt + = -1 * t ( p9 h11 )_t * i2 ( h2 h12 )_yx END SUBROUTINE eomccsd_z1_11_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h12 )_yx + = -1 * Sum ( h8 p6 p7 ) * x ( p6 p7 h8 h12 )_x * y ( h2 h8 p6 p7 )_y @@ -16553,7 +16553,7 @@ C i2 ( h2 h12 )_yx + = -1 * Sum ( h8 p6 p7 ) * x ( p6 p7 h8 h12 )_x * y ( h2 RETURN END SUBROUTINE OFFSET_eomccsd_z1_11_7_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h12 )_yx @@ -16609,7 +16609,7 @@ C i2 ( h2 h12 )_yx END SUBROUTINE eomccsd_z1_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ztv + = 1 * Sum ( h6 h4 p5 ) * i1 ( h2 h6 h4 p5 )_zt * v ( h4 p5 h6 p1 )_v @@ -16756,7 +16756,7 @@ C i0 ( h2 p1 )_ztv + = 1 * Sum ( h6 h4 p5 ) * i1 ( h2 h6 h4 p5 )_zt * v ( h4 END SUBROUTINE eomccsd_z1_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h6 h4 p5 )_zt + = 1 * Sum ( p3 ) * t ( p3 h4 )_t * z ( h2 h6 p3 p5 )_z @@ -16927,7 +16927,7 @@ C i1 ( h2 h6 h4 p5 )_zt + = 1 * Sum ( p3 ) * t ( p3 h4 )_t * z ( h2 h6 p3 p5 RETURN END SUBROUTINE OFFSET_eomccsd_z1_12_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h6 h4 p5 )_zt @@ -17001,7 +17001,7 @@ C i1 ( h2 h6 h4 p5 )_zt END SUBROUTINE eomccsd_z1_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ztv + = -1/4 * Sum ( h10 h9 h8 ) * i1 ( h2 h10 h8 h9 )_zt * v ( h8 h9 h10 p1 )_v @@ -17160,7 +17160,7 @@ C i0 ( h2 p1 )_ztv + = -1/4 * Sum ( h10 h9 h8 ) * i1 ( h2 h10 h8 h9 )_zt * v END SUBROUTINE eomccsd_z1_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h10 h8 h9 )_zt + = 1 * Sum ( p3 p4 ) * t ( p3 p4 h8 h9 )_t * z ( h2 h10 p3 p4 )_z @@ -17333,7 +17333,7 @@ C i1 ( h2 h10 h8 h9 )_zt + = 1 * Sum ( p3 p4 ) * t ( p3 p4 h8 h9 )_t * z ( h RETURN END SUBROUTINE OFFSET_eomccsd_z1_13_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h10 h8 h9 )_zt @@ -17407,7 +17407,7 @@ C i1 ( h2 h10 h8 h9 )_zt END SUBROUTINE eomccsd_z1_13_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h10 h8 h9 )_ztt + = -2 * Sum ( p3 ) * t ( p3 h9 )_t * i2 ( h2 h10 h8 p3 )_zt @@ -17563,7 +17563,7 @@ C i1 ( h2 h10 h8 h9 )_ztt + = -2 * Sum ( p3 ) * t ( p3 h9 )_t * i2 ( h2 h10 END SUBROUTINE eomccsd_z1_13_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h8 p3 )_zt + = 1 * Sum ( p5 ) * t ( p5 h8 )_t * z ( h2 h10 p3 p5 )_z @@ -17734,7 +17734,7 @@ C i2 ( h2 h10 h8 p3 )_zt + = 1 * Sum ( p5 ) * t ( p5 h8 )_t * z ( h2 h10 p3 RETURN END SUBROUTINE OFFSET_eomccsd_z1_13_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h8 p3 )_zt @@ -17808,7 +17808,7 @@ C i2 ( h2 h10 h8 p3 )_zt END SUBROUTINE eomccsd_z1_13_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h10 h8 h9 )_yx + = 1 * Sum ( p6 p7 ) * x ( p6 p7 h8 h9 )_x * y ( h2 h10 p6 p7 )_y @@ -17980,7 +17980,7 @@ C i1 ( h2 h10 h8 h9 )_yx + = 1 * Sum ( p6 p7 ) * x ( p6 p7 h8 h9 )_x * y ( h END SUBROUTINE eomccsd_z1_14(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ztv + = 1 * Sum ( p11 h9 p10 ) * i1 ( h2 p11 h9 p10 )_zt * v ( h9 p10 p1 p11 )_v @@ -18135,7 +18135,7 @@ C i0 ( h2 p1 )_ztv + = 1 * Sum ( p11 h9 p10 ) * i1 ( h2 p11 h9 p10 )_zt * v END SUBROUTINE eomccsd_z1_14_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h9 p10 )_zt + = 1 * Sum ( h5 p3 ) * t ( p3 p11 h5 h9 )_t * z ( h2 h5 p3 p10 )_z @@ -18339,7 +18339,7 @@ C i1 ( h2 p11 h9 p10 )_zt + = 1 * Sum ( h5 p3 ) * t ( p3 p11 h5 h9 )_t * z ( RETURN END SUBROUTINE OFFSET_eomccsd_z1_14_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h9 p10 )_zt @@ -18413,7 +18413,7 @@ C i1 ( h2 p11 h9 p10 )_zt END SUBROUTINE eomccsd_z1_14_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h9 p10 )_ztt + = -1 * Sum ( h4 ) * t ( p11 h4 )_t * i2 ( h2 h4 h9 p10 )_zt @@ -18559,7 +18559,7 @@ C i1 ( h2 p11 h9 p10 )_ztt + = -1 * Sum ( h4 ) * t ( p11 h4 )_t * i2 ( h2 h4 END SUBROUTINE eomccsd_z1_14_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h9 p10 )_zt + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * z ( h2 h4 p5 p10 )_z @@ -18730,7 +18730,7 @@ C i2 ( h2 h4 h9 p10 )_zt + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * z ( h2 h4 p5 p RETURN END SUBROUTINE OFFSET_eomccsd_z1_14_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h9 p10 )_zt @@ -18804,7 +18804,7 @@ C i2 ( h2 h4 h9 p10 )_zt END SUBROUTINE eomccsd_z1_14_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h9 p10 )_yx + = 1 * Sum ( h7 p6 ) * x ( p6 p11 h7 h9 )_x * y ( h2 h7 p6 p10 )_y @@ -19007,7 +19007,7 @@ C i1 ( h2 p11 h9 p10 )_yx + = 1 * Sum ( h7 p6 ) * x ( p6 p11 h7 h9 )_x * y ( END SUBROUTINE eomccsd_z1_15(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_vxy + = 1/2 * Sum ( h6 ) * y ( h6 p1 )_y * i1 ( h2 h6 )_vx @@ -19133,7 +19133,7 @@ C i0 ( h2 p1 )_vxy + = 1/2 * Sum ( h6 ) * y ( h6 p1 )_y * i1 ( h2 h6 )_vx END SUBROUTINE eomccsd_z1_15_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h6 )_vx + = 1 * Sum ( h3 p4 p5 ) * x ( p4 p5 h3 h6 )_x * v ( h2 h3 p4 p5 )_v @@ -19308,7 +19308,7 @@ C i1 ( h2 h6 )_vx + = 1 * Sum ( h3 p4 p5 ) * x ( p4 p5 h3 h6 )_x * v ( h2 h3 RETURN END SUBROUTINE OFFSET_eomccsd_z1_15_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h6 )_vx @@ -19364,7 +19364,7 @@ C i1 ( h2 h6 )_vx END SUBROUTINE eomccsd_z1_16(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_vxy + = 1/4 * y ( h2 p1 )_y * i1 ( )_vx @@ -19482,7 +19482,7 @@ C i0 ( h2 p1 )_vxy + = 1/4 * y ( h2 p1 )_y * i1 ( )_vx END SUBROUTINE eomccsd_z1_16_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_vx + = 1 * Sum ( h3 h4 p5 p6 ) * x ( p5 p6 h3 h4 )_x * v ( h3 h4 p5 p6 )_v @@ -19637,7 +19637,7 @@ C i1 ( )_vx + = 1 * Sum ( h3 h4 p5 p6 ) * x ( p5 p6 h3 h4 )_x * v ( h3 h4 p5 RETURN END SUBROUTINE OFFSET_eomccsd_z1_16_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_vx @@ -19671,7 +19671,7 @@ C i1 ( )_vx END SUBROUTINE eomccsd_z1_17(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yxf + = 1/4 * i1 ( )_yx * f ( h2 p1 )_f @@ -19786,7 +19786,7 @@ C i0 ( h2 p1 )_yxf + = 1/4 * i1 ( )_yx * f ( h2 p1 )_f END SUBROUTINE eomccsd_z1_17_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yx + = 1 * Sum ( h5 h6 p3 p4 ) * x ( p3 p4 h5 h6 )_x * y ( h5 h6 p3 p4 )_y @@ -19941,7 +19941,7 @@ C i1 ( )_yx + = 1 * Sum ( h5 h6 p3 p4 ) * x ( p3 p4 h5 h6 )_x * y ( h5 h6 p3 RETURN END SUBROUTINE OFFSET_eomccsd_z1_17_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yx @@ -19975,7 +19975,7 @@ C i1 ( )_yx END SUBROUTINE eomccsd_z1_18(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_fxy + = 1/2 * Sum ( p7 h9 h10 ) * y ( h9 h10 p1 p7 )_y * i1 ( h2 p7 h9 h10 )_fx @@ -20139,7 +20139,7 @@ C i0 ( h2 p1 )_fxy + = 1/2 * Sum ( p7 h9 h10 ) * y ( h9 h10 p1 p7 )_y * i1 ( END SUBROUTINE eomccsd_z1_18_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p7 h9 h10 )_fx + = -1 * Sum ( p6 ) * x ( p6 p7 h9 h10 )_x * i2 ( h2 p6 )_f @@ -20293,7 +20293,7 @@ C i1 ( h2 p7 h9 h10 )_fx + = -1 * Sum ( p6 ) * x ( p6 p7 h9 h10 )_x * i2 ( h RETURN END SUBROUTINE OFFSET_eomccsd_z1_18_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p7 h9 h10 )_fx @@ -20364,7 +20364,7 @@ C i1 ( h2 p7 h9 h10 )_fx RETURN END SUBROUTINE eomccsd_z1_18_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p6 )_f + = 1 * f ( h2 p6 )_f @@ -20448,7 +20448,7 @@ C i2 ( h2 p6 )_f + = 1 * f ( h2 p6 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z1_18_1_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p6 )_f @@ -20504,7 +20504,7 @@ C i2 ( h2 p6 )_f END SUBROUTINE eomccsd_z1_18_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p6 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h2 h4 p3 p6 )_v @@ -20665,7 +20665,7 @@ C i2 ( h2 p6 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h2 h4 p3 p6 ) END SUBROUTINE eomccsd_z1_18_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p7 h9 h10 )_vx + = -2 * Sum ( h6 p4 ) * x ( p4 p7 h6 h10 )_x * i2 ( h2 h6 h9 p4 )_v @@ -20853,7 +20853,7 @@ C i1 ( h2 p7 h9 h10 )_vx + = -2 * Sum ( h6 p4 ) * x ( p4 p7 h6 h10 )_x * i2 RETURN END SUBROUTINE eomccsd_z1_18_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h9 p4 )_v + = 1 * v ( h2 h6 h9 p4 )_v @@ -20962,7 +20962,7 @@ C i2 ( h2 h6 h9 p4 )_v + = 1 * v ( h2 h6 h9 p4 )_v RETURN END SUBROUTINE OFFSET_eomccsd_z1_18_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h9 p4 )_v @@ -21032,7 +21032,7 @@ C i2 ( h2 h6 h9 p4 )_v END SUBROUTINE eomccsd_z1_18_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h9 p4 )_vt + = 1 * Sum ( p3 ) * t ( p3 h9 )_t * v ( h2 h6 p3 p4 )_v @@ -21202,7 +21202,7 @@ C i2 ( h2 h6 h9 p4 )_vt + = 1 * Sum ( p3 ) * t ( p3 h9 )_t * v ( h2 h6 p3 p4 END SUBROUTINE eomccsd_z1_18_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p7 h9 h10 )_vx + = -1/2 * Sum ( p4 p5 ) * x ( p4 p5 h9 h10 )_x * v ( h2 p7 p4 p5 )_v @@ -21367,7 +21367,7 @@ C i1 ( h2 p7 h9 h10 )_vx + = -1/2 * Sum ( p4 p5 ) * x ( p4 p5 h9 h10 )_x * v END SUBROUTINE eomccsd_z1_18_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p7 h9 h10 )_vxt + = -1/2 * Sum ( h4 ) * t ( p7 h4 )_t * i2 ( h2 h4 h9 h10 )_vx @@ -21511,7 +21511,7 @@ C i1 ( h2 p7 h9 h10 )_vxt + = -1/2 * Sum ( h4 ) * t ( p7 h4 )_t * i2 ( h2 h4 END SUBROUTINE eomccsd_z1_18_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h9 h10 )_vx + = -1 * Sum ( p5 p6 ) * x ( p5 p6 h9 h10 )_x * v ( h2 h4 p5 p6 )_v @@ -21682,7 +21682,7 @@ C i2 ( h2 h4 h9 h10 )_vx + = -1 * Sum ( p5 p6 ) * x ( p5 p6 h9 h10 )_x * v ( RETURN END SUBROUTINE OFFSET_eomccsd_z1_18_4_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h9 h10 )_vx @@ -21754,7 +21754,7 @@ C i2 ( h2 h4 h9 h10 )_vx END SUBROUTINE eomccsd_z1_19(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_fxy + = 1 * Sum ( p10 h9 ) * y ( h2 h9 p1 p10 )_y * i1 ( p10 h9 )_fx @@ -21914,7 +21914,7 @@ C i0 ( h2 p1 )_fxy + = 1 * Sum ( p10 h9 ) * y ( h2 h9 p1 p10 )_y * i1 ( p10 END SUBROUTINE eomccsd_z1_19_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_fx + = 1 * Sum ( h6 p7 ) * x ( p7 p10 h6 h9 )_x * i2 ( h6 p7 )_f @@ -22075,7 +22075,7 @@ C i1 ( p10 h9 )_fx + = 1 * Sum ( h6 p7 ) * x ( p7 p10 h6 h9 )_x * i2 ( h6 p7 RETURN END SUBROUTINE OFFSET_eomccsd_z1_19_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_fx @@ -22130,7 +22130,7 @@ C i1 ( p10 h9 )_fx RETURN END SUBROUTINE eomccsd_z1_19_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f @@ -22214,7 +22214,7 @@ C i2 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z1_19_1_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_f @@ -22270,7 +22270,7 @@ C i2 ( h6 p7 )_f END SUBROUTINE eomccsd_z1_19_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 p3 p7 )_v @@ -22431,7 +22431,7 @@ C i2 ( h6 p7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 p3 p7 )_ END SUBROUTINE eomccsd_z1_19_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_vx + = -1/2 * Sum ( h7 h5 p8 ) * x ( p8 p10 h5 h7 )_x * i2 ( h5 h7 h9 p8 )_v @@ -22598,7 +22598,7 @@ C i1 ( p10 h9 )_vx + = -1/2 * Sum ( h7 h5 p8 ) * x ( p8 p10 h5 h7 )_x * i2 ( RETURN END SUBROUTINE eomccsd_z1_19_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h7 h9 p8 )_v + = -1 * v ( h5 h7 h9 p8 )_v @@ -22697,7 +22697,7 @@ C i2 ( h5 h7 h9 p8 )_v + = -1 * v ( h5 h7 h9 p8 )_v RETURN END SUBROUTINE OFFSET_eomccsd_z1_19_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h7 h9 p8 )_v @@ -22767,7 +22767,7 @@ C i2 ( h5 h7 h9 p8 )_v END SUBROUTINE eomccsd_z1_19_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h7 h9 p8 )_vt + = -1 * Sum ( p3 ) * t ( p3 h9 )_t * v ( h5 h7 p3 p8 )_v @@ -22921,7 +22921,7 @@ C i2 ( h5 h7 h9 p8 )_vt + = -1 * Sum ( p3 ) * t ( p3 h9 )_t * v ( h5 h7 p3 p END SUBROUTINE eomccsd_z1_19_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_vx + = 1/2 * Sum ( h3 p5 p6 ) * x ( p5 p6 h3 h9 )_x * v ( h3 p10 p5 p6 )_v @@ -23089,7 +23089,7 @@ C i1 ( p10 h9 )_vx + = 1/2 * Sum ( h3 p5 p6 ) * x ( p5 p6 h3 h9 )_x * v ( h3 END SUBROUTINE eomccsd_z1_19_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_vxt + = 1/2 * Sum ( h4 ) * t ( p10 h4 )_t * i2 ( h4 h9 )_vx @@ -23217,7 +23217,7 @@ C i1 ( p10 h9 )_vxt + = 1/2 * Sum ( h4 ) * t ( p10 h4 )_t * i2 ( h4 h9 )_vx END SUBROUTINE eomccsd_z1_19_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h9 )_vx + = 1 * Sum ( h5 p6 p7 ) * x ( p6 p7 h5 h9 )_x * v ( h4 h5 p6 p7 )_v @@ -23392,7 +23392,7 @@ C i2 ( h4 h9 )_vx + = 1 * Sum ( h5 p6 p7 ) * x ( p6 p7 h5 h9 )_x * v ( h4 h5 RETURN END SUBROUTINE OFFSET_eomccsd_z1_19_4_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h9 )_vx diff --git a/src/tce/gradients/eomccsd_z2.F b/src/tce/gradients/eomccsd_z2.F index e1150b89e9..05ed6d5064 100644 --- a/src/tce/gradients/eomccsd_z2.F +++ b/src/tce/gradients/eomccsd_z2.F @@ -2,7 +2,7 @@ &,d_z1,d_z2,k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_v2_of &fset,k_x1_offset,k_x2_offset,k_y1_offset,k_y2_offset,k_z1_offset,k &_z2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_zf + = 1 * P( 4 ) * z ( h3 p1 )_z * i1 ( h4 p2 )_f @@ -639,7 +639,7 @@ C i2 ( h7 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h7 END SUBROUTINE eomccsd_z2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_zf + = 1 * P( 4 ) * z ( h3 p1 )_z * i1 ( h4 p2 )_f @@ -799,7 +799,7 @@ C i0 ( h3 h4 p1 p2 )_zf + = 1 * P( 4 ) * z ( h3 p1 )_z * i1 ( h4 p2 )_f RETURN END SUBROUTINE eomccsd_z2_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_f + = 1 * f ( h3 p1 )_f @@ -883,7 +883,7 @@ C i1 ( h3 p1 )_f + = 1 * f ( h3 p1 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z2_1_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_f @@ -939,7 +939,7 @@ C i1 ( h3 p1 )_f END SUBROUTINE eomccsd_z2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 p1 p5 )_v @@ -1100,7 +1100,7 @@ C i1 ( h3 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 p1 p5 )_ END SUBROUTINE eomccsd_z2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_zv + = -1 * P( 2 ) * Sum ( h7 ) * z ( h7 p1 )_z * i1 ( h3 h4 h7 p2 )_v @@ -1252,7 +1252,7 @@ C i0 ( h3 h4 p1 p2 )_zv + = -1 * P( 2 ) * Sum ( h7 ) * z ( h7 p1 )_z * i1 ( RETURN END SUBROUTINE eomccsd_z2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h7 p1 )_v + = 1 * v ( h3 h4 h7 p1 )_v @@ -1353,7 +1353,7 @@ C i1 ( h3 h4 h7 p1 )_v + = 1 * v ( h3 h4 h7 p1 )_v RETURN END SUBROUTINE OFFSET_eomccsd_z2_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h7 p1 )_v @@ -1423,7 +1423,7 @@ C i1 ( h3 h4 h7 p1 )_v END SUBROUTINE eomccsd_z2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h7 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h7 )_t * v ( h3 h4 p1 p5 )_v @@ -1577,7 +1577,7 @@ C i1 ( h3 h4 h7 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h7 )_t * v ( h3 h4 p1 p END SUBROUTINE eomccsd_z2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_zv + = -1 * P( 2 ) * Sum ( p5 ) * i1 ( h3 p5 )_z * v ( h4 p5 p1 p2 )_v @@ -1731,7 +1731,7 @@ C i0 ( h3 h4 p1 p2 )_zv + = -1 * P( 2 ) * Sum ( p5 ) * i1 ( h3 p5 )_z * v ( RETURN END SUBROUTINE eomccsd_z2_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p5 )_z + = 1 * z ( h3 p5 )_z @@ -1817,7 +1817,7 @@ C i1 ( h3 p5 )_z + = 1 * z ( h3 p5 )_z RETURN END SUBROUTINE OFFSET_eomccsd_z2_3_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p5 )_z @@ -1875,7 +1875,7 @@ C i1 ( h3 p5 )_z END SUBROUTINE eomccsd_z2_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p5 )_yx + = 1 * Sum ( h7 p6 ) * x ( p6 h7 )_x * y ( h3 h7 p5 p6 )_y @@ -2036,7 +2036,7 @@ C i1 ( h3 p5 )_yx + = 1 * Sum ( h7 p6 ) * x ( p6 h7 )_x * y ( h3 h7 p5 p6 )_ END SUBROUTINE eomccsd_z2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_zf + = -1 * P( 2 ) * Sum ( h9 ) * z ( h3 h9 p1 p2 )_z * i1 ( h4 h9 )_f @@ -2199,7 +2199,7 @@ C i0 ( h3 h4 p1 p2 )_zf + = -1 * P( 2 ) * Sum ( h9 ) * z ( h3 h9 p1 p2 )_z * RETURN END SUBROUTINE eomccsd_z2_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_f + = 1 * f ( h3 h9 )_f @@ -2283,7 +2283,7 @@ C i1 ( h3 h9 )_f + = 1 * f ( h3 h9 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z2_4_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_f @@ -2339,7 +2339,7 @@ C i1 ( h3 h9 )_f END SUBROUTINE eomccsd_z2_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_ft + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 p5 )_f @@ -2466,7 +2466,7 @@ C i1 ( h3 h9 )_ft + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 p5 )_f RETURN END SUBROUTINE eomccsd_z2_4_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_f + = 1 * f ( h3 p5 )_f @@ -2550,7 +2550,7 @@ C i2 ( h3 p5 )_f + = 1 * f ( h3 p5 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z2_4_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_f @@ -2606,7 +2606,7 @@ C i2 ( h3 p5 )_f END SUBROUTINE eomccsd_z2_4_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h3 h8 p5 p7 )_v @@ -2767,7 +2767,7 @@ C i2 ( h3 p5 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h3 h8 p5 p7 )_ END SUBROUTINE eomccsd_z2_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 h9 p5 )_v @@ -2912,7 +2912,7 @@ C i1 ( h3 h9 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 h9 p5 )_ END SUBROUTINE eomccsd_z2_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vt + = -1/2 * Sum ( h8 p5 p6 ) * t ( p5 p6 h8 h9 )_t * v ( h3 h8 p5 p6 )_v @@ -3088,7 +3088,7 @@ C i1 ( h3 h9 )_vt + = -1/2 * Sum ( h8 p5 p6 ) * t ( p5 p6 h8 h9 )_t * v ( h3 END SUBROUTINE eomccsd_z2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_zf + = 1 * P( 2 ) * Sum ( p10 ) * z ( h3 h4 p1 p10 )_z * i1 ( p10 p2 )_f @@ -3251,7 +3251,7 @@ C i0 ( h3 h4 p1 p2 )_zf + = 1 * P( 2 ) * Sum ( p10 ) * z ( h3 h4 p1 p10 )_z RETURN END SUBROUTINE eomccsd_z2_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_f + = 1 * f ( p10 p1 )_f @@ -3335,7 +3335,7 @@ C i1 ( p10 p1 )_f + = 1 * f ( p10 p1 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z2_5_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_f @@ -3392,7 +3392,7 @@ C i1 ( p10 p1 )_f END SUBROUTINE eomccsd_z2_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p10 p1 p5 )_v @@ -3537,7 +3537,7 @@ C i1 ( p10 p1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p10 p1 p5 END SUBROUTINE eomccsd_z2_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_vt + = 1/2 * Sum ( h7 h8 p6 ) * t ( p6 p10 h7 h8 )_t * v ( h7 h8 p1 p6 )_v @@ -3713,7 +3713,7 @@ C i1 ( p10 p1 )_vt + = 1/2 * Sum ( h7 h8 p6 ) * t ( p6 p10 h7 h8 )_t * v ( h END SUBROUTINE eomccsd_z2_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_vtt + = -1 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h6 p1 )_vt @@ -3841,7 +3841,7 @@ C i1 ( p10 p1 )_vtt + = -1 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h6 p1 )_vt END SUBROUTINE eomccsd_z2_5_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p1 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h6 h8 p1 p7 )_v @@ -4001,7 +4001,7 @@ C i2 ( h6 p1 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h6 h8 p1 p7 )_ RETURN END SUBROUTINE OFFSET_eomccsd_z2_5_4_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p1 )_vt @@ -4057,7 +4057,7 @@ C i2 ( h6 p1 )_vt END SUBROUTINE eomccsd_z2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_zv + = 1/2 * Sum ( h9 h10 ) * z ( h9 h10 p1 p2 )_z * i1 ( h3 h4 h9 h10 )_v @@ -4218,7 +4218,7 @@ C i0 ( h3 h4 p1 p2 )_zv + = 1/2 * Sum ( h9 h10 ) * z ( h9 h10 p1 p2 )_z * i1 RETURN END SUBROUTINE eomccsd_z2_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_v + = 1 * v ( h3 h4 h9 h10 )_v @@ -4316,7 +4316,7 @@ C i1 ( h3 h4 h9 h10 )_v + = 1 * v ( h3 h4 h9 h10 )_v RETURN END SUBROUTINE OFFSET_eomccsd_z2_6_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_v @@ -4386,7 +4386,7 @@ C i1 ( h3 h4 h9 h10 )_v END SUBROUTINE eomccsd_z2_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_vt + = -2 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 h4 h10 p5 )_v @@ -4539,7 +4539,7 @@ C i1 ( h3 h4 h9 h10 )_vt + = -2 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 h4 h1 RETURN END SUBROUTINE eomccsd_z2_6_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h10 p5 )_v + = 1 * v ( h3 h4 h10 p5 )_v @@ -4638,7 +4638,7 @@ C i2 ( h3 h4 h10 p5 )_v + = 1 * v ( h3 h4 h10 p5 )_v RETURN END SUBROUTINE OFFSET_eomccsd_z2_6_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h10 p5 )_v @@ -4708,7 +4708,7 @@ C i2 ( h3 h4 h10 p5 )_v END SUBROUTINE eomccsd_z2_6_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h10 p5 )_vt + = -1/2 * Sum ( p7 ) * t ( p7 h10 )_t * v ( h3 h4 p5 p7 )_v @@ -4862,7 +4862,7 @@ C i2 ( h3 h4 h10 p5 )_vt + = -1/2 * Sum ( p7 ) * t ( p7 h10 )_t * v ( h3 h4 END SUBROUTINE eomccsd_z2_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h9 h10 )_t * v ( h3 h4 p5 p6 )_v @@ -5024,7 +5024,7 @@ C i1 ( h3 h4 h9 h10 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h9 h10 )_t * v END SUBROUTINE eomccsd_z2_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_zv + = -1 * P( 4 ) * Sum ( h9 p7 ) * z ( h3 h9 p1 p7 )_z * i1 ( h4 p7 h9 p2 )_v @@ -5225,7 +5225,7 @@ C i0 ( h3 h4 p1 p2 )_zv + = -1 * P( 4 ) * Sum ( h9 p7 ) * z ( h3 h9 p1 p7 )_ RETURN END SUBROUTINE eomccsd_z2_7_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p7 h9 p1 )_v + = 1 * v ( h3 p7 h9 p1 )_v @@ -5326,7 +5326,7 @@ C i1 ( h3 p7 h9 p1 )_v + = 1 * v ( h3 p7 h9 p1 )_v RETURN END SUBROUTINE OFFSET_eomccsd_z2_7_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p7 h9 p1 )_v @@ -5396,7 +5396,7 @@ C i1 ( h3 p7 h9 p1 )_v END SUBROUTINE eomccsd_z2_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p7 h9 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h9 )_t * v ( h3 p7 p1 p5 )_v @@ -5550,7 +5550,7 @@ C i1 ( h3 p7 h9 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h9 )_t * v ( h3 p7 p1 p END SUBROUTINE eomccsd_z2_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p7 h9 p1 )_vt + = -1 * Sum ( h8 p6 ) * t ( p6 p7 h8 h9 )_t * v ( h3 h8 p1 p6 )_v @@ -5753,7 +5753,7 @@ C i1 ( h3 p7 h9 p1 )_vt + = -1 * Sum ( h8 p6 ) * t ( p6 p7 h8 h9 )_t * v ( h END SUBROUTINE eomccsd_z2_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_zv + = 1/2 * Sum ( p5 p6 ) * z ( h3 h4 p5 p6 )_z * v ( p5 p6 p1 p2 )_v @@ -5915,7 +5915,7 @@ C i0 ( h3 h4 p1 p2 )_zv + = 1/2 * Sum ( p5 p6 ) * z ( h3 h4 p5 p6 )_z * v ( END SUBROUTINE eomccsd_z2_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ztv + = 1 * P( 2 ) * Sum ( h10 ) * i1 ( h3 h10 )_zt * v ( h4 h10 p1 p2 )_v @@ -6078,7 +6078,7 @@ C i0 ( h3 h4 p1 p2 )_ztv + = 1 * P( 2 ) * Sum ( h10 ) * i1 ( h3 h10 )_zt * v END SUBROUTINE eomccsd_z2_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h10 )_zt + = 1 * Sum ( p5 ) * t ( p5 h10 )_t * i2 ( h3 p5 )_z @@ -6207,7 +6207,7 @@ C i1 ( h3 h10 )_zt + = 1 * Sum ( p5 ) * t ( p5 h10 )_t * i2 ( h3 p5 )_z RETURN END SUBROUTINE OFFSET_eomccsd_z2_9_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h10 )_zt @@ -6264,7 +6264,7 @@ C i1 ( h3 h10 )_zt RETURN END SUBROUTINE eomccsd_z2_9_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_z + = 1 * z ( h3 p5 )_z @@ -6350,7 +6350,7 @@ C i2 ( h3 p5 )_z + = 1 * z ( h3 p5 )_z RETURN END SUBROUTINE OFFSET_eomccsd_z2_9_1_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_z @@ -6408,7 +6408,7 @@ C i2 ( h3 p5 )_z END SUBROUTINE eomccsd_z2_9_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_yx + = 1 * Sum ( h8 p7 ) * x ( p7 h8 )_x * y ( h3 h8 p5 p7 )_y @@ -6569,7 +6569,7 @@ C i2 ( h3 p5 )_yx + = 1 * Sum ( h8 p7 ) * x ( p7 h8 )_x * y ( h3 h8 p5 p7 )_ END SUBROUTINE eomccsd_z2_9_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h10 )_zt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h7 h10 )_t * z ( h3 h7 p5 p6 )_z @@ -6747,7 +6747,7 @@ C i1 ( h3 h10 )_zt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h7 h10 )_t * z ( END SUBROUTINE eomccsd_z2_9_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h10 )_yx + = 1 * Sum ( p6 ) * x ( p6 h10 )_x * y ( h3 p6 )_y @@ -6875,7 +6875,7 @@ C i1 ( h3 h10 )_yx + = 1 * Sum ( p6 ) * x ( p6 h10 )_x * y ( h3 p6 )_y END SUBROUTINE eomccsd_z2_9_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h10 )_yx + = -1/2 * Sum ( h8 p6 p7 ) * x ( p6 p7 h8 h10 )_x * y ( h3 h8 p6 p7 )_y @@ -7051,7 +7051,7 @@ C i1 ( h3 h10 )_yx + = -1/2 * Sum ( h8 p6 p7 ) * x ( p6 p7 h8 h10 )_x * y ( END SUBROUTINE eomccsd_z2_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ztf + = 1 * P( 2 ) * Sum ( h5 ) * i1 ( h3 h4 h5 p1 )_zt * f ( h5 p2 )_f @@ -7207,7 +7207,7 @@ C i0 ( h3 h4 p1 p2 )_ztf + = 1 * P( 2 ) * Sum ( h5 ) * i1 ( h3 h4 h5 p1 )_zt END SUBROUTINE eomccsd_z2_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h5 p1 )_zt + = -1 * Sum ( p6 ) * t ( p6 h5 )_t * z ( h3 h4 p1 p6 )_z @@ -7362,7 +7362,7 @@ C i1 ( h3 h4 h5 p1 )_zt + = -1 * Sum ( p6 ) * t ( p6 h5 )_t * z ( h3 h4 p1 p RETURN END SUBROUTINE OFFSET_eomccsd_z2_10_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h5 p1 )_zt @@ -7436,7 +7436,7 @@ C i1 ( h3 h4 h5 p1 )_zt END SUBROUTINE eomccsd_z2_10_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h5 p1 )_yx + = -1 * Sum ( p6 ) * x ( p6 h5 )_x * y ( h3 h4 p1 p6 )_y @@ -7590,7 +7590,7 @@ C i1 ( h3 h4 h5 p1 )_yx + = -1 * Sum ( p6 ) * x ( p6 h5 )_x * y ( h3 h4 p1 p END SUBROUTINE eomccsd_z2_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ztv + = 1 * P( 4 ) * Sum ( h9 h8 ) * i1 ( h3 h9 h8 p1 )_zt * v ( h4 h8 h9 p2 )_v @@ -7778,7 +7778,7 @@ C i0 ( h3 h4 p1 p2 )_ztv + = 1 * P( 4 ) * Sum ( h9 h8 ) * i1 ( h3 h9 h8 p1 ) END SUBROUTINE eomccsd_z2_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 h8 p1 )_zt + = 1 * Sum ( p5 ) * t ( p5 h8 )_t * z ( h3 h9 p1 p5 )_z @@ -7949,7 +7949,7 @@ C i1 ( h3 h9 h8 p1 )_zt + = 1 * Sum ( p5 ) * t ( p5 h8 )_t * z ( h3 h9 p1 p5 RETURN END SUBROUTINE OFFSET_eomccsd_z2_11_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 h8 p1 )_zt @@ -8023,7 +8023,7 @@ C i1 ( h3 h9 h8 p1 )_zt END SUBROUTINE eomccsd_z2_11_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 h8 p1 )_yx + = 1 * Sum ( p7 ) * x ( p7 h8 )_x * y ( h3 h9 p1 p7 )_y @@ -8193,7 +8193,7 @@ C i1 ( h3 h9 h8 p1 )_yx + = 1 * Sum ( p7 ) * x ( p7 h8 )_x * y ( h3 h9 p1 p7 END SUBROUTINE eomccsd_z2_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ztv + = 1 * Sum ( h8 p9 ) * i1 ( h3 h4 h8 p9 )_zt * v ( h8 p9 p1 p2 )_v @@ -8345,7 +8345,7 @@ C i0 ( h3 h4 p1 p2 )_ztv + = 1 * Sum ( h8 p9 ) * i1 ( h3 h4 h8 p9 )_zt * v ( END SUBROUTINE eomccsd_z2_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h8 p9 )_zt + = -1 * Sum ( p5 ) * t ( p5 h8 )_t * z ( h3 h4 p5 p9 )_z @@ -8500,7 +8500,7 @@ C i1 ( h3 h4 h8 p9 )_zt + = -1 * Sum ( p5 ) * t ( p5 h8 )_t * z ( h3 h4 p5 p RETURN END SUBROUTINE OFFSET_eomccsd_z2_12_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h8 p9 )_zt @@ -8574,7 +8574,7 @@ C i1 ( h3 h4 h8 p9 )_zt END SUBROUTINE eomccsd_z2_12_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h8 p9 )_yx + = -1 * Sum ( p7 ) * x ( p7 h8 )_x * y ( h3 h4 p7 p9 )_y @@ -8728,7 +8728,7 @@ C i1 ( h3 h4 h8 p9 )_yx + = -1 * Sum ( p7 ) * x ( p7 h8 )_x * y ( h3 h4 p7 p END SUBROUTINE eomccsd_z2_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ztv + = 1/2 * P( 2 ) * Sum ( p10 ) * i1 ( p10 p1 )_zt * v ( h3 h4 p2 p10 )_v @@ -8892,7 +8892,7 @@ C i0 ( h3 h4 p1 p2 )_ztv + = 1/2 * P( 2 ) * Sum ( p10 ) * i1 ( p10 p1 )_zt * END SUBROUTINE eomccsd_z2_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_zt + = -1 * Sum ( h7 h8 p5 ) * t ( p5 p10 h7 h8 )_t * z ( h7 h8 p1 p5 )_z @@ -9069,7 +9069,7 @@ C i1 ( p10 p1 )_zt + = -1 * Sum ( h7 h8 p5 ) * t ( p5 p10 h7 h8 )_t * z ( h7 RETURN END SUBROUTINE OFFSET_eomccsd_z2_13_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_zt @@ -9128,7 +9128,7 @@ C i1 ( p10 p1 )_zt END SUBROUTINE eomccsd_z2_13_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_yx + = -1 * Sum ( h7 h8 p6 ) * x ( p6 p10 h7 h8 )_x * y ( h7 h8 p1 p6 )_y @@ -9304,7 +9304,7 @@ C i1 ( p10 p1 )_yx + = -1 * Sum ( h7 h8 p6 ) * x ( p6 p10 h7 h8 )_x * y ( h7 END SUBROUTINE eomccsd_z2_13_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_yxt + = 2 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h6 p1 )_yx @@ -9432,7 +9432,7 @@ C i1 ( p10 p1 )_yxt + = 2 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h6 p1 )_yx END SUBROUTINE eomccsd_z2_13_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p1 )_yx + = 1 * Sum ( h8 p7 ) * x ( p7 h8 )_x * y ( h6 h8 p1 p7 )_y @@ -9592,7 +9592,7 @@ C i2 ( h6 p1 )_yx + = 1 * Sum ( h8 p7 ) * x ( p7 h8 )_x * y ( h6 h8 p1 p7 )_ RETURN END SUBROUTINE OFFSET_eomccsd_z2_13_3_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p1 )_yx @@ -9648,7 +9648,7 @@ C i2 ( h6 p1 )_yx END SUBROUTINE eomccsd_z2_14(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ztv + = -1/4 * Sum ( h11 h10 ) * i1 ( h3 h4 h10 h11 )_zt * v ( h10 h11 p1 p2 )_v @@ -9812,7 +9812,7 @@ C i0 ( h3 h4 p1 p2 )_ztv + = -1/4 * Sum ( h11 h10 ) * i1 ( h3 h4 h10 h11 )_z END SUBROUTINE eomccsd_z2_14_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h10 h11 )_zt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h10 h11 )_t * z ( h3 h4 p5 p6 )_z @@ -9975,7 +9975,7 @@ C i1 ( h3 h4 h10 h11 )_zt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h10 h11 )_t * z RETURN END SUBROUTINE OFFSET_eomccsd_z2_14_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h10 h11 )_zt @@ -10049,7 +10049,7 @@ C i1 ( h3 h4 h10 h11 )_zt END SUBROUTINE eomccsd_z2_14_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h10 h11 )_ztt + = -2 * Sum ( p5 ) * t ( p5 h11 )_t * i2 ( h3 h4 h10 p5 )_zt @@ -10205,7 +10205,7 @@ C i1 ( h3 h4 h10 h11 )_ztt + = -2 * Sum ( p5 ) * t ( p5 h11 )_t * i2 ( h3 h4 END SUBROUTINE eomccsd_z2_14_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h10 p5 )_zt + = -1 * Sum ( p7 ) * t ( p7 h10 )_t * z ( h3 h4 p5 p7 )_z @@ -10360,7 +10360,7 @@ C i2 ( h3 h4 h10 p5 )_zt + = -1 * Sum ( p7 ) * t ( p7 h10 )_t * z ( h3 h4 p5 RETURN END SUBROUTINE OFFSET_eomccsd_z2_14_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h10 p5 )_zt @@ -10434,7 +10434,7 @@ C i2 ( h3 h4 h10 p5 )_zt END SUBROUTINE eomccsd_z2_14_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h10 p5 )_yx + = -2 * Sum ( p8 ) * x ( p8 h10 )_x * y ( h3 h4 p5 p8 )_y @@ -10588,7 +10588,7 @@ C i2 ( h3 h4 h10 p5 )_yx + = -2 * Sum ( p8 ) * x ( p8 h10 )_x * y ( h3 h4 p5 END SUBROUTINE eomccsd_z2_14_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h10 h11 )_yx + = -1 * Sum ( p7 p8 ) * x ( p7 p8 h10 h11 )_x * y ( h3 h4 p7 p8 )_y @@ -10750,7 +10750,7 @@ C i1 ( h3 h4 h10 h11 )_yx + = -1 * Sum ( p7 p8 ) * x ( p7 p8 h10 h11 )_x * y END SUBROUTINE eomccsd_z2_15(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_zttv + = -1 * P( 4 ) * Sum ( p10 h9 ) * i1 ( h3 p10 h9 p1 )_ztt * v ( h4 h9 p2 p10 )_v @@ -10954,7 +10954,7 @@ C i0 ( h3 h4 p1 p2 )_zttv + = -1 * P( 4 ) * Sum ( p10 h9 ) * i1 ( h3 p10 h9 END SUBROUTINE eomccsd_z2_15_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p10 h9 p1 )_ztt + = 1 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h3 h6 h9 p1 )_zt @@ -11099,7 +11099,7 @@ C i1 ( h3 p10 h9 p1 )_ztt + = 1 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h3 h6 h RETURN END SUBROUTINE OFFSET_eomccsd_z2_15_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p10 h9 p1 )_ztt @@ -11173,7 +11173,7 @@ C i1 ( h3 p10 h9 p1 )_ztt END SUBROUTINE eomccsd_z2_15_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h6 h9 p1 )_zt + = 1 * Sum ( p7 ) * t ( p7 h9 )_t * z ( h3 h6 p1 p7 )_z @@ -11344,7 +11344,7 @@ C i2 ( h3 h6 h9 p1 )_zt + = 1 * Sum ( p7 ) * t ( p7 h9 )_t * z ( h3 h6 p1 p7 RETURN END SUBROUTINE OFFSET_eomccsd_z2_15_1_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h6 h9 p1 )_zt @@ -11418,7 +11418,7 @@ C i2 ( h3 h6 h9 p1 )_zt END SUBROUTINE eomccsd_z2_15_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p10 h9 p1 )_yx + = -1 * Sum ( h8 p7 ) * x ( p7 p10 h8 h9 )_x * y ( h3 h8 p1 p7 )_y @@ -11621,7 +11621,7 @@ C i1 ( h3 p10 h9 p1 )_yx + = -1 * Sum ( h8 p7 ) * x ( p7 p10 h8 h9 )_x * y ( END SUBROUTINE eomccsd_z2_16(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yxv + = 1 * i1 ( )_yx * v ( h3 h4 p1 p2 )_v @@ -11752,7 +11752,7 @@ C i0 ( h3 h4 p1 p2 )_yxv + = 1 * i1 ( )_yx * v ( h3 h4 p1 p2 )_v END SUBROUTINE eomccsd_z2_16_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h6 p5 )_y @@ -11868,7 +11868,7 @@ C i1 ( )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h6 p5 )_y RETURN END SUBROUTINE OFFSET_eomccsd_z2_16_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yx @@ -11902,7 +11902,7 @@ C i1 ( )_yx END SUBROUTINE eomccsd_z2_16_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yx + = 1/4 * Sum ( h7 h8 p5 p6 ) * x ( p5 p6 h7 h8 )_x * y ( h7 h8 p5 p6 )_y @@ -12058,7 +12058,7 @@ C i1 ( )_yx + = 1/4 * Sum ( h7 h8 p5 p6 ) * x ( p5 p6 h7 h8 )_x * y ( h7 h8 END SUBROUTINE eomccsd_z2_17(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_vxy + = -1 * P( 2 ) * Sum ( h6 ) * y ( h6 p1 )_y * i1 ( h3 h4 h6 p2 )_vx @@ -12210,7 +12210,7 @@ C i0 ( h3 h4 p1 p2 )_vxy + = -1 * P( 2 ) * Sum ( h6 ) * y ( h6 p1 )_y * i1 ( END SUBROUTINE eomccsd_z2_17_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h6 p1 )_vx + = -1 * Sum ( p5 ) * x ( p5 h6 )_x * v ( h3 h4 p1 p5 )_v @@ -12363,7 +12363,7 @@ C i1 ( h3 h4 h6 p1 )_vx + = -1 * Sum ( p5 ) * x ( p5 h6 )_x * v ( h3 h4 p1 p RETURN END SUBROUTINE OFFSET_eomccsd_z2_17_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h6 p1 )_vx @@ -12435,7 +12435,7 @@ C i1 ( h3 h4 h6 p1 )_vx END SUBROUTINE eomccsd_z2_18(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_vxy + = 1 * P( 4 ) * y ( h3 p1 )_y * i1 ( h4 p2 )_vx @@ -12595,7 +12595,7 @@ C i0 ( h3 h4 p1 p2 )_vxy + = 1 * P( 4 ) * y ( h3 p1 )_y * i1 ( h4 p2 )_vx END SUBROUTINE eomccsd_z2_18_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h3 h5 p1 p6 )_v @@ -12755,7 +12755,7 @@ C i1 ( h3 p1 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h3 h5 p1 p6 )_ RETURN END SUBROUTINE OFFSET_eomccsd_z2_18_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_vx @@ -12811,7 +12811,7 @@ C i1 ( h3 p1 )_vx END SUBROUTINE eomccsd_z2_19(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yxf + = 1 * P( 4 ) * i1 ( h3 p1 )_yx * f ( h4 p2 )_f @@ -12971,7 +12971,7 @@ C i0 ( h3 h4 p1 p2 )_yxf + = 1 * P( 4 ) * i1 ( h3 p1 )_yx * f ( h4 p2 )_f END SUBROUTINE eomccsd_z2_19_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h3 h6 p1 p5 )_y @@ -13131,7 +13131,7 @@ C i1 ( h3 p1 )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h3 h6 p1 p5 )_ RETURN END SUBROUTINE OFFSET_eomccsd_z2_19_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_yx @@ -13187,7 +13187,7 @@ C i1 ( h3 p1 )_yx END SUBROUTINE eomccsd_z2_20(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_fxy + = -1 * P( 2 ) * Sum ( h9 ) * y ( h3 h9 p1 p2 )_y * i1 ( h4 h9 )_fx @@ -13350,7 +13350,7 @@ C i0 ( h3 h4 p1 p2 )_fxy + = -1 * P( 2 ) * Sum ( h9 ) * y ( h3 h9 p1 p2 )_y END SUBROUTINE eomccsd_z2_20_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_fx + = 1 * Sum ( p8 ) * x ( p8 h9 )_x * i2 ( h3 p8 )_f @@ -13477,7 +13477,7 @@ C i1 ( h3 h9 )_fx + = 1 * Sum ( p8 ) * x ( p8 h9 )_x * i2 ( h3 p8 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z2_20_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_fx @@ -13532,7 +13532,7 @@ C i1 ( h3 h9 )_fx RETURN END SUBROUTINE eomccsd_z2_20_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p8 )_f + = 1 * f ( h3 p8 )_f @@ -13616,7 +13616,7 @@ C i2 ( h3 p8 )_f + = 1 * f ( h3 p8 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z2_20_1_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p8 )_f @@ -13672,7 +13672,7 @@ C i2 ( h3 p8 )_f END SUBROUTINE eomccsd_z2_20_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p8 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 p5 p8 )_v @@ -13833,7 +13833,7 @@ C i2 ( h3 p8 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 p5 p8 ) END SUBROUTINE eomccsd_z2_20_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vx + = 1 * Sum ( h5 p7 ) * x ( p7 h5 )_x * v ( h3 h5 h9 p7 )_v @@ -13978,7 +13978,7 @@ C i1 ( h3 h9 )_vx + = 1 * Sum ( h5 p7 ) * x ( p7 h5 )_x * v ( h3 h5 h9 p7 )_ END SUBROUTINE eomccsd_z2_20_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vx + = -1/2 * Sum ( h5 p6 p7 ) * x ( p6 p7 h5 h9 )_x * v ( h3 h5 p6 p7 )_v @@ -14154,7 +14154,7 @@ C i1 ( h3 h9 )_vx + = -1/2 * Sum ( h5 p6 p7 ) * x ( p6 p7 h5 h9 )_x * v ( h3 END SUBROUTINE eomccsd_z2_20_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vxt + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 p5 )_vx @@ -14282,7 +14282,7 @@ C i1 ( h3 h9 )_vxt + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 p5 )_vx END SUBROUTINE eomccsd_z2_20_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h3 h7 p5 p8 )_v @@ -14442,7 +14442,7 @@ C i2 ( h3 p5 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h3 h7 p5 p8 )_ RETURN END SUBROUTINE OFFSET_eomccsd_z2_20_4_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_vx @@ -14498,7 +14498,7 @@ C i2 ( h3 p5 )_vx END SUBROUTINE eomccsd_z2_21(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_fxy + = 1 * y ( h3 h4 p1 p2 )_y * i1 ( )_fx @@ -14633,7 +14633,7 @@ C i0 ( h3 h4 p1 p2 )_fxy + = 1 * y ( h3 h4 p1 p2 )_y * i1 ( )_fx END SUBROUTINE eomccsd_z2_21_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_fx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * f ( h5 p6 )_f @@ -14749,7 +14749,7 @@ C i1 ( )_fx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * f ( h5 p6 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z2_21_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_fx @@ -14783,7 +14783,7 @@ C i1 ( )_fx END SUBROUTINE eomccsd_z2_21_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_vx + = 1/4 * Sum ( h5 h6 p7 p8 ) * x ( p7 p8 h5 h6 )_x * v ( h5 h6 p7 p8 )_v @@ -14939,7 +14939,7 @@ C i1 ( )_vx + = 1/4 * Sum ( h5 h6 p7 p8 ) * x ( p7 p8 h5 h6 )_x * v ( h5 h6 END SUBROUTINE eomccsd_z2_21_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_vxt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * i2 ( h6 p5 )_vx @@ -15056,7 +15056,7 @@ C i1 ( )_vxt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * i2 ( h6 p5 )_vx END SUBROUTINE eomccsd_z2_21_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p5 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h6 h7 p5 p8 )_v @@ -15216,7 +15216,7 @@ C i2 ( h6 p5 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h6 h7 p5 p8 )_ RETURN END SUBROUTINE OFFSET_eomccsd_z2_21_3_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p5 )_vx @@ -15272,7 +15272,7 @@ C i2 ( h6 p5 )_vx END SUBROUTINE eomccsd_z2_22(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yxv + = -1 * P( 2 ) * Sum ( h5 ) * i1 ( h5 p1 )_yx * v ( h3 h4 h5 p2 )_v @@ -15426,7 +15426,7 @@ C i0 ( h3 h4 p1 p2 )_yxv + = -1 * P( 2 ) * Sum ( h5 ) * i1 ( h5 p1 )_yx * v END SUBROUTINE eomccsd_z2_22_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p1 )_yx + = 1 * Sum ( h7 p6 ) * x ( p6 h7 )_x * y ( h5 h7 p1 p6 )_y @@ -15586,7 +15586,7 @@ C i1 ( h5 p1 )_yx + = 1 * Sum ( h7 p6 ) * x ( p6 h7 )_x * y ( h5 h7 p1 p6 )_ RETURN END SUBROUTINE OFFSET_eomccsd_z2_22_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p1 )_yx @@ -15642,7 +15642,7 @@ C i1 ( h5 p1 )_yx END SUBROUTINE eomccsd_z2_23(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_vxy + = -1 * Sum ( h11 h9 ) * y ( h9 h11 p1 p2 )_y * i1 ( h3 h4 h9 h11 )_vx @@ -15803,7 +15803,7 @@ C i0 ( h3 h4 p1 p2 )_vxy + = -1 * Sum ( h11 h9 ) * y ( h9 h11 p1 p2 )_y * i1 END SUBROUTINE eomccsd_z2_23_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h11 )_vx + = 1 * Sum ( p6 ) * x ( p6 h9 )_x * v ( h3 h4 h11 p6 )_v @@ -15956,7 +15956,7 @@ C i1 ( h3 h4 h9 h11 )_vx + = 1 * Sum ( p6 ) * x ( p6 h9 )_x * v ( h3 h4 h11 RETURN END SUBROUTINE OFFSET_eomccsd_z2_23_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h11 )_vx @@ -16028,7 +16028,7 @@ C i1 ( h3 h4 h9 h11 )_vx END SUBROUTINE eomccsd_z2_23_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h11 )_vx + = -1/4 * Sum ( p5 p6 ) * x ( p5 p6 h9 h11 )_x * v ( h3 h4 p5 p6 )_v @@ -16190,7 +16190,7 @@ C i1 ( h3 h4 h9 h11 )_vx + = -1/4 * Sum ( p5 p6 ) * x ( p5 p6 h9 h11 )_x * v END SUBROUTINE eomccsd_z2_23_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h11 )_vxt + = -1 * Sum ( p5 ) * t ( p5 h11 )_t * i2 ( h3 h4 h9 p5 )_vx @@ -16344,7 +16344,7 @@ C i1 ( h3 h4 h9 h11 )_vxt + = -1 * Sum ( p5 ) * t ( p5 h11 )_t * i2 ( h3 h4 END SUBROUTINE eomccsd_z2_23_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h9 p5 )_vx + = -1 * Sum ( p7 ) * x ( p7 h9 )_x * v ( h3 h4 p5 p7 )_v @@ -16497,7 +16497,7 @@ C i2 ( h3 h4 h9 p5 )_vx + = -1 * Sum ( p7 ) * x ( p7 h9 )_x * v ( h3 h4 p5 p RETURN END SUBROUTINE OFFSET_eomccsd_z2_23_3_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h9 p5 )_vx @@ -16569,7 +16569,7 @@ C i2 ( h3 h4 h9 p5 )_vx END SUBROUTINE eomccsd_z2_24(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_vxy + = -1 * P( 4 ) * Sum ( p10 h9 ) * y ( h3 h9 p1 p10 )_y * i1 ( h4 p10 h9 p2 )_vx @@ -16770,7 +16770,7 @@ C i0 ( h3 h4 p1 p2 )_vxy + = -1 * P( 4 ) * Sum ( p10 h9 ) * y ( h3 h9 p1 p10 END SUBROUTINE eomccsd_z2_24_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p10 h9 p1 )_vx + = -1 * Sum ( p6 ) * x ( p6 h9 )_x * v ( h3 p10 p1 p6 )_v @@ -16923,7 +16923,7 @@ C i1 ( h3 p10 h9 p1 )_vx + = -1 * Sum ( p6 ) * x ( p6 h9 )_x * v ( h3 p10 p1 RETURN END SUBROUTINE OFFSET_eomccsd_z2_24_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p10 h9 p1 )_vx @@ -16995,7 +16995,7 @@ C i1 ( h3 p10 h9 p1 )_vx END SUBROUTINE eomccsd_z2_24_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p10 h9 p1 )_vtx + = 1 * Sum ( h7 ) * x ( p10 h7 )_x * i2 ( h3 h7 h9 p1 )_vt @@ -17139,7 +17139,7 @@ C i1 ( h3 p10 h9 p1 )_vtx + = 1 * Sum ( h7 ) * x ( p10 h7 )_x * i2 ( h3 h7 h END SUBROUTINE eomccsd_z2_24_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h7 h9 p1 )_vt + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * v ( h3 h7 p1 p5 )_v @@ -17308,7 +17308,7 @@ C i2 ( h3 h7 h9 p1 )_vt + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * v ( h3 h7 p1 p5 RETURN END SUBROUTINE OFFSET_eomccsd_z2_24_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h7 h9 p1 )_vt @@ -17380,7 +17380,7 @@ C i2 ( h3 h7 h9 p1 )_vt END SUBROUTINE eomccsd_z2_24_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p10 h9 p1 )_vxt + = 1 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h3 h6 h9 p1 )_vx @@ -17524,7 +17524,7 @@ C i1 ( h3 p10 h9 p1 )_vxt + = 1 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h3 h6 h END SUBROUTINE eomccsd_z2_24_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h6 h9 p1 )_vx + = 1 * Sum ( p7 ) * x ( p7 h9 )_x * v ( h3 h6 p1 p7 )_v @@ -17693,7 +17693,7 @@ C i2 ( h3 h6 h9 p1 )_vx + = 1 * Sum ( p7 ) * x ( p7 h9 )_x * v ( h3 h6 p1 p7 RETURN END SUBROUTINE OFFSET_eomccsd_z2_24_3_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h6 h9 p1 )_vx @@ -17765,7 +17765,7 @@ C i2 ( h3 h6 h9 p1 )_vx END SUBROUTINE eomccsd_z2_24_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p10 h9 p1 )_vtx + = -1 * x ( p10 h9 )_x * i2 ( h3 p1 )_vt @@ -17901,7 +17901,7 @@ C i1 ( h3 p10 h9 p1 )_vtx + = -1 * x ( p10 h9 )_x * i2 ( h3 p1 )_vt END SUBROUTINE eomccsd_z2_24_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 p1 p5 )_v @@ -18061,7 +18061,7 @@ C i2 ( h3 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 p1 p5 )_ RETURN END SUBROUTINE OFFSET_eomccsd_z2_24_4_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p1 )_vt @@ -18117,7 +18117,7 @@ C i2 ( h3 p1 )_vt END SUBROUTINE eomccsd_z2_25(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_vxy + = 1 * P( 2 ) * Sum ( p9 ) * y ( h3 h4 p1 p9 )_y * i1 ( p9 p2 )_vx @@ -18280,7 +18280,7 @@ C i0 ( h3 h4 p1 p2 )_vxy + = 1 * P( 2 ) * Sum ( p9 ) * y ( h3 h4 p1 p9 )_y * END SUBROUTINE eomccsd_z2_25_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 p1 )_vx + = -1 * Sum ( h5 p7 ) * x ( p7 h5 )_x * v ( h5 p9 p1 p7 )_v @@ -18424,7 +18424,7 @@ C i1 ( p9 p1 )_vx + = -1 * Sum ( h5 p7 ) * x ( p7 h5 )_x * v ( h5 p9 p1 p7 ) RETURN END SUBROUTINE OFFSET_eomccsd_z2_25_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 p1 )_vx @@ -18480,7 +18480,7 @@ C i1 ( p9 p1 )_vx END SUBROUTINE eomccsd_z2_25_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 p1 )_vx + = 1/2 * Sum ( h5 h6 p7 ) * x ( p7 p9 h5 h6 )_x * v ( h5 h6 p1 p7 )_v @@ -18656,7 +18656,7 @@ C i1 ( p9 p1 )_vx + = 1/2 * Sum ( h5 h6 p7 ) * x ( p7 p9 h5 h6 )_x * v ( h5 END SUBROUTINE eomccsd_z2_25_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 p1 )_vxt + = -1 * Sum ( h6 ) * t ( p9 h6 )_t * i2 ( h6 p1 )_vx @@ -18784,7 +18784,7 @@ C i1 ( p9 p1 )_vxt + = -1 * Sum ( h6 ) * t ( p9 h6 )_t * i2 ( h6 p1 )_vx END SUBROUTINE eomccsd_z2_25_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p1 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h6 h7 p1 p8 )_v @@ -18944,7 +18944,7 @@ C i2 ( h6 p1 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h6 h7 p1 p8 )_ RETURN END SUBROUTINE OFFSET_eomccsd_z2_25_3_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p1 )_vx @@ -19000,7 +19000,7 @@ C i2 ( h6 p1 )_vx END SUBROUTINE eomccsd_z2_25_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 p1 )_vtx + = 1 * Sum ( h7 ) * x ( p9 h7 )_x * i2 ( h7 p1 )_vt @@ -19128,7 +19128,7 @@ C i1 ( p9 p1 )_vtx + = 1 * Sum ( h7 ) * x ( p9 h7 )_x * i2 ( h7 p1 )_vt END SUBROUTINE eomccsd_z2_25_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h7 p1 p5 )_v @@ -19288,7 +19288,7 @@ C i2 ( h7 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h7 p1 p5 )_ RETURN END SUBROUTINE OFFSET_eomccsd_z2_25_4_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p1 )_vt diff --git a/src/tce/gradients/mp2_1pdm_hh_mo.F b/src/tce/gradients/mp2_1pdm_hh_mo.F index b2da0af261..d7d91d3468 100644 --- a/src/tce/gradients/mp2_1pdm_hh_mo.F +++ b/src/tce/gradients/mp2_1pdm_hh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE mp2_1pdm_hh_mo(d_i0,d_t2,d_y2,k_i0_offset,k_t2_offset,k &_y2_offset) -C $Id: mp2_1pdm_hh_mo.F,v 1.1 2008-10-02 00:28:18 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_ty + = -1/2 * Sum ( p4 p5 h3 ) * t ( p4 p5 h1 h3 )_t * y ( h2 h3 p4 p5 )_y @@ -22,7 +22,7 @@ C i0 ( h2 h1 )_ty + = -1/2 * Sum ( p4 p5 h3 ) * t ( p4 p5 h1 h3 )_t * y ( h2 END SUBROUTINE mp2_1pdm_hh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: mp2_1pdm_hh_mo.F,v 1.1 2008-10-02 00:28:18 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_ty + = -1/2 * Sum ( p4 p5 h3 ) * t ( p4 p5 h1 h3 )_t * y ( h2 h3 p4 p5 )_y diff --git a/src/tce/gradients/mp2_1pdm_pp_mo.F b/src/tce/gradients/mp2_1pdm_pp_mo.F index 7a403b91e5..4f35bcfbf4 100644 --- a/src/tce/gradients/mp2_1pdm_pp_mo.F +++ b/src/tce/gradients/mp2_1pdm_pp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE mp2_1pdm_pp_mo(d_i0,d_t2,d_y2,k_i0_offset,k_t2_offset,k &_y2_offset) -C $Id: mp2_1pdm_pp_mo.F,v 1.1 2008-10-02 00:28:38 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_ty + = 1/2 * Sum ( p5 h3 h4 ) * t ( p1 p5 h3 h4 )_t * y ( h3 h4 p2 p5 )_y @@ -22,7 +22,7 @@ C i0 ( p1 p2 )_ty + = 1/2 * Sum ( p5 h3 h4 ) * t ( p1 p5 h3 h4 )_t * y ( h3 END SUBROUTINE mp2_1pdm_pp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: mp2_1pdm_pp_mo.F,v 1.1 2008-10-02 00:28:38 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_ty + = 1/2 * Sum ( p5 h3 h4 ) * t ( p1 p5 h3 h4 )_t * y ( h3 h4 p2 p5 )_y diff --git a/src/tce/gradients/mp2_2pdm_pphh_mo.F b/src/tce/gradients/mp2_2pdm_pphh_mo.F index 3ebb25eef4..287b8b3c35 100644 --- a/src/tce/gradients/mp2_2pdm_pphh_mo.F +++ b/src/tce/gradients/mp2_2pdm_pphh_mo.F @@ -1,5 +1,5 @@ SUBROUTINE mp2_2pdm_pphh_mo(d_i0,d_t2,k_i0_offset,k_t2_offset) -C $Id: mp2_2pdm_pphh_mo.F,v 1.1 2008-10-02 00:29:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_t + = 2 * t ( p3 p4 h1 h2 )_t @@ -17,7 +17,7 @@ C i0 ( p3 p4 h1 h2 )_t + = 2 * t ( p3 p4 h1 h2 )_t RETURN END SUBROUTINE mp2_2pdm_pphh_mo_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: mp2_2pdm_pphh_mo.F,v 1.1 2008-10-02 00:29:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_t + = 2 * t ( p3 p4 h1 h2 )_t diff --git a/src/tce/gradients/mp3_1pdm_hh_mo.F b/src/tce/gradients/mp3_1pdm_hh_mo.F index 804550f603..bcd9ea707e 100644 --- a/src/tce/gradients/mp3_1pdm_hh_mo.F +++ b/src/tce/gradients/mp3_1pdm_hh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE mp3_1pdm_hh_mo(d_i0,d_t2,d_y2,k_i0_offset,k_t2_offset,k &_y2_offset) -C $Id: mp3_1pdm_hh_mo.F,v 1.1 2008-10-02 17:35:45 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_ty + = -1 * Sum ( p4 p5 h3 ) * t ( p4 p5 h1 h3 )_t * y ( h2 h3 p4 p5 )_y @@ -22,7 +22,7 @@ C i0 ( h2 h1 )_ty + = -1 * Sum ( p4 p5 h3 ) * t ( p4 p5 h1 h3 )_t * y ( h2 h END SUBROUTINE mp3_1pdm_hh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: mp3_1pdm_hh_mo.F,v 1.1 2008-10-02 17:35:45 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_ty + = -1 * Sum ( p4 p5 h3 ) * t ( p4 p5 h1 h3 )_t * y ( h2 h3 p4 p5 )_y diff --git a/src/tce/gradients/mp3_1pdm_pp_mo.F b/src/tce/gradients/mp3_1pdm_pp_mo.F index 2ba84b7615..6403cee14b 100644 --- a/src/tce/gradients/mp3_1pdm_pp_mo.F +++ b/src/tce/gradients/mp3_1pdm_pp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE mp3_1pdm_pp_mo(d_i0,d_t2,d_y2,k_i0_offset,k_t2_offset,k &_y2_offset) -C $Id: mp3_1pdm_pp_mo.F,v 1.1 2008-10-02 17:36:16 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_ty + = 1 * Sum ( p5 h3 h4 ) * t ( p1 p5 h3 h4 )_t * y ( h3 h4 p2 p5 )_y @@ -22,7 +22,7 @@ C i0 ( p1 p2 )_ty + = 1 * Sum ( p5 h3 h4 ) * t ( p1 p5 h3 h4 )_t * y ( h3 h4 END SUBROUTINE mp3_1pdm_pp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: mp3_1pdm_pp_mo.F,v 1.1 2008-10-02 17:36:16 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_ty + = 1 * Sum ( p5 h3 h4 ) * t ( p1 p5 h3 h4 )_t * y ( h3 h4 p2 p5 )_y diff --git a/src/tce/gradients/mp3_2pdm_hhhh_mo.F b/src/tce/gradients/mp3_2pdm_hhhh_mo.F index 777baca9d9..c79358c6cd 100644 --- a/src/tce/gradients/mp3_2pdm_hhhh_mo.F +++ b/src/tce/gradients/mp3_2pdm_hhhh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE mp3_2pdm_hhhh_mo(d_i0,d_t2,d_y2,k_i0_offset,k_t2_offs &et,k_y2_offset) -C $Id: mp3_2pdm_hhhh_mo.F,v 1.1 2008-10-02 17:36:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h3 h4 p5 p6 )_y @@ -22,7 +22,7 @@ C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( END SUBROUTINE mp3_2pdm_hhhh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: mp3_2pdm_hhhh_mo.F,v 1.1 2008-10-02 17:36:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h3 h4 p5 p6 )_y diff --git a/src/tce/gradients/mp3_2pdm_hhpp_mo.F b/src/tce/gradients/mp3_2pdm_hhpp_mo.F index c4c7cc5294..e85adf3438 100644 --- a/src/tce/gradients/mp3_2pdm_hhpp_mo.F +++ b/src/tce/gradients/mp3_2pdm_hhpp_mo.F @@ -1,5 +1,5 @@ SUBROUTINE mp3_2pdm_hhpp_mo(d_i0,d_y2,k_i0_offset,k_y2_offset) -C $Id: mp3_2pdm_hhpp_mo.F,v 1.1 2008-10-02 17:37:50 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_y + = 2 * y ( h3 h4 p1 p2 )_y @@ -17,7 +17,7 @@ C i0 ( h3 h4 p1 p2 )_y + = 2 * y ( h3 h4 p1 p2 )_y RETURN END SUBROUTINE mp3_2pdm_hhpp_mo_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: mp3_2pdm_hhpp_mo.F,v 1.1 2008-10-02 17:37:50 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_y + = 2 * y ( h3 h4 p1 p2 )_y diff --git a/src/tce/gradients/mp3_2pdm_hphp_mo.F b/src/tce/gradients/mp3_2pdm_hphp_mo.F index adb5d30e89..33e4bc3ea0 100644 --- a/src/tce/gradients/mp3_2pdm_hphp_mo.F +++ b/src/tce/gradients/mp3_2pdm_hphp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE mp3_2pdm_hphp_mo(d_i0,d_t2,d_y2,k_i0_offset,k_t2_offs &et,k_y2_offset) -C $Id: mp3_2pdm_hphp_mo.F,v 1.1 2008-10-02 17:38:09 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yt + = -1/4 * P( 4 ) * Sum ( h6 p5 ) * t ( p2 p5 h1 h6 )_t * y ( h3 h6 p4 p5 )_y @@ -22,7 +22,7 @@ C i0 ( h3 p2 h1 p4 )_yt + = -1/4 * P( 4 ) * Sum ( h6 p5 ) * t ( p2 p5 h1 h6 END SUBROUTINE mp3_2pdm_hphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: mp3_2pdm_hphp_mo.F,v 1.1 2008-10-02 17:38:09 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yt + = -1/4 * P( 4 ) * Sum ( h6 p5 ) * t ( p2 p5 h1 h6 )_t * y ( h3 h6 p4 p5 )_y diff --git a/src/tce/gradients/mp3_2pdm_pppp_mo.F b/src/tce/gradients/mp3_2pdm_pppp_mo.F index 0a639e7836..64e546f512 100644 --- a/src/tce/gradients/mp3_2pdm_pppp_mo.F +++ b/src/tce/gradients/mp3_2pdm_pppp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE mp3_2pdm_pppp_mo(d_i0,d_t2,d_y2,k_i0_offset,k_t2_offs &et,k_y2_offset) -C $Id: mp3_2pdm_pppp_mo.F,v 1.1 2008-10-02 17:38:36 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( h5 h6 p3 p4 )_y @@ -22,7 +22,7 @@ C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( END SUBROUTINE mp3_2pdm_pppp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: mp3_2pdm_pppp_mo.F,v 1.1 2008-10-02 17:38:36 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( h5 h6 p3 p4 )_y diff --git a/src/tce/gradients/mp4_1pdm_hh_mo_II.F b/src/tce/gradients/mp4_1pdm_hh_mo_II.F index 57673d410f..4b1af99a45 100644 --- a/src/tce/gradients/mp4_1pdm_hh_mo_II.F +++ b/src/tce/gradients/mp4_1pdm_hh_mo_II.F @@ -1,6 +1,6 @@ SUBROUTINE mp4_1pdm_hh_mo_II(d_i0,d_t2,d_y2,k_i0_offset,k_t2_offse &t,k_y2_offset) -C $Id: mp4_1pdm_hh_mo_II.F,v 1.1 2008-10-02 19:13:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_ty + = -1 * Sum ( p4 p5 h3 ) * t ( p4 p5 h1 h3 )_t * y ( h2 h3 p4 p5 )_y @@ -22,7 +22,7 @@ C i0 ( h2 h1 )_ty + = -1 * Sum ( p4 p5 h3 ) * t ( p4 p5 h1 h3 )_t * y ( h2 h END SUBROUTINE mp4_1pdm_hh_mo_II_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: mp4_1pdm_hh_mo_II.F,v 1.1 2008-10-02 19:13:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_ty + = -1 * Sum ( p4 p5 h3 ) * t ( p4 p5 h1 h3 )_t * y ( h2 h3 p4 p5 )_y diff --git a/src/tce/gradients/mp4_1pdm_hh_mo_III_a.F b/src/tce/gradients/mp4_1pdm_hh_mo_III_a.F index 042af6fca5..fb953eea15 100644 --- a/src/tce/gradients/mp4_1pdm_hh_mo_III_a.F +++ b/src/tce/gradients/mp4_1pdm_hh_mo_III_a.F @@ -1,7 +1,7 @@ SUBROUTINE mp4_1pdm_hh_mo_III_a(d_i0,d_t1,d_t2,d_t3,d_y1,d_y2,d_y3 &,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y1_offset,k_y2_ &offset,k_y3_offset) -C $Id: mp4_1pdm_hh_mo_III_a.F,v 1.1 2008-10-02 19:13:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_ty + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -37,7 +37,7 @@ C i0 ( h2 h1 )_ty + = -1/12 * Sum ( p5 p6 p7 h3 h4 ) * t ( p5 p6 p7 h1 h3 h4 END SUBROUTINE mp4_1pdm_hh_mo_III_a_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: mp4_1pdm_hh_mo_III_a.F,v 1.1 2008-10-02 19:13:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_ty + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -165,7 +165,7 @@ C i0 ( h2 h1 )_ty + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y END SUBROUTINE mp4_1pdm_hh_mo_III_a_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: mp4_1pdm_hh_mo_III_a.F,v 1.1 2008-10-02 19:13:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_ty + = -1/2 * Sum ( p4 p5 h3 ) * t ( p4 p5 h1 h3 )_t * y ( h2 h3 p4 p5 )_y @@ -341,7 +341,7 @@ C i0 ( h2 h1 )_ty + = -1/2 * Sum ( p4 p5 h3 ) * t ( p4 p5 h1 h3 )_t * y ( h2 END SUBROUTINE mp4_1pdm_hh_mo_III_a_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: mp4_1pdm_hh_mo_III_a.F,v 1.1 2008-10-02 19:13:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_ty + = -1/12 * Sum ( p5 p6 p7 h3 h4 ) * t ( p5 p6 p7 h1 h3 h4 )_t * y ( h2 h3 h4 p5 p6 p7 )_y diff --git a/src/tce/gradients/mp4_1pdm_hh_mo_III_b.F b/src/tce/gradients/mp4_1pdm_hh_mo_III_b.F index d65fd33a86..149062e79a 100644 --- a/src/tce/gradients/mp4_1pdm_hh_mo_III_b.F +++ b/src/tce/gradients/mp4_1pdm_hh_mo_III_b.F @@ -1,6 +1,6 @@ SUBROUTINE mp4_1pdm_hh_mo_III_b(d_i0,d_t2,d_y2,k_i0_offset,k_t2_of &fset,k_y2_offset) -C $Id: mp4_1pdm_hh_mo_III_b.F,v 1.1 2008-10-02 19:13:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_ty + = -1/2 * Sum ( p4 p5 h3 ) * t ( p4 p5 h1 h3 )_t * y ( h2 h3 p4 p5 )_y @@ -22,7 +22,7 @@ C i0 ( h2 h1 )_ty + = -1/2 * Sum ( p4 p5 h3 ) * t ( p4 p5 h1 h3 )_t * y ( h2 END SUBROUTINE mp4_1pdm_hh_mo_III_b_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: mp4_1pdm_hh_mo_III_b.F,v 1.1 2008-10-02 19:13:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_ty + = -1/2 * Sum ( p4 p5 h3 ) * t ( p4 p5 h1 h3 )_t * y ( h2 h3 p4 p5 )_y diff --git a/src/tce/gradients/mp4_1pdm_pp_mo_II.F b/src/tce/gradients/mp4_1pdm_pp_mo_II.F index b56bf460fc..9cf1a2f9c6 100644 --- a/src/tce/gradients/mp4_1pdm_pp_mo_II.F +++ b/src/tce/gradients/mp4_1pdm_pp_mo_II.F @@ -1,6 +1,6 @@ SUBROUTINE mp4_1pdm_pp_mo_II(d_i0,d_t2,d_y2,k_i0_offset,k_t2_offse &t,k_y2_offset) -C $Id: mp4_1pdm_pp_mo_II.F,v 1.1 2008-10-02 19:14:04 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_ty + = 1 * Sum ( p5 h3 h4 ) * t ( p1 p5 h3 h4 )_t * y ( h3 h4 p2 p5 )_y @@ -22,7 +22,7 @@ C i0 ( p1 p2 )_ty + = 1 * Sum ( p5 h3 h4 ) * t ( p1 p5 h3 h4 )_t * y ( h3 h4 END SUBROUTINE mp4_1pdm_pp_mo_II_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: mp4_1pdm_pp_mo_II.F,v 1.1 2008-10-02 19:14:04 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_ty + = 1 * Sum ( p5 h3 h4 ) * t ( p1 p5 h3 h4 )_t * y ( h3 h4 p2 p5 )_y diff --git a/src/tce/gradients/mp4_1pdm_pp_mo_III_a.F b/src/tce/gradients/mp4_1pdm_pp_mo_III_a.F index 77fb2b9636..a7d95547cf 100644 --- a/src/tce/gradients/mp4_1pdm_pp_mo_III_a.F +++ b/src/tce/gradients/mp4_1pdm_pp_mo_III_a.F @@ -1,7 +1,7 @@ SUBROUTINE mp4_1pdm_pp_mo_III_a(d_i0,d_t1,d_t2,d_t3,d_y1,d_y2,d_y3 &,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y1_offset,k_y2_ &offset,k_y3_offset) -C $Id: mp4_1pdm_pp_mo_III_a.F,v 1.1 2008-10-02 19:14:13 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_ty + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y @@ -37,7 +37,7 @@ C i0 ( p1 p2 )_ty + = 1/12 * Sum ( p6 p7 h3 h4 h5 ) * t ( p1 p6 p7 h3 h4 h5 END SUBROUTINE mp4_1pdm_pp_mo_III_a_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: mp4_1pdm_pp_mo_III_a.F,v 1.1 2008-10-02 19:14:13 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_ty + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y @@ -165,7 +165,7 @@ C i0 ( p1 p2 )_ty + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y END SUBROUTINE mp4_1pdm_pp_mo_III_a_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: mp4_1pdm_pp_mo_III_a.F,v 1.1 2008-10-02 19:14:13 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_ty + = 1/2 * Sum ( p5 h3 h4 ) * t ( p1 p5 h3 h4 )_t * y ( h3 h4 p2 p5 )_y @@ -341,7 +341,7 @@ C i0 ( p1 p2 )_ty + = 1/2 * Sum ( p5 h3 h4 ) * t ( p1 p5 h3 h4 )_t * y ( h3 END SUBROUTINE mp4_1pdm_pp_mo_III_a_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: mp4_1pdm_pp_mo_III_a.F,v 1.1 2008-10-02 19:14:13 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_ty + = 1/12 * Sum ( p6 p7 h3 h4 h5 ) * t ( p1 p6 p7 h3 h4 h5 )_t * y ( h3 h4 h5 p2 p6 p7 )_y diff --git a/src/tce/gradients/mp4_1pdm_pp_mo_III_b.F b/src/tce/gradients/mp4_1pdm_pp_mo_III_b.F index ac40fd9620..e17ba93811 100644 --- a/src/tce/gradients/mp4_1pdm_pp_mo_III_b.F +++ b/src/tce/gradients/mp4_1pdm_pp_mo_III_b.F @@ -1,6 +1,6 @@ SUBROUTINE mp4_1pdm_pp_mo_III_b(d_i0,d_t2,d_y2,k_i0_offset,k_t2_of &fset,k_y2_offset) -C $Id: mp4_1pdm_pp_mo_III_b.F,v 1.1 2008-10-02 19:14:24 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_ty + = 1/2 * Sum ( p5 h3 h4 ) * t ( p1 p5 h3 h4 )_t * y ( h3 h4 p2 p5 )_y @@ -22,7 +22,7 @@ C i0 ( p1 p2 )_ty + = 1/2 * Sum ( p5 h3 h4 ) * t ( p1 p5 h3 h4 )_t * y ( h3 END SUBROUTINE mp4_1pdm_pp_mo_III_b_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: mp4_1pdm_pp_mo_III_b.F,v 1.1 2008-10-02 19:14:24 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_ty + = 1/2 * Sum ( p5 h3 h4 ) * t ( p1 p5 h3 h4 )_t * y ( h3 h4 p2 p5 )_y diff --git a/src/tce/gradients/mp4_2pdm_hhhh_mo.F b/src/tce/gradients/mp4_2pdm_hhhh_mo.F index f3c8857008..722f1410be 100644 --- a/src/tce/gradients/mp4_2pdm_hhhh_mo.F +++ b/src/tce/gradients/mp4_2pdm_hhhh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE mp4_2pdm_hhhh_mo(d_i0,d_t22,d_y2,k_i0_offset,k_t22_of &fset,k_y2_offset) -C $Id: mp4_2pdm_hhhh_mo.F,v 1.1 2008-10-02 19:15:52 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt2 + = 1 * Sum ( p5 p6 ) * t2 ( p5 p6 h1 h2 )_t2 * y ( h3 h4 p5 p6 )_y @@ -22,7 +22,7 @@ C i0 ( h3 h4 h1 h2 )_yt2 + = 1 * Sum ( p5 p6 ) * t2 ( p5 p6 h1 h2 )_t2 * y ( END SUBROUTINE mp4_2pdm_hhhh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: mp4_2pdm_hhhh_mo.F,v 1.1 2008-10-02 19:15:52 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt2 + = 1 * Sum ( p5 p6 ) * t2 ( p5 p6 h1 h2 )_t2 * y ( h3 h4 p5 p6 )_y diff --git a/src/tce/gradients/mp4_2pdm_hhpp_mo.F b/src/tce/gradients/mp4_2pdm_hhpp_mo.F index 2d71ebf8ab..6c531cd2f0 100644 --- a/src/tce/gradients/mp4_2pdm_hhpp_mo.F +++ b/src/tce/gradients/mp4_2pdm_hhpp_mo.F @@ -1,5 +1,5 @@ SUBROUTINE mp4_2pdm_hhpp_mo(d_i0,d_y2,k_i0_offset,k_y2_offset) -C $Id: mp4_2pdm_hhpp_mo.F,v 1.1 2008-10-02 19:16:29 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_y + = 2 * y ( h3 h4 p1 p2 )_y @@ -17,7 +17,7 @@ C i0 ( h3 h4 p1 p2 )_y + = 2 * y ( h3 h4 p1 p2 )_y RETURN END SUBROUTINE mp4_2pdm_hhpp_mo_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: mp4_2pdm_hhpp_mo.F,v 1.1 2008-10-02 19:16:29 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_y + = 2 * y ( h3 h4 p1 p2 )_y diff --git a/src/tce/gradients/mp4_2pdm_hphh_mo.F b/src/tce/gradients/mp4_2pdm_hphh_mo.F index f64797bb11..9a7a6befc9 100644 --- a/src/tce/gradients/mp4_2pdm_hphh_mo.F +++ b/src/tce/gradients/mp4_2pdm_hphh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE mp4_2pdm_hphh_mo(d_i0,d_t23,d_y2,k_i0_offset,k_t23_of &fset,k_y2_offset) -C $Id: mp4_2pdm_hphh_mo.F,v 1.1 2008-10-02 19:17:09 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p4 h1 h2 )_yt2 + = 1/2 * P( 2 ) * Sum ( h7 p5 p6 ) * t2 ( p4 p5 p6 h1 h2 h7 )_t2 * y ( h3 h7 p5 p6 )_y @@ -22,7 +22,7 @@ C i0 ( h3 p4 h1 h2 )_yt2 + = 1/2 * P( 2 ) * Sum ( h7 p5 p6 ) * t2 ( p4 p5 p6 END SUBROUTINE mp4_2pdm_hphh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: mp4_2pdm_hphh_mo.F,v 1.1 2008-10-02 19:17:09 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p4 h1 h2 )_yt2 + = 1/2 * P( 2 ) * Sum ( h7 p5 p6 ) * t2 ( p4 p5 p6 h1 h2 h7 )_t2 * y ( h3 h7 p5 p6 )_y diff --git a/src/tce/gradients/mp4_2pdm_hphp_mo.F b/src/tce/gradients/mp4_2pdm_hphp_mo.F index 7508c9ca4c..10ddc6fc89 100644 --- a/src/tce/gradients/mp4_2pdm_hphp_mo.F +++ b/src/tce/gradients/mp4_2pdm_hphp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE mp4_2pdm_hphp_mo(d_i0,d_t22,d_y2,k_i0_offset,k_t22_of &fset,k_y2_offset) -C $Id: mp4_2pdm_hphp_mo.F,v 1.1 2008-10-02 19:17:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yt2 + = -1/2 * P( 4 ) * Sum ( h6 p5 ) * t2 ( p2 p5 h1 h6 )_t2 * y ( h3 h6 p4 p5 )_y @@ -22,7 +22,7 @@ C i0 ( h3 p2 h1 p4 )_yt2 + = -1/2 * P( 4 ) * Sum ( h6 p5 ) * t2 ( p2 p5 h1 h END SUBROUTINE mp4_2pdm_hphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: mp4_2pdm_hphp_mo.F,v 1.1 2008-10-02 19:17:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yt2 + = -1/2 * P( 4 ) * Sum ( h6 p5 ) * t2 ( p2 p5 h1 h6 )_t2 * y ( h3 h6 p4 p5 )_y diff --git a/src/tce/gradients/mp4_2pdm_pphh_mo.F b/src/tce/gradients/mp4_2pdm_pphh_mo.F index c2c6d6aec2..a2950d551e 100644 --- a/src/tce/gradients/mp4_2pdm_pphh_mo.F +++ b/src/tce/gradients/mp4_2pdm_pphh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE mp4_2pdm_pphh_mo(d_i0,d_t12,d_y2,k_i0_offset,k_t12_of &fset,k_y2_offset) -C $Id: mp4_2pdm_pphh_mo.F,v 1.1 2008-10-02 19:17:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt1t1 + = 1/2 * t1 ( p3 p4 h1 h2 )_t1 * i1 ( )_yt1 @@ -94,7 +94,7 @@ C i1 ( h6 p3 h1 p5 )_yt1 + = 1 * Sum ( h8 p7 ) * t1 ( p3 p7 h1 h8 )_t1 * END SUBROUTINE mp4_2pdm_pphh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: mp4_2pdm_pphh_mo.F,v 1.1 2008-10-02 19:17:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt1t1 + = 1/2 * t1 ( p3 p4 h1 h2 )_t1 * i1 ( )_yt1 @@ -231,7 +231,7 @@ C i0 ( p3 p4 h1 h2 )_yt1t1 + = 1/2 * t1 ( p3 p4 h1 h2 )_t1 * i1 ( )_yt1 END SUBROUTINE mp4_2pdm_pphh_mo_1_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: mp4_2pdm_pphh_mo.F,v 1.1 2008-10-02 19:17:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yt1 + = 1 * Sum ( h7 h8 p5 p6 ) * t1 ( p5 p6 h7 h8 )_t1 * y ( h7 h8 p5 p6 )_y @@ -387,7 +387,7 @@ C i1 ( )_yt1 + = 1 * Sum ( h7 h8 p5 p6 ) * t1 ( p5 p6 h7 h8 )_t1 * y ( h7 h8 END SUBROUTINE OFFSET_mp4_2pdm_pphh_mo_1_1(l_a_offset,k_a_offset,siz &e) -C $Id: mp4_2pdm_pphh_mo.F,v 1.1 2008-10-02 19:17:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yt1 @@ -421,7 +421,7 @@ C i1 ( )_yt1 END SUBROUTINE mp4_2pdm_pphh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: mp4_2pdm_pphh_mo.F,v 1.1 2008-10-02 19:17:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt1t1 + = -1 * P( 2 ) * Sum ( p5 ) * t1 ( p3 p5 h1 h2 )_t1 * i1 ( p4 p5 )_yt1 @@ -586,7 +586,7 @@ C i0 ( p3 p4 h1 h2 )_yt1t1 + = -1 * P( 2 ) * Sum ( p5 ) * t1 ( p3 p5 h1 h2 ) END SUBROUTINE mp4_2pdm_pphh_mo_2_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: mp4_2pdm_pphh_mo.F,v 1.1 2008-10-02 19:17:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_yt1 + = 1 * Sum ( h7 h8 p6 ) * t1 ( p3 p6 h7 h8 )_t1 * y ( h7 h8 p5 p6 )_y @@ -762,7 +762,7 @@ C i1 ( p3 p5 )_yt1 + = 1 * Sum ( h7 h8 p6 ) * t1 ( p3 p6 h7 h8 )_t1 * y ( h7 END SUBROUTINE OFFSET_mp4_2pdm_pphh_mo_2_1(l_a_offset,k_a_offset,siz &e) -C $Id: mp4_2pdm_pphh_mo.F,v 1.1 2008-10-02 19:17:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_yt1 @@ -818,7 +818,7 @@ C i1 ( p3 p5 )_yt1 END SUBROUTINE mp4_2pdm_pphh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: mp4_2pdm_pphh_mo.F,v 1.1 2008-10-02 19:17:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt1t1 + = 1/2 * Sum ( h7 h8 ) * t1 ( p3 p4 h7 h8 )_t1 * i1 ( h7 h8 h1 h2 )_yt1 @@ -981,7 +981,7 @@ C i0 ( p3 p4 h1 h2 )_yt1t1 + = 1/2 * Sum ( h7 h8 ) * t1 ( p3 p4 h7 h8 )_t1 * END SUBROUTINE mp4_2pdm_pphh_mo_3_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: mp4_2pdm_pphh_mo.F,v 1.1 2008-10-02 19:17:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h1 h2 )_yt1 + = 1 * Sum ( p5 p6 ) * t1 ( p5 p6 h1 h2 )_t1 * y ( h7 h8 p5 p6 )_y @@ -1143,7 +1143,7 @@ C i1 ( h7 h8 h1 h2 )_yt1 + = 1 * Sum ( p5 p6 ) * t1 ( p5 p6 h1 h2 )_t1 * y ( END SUBROUTINE OFFSET_mp4_2pdm_pphh_mo_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: mp4_2pdm_pphh_mo.F,v 1.1 2008-10-02 19:17:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h1 h2 )_yt1 @@ -1215,7 +1215,7 @@ C i1 ( h7 h8 h1 h2 )_yt1 END SUBROUTINE mp4_2pdm_pphh_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: mp4_2pdm_pphh_mo.F,v 1.1 2008-10-02 19:17:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt1t1 + = -1 * P( 2 ) * Sum ( h5 ) * t1 ( p3 p4 h1 h5 )_t1 * i1 ( h5 h2 )_yt1 @@ -1380,7 +1380,7 @@ C i0 ( p3 p4 h1 h2 )_yt1t1 + = -1 * P( 2 ) * Sum ( h5 ) * t1 ( p3 p4 h1 h5 ) END SUBROUTINE mp4_2pdm_pphh_mo_4_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: mp4_2pdm_pphh_mo.F,v 1.1 2008-10-02 19:17:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_yt1 + = 1 * Sum ( h8 p6 p7 ) * t1 ( p6 p7 h1 h8 )_t1 * y ( h5 h8 p6 p7 )_y @@ -1556,7 +1556,7 @@ C i1 ( h5 h1 )_yt1 + = 1 * Sum ( h8 p6 p7 ) * t1 ( p6 p7 h1 h8 )_t1 * y ( h5 END SUBROUTINE OFFSET_mp4_2pdm_pphh_mo_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: mp4_2pdm_pphh_mo.F,v 1.1 2008-10-02 19:17:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_yt1 @@ -1612,7 +1612,7 @@ C i1 ( h5 h1 )_yt1 END SUBROUTINE mp4_2pdm_pphh_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: mp4_2pdm_pphh_mo.F,v 1.1 2008-10-02 19:17:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt1t1 + = 1 * P( 4 ) * Sum ( h6 p5 ) * t1 ( p3 p5 h1 h6 )_t1 * i1 ( h6 p4 h2 p5 )_yt1 @@ -1815,7 +1815,7 @@ C i0 ( p3 p4 h1 h2 )_yt1t1 + = 1 * P( 4 ) * Sum ( h6 p5 ) * t1 ( p3 p5 h1 h6 END SUBROUTINE mp4_2pdm_pphh_mo_5_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: mp4_2pdm_pphh_mo.F,v 1.1 2008-10-02 19:17:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_yt1 + = 1 * Sum ( h8 p7 ) * t1 ( p3 p7 h1 h8 )_t1 * y ( h6 h8 p5 p7 )_y @@ -2018,7 +2018,7 @@ C i1 ( h6 p3 h1 p5 )_yt1 + = 1 * Sum ( h8 p7 ) * t1 ( p3 p7 h1 h8 )_t1 * y ( END SUBROUTINE OFFSET_mp4_2pdm_pphh_mo_5_1(l_a_offset,k_a_offset,siz &e) -C $Id: mp4_2pdm_pphh_mo.F,v 1.1 2008-10-02 19:17:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_yt1 diff --git a/src/tce/gradients/mp4_2pdm_pphp_mo.F b/src/tce/gradients/mp4_2pdm_pphp_mo.F index 62454c1996..2871d778da 100644 --- a/src/tce/gradients/mp4_2pdm_pphp_mo.F +++ b/src/tce/gradients/mp4_2pdm_pphp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE mp4_2pdm_pphp_mo(d_i0,d_t23,d_y2,k_i0_offset,k_t23_of &fset,k_y2_offset) -C $Id: mp4_2pdm_pphp_mo.F,v 1.1 2008-10-02 19:18:08 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p3 h1 p4 )_yt2 + = 1/2 * P( 2 ) * Sum ( h6 h7 p5 ) * t2 ( p2 p3 p5 h1 h6 h7 )_t2 * y ( h6 h7 p4 p5 )_y @@ -22,7 +22,7 @@ C i0 ( p2 p3 h1 p4 )_yt2 + = 1/2 * P( 2 ) * Sum ( h6 h7 p5 ) * t2 ( p2 p3 p5 END SUBROUTINE mp4_2pdm_pphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: mp4_2pdm_pphp_mo.F,v 1.1 2008-10-02 19:18:08 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p3 h1 p4 )_yt2 + = 1/2 * P( 2 ) * Sum ( h6 h7 p5 ) * t2 ( p2 p3 p5 h1 h6 h7 )_t2 * y ( h6 h7 p4 p5 )_y diff --git a/src/tce/gradients/mp4_2pdm_pppp_mo.F b/src/tce/gradients/mp4_2pdm_pppp_mo.F index 9805aef754..630fa61bf1 100644 --- a/src/tce/gradients/mp4_2pdm_pppp_mo.F +++ b/src/tce/gradients/mp4_2pdm_pppp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE mp4_2pdm_pppp_mo(d_i0,d_t22,d_y2,k_i0_offset,k_t22_of &fset,k_y2_offset) -C $Id: mp4_2pdm_pppp_mo.F,v 1.1 2008-10-02 19:18:31 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt2 + = 1 * Sum ( h5 h6 ) * t2 ( p1 p2 h5 h6 )_t2 * y ( h5 h6 p3 p4 )_y @@ -22,7 +22,7 @@ C i0 ( p1 p2 p3 p4 )_yt2 + = 1 * Sum ( h5 h6 ) * t2 ( p1 p2 h5 h6 )_t2 * y ( END SUBROUTINE mp4_2pdm_pppp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: mp4_2pdm_pppp_mo.F,v 1.1 2008-10-02 19:18:31 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt2 + = 1 * Sum ( h5 h6 ) * t2 ( p1 p2 h5 h6 )_t2 * y ( h5 h6 p3 p4 )_y diff --git a/src/tce/gradients/tce_cis_denominator.F b/src/tce/gradients/tce_cis_denominator.F index 790d7d0be4..e9d4f5a9d8 100644 --- a/src/tce/gradients/tce_cis_denominator.F +++ b/src/tce/gradients/tce_cis_denominator.F @@ -1,6 +1,6 @@ SUBROUTINE tce_cis_denominator(d_i0,d_x1,d_y1,k_i0_offset,k_x1_off &set,k_y1_offset) -C $Id: tce_cis_denominator.F,v 1.1 2008-10-02 23:20:29 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yx + = 1 * Sum ( h2 p1 ) * x ( p1 h2 )_x * y ( h2 p1 )_y @@ -22,7 +22,7 @@ C i0 ( )_yx + = 1 * Sum ( h2 p1 ) * x ( p1 h2 )_x * y ( h2 p1 )_y END SUBROUTINE tce_cis_denominator_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce_cis_denominator.F,v 1.1 2008-10-02 23:20:29 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yx + = 1 * Sum ( h2 p1 ) * x ( p1 h2 )_x * y ( h2 p1 )_y diff --git a/src/tce/gradients/tce_cisd_denominator.F b/src/tce/gradients/tce_cisd_denominator.F index ab4cbb5bc6..065b0e8680 100644 --- a/src/tce/gradients/tce_cisd_denominator.F +++ b/src/tce/gradients/tce_cisd_denominator.F @@ -1,6 +1,6 @@ SUBROUTINE tce_cisd_denominator(d_i0,d_t1,d_t2,d_y1,d_y2,k_i0_offs &et,k_t1_offset,k_t2_offset,k_y1_offset,k_y2_offset) -C $Id: tce_cisd_denominator.F,v 1.1 2008-10-01 18:53:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yt + = 1 * Sum ( h2 p1 ) * t ( p1 h2 )_t * y ( h2 p1 )_y @@ -29,7 +29,7 @@ C i0 ( )_yt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * y ( h3 h4 END SUBROUTINE tce_cisd_denominator_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce_cisd_denominator.F,v 1.1 2008-10-01 18:53:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yt + = 1 * Sum ( h2 p1 ) * t ( p1 h2 )_t * y ( h2 p1 )_y @@ -146,7 +146,7 @@ C i0 ( )_yt + = 1 * Sum ( h2 p1 ) * t ( p1 h2 )_t * y ( h2 p1 )_y END SUBROUTINE tce_cisd_denominator_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce_cisd_denominator.F,v 1.1 2008-10-01 18:53:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * y ( h3 h4 p1 p2 )_y diff --git a/src/tce/gradients/tce_cisdt_denominator.F b/src/tce/gradients/tce_cisdt_denominator.F index 1c7f9f46af..bdad150b6c 100644 --- a/src/tce/gradients/tce_cisdt_denominator.F +++ b/src/tce/gradients/tce_cisdt_denominator.F @@ -1,7 +1,7 @@ SUBROUTINE tce_cisdt_denominator(d_i0,d_t1,d_t2,d_t3,d_y1,d_y2,d_y &3,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y1_offset,k_y2 &_offset,k_y3_offset) -C $Id: tce_cisdt_denominator.F,v 1.1 2008-10-01 20:55:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yt + = 1 * Sum ( h2 p1 ) * t ( p1 h2 )_t * y ( h2 p1 )_y @@ -37,7 +37,7 @@ C i0 ( )_yt + = 1/36 * Sum ( h4 h5 h6 p1 p2 p3 ) * t ( p1 p2 p3 h4 h5 h6 )_t END SUBROUTINE tce_cisdt_denominator_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: tce_cisdt_denominator.F,v 1.1 2008-10-01 20:55:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yt + = 1 * Sum ( h2 p1 ) * t ( p1 h2 )_t * y ( h2 p1 )_y @@ -154,7 +154,7 @@ C i0 ( )_yt + = 1 * Sum ( h2 p1 ) * t ( p1 h2 )_t * y ( h2 p1 )_y END SUBROUTINE tce_cisdt_denominator_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: tce_cisdt_denominator.F,v 1.1 2008-10-01 20:55:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * y ( h3 h4 p1 p2 )_y @@ -310,7 +310,7 @@ C i0 ( )_yt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * y ( h3 h4 END SUBROUTINE tce_cisdt_denominator_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: tce_cisdt_denominator.F,v 1.1 2008-10-01 20:55:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yt + = 1/36 * Sum ( h4 h5 h6 p1 p2 p3 ) * t ( p1 p2 p3 h4 h5 h6 )_t * y ( h4 h5 h6 p1 p2 p3 )_y diff --git a/src/tce/gradients/tce_cisdtq_denominator.F b/src/tce/gradients/tce_cisdtq_denominator.F index 4749d9b717..a51087d2d3 100644 --- a/src/tce/gradients/tce_cisdtq_denominator.F +++ b/src/tce/gradients/tce_cisdtq_denominator.F @@ -1,7 +1,7 @@ SUBROUTINE tce_cisdtq_denominator(d_i0,d_t1,d_t2,d_t3,d_t4,d_y1,d_ &y2,d_y3,d_y4,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_t4_ &offset,k_y1_offset,k_y2_offset,k_y3_offset,k_y4_offset) -C $Id: tce_cisdtq_denominator.F,v 1.1 2008-10-01 22:23:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yt + = 1 * Sum ( h2 p1 ) * t ( p1 h2 )_t * y ( h2 p1 )_y @@ -44,7 +44,7 @@ C i0 ( )_yt + = 1/576 * Sum ( h5 h6 h7 h8 p1 p2 p3 p4 ) * t ( p1 p2 p3 p4 h5 END SUBROUTINE tce_cisdtq_denominator_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce_cisdtq_denominator.F,v 1.1 2008-10-01 22:23:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yt + = 1 * Sum ( h2 p1 ) * t ( p1 h2 )_t * y ( h2 p1 )_y @@ -161,7 +161,7 @@ C i0 ( )_yt + = 1 * Sum ( h2 p1 ) * t ( p1 h2 )_t * y ( h2 p1 )_y END SUBROUTINE tce_cisdtq_denominator_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce_cisdtq_denominator.F,v 1.1 2008-10-01 22:23:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * y ( h3 h4 p1 p2 )_y @@ -317,7 +317,7 @@ C i0 ( )_yt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * y ( h3 h4 END SUBROUTINE tce_cisdtq_denominator_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce_cisdtq_denominator.F,v 1.1 2008-10-01 22:23:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yt + = 1/36 * Sum ( h4 h5 h6 p1 p2 p3 ) * t ( p1 p2 p3 h4 h5 h6 )_t * y ( h4 h5 h6 p1 p2 p3 )_y @@ -501,7 +501,7 @@ C i0 ( )_yt + = 1/36 * Sum ( h4 h5 h6 p1 p2 p3 ) * t ( p1 p2 p3 h4 h5 h6 )_t END SUBROUTINE tce_cisdtq_denominator_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce_cisdtq_denominator.F,v 1.1 2008-10-01 22:23:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yt + = 1/576 * Sum ( h5 h6 h7 h8 p1 p2 p3 p4 ) * t ( p1 p2 p3 p4 h5 h6 h7 h8 )_t * y ( h5 h6 h7 h8 p1 p2 p3 p4 )_y diff --git a/src/tce/gradients/tce_dens_pphh_offset.F b/src/tce/gradients/tce_dens_pphh_offset.F index 9c294bcf75..fdb5a3d924 100644 --- a/src/tce/gradients/tce_dens_pphh_offset.F +++ b/src/tce/gradients/tce_dens_pphh_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_dens_pphh_offset(l_a_offset,k_a_offset,size) -C $Id: tce_dens_pphh_offset.F,v 1.1 2008-09-30 19:30:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C dens_pphp ( p1 p2 h3 h4 ) diff --git a/src/tce/gradients/tce_eom_xdiagon_grad.F b/src/tce/gradients/tce_eom_xdiagon_grad.F index 523dd2ad27..ba1c0ad5f9 100644 --- a/src/tce/gradients/tce_eom_xdiagon_grad.F +++ b/src/tce/gradients/tce_eom_xdiagon_grad.F @@ -3,7 +3,7 @@ 2 k_x1_offset,k_x2_offset,k_x3_offset,k_x4_offset, 3 d_r1,d_r2,d_r3,d_r4,omega,residual) c -c $Id: tce_eom_xdiagon.F,v 1.3 2005/12/16 22:16:04 kowalski Exp $ +c $Id$ c c Form a subspace matrix and diagonalize c diff --git a/src/tce/gradients/tce_grad1.F b/src/tce/gradients/tce_grad1.F index ef6232face..e63b6a1dba 100644 --- a/src/tce/gradients/tce_grad1.F +++ b/src/tce/gradients/tce_grad1.F @@ -2,7 +2,7 @@ $ frc_kin, frc_wgh, g_force, $ g_dens, g_wdens, basis, geom, nproc, nat, $ max_at_bf, rtdb, oskel ) -c$Id: tce_grad1.F,v 1.1 2008-09-30 19:33:22 d3p975 Exp $ +c$Id$ C one electron contribution to RHF, ROHF and UHF gradients C now also UMP2 @@ -274,7 +274,7 @@ c $ dens, wdens, frc_nuc, c $ frc_kin, frc_wgh, g_force, c $ g_dens, g_wdens, basis, geom, nproc, nat, c $ max_at_bf, rtdb, oskel ) -cc$Id: tce_grad1.F,v 1.1 2008-09-30 19:33:22 d3p975 Exp $ +cc$Id$ c cC one electron contribution to RHF, ROHF and UHF gradients cC now also UMP2 diff --git a/src/tce/gradients/tce_grad2.F b/src/tce/gradients/tce_grad2.F index 4fd28d2056..bf21133920 100644 --- a/src/tce/gradients/tce_grad2.F +++ b/src/tce/gradients/tce_grad2.F @@ -14,7 +14,7 @@ $ nopen,nbf,pdm2,pdm2a,pdm2b,pdm2c,pdm2d,coeff, $ nshblocks, shmap, shglo, shghi, bfglo, bfghi, bfmap, rbfmap, $ bftoat, shbflo, shbfhi, jfac, kfac, exso) -c $Id: tce_grad2.F,v 1.1 2008-09-30 19:33:35 d3p975 Exp $ +c $Id$ implicit none #include "errquit.fh" #include "sym.fh" diff --git a/src/tce/gradients/tce_grad_force.F b/src/tce/gradients/tce_grad_force.F index e77650949e..ac3ef72d5d 100644 --- a/src/tce/gradients/tce_grad_force.F +++ b/src/tce/gradients/tce_grad_force.F @@ -4,7 +4,7 @@ 1 d_2pdm, k_2pdm_offset, size_2pdm, 1 noab,nvab,k_range,k_offset,k_spin, 1 k_movecs_sorted,restricted) -c $Id: tce_grad_force.F,v 1.2 2008-10-01 18:59:13 d3p975 Exp $ +c $Id$ C calculate energy gradients with respect to nuclear coordinates C------------------------------------------------------------------------------ implicit none diff --git a/src/tce/gradients/tce_grad_tidy.F b/src/tce/gradients/tce_grad_tidy.F index f03544dd7e..9a262d949e 100644 --- a/src/tce/gradients/tce_grad_tidy.F +++ b/src/tce/gradients/tce_grad_tidy.F @@ -1,6 +1,6 @@ subroutine tce_grad_tidy(rtdb) c -c $Id: tce_grad_tidy.F,v 1.1 2008-09-30 19:36:10 d3p975 Exp $ +c $Id$ c c Terminate TCE modulem. c diff --git a/src/tce/gradients/tce_gradients_doit.F b/src/tce/gradients/tce_gradients_doit.F index 964049a909..6823a6e2b4 100644 --- a/src/tce/gradients/tce_gradients_doit.F +++ b/src/tce/gradients/tce_gradients_doit.F @@ -5,7 +5,7 @@ 1 noab,nvab,k_range,k_offset,k_spin, 1 k_movecs_sorted,restricted) c -c$Id: tce_gradients_doit.F,v 1.1 2008-09-30 19:35:19 d3p975 Exp $ +c$Id$ implicit none #include "errquit.fh" #include "mafdecls.fh" diff --git a/src/tce/gradients/tce_mp2_norm.F b/src/tce/gradients/tce_mp2_norm.F index 03ed02ddfa..b5902176d6 100644 --- a/src/tce/gradients/tce_mp2_norm.F +++ b/src/tce/gradients/tce_mp2_norm.F @@ -1,6 +1,6 @@ SUBROUTINE tce_mp2_norm(d_i0,d_t2,d_y2,k_i0_offset,k_t2_offset,k_y &2_offset) -C $Id: tce_mp2_norm.F,v 1.1 2008-10-02 19:23:19 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * y ( h3 h4 p1 p2 )_y @@ -22,7 +22,7 @@ C i0 ( )_yt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * y ( h3 h4 END SUBROUTINE tce_mp2_norm_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce_mp2_norm.F,v 1.1 2008-10-02 19:23:19 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * y ( h3 h4 p1 p2 )_y diff --git a/src/tce/gradients/tce_mp4_t24.F b/src/tce/gradients/tce_mp4_t24.F index 3dfff29703..a2707af925 100644 --- a/src/tce/gradients/tce_mp4_t24.F +++ b/src/tce/gradients/tce_mp4_t24.F @@ -1,6 +1,6 @@ SUBROUTINE tce_mp4_t24(d_i0,d_t2,d_y2,k_i0_offset,k_t2_offset,k_y2 &_offset) -C $Id: tce_mp4_t24.F,v 1.1 2008-10-02 19:20:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = 1/4 * t ( p3 p4 h1 h2 )_t * i1 ( )_yt @@ -89,7 +89,7 @@ C i1 ( h6 p3 h1 p5 )_yt + = 1 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * y END SUBROUTINE tce_mp4_t24_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce_mp4_t24.F,v 1.1 2008-10-02 19:20:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = 1/4 * t ( p3 p4 h1 h2 )_t * i1 ( )_yt @@ -224,7 +224,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = 1/4 * t ( p3 p4 h1 h2 )_t * i1 ( )_yt END SUBROUTINE tce_mp4_t24_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce_mp4_t24.F,v 1.1 2008-10-02 19:20:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yt + = 1 * Sum ( h7 h8 p5 p6 ) * t ( p5 p6 h7 h8 )_t * y ( h7 h8 p5 p6 )_y @@ -379,7 +379,7 @@ C i1 ( )_yt + = 1 * Sum ( h7 h8 p5 p6 ) * t ( p5 p6 h7 h8 )_t * y ( h7 h8 p5 RETURN END SUBROUTINE OFFSET_tce_mp4_t24_1_1(l_a_offset,k_a_offset,size) -C $Id: tce_mp4_t24.F,v 1.1 2008-10-02 19:20:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yt @@ -413,7 +413,7 @@ C i1 ( )_yt END SUBROUTINE tce_mp4_t24_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce_mp4_t24.F,v 1.1 2008-10-02 19:20:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i1 ( p4 p5 )_yt @@ -576,7 +576,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_ END SUBROUTINE tce_mp4_t24_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce_mp4_t24.F,v 1.1 2008-10-02 19:20:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_yt + = 1 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * y ( h7 h8 p5 p6 )_y @@ -751,7 +751,7 @@ C i1 ( p3 p5 )_yt + = 1 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * y ( h7 h8 RETURN END SUBROUTINE OFFSET_tce_mp4_t24_2_1(l_a_offset,k_a_offset,size) -C $Id: tce_mp4_t24.F,v 1.1 2008-10-02 19:20:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_yt @@ -807,7 +807,7 @@ C i1 ( p3 p5 )_yt END SUBROUTINE tce_mp4_t24_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce_mp4_t24.F,v 1.1 2008-10-02 19:20:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = 1/4 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * i1 ( h5 h6 h1 h2 )_yt @@ -968,7 +968,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = 1/4 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * i1 END SUBROUTINE tce_mp4_t24_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce_mp4_t24.F,v 1.1 2008-10-02 19:20:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 h2 )_yt + = 1 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * y ( h5 h6 p7 p8 )_y @@ -1129,7 +1129,7 @@ C i1 ( h5 h6 h1 h2 )_yt + = 1 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * y ( h5 RETURN END SUBROUTINE OFFSET_tce_mp4_t24_3_1(l_a_offset,k_a_offset,size) -C $Id: tce_mp4_t24.F,v 1.1 2008-10-02 19:20:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 h2 )_yt @@ -1201,7 +1201,7 @@ C i1 ( h5 h6 h1 h2 )_yt END SUBROUTINE tce_mp4_t24_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce_mp4_t24.F,v 1.1 2008-10-02 19:20:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_yt @@ -1364,7 +1364,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_ END SUBROUTINE tce_mp4_t24_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce_mp4_t24.F,v 1.1 2008-10-02 19:20:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_yt + = 1 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h5 h8 p6 p7 )_y @@ -1539,7 +1539,7 @@ C i1 ( h5 h1 )_yt + = 1 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h5 h8 RETURN END SUBROUTINE OFFSET_tce_mp4_t24_4_1(l_a_offset,k_a_offset,size) -C $Id: tce_mp4_t24.F,v 1.1 2008-10-02 19:20:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_yt @@ -1595,7 +1595,7 @@ C i1 ( h5 h1 )_yt END SUBROUTINE tce_mp4_t24_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce_mp4_t24.F,v 1.1 2008-10-02 19:20:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = 1/2 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i1 ( h6 p4 h2 p5 )_yt @@ -1796,7 +1796,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = 1/2 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 END SUBROUTINE tce_mp4_t24_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce_mp4_t24.F,v 1.1 2008-10-02 19:20:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_yt + = 1 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * y ( h6 h8 p5 p7 )_y @@ -1998,7 +1998,7 @@ C i1 ( h6 p3 h1 p5 )_yt + = 1 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * y ( h6 RETURN END SUBROUTINE OFFSET_tce_mp4_t24_5_1(l_a_offset,k_a_offset,size) -C $Id: tce_mp4_t24.F,v 1.1 2008-10-02 19:20:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_yt diff --git a/src/tce/gradients/tce_zvec_x1_offset.F b/src/tce/gradients/tce_zvec_x1_offset.F index ca32d49824..71bc7bef3e 100644 --- a/src/tce/gradients/tce_zvec_x1_offset.F +++ b/src/tce/gradients/tce_zvec_x1_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_zvec_x1_offset(l_a_offset,k_a_offset,size) -C $Id: tce_zvec_x1_offset.F,v 1.1 2008-09-30 19:37:07 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C x ( p2 h3 )_x diff --git a/src/tce/gradients/wdm_hh_mo_a.F b/src/tce/gradients/wdm_hh_mo_a.F index b7ab56b3ae..e114ae901f 100644 --- a/src/tce/gradients/wdm_hh_mo_a.F +++ b/src/tce/gradients/wdm_hh_mo_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hh_mo_a(d_d1,d_f1,d_i0,k_d1_offset,k_f1_offset,k_i0 &_offset) -C $Id: wdm_hh_mo_a.F,v 1.1 2008-09-30 19:40:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_fd + = -1/2 * Sum ( h3 ) * d ( h3 h1 )_d * f ( h2 h3 )_f @@ -25,7 +25,7 @@ C i0 ( h1 h2 )_fd + = -1/2 * Sum ( h3 ) * d ( h1 h3 )_d * f ( h3 h2 )_f END SUBROUTINE wdm_hh_mo_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: wdm_hh_mo_a.F,v 1.1 2008-09-30 19:40:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_fd + = -1/2 * Sum ( h3 ) * d ( h3 h1 )_d * f ( h2 h3 )_f @@ -159,7 +159,7 @@ c & 1 + noab * (h2b - 1))) END SUBROUTINE wdm_hh_mo_a_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: wdm_hh_mo_a.F,v 1.1 2008-09-30 19:40:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_fd + = -1/2 * Sum ( h3 ) * d ( h1 h3 )_d * f ( h3 h2 )_f diff --git a/src/tce/gradients/wdm_hh_mo_b_a_a.F b/src/tce/gradients/wdm_hh_mo_b_a_a.F index 2286c9bfe3..df6ca97ffa 100644 --- a/src/tce/gradients/wdm_hh_mo_b_a_a.F +++ b/src/tce/gradients/wdm_hh_mo_b_a_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hh_mo_b_a_a(d_d1,d_i0,d_v2,k_d1_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hh_mo_b_a_a.F,v 1.1 2008-09-30 19:40:42 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/2 * Sum ( h3 h4 ) * d ( h4 h3 )_d * v ( h1 h3 h2 h4 )_v @@ -22,7 +22,7 @@ C i0 ( h1 h2 )_vd + = -1/2 * Sum ( h3 h4 ) * d ( h4 h3 )_d * v ( h1 h3 h2 h4 END SUBROUTINE wdm_hh_mo_b_a_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hh_mo_b_a_a.F,v 1.1 2008-09-30 19:40:42 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/2 * Sum ( h3 h4 ) * d ( h4 h3 )_d * v ( h1 h3 h2 h4 )_v diff --git a/src/tce/gradients/wdm_hh_mo_b_a_b.F b/src/tce/gradients/wdm_hh_mo_b_a_b.F index 998978e0cc..48e0620424 100644 --- a/src/tce/gradients/wdm_hh_mo_b_a_b.F +++ b/src/tce/gradients/wdm_hh_mo_b_a_b.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hh_mo_b_a_b(d_d1,d_i0,d_v2,k_d1_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hh_mo_b_a_b.F,v 1.1 2008-09-30 19:40:49 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/2 * Sum ( h4 h3 ) * d ( h3 h4 )_d * v ( h1 h4 h2 h3 )_v @@ -22,7 +22,7 @@ C i0 ( h1 h2 )_vd + = -1/2 * Sum ( h4 h3 ) * d ( h3 h4 )_d * v ( h1 h4 h2 h3 END SUBROUTINE wdm_hh_mo_b_a_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hh_mo_b_a_b.F,v 1.1 2008-09-30 19:40:49 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/2 * Sum ( h4 h3 ) * d ( h3 h4 )_d * v ( h1 h4 h2 h3 )_v diff --git a/src/tce/gradients/wdm_hh_mo_b_b_a.F b/src/tce/gradients/wdm_hh_mo_b_b_a.F index 6695299f09..53c466b3ac 100644 --- a/src/tce/gradients/wdm_hh_mo_b_b_a.F +++ b/src/tce/gradients/wdm_hh_mo_b_b_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hh_mo_b_b_a(d_d1,d_i0,d_v2,k_d1_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hh_mo_b_b_a.F,v 1.1 2008-09-30 19:40:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/2 * Sum ( p3 p4 ) * d ( p4 p3 )_d * v ( h1 p3 h2 p4 )_v @@ -22,7 +22,7 @@ C i0 ( h1 h2 )_vd + = -1/2 * Sum ( p3 p4 ) * d ( p4 p3 )_d * v ( h1 p3 h2 p4 END SUBROUTINE wdm_hh_mo_b_b_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hh_mo_b_b_a.F,v 1.1 2008-09-30 19:40:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/2 * Sum ( p3 p4 ) * d ( p4 p3 )_d * v ( h1 p3 h2 p4 )_v diff --git a/src/tce/gradients/wdm_hh_mo_b_b_b.F b/src/tce/gradients/wdm_hh_mo_b_b_b.F index 226c69b5e6..2be5bdf9a3 100644 --- a/src/tce/gradients/wdm_hh_mo_b_b_b.F +++ b/src/tce/gradients/wdm_hh_mo_b_b_b.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hh_mo_b_b_b(d_d1,d_i0,d_v2,k_d1_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hh_mo_b_b_b.F,v 1.1 2008-09-30 19:41:06 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/2 * Sum ( p4 p3 ) * d ( p3 p4 )_d * v ( h1 p4 h2 p3 )_v @@ -22,7 +22,7 @@ C i0 ( h1 h2 )_vd + = -1/2 * Sum ( p4 p3 ) * d ( p3 p4 )_d * v ( h1 p4 h2 p3 END SUBROUTINE wdm_hh_mo_b_b_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hh_mo_b_b_b.F,v 1.1 2008-09-30 19:41:06 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/2 * Sum ( p4 p3 ) * d ( p3 p4 )_d * v ( h1 p4 h2 p3 )_v diff --git a/src/tce/gradients/wdm_hh_mo_c_a.F b/src/tce/gradients/wdm_hh_mo_c_a.F index dc8587bd1a..05fb585853 100644 --- a/src/tce/gradients/wdm_hh_mo_c_a.F +++ b/src/tce/gradients/wdm_hh_mo_c_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hh_mo_c_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_ &v2_offset) -C $Id: wdm_hh_mo_c_a.F,v 1.1 2008-09-30 19:41:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_vd + = -1/4 * Sum ( h5 h3 h4 ) * d ( h3 h4 h1 h5 )_d * v ( h2 h5 h3 h4 )_v @@ -25,7 +25,7 @@ C i0 ( h1 h2 )_vd + = -1/4 * Sum ( h3 h4 h5 ) * d ( h1 h5 h3 h4 )_d * v ( h3 END SUBROUTINE wdm_hh_mo_c_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: wdm_hh_mo_c_a.F,v 1.1 2008-09-30 19:41:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_vd + = -1/4 * Sum ( h5 h3 h4 ) * d ( h3 h4 h1 h5 )_d * v ( h2 h5 h3 h4 )_v @@ -218,7 +218,7 @@ c END SUBROUTINE wdm_hh_mo_c_a_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: wdm_hh_mo_c_a.F,v 1.1 2008-09-30 19:41:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/4 * Sum ( h3 h4 h5 ) * d ( h1 h5 h3 h4 )_d * v ( h3 h4 h2 h5 )_v diff --git a/src/tce/gradients/wdm_hh_mo_c_b_a.F b/src/tce/gradients/wdm_hh_mo_c_b_a.F index b2fafb7781..a541828019 100644 --- a/src/tce/gradients/wdm_hh_mo_c_b_a.F +++ b/src/tce/gradients/wdm_hh_mo_c_b_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hh_mo_c_b_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hh_mo_c_b_a.F,v 1.1 2008-09-30 19:41:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_vd + = -1/4 * Sum ( p5 h3 h4 ) * d ( h3 h4 h1 p5 )_d * v ( h2 p5 h3 h4 )_v @@ -22,7 +22,7 @@ C i0 ( h2 h1 )_vd + = -1/4 * Sum ( p5 h3 h4 ) * d ( h3 h4 h1 p5 )_d * v ( h2 END SUBROUTINE wdm_hh_mo_c_b_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hh_mo_c_b_a.F,v 1.1 2008-09-30 19:41:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_vd + = -1/4 * Sum ( p5 h3 h4 ) * d ( h3 h4 h1 p5 )_d * v ( h2 p5 h3 h4 )_v diff --git a/src/tce/gradients/wdm_hh_mo_c_b_b.F b/src/tce/gradients/wdm_hh_mo_c_b_b.F index 4ce1bfdc27..d4daec7052 100644 --- a/src/tce/gradients/wdm_hh_mo_c_b_b.F +++ b/src/tce/gradients/wdm_hh_mo_c_b_b.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hh_mo_c_b_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hh_mo_c_b_b.F,v 1.1 2008-09-30 19:41:43 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/4 * Sum ( h3 h4 p5 ) * d ( h1 p5 h3 h4 )_d * v ( h3 h4 h2 p5 )_v @@ -22,7 +22,7 @@ C i0 ( h1 h2 )_vd + = -1/4 * Sum ( h3 h4 p5 ) * d ( h1 p5 h3 h4 )_d * v ( h3 END SUBROUTINE wdm_hh_mo_c_b_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hh_mo_c_b_b.F,v 1.1 2008-09-30 19:41:43 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/4 * Sum ( h3 h4 p5 ) * d ( h1 p5 h3 h4 )_d * v ( h3 h4 h2 p5 )_v diff --git a/src/tce/gradients/wdm_hh_mo_c_c_a.F b/src/tce/gradients/wdm_hh_mo_c_c_a.F index 7dbb1e86bd..a236da0492 100644 --- a/src/tce/gradients/wdm_hh_mo_c_c_a.F +++ b/src/tce/gradients/wdm_hh_mo_c_c_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hh_mo_c_c_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hh_mo_c_c_a.F,v 1.1 2008-09-30 19:41:51 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_vd + = -1/2 * Sum ( h5 h3 p4 ) * d ( h3 p4 h1 h5 )_d * v ( h2 h5 h3 p4 )_v @@ -22,7 +22,7 @@ C i0 ( h2 h1 )_vd + = -1/2 * Sum ( h5 h3 p4 ) * d ( h3 p4 h1 h5 )_d * v ( h2 END SUBROUTINE wdm_hh_mo_c_c_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hh_mo_c_c_a.F,v 1.1 2008-09-30 19:41:51 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_vd + = -1/2 * Sum ( h5 h3 p4 ) * d ( h3 p4 h1 h5 )_d * v ( h2 h5 h3 p4 )_v diff --git a/src/tce/gradients/wdm_hh_mo_c_c_b.F b/src/tce/gradients/wdm_hh_mo_c_c_b.F index eb3dd5b232..a5b85405c8 100644 --- a/src/tce/gradients/wdm_hh_mo_c_c_b.F +++ b/src/tce/gradients/wdm_hh_mo_c_c_b.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hh_mo_c_c_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hh_mo_c_c_b.F,v 1.1 2008-09-30 19:41:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/2 * Sum ( h3 p4 h5 ) * d ( h1 h5 h3 p4 )_d * v ( h3 p4 h2 h5 )_v @@ -22,7 +22,7 @@ C i0 ( h1 h2 )_vd + = -1/2 * Sum ( h3 p4 h5 ) * d ( h1 h5 h3 p4 )_d * v ( h3 END SUBROUTINE wdm_hh_mo_c_c_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hh_mo_c_c_b.F,v 1.1 2008-09-30 19:41:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/2 * Sum ( h3 p4 h5 ) * d ( h1 h5 h3 p4 )_d * v ( h3 p4 h2 h5 )_v diff --git a/src/tce/gradients/wdm_hh_mo_c_d.F b/src/tce/gradients/wdm_hh_mo_c_d.F index 026c4a0df6..450682237f 100644 --- a/src/tce/gradients/wdm_hh_mo_c_d.F +++ b/src/tce/gradients/wdm_hh_mo_c_d.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hh_mo_c_d(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_ &v2_offset) -C $Id: wdm_hh_mo_c_d.F,v 1.1 2008-09-30 19:42:08 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_vd + = -1/2 * Sum ( p5 h3 p4 ) * d ( h3 p4 h1 p5 )_d * v ( h2 p5 h3 p4 )_v @@ -25,7 +25,7 @@ C i0 ( h1 h2 )_vd + = -1/2 * Sum ( h3 p4 p5 ) * d ( h1 p5 h3 p4 )_d * v ( h3 END SUBROUTINE wdm_hh_mo_c_d_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: wdm_hh_mo_c_d.F,v 1.1 2008-09-30 19:42:08 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_vd + = -1/2 * Sum ( p5 h3 p4 ) * d ( h3 p4 h1 p5 )_d * v ( h2 p5 h3 p4 )_v @@ -184,7 +184,7 @@ c END SUBROUTINE wdm_hh_mo_c_d_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: wdm_hh_mo_c_d.F,v 1.1 2008-09-30 19:42:08 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/2 * Sum ( h3 p4 p5 ) * d ( h1 p5 h3 p4 )_d * v ( h3 p4 h2 p5 )_v diff --git a/src/tce/gradients/wdm_hh_mo_c_e_a.F b/src/tce/gradients/wdm_hh_mo_c_e_a.F index 8a435b1b78..cdf6309602 100644 --- a/src/tce/gradients/wdm_hh_mo_c_e_a.F +++ b/src/tce/gradients/wdm_hh_mo_c_e_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hh_mo_c_e_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hh_mo_c_e_a.F,v 1.1 2008-09-30 19:42:16 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_vd + = -1/4 * Sum ( h5 p3 p4 ) * d ( p3 p4 h1 h5 )_d * v ( h2 h5 p3 p4 )_v @@ -22,7 +22,7 @@ C i0 ( h2 h1 )_vd + = -1/4 * Sum ( h5 p3 p4 ) * d ( p3 p4 h1 h5 )_d * v ( h2 END SUBROUTINE wdm_hh_mo_c_e_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hh_mo_c_e_a.F,v 1.1 2008-09-30 19:42:16 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_vd + = -1/4 * Sum ( h5 p3 p4 ) * d ( p3 p4 h1 h5 )_d * v ( h2 h5 p3 p4 )_v diff --git a/src/tce/gradients/wdm_hh_mo_c_e_b.F b/src/tce/gradients/wdm_hh_mo_c_e_b.F index e8576229cd..0b0a01a0b3 100644 --- a/src/tce/gradients/wdm_hh_mo_c_e_b.F +++ b/src/tce/gradients/wdm_hh_mo_c_e_b.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hh_mo_c_e_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hh_mo_c_e_b.F,v 1.1 2008-09-30 19:42:24 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/4 * Sum ( p3 p4 h5 ) * d ( h1 h5 p3 p4 )_d * v ( p3 p4 h2 h5 )_v @@ -22,7 +22,7 @@ C i0 ( h1 h2 )_vd + = -1/4 * Sum ( p3 p4 h5 ) * d ( h1 h5 p3 p4 )_d * v ( p3 END SUBROUTINE wdm_hh_mo_c_e_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hh_mo_c_e_b.F,v 1.1 2008-09-30 19:42:24 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/4 * Sum ( p3 p4 h5 ) * d ( h1 h5 p3 p4 )_d * v ( p3 p4 h2 h5 )_v diff --git a/src/tce/gradients/wdm_hh_mo_c_f_a.F b/src/tce/gradients/wdm_hh_mo_c_f_a.F index a13fc3454f..7828e6e98b 100644 --- a/src/tce/gradients/wdm_hh_mo_c_f_a.F +++ b/src/tce/gradients/wdm_hh_mo_c_f_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hh_mo_c_f_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hh_mo_c_f_a.F,v 1.1 2008-09-30 19:42:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_vd + = -1/4 * Sum ( p5 p3 p4 ) * d ( p3 p4 h1 p5 )_d * v ( h2 p5 p3 p4 )_v @@ -22,7 +22,7 @@ C i0 ( h2 h1 )_vd + = -1/4 * Sum ( p5 p3 p4 ) * d ( p3 p4 h1 p5 )_d * v ( h2 END SUBROUTINE wdm_hh_mo_c_f_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hh_mo_c_f_a.F,v 1.1 2008-09-30 19:42:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_vd + = -1/4 * Sum ( p5 p3 p4 ) * d ( p3 p4 h1 p5 )_d * v ( h2 p5 p3 p4 )_v diff --git a/src/tce/gradients/wdm_hh_mo_c_f_b.F b/src/tce/gradients/wdm_hh_mo_c_f_b.F index 3ec9c69e9d..09bbec5952 100644 --- a/src/tce/gradients/wdm_hh_mo_c_f_b.F +++ b/src/tce/gradients/wdm_hh_mo_c_f_b.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hh_mo_c_f_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hh_mo_c_f_b.F,v 1.1 2008-09-30 19:42:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/4 * Sum ( p3 p4 p5 ) * d ( h1 p5 p3 p4 )_d * v ( p3 p4 h2 p5 )_v @@ -22,7 +22,7 @@ C i0 ( h1 h2 )_vd + = -1/4 * Sum ( p3 p4 p5 ) * d ( h1 p5 p3 p4 )_d * v ( p3 END SUBROUTINE wdm_hh_mo_c_f_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hh_mo_c_f_b.F,v 1.1 2008-09-30 19:42:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/4 * Sum ( p3 p4 p5 ) * d ( h1 p5 p3 p4 )_d * v ( p3 p4 h2 p5 )_v diff --git a/src/tce/gradients/wdm_hh_mo_d.F b/src/tce/gradients/wdm_hh_mo_d.F index 90c86d1429..54af447128 100644 --- a/src/tce/gradients/wdm_hh_mo_d.F +++ b/src/tce/gradients/wdm_hh_mo_d.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hh_mo_d(d_i0,d_v2,d_z1,k_i0_offset,k_v2_offset,k_z1 &_offset) -C $Id: wdm_hh_mo_d.F,v 1.1 2008-09-30 19:42:52 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vz + = -2 * Sum ( h4 p3 ) * z ( p3 h4 )_z * v ( h1 h4 h2 p3 )_v @@ -22,7 +22,7 @@ C i0 ( h1 h2 )_vz + = -2 * Sum ( h4 p3 ) * z ( p3 h4 )_z * v ( h1 h4 h2 p3 ) END SUBROUTINE wdm_hh_mo_d_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: wdm_hh_mo_d.F,v 1.1 2008-09-30 19:42:52 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vz + = -2 * Sum ( h4 p3 ) * z ( p3 h4 )_z * v ( h1 h4 h2 p3 )_v diff --git a/src/tce/gradients/wdm_hp_mo_a.F b/src/tce/gradients/wdm_hp_mo_a.F index 40c1d39e10..f1b03e5c7b 100644 --- a/src/tce/gradients/wdm_hp_mo_a.F +++ b/src/tce/gradients/wdm_hp_mo_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hp_mo_a(d_d1,d_f1,d_i0,k_d1_offset,k_f1_offset,k_i0 &_offset) -C $Id: wdm_hp_mo_a.F,v 1.1 2008-09-30 19:44:36 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_fd + = -1/2 * Sum ( p3 ) * d ( p3 p2 )_d * f ( h1 p3 )_f @@ -25,7 +25,7 @@ C i0 ( p2 h1 )_fd + = -1/2 * Sum ( p3 ) * d ( p2 p3 )_d * f ( p3 h1 )_f END SUBROUTINE wdm_hp_mo_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: wdm_hp_mo_a.F,v 1.1 2008-09-30 19:44:36 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_fd + = -1/2 * Sum ( p3 ) * d ( p3 p2 )_d * f ( h1 p3 )_f @@ -157,7 +157,7 @@ c END SUBROUTINE wdm_hp_mo_a_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: wdm_hp_mo_a.F,v 1.1 2008-09-30 19:44:36 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_fd + = -1/2 * Sum ( p3 ) * d ( p2 p3 )_d * f ( p3 h1 )_f diff --git a/src/tce/gradients/wdm_hp_mo_b_a_a.F b/src/tce/gradients/wdm_hp_mo_b_a_a.F index af9059e178..0e27d34d75 100644 --- a/src/tce/gradients/wdm_hp_mo_b_a_a.F +++ b/src/tce/gradients/wdm_hp_mo_b_a_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hp_mo_b_a_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hp_mo_b_a_a.F,v 1.1 2008-09-30 19:44:48 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1/4 * Sum ( h4 h3 h5 ) * d ( h5 p2 h3 h4 )_d * v ( h3 h4 h1 h5 )_v @@ -22,7 +22,7 @@ C i0 ( p2 h1 )_vd + = 1/4 * Sum ( h4 h3 h5 ) * d ( h5 p2 h3 h4 )_d * v ( h3 END SUBROUTINE wdm_hp_mo_b_a_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hp_mo_b_a_a.F,v 1.1 2008-09-30 19:44:48 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1/4 * Sum ( h4 h3 h5 ) * d ( h5 p2 h3 h4 )_d * v ( h3 h4 h1 h5 )_v diff --git a/src/tce/gradients/wdm_hp_mo_b_a_b.F b/src/tce/gradients/wdm_hp_mo_b_a_b.F index 8476af1164..6268160d86 100644 --- a/src/tce/gradients/wdm_hp_mo_b_a_b.F +++ b/src/tce/gradients/wdm_hp_mo_b_a_b.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hp_mo_b_a_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hp_mo_b_a_b.F,v 1.1 2008-09-30 19:44:57 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = 1/4 * Sum ( h5 h4 h3 ) * d ( h3 h4 h5 p2 )_d * v ( h1 h5 h3 h4 )_v @@ -22,7 +22,7 @@ C i0 ( h1 p2 )_vd + = 1/4 * Sum ( h5 h4 h3 ) * d ( h3 h4 h5 p2 )_d * v ( h1 END SUBROUTINE wdm_hp_mo_b_a_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hp_mo_b_a_b.F,v 1.1 2008-09-30 19:44:57 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = 1/4 * Sum ( h5 h4 h3 ) * d ( h3 h4 h5 p2 )_d * v ( h1 h5 h3 h4 )_v diff --git a/src/tce/gradients/wdm_hp_mo_b_b_a.F b/src/tce/gradients/wdm_hp_mo_b_b_a.F index 079557bbbf..6057e9c4aa 100644 --- a/src/tce/gradients/wdm_hp_mo_b_b_a.F +++ b/src/tce/gradients/wdm_hp_mo_b_b_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hp_mo_b_b_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hp_mo_b_b_a.F,v 1.1 2008-09-30 19:45:06 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -1/4 * Sum ( h4 h3 p5 ) * d ( p2 p5 h3 h4 )_d * v ( h3 h4 h1 p5 )_v @@ -22,7 +22,7 @@ C i0 ( p2 h1 )_vd + = -1/4 * Sum ( h4 h3 p5 ) * d ( p2 p5 h3 h4 )_d * v ( h3 END SUBROUTINE wdm_hp_mo_b_b_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hp_mo_b_b_a.F,v 1.1 2008-09-30 19:45:06 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -1/4 * Sum ( h4 h3 p5 ) * d ( p2 p5 h3 h4 )_d * v ( h3 h4 h1 p5 )_v diff --git a/src/tce/gradients/wdm_hp_mo_b_b_b.F b/src/tce/gradients/wdm_hp_mo_b_b_b.F index 4110c6d33c..46868d5214 100644 --- a/src/tce/gradients/wdm_hp_mo_b_b_b.F +++ b/src/tce/gradients/wdm_hp_mo_b_b_b.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hp_mo_b_b_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hp_mo_b_b_b.F,v 1.1 2008-09-30 19:45:13 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = -1/4 * Sum ( p5 h4 h3 ) * d ( h3 h4 p2 p5 )_d * v ( h1 p5 h3 h4 )_v @@ -22,7 +22,7 @@ C i0 ( h1 p2 )_vd + = -1/4 * Sum ( p5 h4 h3 ) * d ( h3 h4 p2 p5 )_d * v ( h1 END SUBROUTINE wdm_hp_mo_b_b_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hp_mo_b_b_b.F,v 1.1 2008-09-30 19:45:13 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = -1/4 * Sum ( p5 h4 h3 ) * d ( h3 h4 p2 p5 )_d * v ( h1 p5 h3 h4 )_v diff --git a/src/tce/gradients/wdm_hp_mo_b_c.F b/src/tce/gradients/wdm_hp_mo_b_c.F index b91a92c64a..6f8a4652ac 100644 --- a/src/tce/gradients/wdm_hp_mo_b_c.F +++ b/src/tce/gradients/wdm_hp_mo_b_c.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hp_mo_b_c(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_ &v2_offset) -C $Id: wdm_hp_mo_b_c.F,v 1.1 2008-09-30 19:45:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1/2 * Sum ( h4 p3 h5 ) * d ( h5 p2 h4 p3 )_d * v ( h4 p3 h1 h5 )_v @@ -25,7 +25,7 @@ C i0 ( h1 p2 )_vd + = 1/2 * Sum ( h5 h4 p3 ) * d ( h4 p3 h5 p2 )_d * v ( h1 END SUBROUTINE wdm_hp_mo_b_c_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: wdm_hp_mo_b_c.F,v 1.1 2008-09-30 19:45:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1/2 * Sum ( h4 p3 h5 ) * d ( h5 p2 h4 p3 )_d * v ( h4 p3 h1 h5 )_v @@ -189,7 +189,7 @@ c &,int_mb(k_range+p2b-1),2,1,1.0d0/2.0d0) END SUBROUTINE wdm_hp_mo_b_c_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: wdm_hp_mo_b_c.F,v 1.1 2008-09-30 19:45:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = 1/2 * Sum ( h5 h4 p3 ) * d ( h4 p3 h5 p2 )_d * v ( h1 h5 h4 p3 )_v diff --git a/src/tce/gradients/wdm_hp_mo_b_d_a.F b/src/tce/gradients/wdm_hp_mo_b_d_a.F index fe3b369628..bde64e9921 100644 --- a/src/tce/gradients/wdm_hp_mo_b_d_a.F +++ b/src/tce/gradients/wdm_hp_mo_b_d_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hp_mo_b_d_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hp_mo_b_d_a.F,v 1.1 2008-09-30 19:45:37 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -1/2 * Sum ( h4 p3 p5 ) * d ( p2 p5 h4 p3 )_d * v ( h4 p3 h1 p5 )_v @@ -22,7 +22,7 @@ C i0 ( p2 h1 )_vd + = -1/2 * Sum ( h4 p3 p5 ) * d ( p2 p5 h4 p3 )_d * v ( h4 END SUBROUTINE wdm_hp_mo_b_d_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hp_mo_b_d_a.F,v 1.1 2008-09-30 19:45:37 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -1/2 * Sum ( h4 p3 p5 ) * d ( p2 p5 h4 p3 )_d * v ( h4 p3 h1 p5 )_v diff --git a/src/tce/gradients/wdm_hp_mo_b_d_b.F b/src/tce/gradients/wdm_hp_mo_b_d_b.F index 11c2979c89..02c963fa94 100644 --- a/src/tce/gradients/wdm_hp_mo_b_d_b.F +++ b/src/tce/gradients/wdm_hp_mo_b_d_b.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hp_mo_b_d_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hp_mo_b_d_b.F,v 1.1 2008-09-30 19:45:45 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = -1/2 * Sum ( p5 h4 p3 ) * d ( h4 p3 p2 p5 )_d * v ( h1 p5 h4 p3 )_v @@ -22,7 +22,7 @@ C i0 ( h1 p2 )_vd + = -1/2 * Sum ( p5 h4 p3 ) * d ( h4 p3 p2 p5 )_d * v ( h1 END SUBROUTINE wdm_hp_mo_b_d_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hp_mo_b_d_b.F,v 1.1 2008-09-30 19:45:45 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = -1/2 * Sum ( p5 h4 p3 ) * d ( h4 p3 p2 p5 )_d * v ( h1 p5 h4 p3 )_v diff --git a/src/tce/gradients/wdm_hp_mo_b_e_a.F b/src/tce/gradients/wdm_hp_mo_b_e_a.F index 896f10f70e..450f0b3274 100644 --- a/src/tce/gradients/wdm_hp_mo_b_e_a.F +++ b/src/tce/gradients/wdm_hp_mo_b_e_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hp_mo_b_e_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hp_mo_b_e_a.F,v 1.1 2008-09-30 19:45:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1/4 * Sum ( p4 p3 h5 ) * d ( h5 p2 p3 p4 )_d * v ( p3 p4 h1 h5 )_v @@ -22,7 +22,7 @@ C i0 ( p2 h1 )_vd + = 1/4 * Sum ( p4 p3 h5 ) * d ( h5 p2 p3 p4 )_d * v ( p3 END SUBROUTINE wdm_hp_mo_b_e_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hp_mo_b_e_a.F,v 1.1 2008-09-30 19:45:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1/4 * Sum ( p4 p3 h5 ) * d ( h5 p2 p3 p4 )_d * v ( p3 p4 h1 h5 )_v diff --git a/src/tce/gradients/wdm_hp_mo_b_e_b.F b/src/tce/gradients/wdm_hp_mo_b_e_b.F index a147b51416..36e3502799 100644 --- a/src/tce/gradients/wdm_hp_mo_b_e_b.F +++ b/src/tce/gradients/wdm_hp_mo_b_e_b.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hp_mo_b_e_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hp_mo_b_e_b.F,v 1.1 2008-09-30 19:46:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = 1/4 * Sum ( h5 p4 p3 ) * d ( p3 p4 h5 p2 )_d * v ( h1 h5 p3 p4 )_v @@ -22,7 +22,7 @@ C i0 ( h1 p2 )_vd + = 1/4 * Sum ( h5 p4 p3 ) * d ( p3 p4 h5 p2 )_d * v ( h1 END SUBROUTINE wdm_hp_mo_b_e_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hp_mo_b_e_b.F,v 1.1 2008-09-30 19:46:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = 1/4 * Sum ( h5 p4 p3 ) * d ( p3 p4 h5 p2 )_d * v ( h1 h5 p3 p4 )_v diff --git a/src/tce/gradients/wdm_hp_mo_b_f.F b/src/tce/gradients/wdm_hp_mo_b_f.F index e1eed13ba6..cf4a0f5abd 100644 --- a/src/tce/gradients/wdm_hp_mo_b_f.F +++ b/src/tce/gradients/wdm_hp_mo_b_f.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hp_mo_b_f(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_ &v2_offset) -C $Id: wdm_hp_mo_b_f.F,v 1.1 2008-09-30 19:46:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -1/4 * Sum ( p4 p3 p5 ) * d ( p2 p5 p3 p4 )_d * v ( p3 p4 h1 p5 )_v @@ -25,7 +25,7 @@ C i0 ( h1 p2 )_vd + = -1/4 * Sum ( p5 p4 p3 ) * d ( p3 p4 p2 p5 )_d * v ( h1 END SUBROUTINE wdm_hp_mo_b_f_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: wdm_hp_mo_b_f.F,v 1.1 2008-09-30 19:46:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -1/4 * Sum ( p4 p3 p5 ) * d ( p2 p5 p3 p4 )_d * v ( p3 p4 h1 p5 )_v @@ -208,7 +208,7 @@ c &,int_mb(k_range+p2b-1),2,1,-1.0d0/4.0d0) END SUBROUTINE wdm_hp_mo_b_f_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: wdm_hp_mo_b_f.F,v 1.1 2008-09-30 19:46:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = -1/4 * Sum ( p5 p4 p3 ) * d ( p3 p4 p2 p5 )_d * v ( h1 p5 p3 p4 )_v diff --git a/src/tce/gradients/wdm_hp_mo_c.F b/src/tce/gradients/wdm_hp_mo_c.F index 0e2865d419..156010e3e3 100644 --- a/src/tce/gradients/wdm_hp_mo_c.F +++ b/src/tce/gradients/wdm_hp_mo_c.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hp_mo_c(d_f1,d_i0,d_z1,k_f1_offset,k_i0_offset,k_z1 &_offset) -C $Id: wdm_hp_mo_c.F,v 1.1 2008-09-30 19:46:34 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_fz + = -1 * Sum ( h3 ) * z ( p2 h3 )_z * f ( h3 h1 )_f @@ -22,7 +22,7 @@ C i0 ( p2 h1 )_fz + = -1 * Sum ( h3 ) * z ( p2 h3 )_z * f ( h3 h1 )_f END SUBROUTINE wdm_hp_mo_c_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: wdm_hp_mo_c.F,v 1.1 2008-09-30 19:46:34 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_fz + = -1 * Sum ( h3 ) * z ( p2 h3 )_z * f ( h3 h1 )_f diff --git a/src/tce/gradients/wdm_pp_mo_a.F b/src/tce/gradients/wdm_pp_mo_a.F index 0ac4d0f38b..fb4a973f78 100644 --- a/src/tce/gradients/wdm_pp_mo_a.F +++ b/src/tce/gradients/wdm_pp_mo_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_pp_mo_a(d_d1,d_f1,d_i0,k_d1_offset,k_f1_offset,k_i0 &_offset) -C $Id: wdm_pp_mo_a.F,v 1.1 2008-09-30 19:48:18 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p1 )_fd + = -1/2 * Sum ( p3 ) * d ( p3 p1 )_d * f ( p2 p3 )_f @@ -25,7 +25,7 @@ C i0 ( p1 p2 )_fd + = -1/2 * Sum ( p3 ) * d ( p1 p3 )_d * f ( p3 p2 )_f END SUBROUTINE wdm_pp_mo_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: wdm_pp_mo_a.F,v 1.1 2008-09-30 19:48:18 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p1 )_fd + = -1/2 * Sum ( p3 ) * d ( p3 p1 )_d * f ( p2 p3 )_f @@ -159,7 +159,7 @@ c & noab - 1 + nvab * (p2b - noab - 1))) END SUBROUTINE wdm_pp_mo_a_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: wdm_pp_mo_a.F,v 1.1 2008-09-30 19:48:18 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_fd + = -1/2 * Sum ( p3 ) * d ( p1 p3 )_d * f ( p3 p2 )_f diff --git a/src/tce/gradients/wdm_pp_mo_b_a_a.F b/src/tce/gradients/wdm_pp_mo_b_a_a.F index 1608b49677..55a22f7b95 100644 --- a/src/tce/gradients/wdm_pp_mo_b_a_a.F +++ b/src/tce/gradients/wdm_pp_mo_b_a_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_pp_mo_b_a_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_pp_mo_b_a_a.F,v 1.1 2008-09-30 19:48:31 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_vd + = -1/4 * Sum ( h4 h3 h5 ) * d ( h5 p1 h3 h4 )_d * v ( h3 h4 h5 p2 )_v @@ -22,7 +22,7 @@ C i0 ( p1 p2 )_vd + = -1/4 * Sum ( h4 h3 h5 ) * d ( h5 p1 h3 h4 )_d * v ( h3 END SUBROUTINE wdm_pp_mo_b_a_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_pp_mo_b_a_a.F,v 1.1 2008-09-30 19:48:31 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_vd + = -1/4 * Sum ( h4 h3 h5 ) * d ( h5 p1 h3 h4 )_d * v ( h3 h4 h5 p2 )_v diff --git a/src/tce/gradients/wdm_pp_mo_b_a_b.F b/src/tce/gradients/wdm_pp_mo_b_a_b.F index e334cb7e07..ebb73cd4dc 100644 --- a/src/tce/gradients/wdm_pp_mo_b_a_b.F +++ b/src/tce/gradients/wdm_pp_mo_b_a_b.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_pp_mo_b_a_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_pp_mo_b_a_b.F,v 1.1 2008-09-30 19:48:38 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p1 )_vd + = -1/4 * Sum ( h5 h4 h3 ) * d ( h3 h4 h5 p1 )_d * v ( h5 p2 h3 h4 )_v @@ -22,7 +22,7 @@ C i0 ( p2 p1 )_vd + = -1/4 * Sum ( h5 h4 h3 ) * d ( h3 h4 h5 p1 )_d * v ( h5 END SUBROUTINE wdm_pp_mo_b_a_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_pp_mo_b_a_b.F,v 1.1 2008-09-30 19:48:38 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p1 )_vd + = -1/4 * Sum ( h5 h4 h3 ) * d ( h3 h4 h5 p1 )_d * v ( h5 p2 h3 h4 )_v diff --git a/src/tce/gradients/wdm_pp_mo_b_b_a.F b/src/tce/gradients/wdm_pp_mo_b_b_a.F index a6df577c83..b100e561f2 100644 --- a/src/tce/gradients/wdm_pp_mo_b_b_a.F +++ b/src/tce/gradients/wdm_pp_mo_b_b_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_pp_mo_b_b_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_pp_mo_b_b_a.F,v 1.1 2008-09-30 19:48:48 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_vd + = -1/4 * Sum ( h4 h3 p5 ) * d ( p1 p5 h3 h4 )_d * v ( h3 h4 p2 p5 )_v @@ -22,7 +22,7 @@ C i0 ( p1 p2 )_vd + = -1/4 * Sum ( h4 h3 p5 ) * d ( p1 p5 h3 h4 )_d * v ( h3 END SUBROUTINE wdm_pp_mo_b_b_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_pp_mo_b_b_a.F,v 1.1 2008-09-30 19:48:48 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_vd + = -1/4 * Sum ( h4 h3 p5 ) * d ( p1 p5 h3 h4 )_d * v ( h3 h4 p2 p5 )_v diff --git a/src/tce/gradients/wdm_pp_mo_b_b_b.F b/src/tce/gradients/wdm_pp_mo_b_b_b.F index cd3bd3add1..dc5aa8718f 100644 --- a/src/tce/gradients/wdm_pp_mo_b_b_b.F +++ b/src/tce/gradients/wdm_pp_mo_b_b_b.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_pp_mo_b_b_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_pp_mo_b_b_b.F,v 1.1 2008-09-30 19:48:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p1 )_vd + = -1/4 * Sum ( p5 h4 h3 ) * d ( h3 h4 p1 p5 )_d * v ( p2 p5 h3 h4 )_v @@ -22,7 +22,7 @@ C i0 ( p2 p1 )_vd + = -1/4 * Sum ( p5 h4 h3 ) * d ( h3 h4 p1 p5 )_d * v ( p2 END SUBROUTINE wdm_pp_mo_b_b_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_pp_mo_b_b_b.F,v 1.1 2008-09-30 19:48:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p1 )_vd + = -1/4 * Sum ( p5 h4 h3 ) * d ( h3 h4 p1 p5 )_d * v ( p2 p5 h3 h4 )_v diff --git a/src/tce/gradients/wdm_pp_mo_b_c.F b/src/tce/gradients/wdm_pp_mo_b_c.F index 1337c78fe0..56c73398fb 100644 --- a/src/tce/gradients/wdm_pp_mo_b_c.F +++ b/src/tce/gradients/wdm_pp_mo_b_c.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_pp_mo_b_c(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_ &v2_offset) -C $Id: wdm_pp_mo_b_c.F,v 1.1 2008-09-30 19:49:11 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_vd + = -1/2 * Sum ( h4 p3 h5 ) * d ( h5 p1 h4 p3 )_d * v ( h4 p3 h5 p2 )_v @@ -25,7 +25,7 @@ C i0 ( p2 p1 )_vd + = -1/2 * Sum ( h5 h4 p3 ) * d ( h4 p3 h5 p1 )_d * v ( h5 END SUBROUTINE wdm_pp_mo_b_c_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: wdm_pp_mo_b_c.F,v 1.1 2008-09-30 19:49:11 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_vd + = -1/2 * Sum ( h4 p3 h5 ) * d ( h5 p1 h4 p3 )_d * v ( h4 p3 h5 p2 )_v @@ -179,7 +179,7 @@ c END SUBROUTINE wdm_pp_mo_b_c_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: wdm_pp_mo_b_c.F,v 1.1 2008-09-30 19:49:11 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p1 )_vd + = -1/2 * Sum ( h5 h4 p3 ) * d ( h4 p3 h5 p1 )_d * v ( h5 p2 h4 p3 )_v diff --git a/src/tce/gradients/wdm_pp_mo_b_d_a.F b/src/tce/gradients/wdm_pp_mo_b_d_a.F index 54c9f89a52..75c15cae38 100644 --- a/src/tce/gradients/wdm_pp_mo_b_d_a.F +++ b/src/tce/gradients/wdm_pp_mo_b_d_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_pp_mo_b_d_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_pp_mo_b_d_a.F,v 1.1 2008-09-30 19:49:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_vd + = -1/2 * Sum ( h4 p3 p5 ) * d ( p1 p5 h4 p3 )_d * v ( h4 p3 p2 p5 )_v @@ -22,7 +22,7 @@ C i0 ( p1 p2 )_vd + = -1/2 * Sum ( h4 p3 p5 ) * d ( p1 p5 h4 p3 )_d * v ( h4 END SUBROUTINE wdm_pp_mo_b_d_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_pp_mo_b_d_a.F,v 1.1 2008-09-30 19:49:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_vd + = -1/2 * Sum ( h4 p3 p5 ) * d ( p1 p5 h4 p3 )_d * v ( h4 p3 p2 p5 )_v diff --git a/src/tce/gradients/wdm_pp_mo_b_d_b.F b/src/tce/gradients/wdm_pp_mo_b_d_b.F index 4def0ced37..7726f34dd4 100644 --- a/src/tce/gradients/wdm_pp_mo_b_d_b.F +++ b/src/tce/gradients/wdm_pp_mo_b_d_b.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_pp_mo_b_d_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_pp_mo_b_d_b.F,v 1.1 2008-09-30 19:49:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p1 )_vd + = -1/2 * Sum ( p5 h4 p3 ) * d ( h4 p3 p1 p5 )_d * v ( p2 p5 h4 p3 )_v @@ -22,7 +22,7 @@ C i0 ( p2 p1 )_vd + = -1/2 * Sum ( p5 h4 p3 ) * d ( h4 p3 p1 p5 )_d * v ( p2 END SUBROUTINE wdm_pp_mo_b_d_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_pp_mo_b_d_b.F,v 1.1 2008-09-30 19:49:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p1 )_vd + = -1/2 * Sum ( p5 h4 p3 ) * d ( h4 p3 p1 p5 )_d * v ( p2 p5 h4 p3 )_v diff --git a/src/tce/gradients/wdm_pp_mo_b_e_a.F b/src/tce/gradients/wdm_pp_mo_b_e_a.F index 73f0045902..9d2ab854bf 100644 --- a/src/tce/gradients/wdm_pp_mo_b_e_a.F +++ b/src/tce/gradients/wdm_pp_mo_b_e_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_pp_mo_b_e_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_pp_mo_b_e_a.F,v 1.1 2008-09-30 19:49:36 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_vd + = -1/4 * Sum ( p4 p3 h5 ) * d ( h5 p1 p3 p4 )_d * v ( p3 p4 h5 p2 )_v @@ -22,7 +22,7 @@ C i0 ( p1 p2 )_vd + = -1/4 * Sum ( p4 p3 h5 ) * d ( h5 p1 p3 p4 )_d * v ( p3 END SUBROUTINE wdm_pp_mo_b_e_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_pp_mo_b_e_a.F,v 1.1 2008-09-30 19:49:36 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_vd + = -1/4 * Sum ( p4 p3 h5 ) * d ( h5 p1 p3 p4 )_d * v ( p3 p4 h5 p2 )_v diff --git a/src/tce/gradients/wdm_pp_mo_b_e_b.F b/src/tce/gradients/wdm_pp_mo_b_e_b.F index c1272dcede..4c2eb640e5 100644 --- a/src/tce/gradients/wdm_pp_mo_b_e_b.F +++ b/src/tce/gradients/wdm_pp_mo_b_e_b.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_pp_mo_b_e_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_pp_mo_b_e_b.F,v 1.1 2008-09-30 19:49:42 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p1 )_vd + = -1/4 * Sum ( h5 p4 p3 ) * d ( p3 p4 h5 p1 )_d * v ( h5 p2 p3 p4 )_v @@ -22,7 +22,7 @@ C i0 ( p2 p1 )_vd + = -1/4 * Sum ( h5 p4 p3 ) * d ( p3 p4 h5 p1 )_d * v ( h5 END SUBROUTINE wdm_pp_mo_b_e_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_pp_mo_b_e_b.F,v 1.1 2008-09-30 19:49:42 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p1 )_vd + = -1/4 * Sum ( h5 p4 p3 ) * d ( p3 p4 h5 p1 )_d * v ( h5 p2 p3 p4 )_v diff --git a/src/tce/gradients/wdm_pp_mo_b_f.F b/src/tce/gradients/wdm_pp_mo_b_f.F index 57f805f8f9..37643681b8 100644 --- a/src/tce/gradients/wdm_pp_mo_b_f.F +++ b/src/tce/gradients/wdm_pp_mo_b_f.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_pp_mo_b_f(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_ &v2_offset) -C $Id: wdm_pp_mo_b_f.F,v 1.1 2008-09-30 19:49:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_vd + = -1/4 * Sum ( p4 p3 p5 ) * d ( p1 p5 p3 p4 )_d * v ( p3 p4 p2 p5 )_v @@ -25,7 +25,7 @@ C i0 ( p2 p1 )_vd + = -1/4 * Sum ( p5 p4 p3 ) * d ( p3 p4 p1 p5 )_d * v ( p2 END SUBROUTINE wdm_pp_mo_b_f_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: wdm_pp_mo_b_f.F,v 1.1 2008-09-30 19:49:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_vd + = -1/4 * Sum ( p4 p3 p5 ) * d ( p1 p5 p3 p4 )_d * v ( p3 p4 p2 p5 )_v @@ -211,7 +211,7 @@ c END SUBROUTINE wdm_pp_mo_b_f_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: wdm_pp_mo_b_f.F,v 1.1 2008-09-30 19:49:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p1 )_vd + = -1/4 * Sum ( p5 p4 p3 ) * d ( p3 p4 p1 p5 )_d * v ( p2 p5 p3 p4 )_v diff --git a/src/tce/gradients/zvec_x_a_a.F b/src/tce/gradients/zvec_x_a_a.F index e29669323c..25e63bf704 100644 --- a/src/tce/gradients/zvec_x_a_a.F +++ b/src/tce/gradients/zvec_x_a_a.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_a_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v2_ &offset) -C $Id: zvec_x_a_a.F,v 1.1 2008-09-30 19:53:31 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -1/2 * Sum ( h5 h3 h4 ) * d ( h3 h4 h1 h5 )_d * v ( h5 p2 h3 h4 )_v @@ -25,7 +25,7 @@ C i0 ( h1 p2 )_vd + = -1/2 * Sum ( h3 h4 h5 ) * d ( h1 h5 h3 h4 )_d * v ( h3 END SUBROUTINE zvec_x_a_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: zvec_x_a_a.F,v 1.1 2008-09-30 19:53:31 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1/4 * Sum ( h5 h3 h4 ) * d ( h3 h4 h1 h5 )_d * v ( h5 p2 h3 h4 )_v @@ -205,7 +205,7 @@ c END SUBROUTINE zvec_x_a_a_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: zvec_x_a_a.F,v 1.1 2008-09-30 19:53:31 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = 1/4 * Sum ( h3 h4 h5 ) * d ( h1 h5 h3 h4 )_d * v ( h3 h4 h5 p2 )_v diff --git a/src/tce/gradients/zvec_x_a_b_a.F b/src/tce/gradients/zvec_x_a_b_a.F index 62af287db2..75bacdbae2 100644 --- a/src/tce/gradients/zvec_x_a_b_a.F +++ b/src/tce/gradients/zvec_x_a_b_a.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_a_b_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v &2_offset) -C $Id: zvec_x_a_b_a.F,v 1.1 2008-09-30 19:53:42 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1/2 * Sum ( p5 h3 h4 ) * d ( h3 h4 h1 p5 )_d * v ( p2 p5 h3 h4 )_v @@ -22,7 +22,7 @@ C i0 ( p2 h1 )_vd + = 1/2 * Sum ( p5 h3 h4 ) * d ( h3 h4 h1 p5 )_d * v ( p2 END SUBROUTINE zvec_x_a_b_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: zvec_x_a_b_a.F,v 1.1 2008-09-30 19:53:42 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -1/4 * Sum ( p5 h3 h4 ) * d ( h3 h4 h1 p5 )_d * v ( p2 p5 h3 h4 )_v diff --git a/src/tce/gradients/zvec_x_a_b_b.F b/src/tce/gradients/zvec_x_a_b_b.F index 2981a56992..2a87db27d2 100644 --- a/src/tce/gradients/zvec_x_a_b_b.F +++ b/src/tce/gradients/zvec_x_a_b_b.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_a_b_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v &2_offset) -C $Id: zvec_x_a_b_b.F,v 1.1 2008-09-30 19:53:49 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = 1/2 * Sum ( h3 h4 p5 ) * d ( h1 p5 h3 h4 )_d * v ( h3 h4 p2 p5 )_v @@ -22,7 +22,7 @@ C i0 ( h1 p2 )_vd + = 1/2 * Sum ( h3 h4 p5 ) * d ( h1 p5 h3 h4 )_d * v ( h3 END SUBROUTINE zvec_x_a_b_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: zvec_x_a_b_b.F,v 1.1 2008-09-30 19:53:49 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = -1/4 * Sum ( h3 h4 p5 ) * d ( h1 p5 h3 h4 )_d * v ( h3 h4 p2 p5 )_v diff --git a/src/tce/gradients/zvec_x_a_c_a.F b/src/tce/gradients/zvec_x_a_c_a.F index f29449fb32..b7d16028b2 100644 --- a/src/tce/gradients/zvec_x_a_c_a.F +++ b/src/tce/gradients/zvec_x_a_c_a.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_a_c_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v &2_offset) -C $Id: zvec_x_a_c_a.F,v 1.1 2008-09-30 19:54:31 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -1 * Sum ( h5 h3 p4 ) * d ( h3 p4 h1 h5 )_d * v ( h5 p2 h3 p4 )_v @@ -22,7 +22,7 @@ C i0 ( p2 h1 )_vd + = -1 * Sum ( h5 h3 p4 ) * d ( h3 p4 h1 h5 )_d * v ( h5 p END SUBROUTINE zvec_x_a_c_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: zvec_x_a_c_a.F,v 1.1 2008-09-30 19:54:31 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = (1/2) * Sum ( h5 h3 p4 ) * d ( h3 p4 h1 h5 )_d * v ( h5 p2 h3 p4 )_v diff --git a/src/tce/gradients/zvec_x_a_c_b.F b/src/tce/gradients/zvec_x_a_c_b.F index 1150dfdc31..8410947d5c 100644 --- a/src/tce/gradients/zvec_x_a_c_b.F +++ b/src/tce/gradients/zvec_x_a_c_b.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_a_c_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v &2_offset) -C $Id: zvec_x_a_c_b.F,v 1.1 2008-09-30 19:54:45 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = -1 * Sum ( h3 p4 h5 ) * d ( h1 h5 h3 p4 )_d * v ( h3 p4 h5 p2 )_v @@ -22,7 +22,7 @@ C i0 ( h1 p2 )_vd + = -1 * Sum ( h3 p4 h5 ) * d ( h1 h5 h3 p4 )_d * v ( h3 p END SUBROUTINE zvec_x_a_c_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: zvec_x_a_c_b.F,v 1.1 2008-09-30 19:54:45 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = (1/2) * Sum ( h3 p4 h5 ) * d ( h1 h5 h3 p4 )_d * v ( h3 p4 h5 p2 )_v diff --git a/src/tce/gradients/zvec_x_a_d.F b/src/tce/gradients/zvec_x_a_d.F index 8e57a53c03..27fd50add9 100644 --- a/src/tce/gradients/zvec_x_a_d.F +++ b/src/tce/gradients/zvec_x_a_d.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_a_d(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v2_ &offset) -C $Id: zvec_x_a_d.F,v 1.1 2008-09-30 19:54:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1 * Sum ( p5 h3 p4 ) * d ( h3 p4 h1 p5 )_d * v ( p2 p5 h3 p4 )_v @@ -25,7 +25,7 @@ C i0 ( h1 p2 )_vd + = 1 * Sum ( h3 p4 p5 ) * d ( h1 p5 h3 p4 )_d * v ( h3 p4 END SUBROUTINE zvec_x_a_d_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: zvec_x_a_d.F,v 1.1 2008-09-30 19:54:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -(1/2) * Sum ( p5 h3 p4 ) * d ( h3 p4 h1 p5 )_d * v ( p2 p5 h3 p4 )_v @@ -184,7 +184,7 @@ c END SUBROUTINE zvec_x_a_d_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: zvec_x_a_d.F,v 1.1 2008-09-30 19:54:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = -(1/2) * Sum ( h3 p4 p5 ) * d ( h1 p5 h3 p4 )_d * v ( h3 p4 p2 p5 )_v diff --git a/src/tce/gradients/zvec_x_a_e_a.F b/src/tce/gradients/zvec_x_a_e_a.F index cf18463621..a32fc4ecf1 100644 --- a/src/tce/gradients/zvec_x_a_e_a.F +++ b/src/tce/gradients/zvec_x_a_e_a.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_a_e_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v &2_offset) -C $Id: zvec_x_a_e_a.F,v 1.1 2008-09-30 19:55:11 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -1/2 * Sum ( h5 p3 p4 ) * d ( p3 p4 h1 h5 )_d * v ( h5 p2 p3 p4 )_v @@ -22,7 +22,7 @@ C i0 ( p2 h1 )_vd + = -1/2 * Sum ( h5 p3 p4 ) * d ( p3 p4 h1 h5 )_d * v ( h5 END SUBROUTINE zvec_x_a_e_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: zvec_x_a_e_a.F,v 1.1 2008-09-30 19:55:11 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1/4 * Sum ( h5 p3 p4 ) * d ( p3 p4 h1 h5 )_d * v ( h5 p2 p3 p4 )_v diff --git a/src/tce/gradients/zvec_x_a_e_b.F b/src/tce/gradients/zvec_x_a_e_b.F index 2cd359c9b6..a807d5be63 100644 --- a/src/tce/gradients/zvec_x_a_e_b.F +++ b/src/tce/gradients/zvec_x_a_e_b.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_a_e_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v &2_offset) -C $Id: zvec_x_a_e_b.F,v 1.1 2008-09-30 19:55:17 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = -1/2 * Sum ( p3 p4 h5 ) * d ( h1 h5 p3 p4 )_d * v ( p3 p4 h5 p2 )_v @@ -22,7 +22,7 @@ C i0 ( h1 p2 )_vd + = -1/2 * Sum ( p3 p4 h5 ) * d ( h1 h5 p3 p4 )_d * v ( p3 END SUBROUTINE zvec_x_a_e_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: zvec_x_a_e_b.F,v 1.1 2008-09-30 19:55:17 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = 1/4 * Sum ( p3 p4 h5 ) * d ( h1 h5 p3 p4 )_d * v ( p3 p4 h5 p2 )_v diff --git a/src/tce/gradients/zvec_x_a_f_a.F b/src/tce/gradients/zvec_x_a_f_a.F index a0c66cd664..0b4f89ceaf 100644 --- a/src/tce/gradients/zvec_x_a_f_a.F +++ b/src/tce/gradients/zvec_x_a_f_a.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_a_f_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v &2_offset) -C $Id: zvec_x_a_f_a.F,v 1.1 2008-09-30 19:55:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1/2 * Sum ( p5 p3 p4 ) * d ( p3 p4 h1 p5 )_d * v ( p2 p5 p3 p4 )_v @@ -22,7 +22,7 @@ C i0 ( p2 h1 )_vd + = 1/2 * Sum ( p5 p3 p4 ) * d ( p3 p4 h1 p5 )_d * v ( p2 END SUBROUTINE zvec_x_a_f_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: zvec_x_a_f_a.F,v 1.1 2008-09-30 19:55:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -(1/4) * Sum ( p5 p3 p4 ) * d ( p3 p4 h1 p5 )_d * v ( p2 p5 p3 p4 )_v diff --git a/src/tce/gradients/zvec_x_a_f_b.F b/src/tce/gradients/zvec_x_a_f_b.F index ab40354342..c1318d71a6 100644 --- a/src/tce/gradients/zvec_x_a_f_b.F +++ b/src/tce/gradients/zvec_x_a_f_b.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_a_f_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v &2_offset) -C $Id: zvec_x_a_f_b.F,v 1.1 2008-09-30 19:55:34 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = 1/2 * Sum ( p3 p4 p5 ) * d ( h1 p5 p3 p4 )_d * v ( p3 p4 p2 p5 )_v @@ -22,7 +22,7 @@ C i0 ( h1 p2 )_vd + = 1/2 * Sum ( p3 p4 p5 ) * d ( h1 p5 p3 p4 )_d * v ( p3 END SUBROUTINE zvec_x_a_f_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: zvec_x_a_f_b.F,v 1.1 2008-09-30 19:55:34 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = -(1/4) * Sum ( p3 p4 p5 ) * d ( h1 p5 p3 p4 )_d * v ( p3 p4 p2 p5 )_v diff --git a/src/tce/gradients/zvec_x_b_a_a.F b/src/tce/gradients/zvec_x_b_a_a.F index 69f928f293..f115e671b5 100644 --- a/src/tce/gradients/zvec_x_b_a_a.F +++ b/src/tce/gradients/zvec_x_b_a_a.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_b_a_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v &2_offset) -C $Id: zvec_x_b_a_a.F,v 1.1 2008-09-30 19:55:47 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1/2 * Sum ( h4 h3 h5 ) * d ( h5 p2 h3 h4 )_d * v ( h3 h4 h1 h5 )_v @@ -22,7 +22,7 @@ C i0 ( p2 h1 )_vd + = 1/2 * Sum ( h4 h3 h5 ) * d ( h5 p2 h3 h4 )_d * v ( h3 END SUBROUTINE zvec_x_b_a_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: zvec_x_b_a_a.F,v 1.1 2008-09-30 19:55:47 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -(1/4) * Sum ( h4 h3 h5 ) * d ( h5 p2 h3 h4 )_d * v ( h3 h4 h1 h5 )_v diff --git a/src/tce/gradients/zvec_x_b_a_b.F b/src/tce/gradients/zvec_x_b_a_b.F index 4e40c2a80b..31d6e7bb84 100644 --- a/src/tce/gradients/zvec_x_b_a_b.F +++ b/src/tce/gradients/zvec_x_b_a_b.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_b_a_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v &2_offset) -C $Id: zvec_x_b_a_b.F,v 1.1 2008-09-30 19:55:59 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = 1/2 * Sum ( h5 h4 h3 ) * d ( h3 h4 h5 p2 )_d * v ( h1 h5 h3 h4 )_v @@ -22,7 +22,7 @@ C i0 ( h1 p2 )_vd + = 1/2 * Sum ( h5 h4 h3 ) * d ( h3 h4 h5 p2 )_d * v ( h1 END SUBROUTINE zvec_x_b_a_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: zvec_x_b_a_b.F,v 1.1 2008-09-30 19:55:59 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = -(1/4) * Sum ( h5 h4 h3 ) * d ( h3 h4 h5 p2 )_d * v ( h1 h5 h3 h4 )_v diff --git a/src/tce/gradients/zvec_x_b_b_a.F b/src/tce/gradients/zvec_x_b_b_a.F index 670280460a..9c0d60b7d9 100644 --- a/src/tce/gradients/zvec_x_b_b_a.F +++ b/src/tce/gradients/zvec_x_b_b_a.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_b_b_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v &2_offset) -C $Id: zvec_x_b_b_a.F,v 1.1 2008-09-30 19:56:11 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -1/2 * Sum ( h4 h3 p5 ) * d ( p2 p5 h3 h4 )_d * v ( h3 h4 h1 p5 )_v @@ -22,7 +22,7 @@ C i0 ( p2 h1 )_vd + = -1/2 * Sum ( h4 h3 p5 ) * d ( p2 p5 h3 h4 )_d * v ( h3 END SUBROUTINE zvec_x_b_b_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: zvec_x_b_b_a.F,v 1.1 2008-09-30 19:56:11 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1/4 * Sum ( h4 h3 p5 ) * d ( p2 p5 h3 h4 )_d * v ( h3 h4 h1 p5 )_v diff --git a/src/tce/gradients/zvec_x_b_b_b.F b/src/tce/gradients/zvec_x_b_b_b.F index fdebaef7bf..1862c02710 100644 --- a/src/tce/gradients/zvec_x_b_b_b.F +++ b/src/tce/gradients/zvec_x_b_b_b.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_b_b_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v &2_offset) -C $Id: zvec_x_b_b_b.F,v 1.1 2008-09-30 19:56:19 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = -1/2 * Sum ( p5 h4 h3 ) * d ( h3 h4 p2 p5 )_d * v ( h1 p5 h3 h4 )_v @@ -22,7 +22,7 @@ C i0 ( h1 p2 )_vd + = -1/2 * Sum ( p5 h4 h3 ) * d ( h3 h4 p2 p5 )_d * v ( h1 END SUBROUTINE zvec_x_b_b_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: zvec_x_b_b_b.F,v 1.1 2008-09-30 19:56:19 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = 1/4 * Sum ( p5 h4 h3 ) * d ( h3 h4 p2 p5 )_d * v ( h1 p5 h3 h4 )_v diff --git a/src/tce/gradients/zvec_x_b_c.F b/src/tce/gradients/zvec_x_b_c.F index ca80beb521..4fff5fdefa 100644 --- a/src/tce/gradients/zvec_x_b_c.F +++ b/src/tce/gradients/zvec_x_b_c.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_b_c(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v2_ &offset) -C $Id: zvec_x_b_c.F,v 1.1 2008-09-30 19:56:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1 * Sum ( h4 p3 h5 ) * d ( h5 p2 h4 p3 )_d * v ( h4 p3 h1 h5 )_v @@ -25,7 +25,7 @@ C i0 ( h1 p2 )_vd + = 1 * Sum ( h5 h4 p3 ) * d ( h4 p3 h5 p2 )_d * v ( h1 h5 END SUBROUTINE zvec_x_b_c_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: zvec_x_b_c.F,v 1.1 2008-09-30 19:56:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -(1/2) * Sum ( h4 p3 h5 ) * d ( h5 p2 h4 p3 )_d * v ( h4 p3 h1 h5 )_v @@ -184,7 +184,7 @@ c END SUBROUTINE zvec_x_b_c_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: zvec_x_b_c.F,v 1.1 2008-09-30 19:56:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = -(1/2) * Sum ( h5 h4 p3 ) * d ( h4 p3 h5 p2 )_d * v ( h1 h5 h4 p3 )_v diff --git a/src/tce/gradients/zvec_x_b_d_a.F b/src/tce/gradients/zvec_x_b_d_a.F index 1d9594d6d1..390470633a 100644 --- a/src/tce/gradients/zvec_x_b_d_a.F +++ b/src/tce/gradients/zvec_x_b_d_a.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_b_d_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v &2_offset) -C $Id: zvec_x_b_d_a.F,v 1.1 2008-09-30 19:56:34 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -1 * Sum ( h4 p3 p5 ) * d ( p2 p5 h4 p3 )_d * v ( h4 p3 h1 p5 )_v @@ -22,7 +22,7 @@ C i0 ( p2 h1 )_vd + = -1 * Sum ( h4 p3 p5 ) * d ( p2 p5 h4 p3 )_d * v ( h4 p END SUBROUTINE zvec_x_b_d_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: zvec_x_b_d_a.F,v 1.1 2008-09-30 19:56:34 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = (1/2) * Sum ( h4 p3 p5 ) * d ( p2 p5 h4 p3 )_d * v ( h4 p3 h1 p5 )_v diff --git a/src/tce/gradients/zvec_x_b_d_b.F b/src/tce/gradients/zvec_x_b_d_b.F index f823fd2a41..e5adecb882 100644 --- a/src/tce/gradients/zvec_x_b_d_b.F +++ b/src/tce/gradients/zvec_x_b_d_b.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_b_d_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v &2_offset) -C $Id: zvec_x_b_d_b.F,v 1.1 2008-09-30 19:56:41 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = -1 * Sum ( p5 h4 p3 ) * d ( h4 p3 p2 p5 )_d * v ( h1 p5 h4 p3 )_v @@ -22,7 +22,7 @@ C i0 ( h1 p2 )_vd + = -1 * Sum ( p5 h4 p3 ) * d ( h4 p3 p2 p5 )_d * v ( h1 p END SUBROUTINE zvec_x_b_d_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: zvec_x_b_d_b.F,v 1.1 2008-09-30 19:56:41 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = 1/2 * Sum ( p5 h4 p3 ) * d ( h4 p3 p2 p5 )_d * v ( h1 p5 h4 p3 )_v diff --git a/src/tce/gradients/zvec_x_b_e_a.F b/src/tce/gradients/zvec_x_b_e_a.F index 4c54d569e5..cc7503bbc1 100644 --- a/src/tce/gradients/zvec_x_b_e_a.F +++ b/src/tce/gradients/zvec_x_b_e_a.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_b_e_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v &2_offset) -C $Id: zvec_x_b_e_a.F,v 1.1 2008-09-30 19:56:52 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1/2 * Sum ( p4 p3 h5 ) * d ( h5 p2 p3 p4 )_d * v ( p3 p4 h1 h5 )_v @@ -22,7 +22,7 @@ C i0 ( p2 h1 )_vd + = 1/2 * Sum ( p4 p3 h5 ) * d ( h5 p2 p3 p4 )_d * v ( p3 END SUBROUTINE zvec_x_b_e_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: zvec_x_b_e_a.F,v 1.1 2008-09-30 19:56:52 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -(1/4) * Sum ( p4 p3 h5 ) * d ( h5 p2 p3 p4 )_d * v ( p3 p4 h1 h5 )_v diff --git a/src/tce/gradients/zvec_x_b_e_b.F b/src/tce/gradients/zvec_x_b_e_b.F index c8e551b05b..74894add10 100644 --- a/src/tce/gradients/zvec_x_b_e_b.F +++ b/src/tce/gradients/zvec_x_b_e_b.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_b_e_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v &2_offset) -C $Id: zvec_x_b_e_b.F,v 1.1 2008-09-30 19:56:59 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = 1/2 * Sum ( h5 p4 p3 ) * d ( p3 p4 h5 p2 )_d * v ( h1 h5 p3 p4 )_v @@ -22,7 +22,7 @@ C i0 ( h1 p2 )_vd + = 1/2 * Sum ( h5 p4 p3 ) * d ( p3 p4 h5 p2 )_d * v ( h1 END SUBROUTINE zvec_x_b_e_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: zvec_x_b_e_b.F,v 1.1 2008-09-30 19:56:59 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = -1/4 * Sum ( h5 p4 p3 ) * d ( p3 p4 h5 p2 )_d * v ( h1 h5 p3 p4 )_v diff --git a/src/tce/gradients/zvec_x_b_f.F b/src/tce/gradients/zvec_x_b_f.F index 4ccba82bf5..27df0e1510 100644 --- a/src/tce/gradients/zvec_x_b_f.F +++ b/src/tce/gradients/zvec_x_b_f.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_b_f(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v2_ &offset) -C $Id: zvec_x_b_f.F,v 1.1 2008-09-30 19:57:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -1/2 * Sum ( p4 p3 p5 ) * d ( p2 p5 p3 p4 )_d * v ( p3 p4 h1 p5 )_v @@ -25,7 +25,7 @@ C i0 ( h1 p2 )_vd + = -1/2 * Sum ( p5 p4 p3 ) * d ( p3 p4 p2 p5 )_d * v ( h1 END SUBROUTINE zvec_x_b_f_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: zvec_x_b_f.F,v 1.1 2008-09-30 19:57:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1/4 * Sum ( p4 p3 p5 ) * d ( p2 p5 p3 p4 )_d * v ( p3 p4 h1 p5 )_v @@ -196,7 +196,7 @@ c END SUBROUTINE zvec_x_b_f_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: zvec_x_b_f.F,v 1.1 2008-09-30 19:57:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = 1/4 * Sum ( p5 p4 p3 ) * d ( p3 p4 p2 p5 )_d * v ( h1 p5 p3 p4 )_v diff --git a/src/tce/gradients/zvec_x_c_a.F b/src/tce/gradients/zvec_x_c_a.F index 631d81798c..4aeb0aba3c 100644 --- a/src/tce/gradients/zvec_x_c_a.F +++ b/src/tce/gradients/zvec_x_c_a.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_c_a(d_d1,d_i0,d_v2,k_d1_offset,k_i0_offset,k_v2_ &offset) -C $Id: zvec_x_c_a.F,v 1.1 2008-09-30 19:57:19 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = 1/2 * Sum ( h4 h3 ) * d ( h3 h4 )_d * v ( h1 h4 h3 p2 )_v @@ -25,7 +25,7 @@ C i0 ( p2 h1 )_vd + = 1/2 * Sum ( h3 h4 ) * d ( h4 h3 )_d * v ( h3 p2 h1 h4 END SUBROUTINE zvec_x_c_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: zvec_x_c_a.F,v 1.1 2008-09-30 19:57:19 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = 1/2 * Sum ( h4 h3 ) * d ( h3 h4 )_d * v ( h1 h4 h3 p2 )_v @@ -171,7 +171,7 @@ c END SUBROUTINE zvec_x_c_a_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: zvec_x_c_a.F,v 1.1 2008-09-30 19:57:19 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1/2 * Sum ( h3 h4 ) * d ( h4 h3 )_d * v ( h3 p2 h1 h4 )_v diff --git a/src/tce/gradients/zvec_x_c_b.F b/src/tce/gradients/zvec_x_c_b.F index 2237f4bfca..b7dc85f96f 100644 --- a/src/tce/gradients/zvec_x_c_b.F +++ b/src/tce/gradients/zvec_x_c_b.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_c_b(d_d1,d_i0,d_v2,k_d1_offset,k_i0_offset,k_v2_ &offset) -C $Id: zvec_x_c_b.F,v 1.1 2008-09-30 19:57:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1 * Sum ( p4 p3 ) * d ( p3 p4 )_d * v ( p2 p4 h1 p3 )_v @@ -25,7 +25,7 @@ C i0 ( h1 p2 )_vd + = 1 * Sum ( p3 p4 ) * d ( p4 p3 )_d * v ( h1 p3 p2 p4 )_ END SUBROUTINE zvec_x_c_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: zvec_x_c_b.F,v 1.1 2008-09-30 19:57:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -(1/2) * Sum ( p4 p3 ) * d ( p3 p4 )_d * v ( p2 p4 h1 p3 )_v @@ -173,7 +173,7 @@ c END SUBROUTINE zvec_x_c_b_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: zvec_x_c_b.F,v 1.1 2008-09-30 19:57:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = -(1/2) * Sum ( p3 p4 ) * d ( p4 p3 )_d * v ( h1 p3 p2 p4 )_v diff --git a/src/tce/hbar.F b/src/tce/hbar.F index e99d8b670e..d991ad5019 100644 --- a/src/tce/hbar.F +++ b/src/tce/hbar.F @@ -1,6 +1,6 @@ logical function hbar_restore(ivec,jvec,hbar) c -c $Id: hbar.F,v 1.3 2008-01-14 15:20:32 jhammond Exp $ +c $Id$ c c Read (if exist) hbar(ivec,jvec) c @@ -58,7 +58,7 @@ c write(LuOut,*) 'Restoring H bar(',ivec,jvec,') = ',hbar end subroutine hbar_store(ivec,jvec,hbar) c -c $Id: hbar.F,v 1.3 2008-01-14 15:20:32 jhammond Exp $ +c $Id$ c c Write hbar(ivec,jvec) c @@ -111,7 +111,7 @@ c write(LuOut,*) 'Storing H bar(',ivec,jvec,') = ',hbar end subroutine hbar_init c -c $Id: hbar.F,v 1.3 2008-01-14 15:20:32 jhammond Exp $ +c $Id$ c c Initialize hbar file c @@ -142,7 +142,7 @@ c end subroutine hbar_tidy c -c $Id: hbar.F,v 1.3 2008-01-14 15:20:32 jhammond Exp $ +c $Id$ c c Terminate hbar file c diff --git a/src/tce/include/GNUmakefile b/src/tce/include/GNUmakefile index d82004f40f..4875bff547 100644 --- a/src/tce/include/GNUmakefile +++ b/src/tce/include/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.1 2003-09-16 21:54:08 sohirata Exp $ +#$Id$ include ../../config/makefile.h include ../../config/makelib.h diff --git a/src/tce/include/tce_diis.fh b/src/tce/include/tce_diis.fh index d1bb228d8e..1ce14f5a02 100644 --- a/src/tce/include/tce_diis.fh +++ b/src/tce/include/tce_diis.fh @@ -1,4 +1,4 @@ -c $Id: tce_diis.fh,v 1.9 2008-09-30 19:03:06 jhammond Exp $ +c $Id$ c c Include file for TCE module c diff --git a/src/tce/include/tce_main.fh b/src/tce/include/tce_main.fh index 038dd81262..19478c7efa 100644 --- a/src/tce/include/tce_main.fh +++ b/src/tce/include/tce_main.fh @@ -1,4 +1,4 @@ -c $Id: tce_main.fh,v 1.20 2008-12-13 21:57:50 jhammond Exp $ +c $Id$ c c Include file for TCE module c diff --git a/src/tce/lccd/GNUmakefile b/src/tce/lccd/GNUmakefile index 0962de20f0..5f21caec16 100644 --- a/src/tce/lccd/GNUmakefile +++ b/src/tce/lccd/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.2 2005-12-20 21:19:40 edo Exp $ +#$Id$ OBJ_OPTIMIZE = lccd_e.o lccd_t2.o diff --git a/src/tce/lccd/lccd_e.F b/src/tce/lccd/lccd_e.F index 3026b18cf8..aacefb8c71 100644 --- a/src/tce/lccd/lccd_e.F +++ b/src/tce/lccd/lccd_e.F @@ -1,6 +1,6 @@ SUBROUTINE lccd_e(d_i0,d_t2,d_v2,k_i0_offset,k_t2_offset,k_v2_offs &et) -C $Id: lccd_e.F,v 1.3 2005-12-16 22:06:30 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 p1 p2 )_v @@ -20,7 +20,7 @@ C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 RETURN END SUBROUTINE lccd_e_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: lccd_e.F,v 1.3 2005-12-16 22:06:30 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 p1 p2 )_v diff --git a/src/tce/lccd/lccd_t2.F b/src/tce/lccd/lccd_t2.F index 70e3ba671b..7062bbf642 100644 --- a/src/tce/lccd/lccd_t2.F +++ b/src/tce/lccd/lccd_t2.F @@ -1,6 +1,6 @@ SUBROUTINE lccd_t2(d_f1,d_i0,d_t2,d_v2,k_f1_offset,k_i0_offset,k_t &2_offset,k_v2_offset) -C $Id: lccd_t2.F,v 1.3 2005-12-16 22:06:30 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v @@ -32,7 +32,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( RETURN END SUBROUTINE lccd_t2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: lccd_t2.F,v 1.3 2005-12-16 22:06:30 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v @@ -129,7 +129,7 @@ C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v RETURN END SUBROUTINE lccd_t2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: lccd_t2.F,v 1.3 2005-12-16 22:06:30 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * f ( h5 h2 )_f @@ -290,7 +290,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * RETURN END SUBROUTINE lccd_t2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: lccd_t2.F,v 1.3 2005-12-16 22:06:30 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * f ( p4 p5 )_f @@ -451,7 +451,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * RETURN END SUBROUTINE lccd_t2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: lccd_t2.F,v 1.3 2005-12-16 22:06:30 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * v ( h5 h6 h1 h2 )_v @@ -610,7 +610,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * v ( RETURN END SUBROUTINE lccd_t2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: lccd_t2.F,v 1.3 2005-12-16 22:06:30 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * v ( h6 p4 h2 p5 )_v @@ -811,7 +811,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_ RETURN END SUBROUTINE lccd_t2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: lccd_t2.F,v 1.3 2005-12-16 22:06:30 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( p3 p4 p5 p6 )_v diff --git a/src/tce/lccsd/GNUmakefile b/src/tce/lccsd/GNUmakefile index eda5e8bdac..666bbbb432 100644 --- a/src/tce/lccsd/GNUmakefile +++ b/src/tce/lccsd/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.2 2005-12-20 21:19:40 edo Exp $ +#$Id$ OBJ_OPTIMIZE = lccsd_e.o lccsd_t1.o lccsd_t2.o diff --git a/src/tce/lccsd/lccsd_e.F b/src/tce/lccsd/lccsd_e.F index 93e8d3bcd4..cc1ada9404 100644 --- a/src/tce/lccsd/lccsd_e.F +++ b/src/tce/lccsd/lccsd_e.F @@ -1,6 +1,6 @@ SUBROUTINE lccsd_e(d_f1,d_i0,d_t1,d_t2,d_v2,k_f1_offset,k_i0_offse &t,k_t1_offset,k_t2_offset,k_v2_offset) -C $Id: lccsd_e.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_tf + = 1 * Sum ( p2 h1 ) * t ( p2 h1 )_t * f ( h1 p2 )_f @@ -26,7 +26,7 @@ C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 RETURN END SUBROUTINE lccsd_e_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: lccsd_e.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_tf + = 1 * Sum ( p2 h1 ) * t ( p2 h1 )_t * f ( h1 p2 )_f @@ -139,7 +139,7 @@ C i0 ( )_tf + = 1 * Sum ( p2 h1 ) * t ( p2 h1 )_t * f ( h1 p2 )_f RETURN END SUBROUTINE lccsd_e_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: lccsd_e.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 p1 p2 )_v diff --git a/src/tce/lccsd/lccsd_t1.F b/src/tce/lccsd/lccsd_t1.F index c637d1c978..d21bac180f 100644 --- a/src/tce/lccsd/lccsd_t1.F +++ b/src/tce/lccsd/lccsd_t1.F @@ -1,6 +1,6 @@ SUBROUTINE lccsd_t1(d_f1,d_i0,d_t1,d_t2,d_v2,k_f1_offset,k_i0_offs &et,k_t1_offset,k_t2_offset,k_v2_offset) -C $Id: lccsd_t1.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_f + = 1 * f ( p2 h1 )_f @@ -42,7 +42,7 @@ C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 RETURN END SUBROUTINE lccsd_t1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: lccsd_t1.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_f + = 1 * f ( p2 h1 )_f @@ -125,7 +125,7 @@ C i0 ( p2 h1 )_f + = 1 * f ( p2 h1 )_f END SUBROUTINE lccsd_t1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: lccsd_t1.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = -1 * Sum ( h3 ) * t ( p2 h3 )_t * f ( h3 h1 )_f @@ -250,7 +250,7 @@ C i0 ( p2 h1 )_tf + = -1 * Sum ( h3 ) * t ( p2 h3 )_t * f ( h3 h1 )_f END SUBROUTINE lccsd_t1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: lccsd_t1.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * f ( p2 p3 )_f @@ -375,7 +375,7 @@ C i0 ( p2 h1 )_tf + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * f ( p2 p3 )_f END SUBROUTINE lccsd_t1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: lccsd_t1.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 h1 p3 )_v @@ -509,7 +509,7 @@ C i0 ( p2 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 h1 p3 ) END SUBROUTINE lccsd_t1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: lccsd_t1.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = 1 * Sum ( p4 h3 ) * t ( p2 p4 h1 h3 )_t * f ( h3 p4 )_f @@ -668,7 +668,7 @@ C i0 ( p2 h1 )_tf + = 1 * Sum ( p4 h3 ) * t ( p2 p4 h1 h3 )_t * f ( h3 p4 )_ END SUBROUTINE lccsd_t1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: lccsd_t1.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * v ( h4 h5 h1 p3 )_v @@ -833,7 +833,7 @@ C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * v ( h4 END SUBROUTINE lccsd_t1_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: lccsd_t1.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 p2 p3 p4 )_v diff --git a/src/tce/lccsd/lccsd_t2.F b/src/tce/lccsd/lccsd_t2.F index dd56260893..106423c6f0 100644 --- a/src/tce/lccsd/lccsd_t2.F +++ b/src/tce/lccsd/lccsd_t2.F @@ -1,6 +1,6 @@ SUBROUTINE lccsd_t2(d_f1,d_i0,d_t1,d_t2,d_v2,k_f1_offset,k_i0_offs &et,k_t1_offset,k_t2_offset,k_v2_offset) -C $Id: lccsd_t2.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v @@ -45,7 +45,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( RETURN END SUBROUTINE lccsd_t2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: lccsd_t2.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v @@ -143,7 +143,7 @@ C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v END SUBROUTINE lccsd_t2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: lccsd_t2.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * v ( h5 p4 h1 h2 )_v @@ -296,7 +296,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * v ( h END SUBROUTINE lccsd_t2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: lccsd_t2.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * v ( p3 p4 h2 p5 )_v @@ -449,7 +449,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * v ( p END SUBROUTINE lccsd_t2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: lccsd_t2.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * f ( h5 h2 )_f @@ -611,7 +611,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * END SUBROUTINE lccsd_t2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: lccsd_t2.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * f ( p4 p5 )_f @@ -773,7 +773,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * END SUBROUTINE lccsd_t2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: lccsd_t2.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * v ( h5 h6 h1 h2 )_v @@ -933,7 +933,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * v ( END SUBROUTINE lccsd_t2_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: lccsd_t2.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * v ( h6 p4 h2 p5 )_v @@ -1135,7 +1135,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_ END SUBROUTINE lccsd_t2_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: lccsd_t2.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( p3 p4 p5 p6 )_v diff --git a/src/tce/lrh/GNUmakefile b/src/tce/lrh/GNUmakefile index 4dd7e8d5e2..3dc69aa773 100644 --- a/src/tce/lrh/GNUmakefile +++ b/src/tce/lrh/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.1 2007-09-18 20:21:58 kowalski Exp $ +#$Id$ OBJ_OPTIMIZE = tce_loc_j1.o tce_loc_j2.o diff --git a/src/tce/lrh/tce_loc_j1.F b/src/tce/lrh/tce_loc_j1.F index f284d9f523..a37a861705 100644 --- a/src/tce/lrh/tce_loc_j1.F +++ b/src/tce/lrh/tce_loc_j1.F @@ -1,6 +1,6 @@ subroutine tce_loc_j1(d_r1,k_r1_offset,d_t1,k_t1_offset) c -c $Id: tce_loc_j1.F,v 1.2 2008-01-14 15:20:42 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -125,7 +125,7 @@ c c subroutine tce_loc_j1_one(d_r1,k_r1_offset) c -c $Id: tce_loc_j1.F,v 1.2 2008-01-14 15:20:42 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -201,7 +201,7 @@ c c subroutine tce_loc_j1_inv(d_r1,k_r1_offset) c -c $Id: tce_loc_j1.F,v 1.2 2008-01-14 15:20:42 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -280,7 +280,7 @@ c c subroutine tce_j1_x1_scaling(d_r1,k_r1_offset,d_j1,k_j1_offset) c -c $Id: tce_loc_j1.F,v 1.2 2008-01-14 15:20:42 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/lrh/tce_loc_j2.F b/src/tce/lrh/tce_loc_j2.F index e1d3100383..1ff69891be 100644 --- a/src/tce/lrh/tce_loc_j2.F +++ b/src/tce/lrh/tce_loc_j2.F @@ -1,6 +1,6 @@ subroutine tce_loc_j2(d_r2,k_r2_offset,d_t2,k_t2_offset) c -c $Id: tce_loc_j2.F,v 1.2 2008-01-14 15:20:42 jhammond Exp $ +c $Id$ c c TO DO - initial 1.0-ing of the d_t2 file c @@ -213,7 +213,7 @@ c c subroutine tce_loc_j2_one(d_r2,k_r2_offset) c -c $Id: tce_loc_j2.F,v 1.2 2008-01-14 15:20:42 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -308,7 +308,7 @@ c c subroutine tce_loc_j2_inv(d_r2,k_r2_offset) c -c $Id: tce_loc_j2.F,v 1.2 2008-01-14 15:20:42 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -404,7 +404,7 @@ c c subroutine tce_j2_x2_scaling(d_r2,k_r2_offset,d_j2,k_j2_offset) c -c $Id: tce_loc_j2.F,v 1.2 2008-01-14 15:20:42 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/ma_pack.F b/src/tce/ma_pack.F index da9ad186fc..028dcb39a6 100644 --- a/src/tce/ma_pack.F +++ b/src/tce/ma_pack.F @@ -1,6 +1,6 @@ subroutine ma_pack(unpack,pack,n) c -c $Id: ma_pack.F,v 1.2 2008-10-16 14:20:16 jhammond Exp $ +c $Id$ c implicit none #include "mafdecls.fh" diff --git a/src/tce/ma_print_compact.F b/src/tce/ma_print_compact.F index 6c982b2677..8c77e557f7 100644 --- a/src/tce/ma_print_compact.F +++ b/src/tce/ma_print_compact.F @@ -1,6 +1,6 @@ subroutine ma_print_compact(vector,ndim,mdim,title) c -c $Id: ma_print_compact.F,v 1.2 2004-10-28 18:16:40 edo Exp $ +c $Id$ c implicit none diff --git a/src/tce/ma_scale.F b/src/tce/ma_scale.F index d337bb1d4d..33649a1351 100644 --- a/src/tce/ma_scale.F +++ b/src/tce/ma_scale.F @@ -1,6 +1,6 @@ subroutine ma_scale(a,n,scalar) c -c $Id: ma_scale.F,v 1.1 2002-10-18 23:42:06 sohirata Exp $ +c $Id$ c implicit none #include "mafdecls.fh" diff --git a/src/tce/ma_transpose.F b/src/tce/ma_transpose.F index e070306dbc..33be5eff91 100644 --- a/src/tce/ma_transpose.F +++ b/src/tce/ma_transpose.F @@ -3,7 +3,7 @@ c 6 or 7 works well here c subroutine ma_transpose(a,n) c -c $Id: ma_transpose.F,v 1.2 2008-10-05 23:34:03 jhammond Exp $ +c $Id$ c implicit none c#include "mafdecls.fh" diff --git a/src/tce/mbpt1/GNUmakefile b/src/tce/mbpt1/GNUmakefile index 4b3bc439b6..214bf3f04f 100644 --- a/src/tce/mbpt1/GNUmakefile +++ b/src/tce/mbpt1/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.2 2005-12-20 21:19:40 edo Exp $ +#$Id$ OBJ_OPTIMIZE = mbpt1_t1.o mbpt1_t2.o diff --git a/src/tce/mbpt1/mbpt1_t1.F b/src/tce/mbpt1/mbpt1_t1.F index a5c6b64d62..627eefece5 100644 --- a/src/tce/mbpt1/mbpt1_t1.F +++ b/src/tce/mbpt1/mbpt1_t1.F @@ -1,6 +1,6 @@ SUBROUTINE mbpt1_t1(d_f1,d_i0,d_t11,d_t12,k_f1_offset,k_i0_offset, &k_t11_offset,k_t12_offset) -C $Id: mbpt1_t1.F,v 1.3 2005-12-16 22:05:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t1f + = -1 * Sum ( h2 ) * t1 ( p1 h2 )_t1 * f ( h2 h9 )_f @@ -30,7 +30,7 @@ C i0 ( p1 h9 )_t1f + = -1 * Sum ( p3 h2 ) * t1 ( p1 p3 h2 h9 )_t1 * f ( h2 p END SUBROUTINE mbpt1_t1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt1_t1.F,v 1.3 2005-12-16 22:05:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t1f + = -1 * Sum ( h2 ) * t1 ( p1 h2 )_t1 * f ( h2 h9 )_f @@ -155,7 +155,7 @@ C i0 ( p1 h9 )_t1f + = -1 * Sum ( h2 ) * t1 ( p1 h2 )_t1 * f ( h2 h9 )_f END SUBROUTINE mbpt1_t1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt1_t1.F,v 1.3 2005-12-16 22:05:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t1f + = 1 * Sum ( p2 ) * t1 ( p2 h9 )_t1 * f ( p1 p2 )_f @@ -280,7 +280,7 @@ C i0 ( p1 h9 )_t1f + = 1 * Sum ( p2 ) * t1 ( p2 h9 )_t1 * f ( p1 p2 )_f END SUBROUTINE mbpt1_t1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt1_t1.F,v 1.3 2005-12-16 22:05:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t1f + = -1 * Sum ( p3 h2 ) * t1 ( p1 p3 h2 h9 )_t1 * f ( h2 p3 )_f diff --git a/src/tce/mbpt1/mbpt1_t2.F b/src/tce/mbpt1/mbpt1_t2.F index aa76634c37..940f7b9628 100644 --- a/src/tce/mbpt1/mbpt1_t2.F +++ b/src/tce/mbpt1/mbpt1_t2.F @@ -1,6 +1,6 @@ SUBROUTINE mbpt1_t2(d_f1,d_i0,d_t11,d_t12,d_v2,k_f1_offset,k_i0_of &fset,k_t11_offset,k_t12_offset,k_v2_offset) -C $Id: mbpt1_t2.F,v 1.3 2005-12-16 22:05:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t1f + = 1 * P( 4 ) * t1 ( p1 h9 )_t1 * f ( p2 h10 )_f @@ -34,7 +34,7 @@ C i0 ( p1 p2 h9 h10 )_v + = 1 * v ( p1 p2 h9 h10 )_v END SUBROUTINE mbpt1_t2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt1_t2.F,v 1.3 2005-12-16 22:05:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t1f + = 1 * P( 4 ) * t1 ( p1 h9 )_t1 * f ( p2 h10 )_f @@ -193,7 +193,7 @@ C i0 ( p1 p2 h9 h10 )_t1f + = 1 * P( 4 ) * t1 ( p1 h9 )_t1 * f ( p2 h10 )_f END SUBROUTINE mbpt1_t2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt1_t2.F,v 1.3 2005-12-16 22:05:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t1f + = 1 * P( 2 ) * Sum ( h3 ) * t1 ( p1 p2 h3 h9 )_t1 * f ( h3 h10 )_f @@ -355,7 +355,7 @@ C i0 ( p1 p2 h9 h10 )_t1f + = 1 * P( 2 ) * Sum ( h3 ) * t1 ( p1 p2 h3 h9 )_t END SUBROUTINE mbpt1_t2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt1_t2.F,v 1.3 2005-12-16 22:05:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t1f + = 1 * P( 2 ) * Sum ( p3 ) * t1 ( p1 p3 h9 h10 )_t1 * f ( p2 p3 )_f @@ -516,7 +516,7 @@ C i0 ( p1 p2 h9 h10 )_t1f + = 1 * P( 2 ) * Sum ( p3 ) * t1 ( p1 p3 h9 h10 )_ RETURN END SUBROUTINE mbpt1_t2_4(d_a,k_a_offset,d_c,k_c_offset) -C $Id: mbpt1_t2.F,v 1.3 2005-12-16 22:05:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_v + = 1 * v ( p1 p2 h9 h10 )_v diff --git a/src/tce/mbpt2/GNUmakefile b/src/tce/mbpt2/GNUmakefile index 3d6e85a3bf..6bd2fe0ab1 100644 --- a/src/tce/mbpt2/GNUmakefile +++ b/src/tce/mbpt2/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.3 2007/09/19 22:13:48 d3p975 Exp $ +#$Id$ OBJ_OPTIMIZE = mbpt2_e.o mbpt2_t1.o mbpt2_t2.o mbpt2_t2_b.o mbpt2_t3.o \ mbpt2_t1_sd.o mbpt2_t2_sd.o diff --git a/src/tce/mbpt2/mbpt2_e.F b/src/tce/mbpt2/mbpt2_e.F index 7284928b16..e2e3afb4e6 100644 --- a/src/tce/mbpt2/mbpt2_e.F +++ b/src/tce/mbpt2/mbpt2_e.F @@ -1,6 +1,6 @@ SUBROUTINE mbpt2_e(d_i0,d_t12,d_v2,k_i0_offset,k_t12_offset,k_v2_o &ffset) -C $Id: mbpt2_e.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vt1 + = 1/4 * Sum ( h3 h4 p1 p2 ) * t1 ( p1 p2 h3 h4 )_t1 * v ( h3 h4 p1 p2 )_v @@ -21,7 +21,7 @@ C i0 ( )_vt1 + = 1/4 * Sum ( h3 h4 p1 p2 ) * t1 ( p1 p2 h3 h4 )_t1 * v ( h3 RETURN END SUBROUTINE mbpt2_e_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: mbpt2_e.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vt1 + = 1/4 * Sum ( h3 h4 p1 p2 ) * t1 ( p1 p2 h3 h4 )_t1 * v ( h3 h4 p1 p2 )_v diff --git a/src/tce/mbpt2/mbpt2_t1.F b/src/tce/mbpt2/mbpt2_t1.F index a3614e82c4..f1c4232d56 100644 --- a/src/tce/mbpt2/mbpt2_t1.F +++ b/src/tce/mbpt2/mbpt2_t1.F @@ -1,7 +1,7 @@ SUBROUTINE mbpt2_t1(d_f1,d_i0,d_t11,d_t12,d_t21,d_t22,d_v2,k_f1_of &fset,k_i0_offset,k_t11_offset,k_t12_offset,k_t21_offset,k_t22_offs &et,k_v2_offset) -C $Id: mbpt2_t1.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t2f + = -1 * Sum ( h2 ) * t2 ( p1 h2 )_t2 * f ( h2 h9 )_f @@ -46,7 +46,7 @@ C i0 ( p1 h9 )_vt1 + = 1/2 * Sum ( h4 p2 p3 ) * t1 ( p2 p3 h4 h9 )_t1 * v ( END SUBROUTINE mbpt2_t1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t1.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t2f + = -1 * Sum ( h2 ) * t2 ( p1 h2 )_t2 * f ( h2 h9 )_f @@ -171,7 +171,7 @@ C i0 ( p1 h9 )_t2f + = -1 * Sum ( h2 ) * t2 ( p1 h2 )_t2 * f ( h2 h9 )_f END SUBROUTINE mbpt2_t1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t1.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t2f + = 1 * Sum ( p2 ) * t2 ( p2 h9 )_t2 * f ( p1 p2 )_f @@ -296,7 +296,7 @@ C i0 ( p1 h9 )_t2f + = 1 * Sum ( p2 ) * t2 ( p2 h9 )_t2 * f ( p1 p2 )_f END SUBROUTINE mbpt2_t1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t1.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t2f + = -1 * Sum ( p3 h2 ) * t2 ( p1 p3 h2 h9 )_t2 * f ( h2 p3 )_f @@ -455,7 +455,7 @@ C i0 ( p1 h9 )_t2f + = -1 * Sum ( p3 h2 ) * t2 ( p1 p3 h2 h9 )_t2 * f ( h2 p END SUBROUTINE mbpt2_t1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t1.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_vt1 + = -1 * Sum ( h3 p2 ) * t1 ( p2 h3 )_t1 * v ( h3 p1 h9 p2 )_v @@ -589,7 +589,7 @@ C i0 ( p1 h9 )_vt1 + = -1 * Sum ( h3 p2 ) * t1 ( p2 h3 )_t1 * v ( h3 p1 h9 p END SUBROUTINE mbpt2_t1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t1.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_vt1 + = -1/2 * Sum ( h3 h4 p2 ) * t1 ( p1 p2 h3 h4 )_t1 * v ( h3 h4 h9 p2 )_v @@ -754,7 +754,7 @@ C i0 ( p1 h9 )_vt1 + = -1/2 * Sum ( h3 h4 p2 ) * t1 ( p1 p2 h3 h4 )_t1 * v ( END SUBROUTINE mbpt2_t1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t1.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_vt1 + = 1/2 * Sum ( h4 p2 p3 ) * t1 ( p2 p3 h4 h9 )_t1 * v ( h4 p1 p2 p3 )_v diff --git a/src/tce/mbpt2/mbpt2_t1_sd.F b/src/tce/mbpt2/mbpt2_t1_sd.F index 964b35c4f6..5e133bc250 100644 --- a/src/tce/mbpt2/mbpt2_t1_sd.F +++ b/src/tce/mbpt2/mbpt2_t1_sd.F @@ -1,6 +1,6 @@ SUBROUTINE mbpt2_t1_sd(d_f1,d_i0,d_t11,d_t12,d_t21,d_v2,k_f1_offse &t,k_i0_offset,k_t11_offset,k_t12_offset,k_t21_offset,k_v2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t2f + = -1 * Sum ( h2 ) * t2 ( p1 h2 )_t2 * f ( h2 h9 )_f @@ -40,7 +40,7 @@ C i0 ( p1 h9 )_vt1 + = 1/2 * Sum ( h4 p2 p3 ) * t1 ( p2 p3 h4 h9 )_t1 * v ( END SUBROUTINE mbpt2_t1_sd_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t2f + = -1 * Sum ( h2 ) * t2 ( p1 h2 )_t2 * f ( h2 h9 )_f @@ -166,7 +166,7 @@ C i0 ( p1 h9 )_t2f + = -1 * Sum ( h2 ) * t2 ( p1 h2 )_t2 * f ( h2 h9 )_f END SUBROUTINE mbpt2_t1_sd_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t2f + = 1 * Sum ( p2 ) * t2 ( p2 h9 )_t2 * f ( p1 p2 )_f @@ -292,7 +292,7 @@ C i0 ( p1 h9 )_t2f + = 1 * Sum ( p2 ) * t2 ( p2 h9 )_t2 * f ( p1 p2 )_f END SUBROUTINE mbpt2_t1_sd_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_vt1 + = -1 * Sum ( h3 p2 ) * t1 ( p2 h3 )_t1 * v ( h3 p1 h9 p2 )_v @@ -427,7 +427,7 @@ C i0 ( p1 h9 )_vt1 + = -1 * Sum ( h3 p2 ) * t1 ( p2 h3 )_t1 * v ( h3 p1 h9 p END SUBROUTINE mbpt2_t1_sd_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_vt1 + = -1/2 * Sum ( h3 h4 p2 ) * t1 ( p1 p2 h3 h4 )_t1 * v ( h3 h4 h9 p2 )_v @@ -593,7 +593,7 @@ C i0 ( p1 h9 )_vt1 + = -1/2 * Sum ( h3 h4 p2 ) * t1 ( p1 p2 h3 h4 )_t1 * v ( END SUBROUTINE mbpt2_t1_sd_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_vt1 + = 1/2 * Sum ( h4 p2 p3 ) * t1 ( p2 p3 h4 h9 )_t1 * v ( h4 p1 p2 p3 )_v diff --git a/src/tce/mbpt2/mbpt2_t2.F b/src/tce/mbpt2/mbpt2_t2.F index 5f45571d45..f9e612324b 100644 --- a/src/tce/mbpt2/mbpt2_t2.F +++ b/src/tce/mbpt2/mbpt2_t2.F @@ -1,7 +1,7 @@ SUBROUTINE mbpt2_t2(d_f1,d_i0,d_t11,d_t12,d_t22,d_t23,d_v2,k_f1_of &fset,k_i0_offset,k_t11_offset,k_t12_offset,k_t22_offset,k_t23_offs &et,k_v2_offset) -C $Id: mbpt2_t2.F,v 1.4 2007-09-19 22:11:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t2f + = 1 * P( 2 ) * Sum ( h3 ) * t2 ( p1 p2 h3 h9 )_t2 * f ( h3 h10 )_f @@ -52,7 +52,7 @@ C i0 ( p1 p2 h9 h10 )_vt1 + = 1/2 * Sum ( p3 p4 ) * t1 ( p3 p4 h9 h10 )_t1 * END SUBROUTINE mbpt2_t2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t2.F,v 1.4 2007-09-19 22:11:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t2f + = 1 * P( 2 ) * Sum ( h3 ) * t2 ( p1 p2 h3 h9 )_t2 * f ( h3 h10 )_f @@ -214,7 +214,7 @@ C i0 ( p1 p2 h9 h10 )_t2f + = 1 * P( 2 ) * Sum ( h3 ) * t2 ( p1 p2 h3 h9 )_t END SUBROUTINE mbpt2_t2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t2.F,v 1.4 2007-09-19 22:11:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t2f + = 1 * P( 2 ) * Sum ( p3 ) * t2 ( p1 p3 h9 h10 )_t2 * f ( p2 p3 )_f @@ -376,7 +376,7 @@ C i0 ( p1 p2 h9 h10 )_t2f + = 1 * P( 2 ) * Sum ( p3 ) * t2 ( p1 p3 h9 h10 )_ END SUBROUTINE mbpt2_t2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t2.F,v 1.4 2007-09-19 22:11:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t2f + = 1 * Sum ( p4 h3 ) * t2 ( p1 p2 p4 h3 h9 h10 )_t2 * f ( h3 p4 )_f @@ -605,7 +605,7 @@ C i0 ( p1 p2 h9 h10 )_t2f + = 1 * Sum ( p4 h3 ) * t2 ( p1 p2 p4 h3 h9 h10 )_ END SUBROUTINE mbpt2_t2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t2.F,v 1.4 2007-09-19 22:11:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1 + = -1 * P( 2 ) * Sum ( h3 ) * t1 ( p1 h3 )_t1 * v ( h3 p2 h9 h10 )_v @@ -758,7 +758,7 @@ C i0 ( p1 p2 h9 h10 )_vt1 + = -1 * P( 2 ) * Sum ( h3 ) * t1 ( p1 h3 )_t1 * v END SUBROUTINE mbpt2_t2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t2.F,v 1.4 2007-09-19 22:11:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1 + = -1 * P( 2 ) * Sum ( p3 ) * t1 ( p3 h9 )_t1 * v ( p1 p2 h10 p3 )_v @@ -911,7 +911,7 @@ C i0 ( p1 p2 h9 h10 )_vt1 + = -1 * P( 2 ) * Sum ( p3 ) * t1 ( p3 h9 )_t1 * v END SUBROUTINE mbpt2_t2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t2.F,v 1.4 2007-09-19 22:11:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1 + = 1/2 * Sum ( h3 h4 ) * t1 ( p1 p2 h3 h4 )_t1 * v ( h3 h4 h9 h10 )_v @@ -1071,7 +1071,7 @@ C i0 ( p1 p2 h9 h10 )_vt1 + = 1/2 * Sum ( h3 h4 ) * t1 ( p1 p2 h3 h4 )_t1 * END SUBROUTINE mbpt2_t2_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t2.F,v 1.4 2007-09-19 22:11:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1 + = 1 * P( 4 ) * Sum ( h4 p3 ) * t1 ( p1 p3 h4 h9 )_t1 * v ( h4 p2 h10 p3 )_v @@ -1273,7 +1273,7 @@ C i0 ( p1 p2 h9 h10 )_vt1 + = 1 * P( 4 ) * Sum ( h4 p3 ) * t1 ( p1 p3 h4 h9 END SUBROUTINE mbpt2_t2_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t2.F,v 1.4 2007-09-19 22:11:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1 + = 1/2 * Sum ( p3 p4 ) * t1 ( p3 p4 h9 h10 )_t1 * v ( p1 p2 p3 p4 )_v diff --git a/src/tce/mbpt2/mbpt2_t2_b.F b/src/tce/mbpt2/mbpt2_t2_b.F index f238653dea..01141a4e02 100644 --- a/src/tce/mbpt2/mbpt2_t2_b.F +++ b/src/tce/mbpt2/mbpt2_t2_b.F @@ -1,7 +1,7 @@ SUBROUTINE mbpt2_t2_b(d_f1,d_i0,d_t11,d_t12,d_t21,d_t22,d_v2,k_f1_ &offset,k_i0_offset,k_t11_offset,k_t12_offset,k_t21_offset,k_t22_of &fset,k_v2_offset) -C $Id: mbpt2_t2_b.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t2f + = 1 * P( 4 ) * t2 ( p1 h9 )_t2 * f ( p2 h10 )_f @@ -52,7 +52,7 @@ C i0 ( p1 p2 h9 h10 )_vt1 + = 1/2 * Sum ( p3 p4 ) * t1 ( p3 p4 h9 h10 )_t1 * END SUBROUTINE mbpt2_t2_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: mbpt2_t2_b.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t2f + = 1 * P( 4 ) * t2 ( p1 h9 )_t2 * f ( p2 h10 )_f @@ -211,7 +211,7 @@ C i0 ( p1 p2 h9 h10 )_t2f + = 1 * P( 4 ) * t2 ( p1 h9 )_t2 * f ( p2 h10 )_f END SUBROUTINE mbpt2_t2_b_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: mbpt2_t2_b.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t2f + = 1 * P( 2 ) * Sum ( h3 ) * t2 ( p1 p2 h3 h9 )_t2 * f ( h3 h10 )_f @@ -373,7 +373,7 @@ C i0 ( p1 p2 h9 h10 )_t2f + = 1 * P( 2 ) * Sum ( h3 ) * t2 ( p1 p2 h3 h9 )_t END SUBROUTINE mbpt2_t2_b_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: mbpt2_t2_b.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t2f + = 1 * P( 2 ) * Sum ( p3 ) * t2 ( p1 p3 h9 h10 )_t2 * f ( p2 p3 )_f @@ -535,7 +535,7 @@ C i0 ( p1 p2 h9 h10 )_t2f + = 1 * P( 2 ) * Sum ( p3 ) * t2 ( p1 p3 h9 h10 )_ END SUBROUTINE mbpt2_t2_b_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: mbpt2_t2_b.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1 + = -1 * P( 2 ) * Sum ( h3 ) * t1 ( p1 h3 )_t1 * v ( h3 p2 h9 h10 )_v @@ -688,7 +688,7 @@ C i0 ( p1 p2 h9 h10 )_vt1 + = -1 * P( 2 ) * Sum ( h3 ) * t1 ( p1 h3 )_t1 * v END SUBROUTINE mbpt2_t2_b_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: mbpt2_t2_b.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1 + = -1 * P( 2 ) * Sum ( p3 ) * t1 ( p3 h9 )_t1 * v ( p1 p2 h10 p3 )_v @@ -841,7 +841,7 @@ C i0 ( p1 p2 h9 h10 )_vt1 + = -1 * P( 2 ) * Sum ( p3 ) * t1 ( p3 h9 )_t1 * v END SUBROUTINE mbpt2_t2_b_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: mbpt2_t2_b.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1 + = 1/2 * Sum ( h3 h4 ) * t1 ( p1 p2 h3 h4 )_t1 * v ( h3 h4 h9 h10 )_v @@ -1001,7 +1001,7 @@ C i0 ( p1 p2 h9 h10 )_vt1 + = 1/2 * Sum ( h3 h4 ) * t1 ( p1 p2 h3 h4 )_t1 * END SUBROUTINE mbpt2_t2_b_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: mbpt2_t2_b.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1 + = 1 * P( 4 ) * Sum ( h4 p3 ) * t1 ( p1 p3 h4 h9 )_t1 * v ( h4 p2 h10 p3 )_v @@ -1203,7 +1203,7 @@ C i0 ( p1 p2 h9 h10 )_vt1 + = 1 * P( 4 ) * Sum ( h4 p3 ) * t1 ( p1 p3 h4 h9 END SUBROUTINE mbpt2_t2_b_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: mbpt2_t2_b.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1 + = 1/2 * Sum ( p3 p4 ) * t1 ( p3 p4 h9 h10 )_t1 * v ( p1 p2 p3 p4 )_v diff --git a/src/tce/mbpt2/mbpt2_t2_sd.F b/src/tce/mbpt2/mbpt2_t2_sd.F index d0bdc86032..1fd077852e 100644 --- a/src/tce/mbpt2/mbpt2_t2_sd.F +++ b/src/tce/mbpt2/mbpt2_t2_sd.F @@ -1,6 +1,6 @@ SUBROUTINE mbpt2_t2_sd(d_f1,d_i0,d_t11,d_t12,d_t22,d_v2,k_f1_offse &t,k_i0_offset,k_t11_offset,k_t12_offset,k_t22_offset,k_v2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t2f + = 1 * P( 2 ) * Sum ( h3 ) * t2 ( p1 p2 h3 h9 )_t2 * f ( h3 h10 )_f @@ -46,7 +46,7 @@ C i0 ( p1 p2 h9 h10 )_vt1 + = 1/2 * Sum ( p3 p4 ) * t1 ( p3 p4 h9 h10 )_t1 * END SUBROUTINE mbpt2_t2_sd_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t2f + = 1 * P( 2 ) * Sum ( h3 ) * t2 ( p1 p2 h3 h9 )_t2 * f ( h3 h10 )_f @@ -209,7 +209,7 @@ C i0 ( p1 p2 h9 h10 )_t2f + = 1 * P( 2 ) * Sum ( h3 ) * t2 ( p1 p2 h3 h9 )_t END SUBROUTINE mbpt2_t2_sd_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t2f + = 1 * P( 2 ) * Sum ( p3 ) * t2 ( p1 p3 h9 h10 )_t2 * f ( p2 p3 )_f @@ -372,7 +372,7 @@ C i0 ( p1 p2 h9 h10 )_t2f + = 1 * P( 2 ) * Sum ( p3 ) * t2 ( p1 p3 h9 h10 )_ END SUBROUTINE mbpt2_t2_sd_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1 + = -1 * P( 2 ) * Sum ( h3 ) * t1 ( p1 h3 )_t1 * v ( h3 p2 h9 h10 )_v @@ -526,7 +526,7 @@ C i0 ( p1 p2 h9 h10 )_vt1 + = -1 * P( 2 ) * Sum ( h3 ) * t1 ( p1 h3 )_t1 * v END SUBROUTINE mbpt2_t2_sd_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1 + = -1 * P( 2 ) * Sum ( p3 ) * t1 ( p3 h9 )_t1 * v ( p1 p2 h10 p3 )_v @@ -680,7 +680,7 @@ C i0 ( p1 p2 h9 h10 )_vt1 + = -1 * P( 2 ) * Sum ( p3 ) * t1 ( p3 h9 )_t1 * v END SUBROUTINE mbpt2_t2_sd_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1 + = 1/2 * Sum ( h3 h4 ) * t1 ( p1 p2 h3 h4 )_t1 * v ( h3 h4 h9 h10 )_v @@ -841,7 +841,7 @@ C i0 ( p1 p2 h9 h10 )_vt1 + = 1/2 * Sum ( h3 h4 ) * t1 ( p1 p2 h3 h4 )_t1 * END SUBROUTINE mbpt2_t2_sd_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1 + = 1 * P( 4 ) * Sum ( h4 p3 ) * t1 ( p1 p3 h4 h9 )_t1 * v ( h4 p2 h10 p3 )_v @@ -1044,7 +1044,7 @@ C i0 ( p1 p2 h9 h10 )_vt1 + = 1 * P( 4 ) * Sum ( h4 p3 ) * t1 ( p1 p3 h4 h9 END SUBROUTINE mbpt2_t2_sd_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1 + = 1/2 * Sum ( p3 p4 ) * t1 ( p3 p4 h9 h10 )_t1 * v ( p1 p2 p3 p4 )_v diff --git a/src/tce/mbpt2/mbpt2_t3.F b/src/tce/mbpt2/mbpt2_t3.F index 7cf6d2d542..17456f7546 100644 --- a/src/tce/mbpt2/mbpt2_t3.F +++ b/src/tce/mbpt2/mbpt2_t3.F @@ -1,7 +1,7 @@ SUBROUTINE mbpt2_t3(d_f1,d_i0,d_t11,d_t12,d_t22,d_t23,d_v2,k_f1_of &fset,k_i0_offset,k_t11_offset,k_t12_offset,k_t22_offset,k_t23_offs &et,k_v2_offset) -C $Id: mbpt2_t3.F,v 1.4 2007-09-19 22:12:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 h9 h10 h11 )_t2f + = 1 * P( 9 ) * t2 ( p1 p2 h9 h10 )_t2 * f ( p3 h11 )_f @@ -76,7 +76,7 @@ C i0 ( p1 p2 p3 h9 h10 h11 )_vt1 + = -1 * P( 9 ) * Sum ( p4 ) * t1 ( p1 p4 h END SUBROUTINE mbpt2_t3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t3.F,v 1.4 2007-09-19 22:12:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 h9 h10 h11 )_t2f + = 1 * P( 9 ) * t2 ( p1 p2 h9 h10 )_t2 * f ( p3 h11 )_f @@ -295,7 +295,7 @@ C i0 ( p1 p2 p3 h9 h10 h11 )_t2f + = 1 * P( 9 ) * t2 ( p1 p2 h9 h10 )_t2 * f END SUBROUTINE mbpt2_t3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t3.F,v 1.4 2007-09-19 22:12:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 h9 h10 h11 )_t2f + = -1 * P( 3 ) * Sum ( h4 ) * t2 ( p1 p2 p3 h4 h9 h10 )_t2 * f ( h4 h11 )_f @@ -490,7 +490,7 @@ C i0 ( p1 p2 p3 h9 h10 h11 )_t2f + = -1 * P( 3 ) * Sum ( h4 ) * t2 ( p1 p2 p END SUBROUTINE mbpt2_t3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t3.F,v 1.4 2007-09-19 22:12:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 h9 h10 h11 )_t2f + = 1 * P( 3 ) * Sum ( p4 ) * t2 ( p1 p2 p4 h9 h10 h11 )_t2 * f ( p3 p4 )_f @@ -685,7 +685,7 @@ C i0 ( p1 p2 p3 h9 h10 h11 )_t2f + = 1 * P( 3 ) * Sum ( p4 ) * t2 ( p1 p2 p4 END SUBROUTINE mbpt2_t3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t3.F,v 1.4 2007-09-19 22:12:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 h9 h10 h11 )_ft1t1 + = 1 * P( 9 ) * t1 ( p1 p2 h9 h10 )_t1 * i1 ( p3 h11 )_ft1 @@ -905,7 +905,7 @@ C i0 ( p1 p2 p3 h9 h10 h11 )_ft1t1 + = 1 * P( 9 ) * t1 ( p1 p2 h9 h10 )_t1 * END SUBROUTINE mbpt2_t3_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: mbpt2_t3.F,v 1.4 2007-09-19 22:12:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 h9 )_ft1 + = -1 * Sum ( h5 p4 ) * t1 ( p1 p4 h5 h9 )_t1 * f ( h5 p4 )_f @@ -1063,7 +1063,7 @@ C i1 ( p1 h9 )_ft1 + = -1 * Sum ( h5 p4 ) * t1 ( p1 p4 h5 h9 )_t1 * f ( h5 p RETURN END SUBROUTINE OFFSET_mbpt2_t3_4_1(l_a_offset,k_a_offset,size) -C $Id: mbpt2_t3.F,v 1.4 2007-09-19 22:12:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 h9 )_ft1 @@ -1119,7 +1119,7 @@ C i1 ( p1 h9 )_ft1 END SUBROUTINE mbpt2_t3_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t3.F,v 1.4 2007-09-19 22:12:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 h9 h10 h11 )_ft1t1 + = 1 * P( 9 ) * Sum ( h6 ) * t1 ( p1 p2 h6 h9 )_t1 * i1 ( h6 p3 h10 h11 )_ft1 @@ -1357,7 +1357,7 @@ C i0 ( p1 p2 p3 h9 h10 h11 )_ft1t1 + = 1 * P( 9 ) * Sum ( h6 ) * t1 ( p1 p2 END SUBROUTINE mbpt2_t3_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: mbpt2_t3.F,v 1.4 2007-09-19 22:12:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p1 h9 h10 )_ft1 + = -1 * Sum ( p4 ) * t1 ( p1 p4 h9 h10 )_t1 * f ( h6 p4 )_f @@ -1508,7 +1508,7 @@ C i1 ( h6 p1 h9 h10 )_ft1 + = -1 * Sum ( p4 ) * t1 ( p1 p4 h9 h10 )_t1 * f ( RETURN END SUBROUTINE OFFSET_mbpt2_t3_5_1(l_a_offset,k_a_offset,size) -C $Id: mbpt2_t3.F,v 1.4 2007-09-19 22:12:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p1 h9 h10 )_ft1 @@ -1579,7 +1579,7 @@ C i1 ( h6 p1 h9 h10 )_ft1 RETURN END SUBROUTINE mbpt2_t3_5_2(d_a,k_a_offset,d_c,k_c_offset) -C $Id: mbpt2_t3.F,v 1.4 2007-09-19 22:12:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p1 h9 h10 )_v + = 1 * v ( h6 p1 h9 h10 )_v @@ -1679,7 +1679,7 @@ C i1 ( h6 p1 h9 h10 )_v + = 1 * v ( h6 p1 h9 h10 )_v END SUBROUTINE mbpt2_t3_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t3.F,v 1.4 2007-09-19 22:12:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 h9 h10 h11 )_vt1 + = 1 * P( 9 ) * t1 ( p1 h9 )_t1 * v ( p2 p3 h10 h11 )_v @@ -1897,7 +1897,7 @@ C i0 ( p1 p2 p3 h9 h10 h11 )_vt1 + = 1 * P( 9 ) * t1 ( p1 h9 )_t1 * v ( p2 p END SUBROUTINE mbpt2_t3_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t3.F,v 1.4 2007-09-19 22:12:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 h9 h10 h11 )_vt1 + = -1 * P( 9 ) * Sum ( p4 ) * t1 ( p1 p4 h9 h10 )_t1 * v ( p2 p3 h11 p4 )_v diff --git a/src/tce/mbpt2/mbpt2_t4.F b/src/tce/mbpt2/mbpt2_t4.F index 939993e33b..8df5a8f931 100644 --- a/src/tce/mbpt2/mbpt2_t4.F +++ b/src/tce/mbpt2/mbpt2_t4.F @@ -1,6 +1,6 @@ SUBROUTINE mbpt2_t4(d_f1,d_i0,d_t12,d_t23,d_t24,d_v2,k_f1_offset,k &_i0_offset,k_t12_offset,k_t23_offset,k_t24_offset,k_v2_offset) -C $Id: mbpt2_t4.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p30 h9 h10 h11 h38 )_t2f + = 1 * P( 16 ) * t2 ( p1 p2 p3 h9 h10 h11 )_t2 * f ( p30 h38 )_f @@ -37,7 +37,7 @@ C i0 ( p1 p2 p3 p30 h9 h10 h11 h38 )_vt1 + = 1 * P( 36 ) * t1 ( p1 p2 h9 h10 END SUBROUTINE mbpt2_t4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t4.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p30 h9 h10 h11 h38 )_t2f + = 1 * P( 16 ) * t2 ( p1 p2 p3 h9 h10 h11 )_t2 * f ( p30 h38 )_f @@ -367,7 +367,7 @@ C i0 ( p1 p2 p3 p30 h9 h10 h11 h38 )_t2f + = 1 * P( 16 ) * t2 ( p1 p2 p3 h9 END SUBROUTINE mbpt2_t4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t4.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p30 h9 h10 h11 h38 )_t2f + = 1 * P( 4 ) * Sum ( h4 ) * t2 ( p1 p2 p3 p30 h4 h9 h10 h11 )_t2 * f ( h4 h38 )_f @@ -604,7 +604,7 @@ C i0 ( p1 p2 p3 p30 h9 h10 h11 h38 )_t2f + = 1 * P( 4 ) * Sum ( h4 ) * t2 ( END SUBROUTINE mbpt2_t4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t4.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p30 h9 h10 h11 h38 )_t2f + = 1 * P( 4 ) * Sum ( p4 ) * t2 ( p1 p2 p3 p4 h9 h10 h11 h38 )_t2 * f ( p30 p4 )_f @@ -841,7 +841,7 @@ C i0 ( p1 p2 p3 p30 h9 h10 h11 h38 )_t2f + = 1 * P( 4 ) * Sum ( p4 ) * t2 ( END SUBROUTINE mbpt2_t4_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t4.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p30 h9 h10 h11 h38 )_vt1 + = 1 * P( 36 ) * t1 ( p1 p2 h9 h10 )_t1 * v ( p3 p30 h11 h38 )_v diff --git a/src/tce/mbpt3/GNUmakefile b/src/tce/mbpt3/GNUmakefile index 15af3e50aa..d9266be1db 100644 --- a/src/tce/mbpt3/GNUmakefile +++ b/src/tce/mbpt3/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.2 2005/12/20 21:19:40 edo Exp $ +#$Id$ OBJ_OPTIMIZE = mbpt3_e.o mbpt3_t1.o mbpt3_t2.o mbpt3_t1_sd.o mbpt3_t2_sd.o diff --git a/src/tce/mbpt3/mbpt3_e.F b/src/tce/mbpt3/mbpt3_e.F index ddb4e8e559..b8fb038d98 100644 --- a/src/tce/mbpt3/mbpt3_e.F +++ b/src/tce/mbpt3/mbpt3_e.F @@ -1,6 +1,6 @@ SUBROUTINE mbpt3_e(d_i0,d_t22,d_v2,k_i0_offset,k_t22_offset,k_v2_o &ffset) -C $Id: mbpt3_e.F,v 1.3 2005-12-16 22:04:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vt2 + = 1/4 * Sum ( h3 h4 p1 p2 ) * t2 ( p1 p2 h3 h4 )_t2 * v ( h3 h4 p1 p2 )_v @@ -21,7 +21,7 @@ C i0 ( )_vt2 + = 1/4 * Sum ( h3 h4 p1 p2 ) * t2 ( p1 p2 h3 h4 )_t2 * v ( h3 RETURN END SUBROUTINE mbpt3_e_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: mbpt3_e.F,v 1.3 2005-12-16 22:04:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vt2 + = 1/4 * Sum ( h3 h4 p1 p2 ) * t2 ( p1 p2 h3 h4 )_t2 * v ( h3 h4 p1 p2 )_v diff --git a/src/tce/mbpt3/mbpt3_t1.F b/src/tce/mbpt3/mbpt3_t1.F index 46b3c4783b..94fba67278 100644 --- a/src/tce/mbpt3/mbpt3_t1.F +++ b/src/tce/mbpt3/mbpt3_t1.F @@ -2,7 +2,7 @@ &d_t32,d_v2,k_e20_offset,k_f1_offset,k_i0_offset,k_t11_offset,k_t21 &_offset,k_t22_offset,k_t23_offset,k_t31_offset,k_t32_offset,k_v2_o &ffset) -C $Id: mbpt3_t1.F,v 1.3 2005-12-16 22:04:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t3f + = -1 * Sum ( h2 ) * t3 ( p1 h2 )_t3 * f ( h2 h9 )_f @@ -59,7 +59,7 @@ C i0 ( p1 h9 )_t1e2 + = -1 * e2 ( )_e2 * t1 ( p1 h9 )_t1 END SUBROUTINE mbpt3_t1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt3_t1.F,v 1.3 2005-12-16 22:04:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t3f + = -1 * Sum ( h2 ) * t3 ( p1 h2 )_t3 * f ( h2 h9 )_f @@ -184,7 +184,7 @@ C i0 ( p1 h9 )_t3f + = -1 * Sum ( h2 ) * t3 ( p1 h2 )_t3 * f ( h2 h9 )_f END SUBROUTINE mbpt3_t1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt3_t1.F,v 1.3 2005-12-16 22:04:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t3f + = 1 * Sum ( p2 ) * t3 ( p2 h9 )_t3 * f ( p1 p2 )_f @@ -309,7 +309,7 @@ C i0 ( p1 h9 )_t3f + = 1 * Sum ( p2 ) * t3 ( p2 h9 )_t3 * f ( p1 p2 )_f END SUBROUTINE mbpt3_t1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt3_t1.F,v 1.3 2005-12-16 22:04:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t3f + = -1 * Sum ( p3 h2 ) * t3 ( p1 p3 h2 h9 )_t3 * f ( h2 p3 )_f @@ -468,7 +468,7 @@ C i0 ( p1 h9 )_t3f + = -1 * Sum ( p3 h2 ) * t3 ( p1 p3 h2 h9 )_t3 * f ( h2 p END SUBROUTINE mbpt3_t1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt3_t1.F,v 1.3 2005-12-16 22:04:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_vt2 + = -1 * Sum ( h3 p2 ) * t2 ( p2 h3 )_t2 * v ( h3 p1 h9 p2 )_v @@ -602,7 +602,7 @@ C i0 ( p1 h9 )_vt2 + = -1 * Sum ( h3 p2 ) * t2 ( p2 h3 )_t2 * v ( h3 p1 h9 p END SUBROUTINE mbpt3_t1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt3_t1.F,v 1.3 2005-12-16 22:04:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_vt2 + = -1/2 * Sum ( h3 h4 p2 ) * t2 ( p1 p2 h3 h4 )_t2 * v ( h3 h4 h9 p2 )_v @@ -767,7 +767,7 @@ C i0 ( p1 h9 )_vt2 + = -1/2 * Sum ( h3 h4 p2 ) * t2 ( p1 p2 h3 h4 )_t2 * v ( END SUBROUTINE mbpt3_t1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt3_t1.F,v 1.3 2005-12-16 22:04:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_vt2 + = 1/2 * Sum ( h4 p2 p3 ) * t2 ( p2 p3 h4 h9 )_t2 * v ( h4 p1 p2 p3 )_v @@ -932,7 +932,7 @@ C i0 ( p1 h9 )_vt2 + = 1/2 * Sum ( h4 p2 p3 ) * t2 ( p2 p3 h4 h9 )_t2 * v ( END SUBROUTINE mbpt3_t1_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt3_t1.F,v 1.3 2005-12-16 22:04:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_vt2 + = 1/4 * Sum ( h4 h5 p2 p3 ) * t2 ( p1 p2 p3 h4 h5 h9 )_t2 * v ( h4 h5 p2 p3 )_v @@ -1171,7 +1171,7 @@ C i0 ( p1 h9 )_vt2 + = 1/4 * Sum ( h4 h5 p2 p3 ) * t2 ( p1 p2 p3 h4 h5 h9 )_ END SUBROUTINE mbpt3_t1_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt3_t1.F,v 1.3 2005-12-16 22:04:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t1e2 + = -1 * e2 ( )_e2 * t1 ( p1 h9 )_t1 diff --git a/src/tce/mbpt3/mbpt3_t1_sd.F b/src/tce/mbpt3/mbpt3_t1_sd.F index 5ab8d0fdaf..71eba290fa 100644 --- a/src/tce/mbpt3/mbpt3_t1_sd.F +++ b/src/tce/mbpt3/mbpt3_t1_sd.F @@ -1,7 +1,7 @@ SUBROUTINE mbpt3_t1_sd(d_e20,d_f1,d_i0,d_t11,d_t21,d_t22,d_t31,d_t &32,d_v2,k_e20_offset,k_f1_offset,k_i0_offset,k_t11_offset,k_t21_of &fset,k_t22_offset,k_t31_offset,k_t32_offset,k_v2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t3f + = -1 * Sum ( h2 ) * t3 ( p1 h2 )_t3 * f ( h2 h9 )_f @@ -53,7 +53,7 @@ C i0 ( p1 h9 )_t1e2 + = -1 * e2 ( )_e2 * t1 ( p1 h9 )_t1 END SUBROUTINE mbpt3_t1_sd_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t3f + = -1 * Sum ( h2 ) * t3 ( p1 h2 )_t3 * f ( h2 h9 )_f @@ -179,7 +179,7 @@ C i0 ( p1 h9 )_t3f + = -1 * Sum ( h2 ) * t3 ( p1 h2 )_t3 * f ( h2 h9 )_f END SUBROUTINE mbpt3_t1_sd_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t3f + = 1 * Sum ( p2 ) * t3 ( p2 h9 )_t3 * f ( p1 p2 )_f @@ -305,7 +305,7 @@ C i0 ( p1 h9 )_t3f + = 1 * Sum ( p2 ) * t3 ( p2 h9 )_t3 * f ( p1 p2 )_f END SUBROUTINE mbpt3_t1_sd_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t3f + = -1 * Sum ( p3 h2 ) * t3 ( p1 p3 h2 h9 )_t3 * f ( h2 p3 )_f @@ -465,7 +465,7 @@ C i0 ( p1 h9 )_t3f + = -1 * Sum ( p3 h2 ) * t3 ( p1 p3 h2 h9 )_t3 * f ( h2 p END SUBROUTINE mbpt3_t1_sd_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_vt2 + = -1 * Sum ( h3 p2 ) * t2 ( p2 h3 )_t2 * v ( h3 p1 h9 p2 )_v @@ -600,7 +600,7 @@ C i0 ( p1 h9 )_vt2 + = -1 * Sum ( h3 p2 ) * t2 ( p2 h3 )_t2 * v ( h3 p1 h9 p END SUBROUTINE mbpt3_t1_sd_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_vt2 + = -1/2 * Sum ( h3 h4 p2 ) * t2 ( p1 p2 h3 h4 )_t2 * v ( h3 h4 h9 p2 )_v @@ -766,7 +766,7 @@ C i0 ( p1 h9 )_vt2 + = -1/2 * Sum ( h3 h4 p2 ) * t2 ( p1 p2 h3 h4 )_t2 * v ( END SUBROUTINE mbpt3_t1_sd_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_vt2 + = 1/2 * Sum ( h4 p2 p3 ) * t2 ( p2 p3 h4 h9 )_t2 * v ( h4 p1 p2 p3 )_v @@ -932,7 +932,7 @@ C i0 ( p1 h9 )_vt2 + = 1/2 * Sum ( h4 p2 p3 ) * t2 ( p2 p3 h4 h9 )_t2 * v ( END SUBROUTINE mbpt3_t1_sd_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t1e2 + = -1 * e2 ( )_e2 * t1 ( p1 h9 )_t1 diff --git a/src/tce/mbpt3/mbpt3_t2.F b/src/tce/mbpt3/mbpt3_t2.F index 0b7686f289..246c2a3d5f 100644 --- a/src/tce/mbpt3/mbpt3_t2.F +++ b/src/tce/mbpt3/mbpt3_t2.F @@ -2,7 +2,7 @@ &d_t32,d_v2,k_e20_offset,k_f1_offset,k_i0_offset,k_t12_offset,k_t21 &_offset,k_t22_offset,k_t23_offset,k_t31_offset,k_t32_offset,k_v2_o &ffset) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t3f + = 1 * P( 4 ) * t3 ( p1 h9 )_t3 * f ( p2 h10 )_f @@ -137,7 +137,7 @@ C i1 ( h4 p1 h9 p3 )_vt1 + = -1 * Sum ( h6 p5 ) * t1 ( p1 p5 h6 h9 )_t1 END SUBROUTINE mbpt3_t2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t3f + = 1 * P( 4 ) * t3 ( p1 h9 )_t3 * f ( p2 h10 )_f @@ -296,7 +296,7 @@ C i0 ( p1 p2 h9 h10 )_t3f + = 1 * P( 4 ) * t3 ( p1 h9 )_t3 * f ( p2 h10 )_f END SUBROUTINE mbpt3_t2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t3f + = 1 * P( 2 ) * Sum ( h3 ) * t3 ( p1 p2 h3 h9 )_t3 * f ( h3 h10 )_f @@ -458,7 +458,7 @@ C i0 ( p1 p2 h9 h10 )_t3f + = 1 * P( 2 ) * Sum ( h3 ) * t3 ( p1 p2 h3 h9 )_t END SUBROUTINE mbpt3_t2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t3f + = 1 * P( 2 ) * Sum ( p3 ) * t3 ( p1 p3 h9 h10 )_t3 * f ( p2 p3 )_f @@ -620,7 +620,7 @@ C i0 ( p1 p2 h9 h10 )_t3f + = 1 * P( 2 ) * Sum ( p3 ) * t3 ( p1 p3 h9 h10 )_ END SUBROUTINE mbpt3_t2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt2 + = -1 * P( 2 ) * Sum ( h3 ) * t2 ( p1 h3 )_t2 * v ( h3 p2 h9 h10 )_v @@ -773,7 +773,7 @@ C i0 ( p1 p2 h9 h10 )_vt2 + = -1 * P( 2 ) * Sum ( h3 ) * t2 ( p1 h3 )_t2 * v END SUBROUTINE mbpt3_t2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt2 + = -1 * P( 2 ) * Sum ( p3 ) * t2 ( p3 h9 )_t2 * v ( p1 p2 h10 p3 )_v @@ -926,7 +926,7 @@ C i0 ( p1 p2 h9 h10 )_vt2 + = -1 * P( 2 ) * Sum ( p3 ) * t2 ( p3 h9 )_t2 * v END SUBROUTINE mbpt3_t2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt2 + = 1/2 * Sum ( h3 h4 ) * t2 ( p1 p2 h3 h4 )_t2 * v ( h3 h4 h9 h10 )_v @@ -1086,7 +1086,7 @@ C i0 ( p1 p2 h9 h10 )_vt2 + = 1/2 * Sum ( h3 h4 ) * t2 ( p1 p2 h3 h4 )_t2 * END SUBROUTINE mbpt3_t2_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt2 + = 1 * P( 4 ) * Sum ( h4 p3 ) * t2 ( p1 p3 h4 h9 )_t2 * v ( h4 p2 h10 p3 )_v @@ -1288,7 +1288,7 @@ C i0 ( p1 p2 h9 h10 )_vt2 + = 1 * P( 4 ) * Sum ( h4 p3 ) * t2 ( p1 p3 h4 h9 END SUBROUTINE mbpt3_t2_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt2 + = 1/2 * Sum ( p3 p4 ) * t2 ( p3 p4 h9 h10 )_t2 * v ( p1 p2 p3 p4 )_v @@ -1448,7 +1448,7 @@ C i0 ( p1 p2 h9 h10 )_vt2 + = 1/2 * Sum ( p3 p4 ) * t2 ( p3 p4 h9 h10 )_t2 * END SUBROUTINE mbpt3_t2_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt2 + = -1/2 * P( 2 ) * Sum ( h4 h5 p3 ) * t2 ( p1 p2 p3 h4 h5 h9 )_t2 * v ( h4 h5 h10 p3 )_v @@ -1697,7 +1697,7 @@ C i0 ( p1 p2 h9 h10 )_vt2 + = -1/2 * P( 2 ) * Sum ( h4 h5 p3 ) * t2 ( p1 p2 END SUBROUTINE mbpt3_t2_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt2 + = -1/2 * P( 2 ) * Sum ( h5 p3 p4 ) * t2 ( p1 p3 p4 h5 h9 h10 )_t2 * v ( h5 p2 p3 p4 )_v @@ -1958,7 +1958,7 @@ C i0 ( p1 p2 h9 h10 )_vt2 + = -1/2 * P( 2 ) * Sum ( h5 p3 p4 ) * t2 ( p1 p3 END SUBROUTINE mbpt3_t2_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1t1 + = 1/4 * t1 ( p1 p2 h9 h10 )_t1 * i1 ( )_vt1 @@ -2092,7 +2092,7 @@ C i0 ( p1 p2 h9 h10 )_vt1t1 + = 1/4 * t1 ( p1 p2 h9 h10 )_t1 * i1 ( )_vt1 END SUBROUTINE mbpt3_t2_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_vt1 + = 1 * Sum ( h5 h6 p3 p4 ) * t1 ( p3 p4 h5 h6 )_t1 * v ( h5 h6 p3 p4 )_v @@ -2245,7 +2245,7 @@ C i1 ( )_vt1 + = 1 * Sum ( h5 h6 p3 p4 ) * t1 ( p3 p4 h5 h6 )_t1 * v ( h5 h6 RETURN END SUBROUTINE OFFSET_mbpt3_t2_11_1(l_a_offset,k_a_offset,size) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_vt1 @@ -2278,7 +2278,7 @@ C i1 ( )_vt1 RETURN END SUBROUTINE mbpt3_t2_11_2(d_a,k_a_offset,d_c,k_c_offset) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_e2 + = -4 * e2 ( )_e2 @@ -2342,7 +2342,7 @@ C i1 ( )_e2 + = -4 * e2 ( )_e2 END SUBROUTINE mbpt3_t2_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1t1 + = -1/2 * P( 2 ) * Sum ( p3 ) * t1 ( p1 p3 h9 h10 )_t1 * i1 ( p2 p3 )_vt1 @@ -2504,7 +2504,7 @@ C i0 ( p1 p2 h9 h10 )_vt1t1 + = -1/2 * P( 2 ) * Sum ( p3 ) * t1 ( p1 p3 h9 h END SUBROUTINE mbpt3_t2_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_vt1 + = 1 * Sum ( h5 h6 p4 ) * t1 ( p1 p4 h5 h6 )_t1 * v ( h5 h6 p3 p4 )_v @@ -2677,7 +2677,7 @@ C i1 ( p1 p3 )_vt1 + = 1 * Sum ( h5 h6 p4 ) * t1 ( p1 p4 h5 h6 )_t1 * v ( h5 RETURN END SUBROUTINE OFFSET_mbpt3_t2_12_1(l_a_offset,k_a_offset,size) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_vt1 @@ -2733,7 +2733,7 @@ C i1 ( p1 p3 )_vt1 END SUBROUTINE mbpt3_t2_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1t1 + = 1/4 * Sum ( h3 h4 ) * t1 ( p1 p2 h3 h4 )_t1 * i1 ( h3 h4 h9 h10 )_vt1 @@ -2893,7 +2893,7 @@ C i0 ( p1 p2 h9 h10 )_vt1t1 + = 1/4 * Sum ( h3 h4 ) * t1 ( p1 p2 h3 h4 )_t1 END SUBROUTINE mbpt3_t2_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_vt1 + = 1 * Sum ( p5 p6 ) * t1 ( p5 p6 h9 h10 )_t1 * v ( h3 h4 p5 p6 )_v @@ -3052,7 +3052,7 @@ C i1 ( h3 h4 h9 h10 )_vt1 + = 1 * Sum ( p5 p6 ) * t1 ( p5 p6 h9 h10 )_t1 * v RETURN END SUBROUTINE OFFSET_mbpt3_t2_13_1(l_a_offset,k_a_offset,size) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_vt1 @@ -3124,7 +3124,7 @@ C i1 ( h3 h4 h9 h10 )_vt1 END SUBROUTINE mbpt3_t2_14(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1t1 + = 1/2 * P( 2 ) * Sum ( h3 ) * t1 ( p1 p2 h3 h9 )_t1 * i1 ( h3 h10 )_vt1 @@ -3286,7 +3286,7 @@ C i0 ( p1 p2 h9 h10 )_vt1t1 + = 1/2 * P( 2 ) * Sum ( h3 ) * t1 ( p1 p2 h3 h9 END SUBROUTINE mbpt3_t2_14_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vt1 + = -1 * Sum ( h6 p4 p5 ) * t1 ( p4 p5 h6 h9 )_t1 * v ( h3 h6 p4 p5 )_v @@ -3459,7 +3459,7 @@ C i1 ( h3 h9 )_vt1 + = -1 * Sum ( h6 p4 p5 ) * t1 ( p4 p5 h6 h9 )_t1 * v ( h RETURN END SUBROUTINE OFFSET_mbpt3_t2_14_1(l_a_offset,k_a_offset,size) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vt1 @@ -3515,7 +3515,7 @@ C i1 ( h3 h9 )_vt1 END SUBROUTINE mbpt3_t2_15(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1t1 + = -1/2 * P( 4 ) * Sum ( h4 p3 ) * t1 ( p1 p3 h4 h9 )_t1 * i1 ( h4 p2 h10 p3 )_vt1 @@ -3715,7 +3715,7 @@ C i0 ( p1 p2 h9 h10 )_vt1t1 + = -1/2 * P( 4 ) * Sum ( h4 p3 ) * t1 ( p1 p3 h END SUBROUTINE mbpt3_t2_15_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p1 h9 p3 )_vt1 + = -1 * Sum ( h6 p5 ) * t1 ( p1 p5 h6 h9 )_t1 * v ( h4 h6 p3 p5 )_v @@ -3915,7 +3915,7 @@ C i1 ( h4 p1 h9 p3 )_vt1 + = -1 * Sum ( h6 p5 ) * t1 ( p1 p5 h6 h9 )_t1 * v RETURN END SUBROUTINE OFFSET_mbpt3_t2_15_1(l_a_offset,k_a_offset,size) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p1 h9 p3 )_vt1 diff --git a/src/tce/mbpt3/mbpt3_t2_sd.F b/src/tce/mbpt3/mbpt3_t2_sd.F index 05a58d6486..bfebe288b3 100644 --- a/src/tce/mbpt3/mbpt3_t2_sd.F +++ b/src/tce/mbpt3/mbpt3_t2_sd.F @@ -1,7 +1,7 @@ SUBROUTINE mbpt3_t2_sd(d_e20,d_f1,d_i0,d_t12,d_t21,d_t22,d_t31,d_t &32,d_v2,k_e20_offset,k_f1_offset,k_i0_offset,k_t12_offset,k_t21_of &fset,k_t22_offset,k_t31_offset,k_t32_offset,k_v2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t3f + = 1 * P( 4 ) * t3 ( p1 h9 )_t3 * f ( p2 h10 )_f @@ -128,7 +128,7 @@ C i1 ( h4 p1 h9 p3 )_vt1 + = -1 * Sum ( h6 p5 ) * t1 ( p1 p5 h6 h9 )_t1 END SUBROUTINE mbpt3_t2_sd_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t3f + = 1 * P( 4 ) * t3 ( p1 h9 )_t3 * f ( p2 h10 )_f @@ -288,7 +288,7 @@ C i0 ( p1 p2 h9 h10 )_t3f + = 1 * P( 4 ) * t3 ( p1 h9 )_t3 * f ( p2 h10 )_f END SUBROUTINE mbpt3_t2_sd_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t3f + = 1 * P( 2 ) * Sum ( h3 ) * t3 ( p1 p2 h3 h9 )_t3 * f ( h3 h10 )_f @@ -451,7 +451,7 @@ C i0 ( p1 p2 h9 h10 )_t3f + = 1 * P( 2 ) * Sum ( h3 ) * t3 ( p1 p2 h3 h9 )_t END SUBROUTINE mbpt3_t2_sd_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t3f + = 1 * P( 2 ) * Sum ( p3 ) * t3 ( p1 p3 h9 h10 )_t3 * f ( p2 p3 )_f @@ -614,7 +614,7 @@ C i0 ( p1 p2 h9 h10 )_t3f + = 1 * P( 2 ) * Sum ( p3 ) * t3 ( p1 p3 h9 h10 )_ END SUBROUTINE mbpt3_t2_sd_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt2 + = -1 * P( 2 ) * Sum ( h3 ) * t2 ( p1 h3 )_t2 * v ( h3 p2 h9 h10 )_v @@ -768,7 +768,7 @@ C i0 ( p1 p2 h9 h10 )_vt2 + = -1 * P( 2 ) * Sum ( h3 ) * t2 ( p1 h3 )_t2 * v END SUBROUTINE mbpt3_t2_sd_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt2 + = -1 * P( 2 ) * Sum ( p3 ) * t2 ( p3 h9 )_t2 * v ( p1 p2 h10 p3 )_v @@ -922,7 +922,7 @@ C i0 ( p1 p2 h9 h10 )_vt2 + = -1 * P( 2 ) * Sum ( p3 ) * t2 ( p3 h9 )_t2 * v END SUBROUTINE mbpt3_t2_sd_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt2 + = 1/2 * Sum ( h3 h4 ) * t2 ( p1 p2 h3 h4 )_t2 * v ( h3 h4 h9 h10 )_v @@ -1083,7 +1083,7 @@ C i0 ( p1 p2 h9 h10 )_vt2 + = 1/2 * Sum ( h3 h4 ) * t2 ( p1 p2 h3 h4 )_t2 * END SUBROUTINE mbpt3_t2_sd_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt2 + = 1 * P( 4 ) * Sum ( h4 p3 ) * t2 ( p1 p3 h4 h9 )_t2 * v ( h4 p2 h10 p3 )_v @@ -1286,7 +1286,7 @@ C i0 ( p1 p2 h9 h10 )_vt2 + = 1 * P( 4 ) * Sum ( h4 p3 ) * t2 ( p1 p3 h4 h9 END SUBROUTINE mbpt3_t2_sd_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt2 + = 1/2 * Sum ( p3 p4 ) * t2 ( p3 p4 h9 h10 )_t2 * v ( p1 p2 p3 p4 )_v @@ -1447,7 +1447,7 @@ C i0 ( p1 p2 h9 h10 )_vt2 + = 1/2 * Sum ( p3 p4 ) * t2 ( p3 p4 h9 h10 )_t2 * END SUBROUTINE mbpt3_t2_sd_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1t1 + = 1/4 * t1 ( p1 p2 h9 h10 )_t1 * i1 ( )_vt1 @@ -1582,7 +1582,7 @@ C i0 ( p1 p2 h9 h10 )_vt1t1 + = 1/4 * t1 ( p1 p2 h9 h10 )_t1 * i1 ( )_vt1 END SUBROUTINE mbpt3_t2_sd_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_vt1 + = 1 * Sum ( h5 h6 p3 p4 ) * t1 ( p3 p4 h5 h6 )_t1 * v ( h5 h6 p3 p4 )_v @@ -1737,7 +1737,7 @@ C i1 ( )_vt1 + = 1 * Sum ( h5 h6 p3 p4 ) * t1 ( p3 p4 h5 h6 )_t1 * v ( h5 h6 RETURN END SUBROUTINE OFFSET_mbpt3_t2_sd_9_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_vt1 @@ -1770,7 +1770,7 @@ C i1 ( )_vt1 RETURN END SUBROUTINE mbpt3_t2_sd_9_2(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_e2 + = -4 * e2 ( )_e2 @@ -1836,7 +1836,7 @@ C i1 ( )_e2 + = -4 * e2 ( )_e2 END SUBROUTINE mbpt3_t2_sd_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1t1 + = -1/2 * P( 2 ) * Sum ( p3 ) * t1 ( p1 p3 h9 h10 )_t1 * i1 ( p2 p3 )_vt1 @@ -2001,7 +2001,7 @@ C i0 ( p1 p2 h9 h10 )_vt1t1 + = -1/2 * P( 2 ) * Sum ( p3 ) * t1 ( p1 p3 h9 h END SUBROUTINE mbpt3_t2_sd_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_vt1 + = 1 * Sum ( h5 h6 p4 ) * t1 ( p1 p4 h5 h6 )_t1 * v ( h5 h6 p3 p4 )_v @@ -2176,7 +2176,7 @@ C i1 ( p1 p3 )_vt1 + = 1 * Sum ( h5 h6 p4 ) * t1 ( p1 p4 h5 h6 )_t1 * v ( h5 RETURN END SUBROUTINE OFFSET_mbpt3_t2_sd_10_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_vt1 @@ -2232,7 +2232,7 @@ C i1 ( p1 p3 )_vt1 END SUBROUTINE mbpt3_t2_sd_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1t1 + = 1/4 * Sum ( h3 h4 ) * t1 ( p1 p2 h3 h4 )_t1 * i1 ( h3 h4 h9 h10 )_vt1 @@ -2395,7 +2395,7 @@ C i0 ( p1 p2 h9 h10 )_vt1t1 + = 1/4 * Sum ( h3 h4 ) * t1 ( p1 p2 h3 h4 )_t1 END SUBROUTINE mbpt3_t2_sd_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_vt1 + = 1 * Sum ( p5 p6 ) * t1 ( p5 p6 h9 h10 )_t1 * v ( h3 h4 p5 p6 )_v @@ -2556,7 +2556,7 @@ C i1 ( h3 h4 h9 h10 )_vt1 + = 1 * Sum ( p5 p6 ) * t1 ( p5 p6 h9 h10 )_t1 * v RETURN END SUBROUTINE OFFSET_mbpt3_t2_sd_11_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_vt1 @@ -2628,7 +2628,7 @@ C i1 ( h3 h4 h9 h10 )_vt1 END SUBROUTINE mbpt3_t2_sd_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1t1 + = 1/2 * P( 2 ) * Sum ( h3 ) * t1 ( p1 p2 h3 h9 )_t1 * i1 ( h3 h10 )_vt1 @@ -2793,7 +2793,7 @@ C i0 ( p1 p2 h9 h10 )_vt1t1 + = 1/2 * P( 2 ) * Sum ( h3 ) * t1 ( p1 p2 h3 h9 END SUBROUTINE mbpt3_t2_sd_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vt1 + = -1 * Sum ( h6 p4 p5 ) * t1 ( p4 p5 h6 h9 )_t1 * v ( h3 h6 p4 p5 )_v @@ -2968,7 +2968,7 @@ C i1 ( h3 h9 )_vt1 + = -1 * Sum ( h6 p4 p5 ) * t1 ( p4 p5 h6 h9 )_t1 * v ( h RETURN END SUBROUTINE OFFSET_mbpt3_t2_sd_12_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vt1 @@ -3024,7 +3024,7 @@ C i1 ( h3 h9 )_vt1 END SUBROUTINE mbpt3_t2_sd_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1t1 + = -1/2 * P( 4 ) * Sum ( h4 p3 ) * t1 ( p1 p3 h4 h9 )_t1 * i1 ( h4 p2 h10 p3 )_vt1 @@ -3227,7 +3227,7 @@ C i0 ( p1 p2 h9 h10 )_vt1t1 + = -1/2 * P( 4 ) * Sum ( h4 p3 ) * t1 ( p1 p3 h END SUBROUTINE mbpt3_t2_sd_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p1 h9 p3 )_vt1 + = -1 * Sum ( h6 p5 ) * t1 ( p1 p5 h6 h9 )_t1 * v ( h4 h6 p3 p5 )_v @@ -3429,7 +3429,7 @@ C i1 ( h4 p1 h9 p3 )_vt1 + = -1 * Sum ( h6 p5 ) * t1 ( p1 p5 h6 h9 )_t1 * v RETURN END SUBROUTINE OFFSET_mbpt3_t2_sd_13_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p1 h9 p3 )_vt1 diff --git a/src/tce/mbpt4/GNUmakefile b/src/tce/mbpt4/GNUmakefile index d7b5b52e25..abc57f7f04 100644 --- a/src/tce/mbpt4/GNUmakefile +++ b/src/tce/mbpt4/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.2 2005-12-20 21:19:40 edo Exp $ +#$Id$ OBJ_OPTIMIZE = mbpt4_e.o diff --git a/src/tce/mbpt4/mbpt4_e.F b/src/tce/mbpt4/mbpt4_e.F index 6bd4845585..b83471e567 100644 --- a/src/tce/mbpt4/mbpt4_e.F +++ b/src/tce/mbpt4/mbpt4_e.F @@ -1,6 +1,6 @@ SUBROUTINE mbpt4_e(d_i0,d_t32,d_v2,k_i0_offset,k_t32_offset,k_v2_o &ffset) -C $Id: mbpt4_e.F,v 1.3 2005-12-16 22:04:29 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vt3 + = 1/4 * Sum ( h3 h4 p1 p2 ) * t3 ( p1 p2 h3 h4 )_t3 * v ( h3 h4 p1 p2 )_v @@ -21,7 +21,7 @@ C i0 ( )_vt3 + = 1/4 * Sum ( h3 h4 p1 p2 ) * t3 ( p1 p2 h3 h4 )_t3 * v ( h3 RETURN END SUBROUTINE mbpt4_e_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: mbpt4_e.F,v 1.3 2005-12-16 22:04:29 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vt3 + = 1/4 * Sum ( h3 h4 p1 p2 ) * t3 ( p1 p2 h3 h4 )_t3 * v ( h3 h4 p1 p2 )_v diff --git a/src/tce/oce.py b/src/tce/oce.py index 99c469f7bf..8e08b6a2bc 100644 --- a/src/tce/oce.py +++ b/src/tce/oce.py @@ -1,6 +1,6 @@ # Operator Contraction Engine v.1.0 # (c) All rights reserved by Battelle & Pacific Northwest Nat'l Lab (2002) -# $Id: oce.py,v 1.9 2004-04-20 21:42:05 sohirata Exp $ +# $Id$ import string diff --git a/src/tce/put_block.F b/src/tce/put_block.F index 1b875ceab1..25f01a7bd6 100644 --- a/src/tce/put_block.F +++ b/src/tce/put_block.F @@ -1,6 +1,6 @@ subroutine put_block(d_file,array,size,offset) c -c $Id: put_block.F,v 1.15 2008-06-09 19:19:54 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -147,7 +147,7 @@ c subroutine put_block_sf(d_file,array,size,offset) c -c $Id: put_block.F,v 1.15 2008-06-09 19:19:54 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/put_hash_block.F b/src/tce/put_hash_block.F index 242232757b..d9ee85f0e2 100644 --- a/src/tce/put_hash_block.F +++ b/src/tce/put_hash_block.F @@ -1,6 +1,6 @@ subroutine put_hash_block(d_file,array,size,hash,key) c -c $Id: put_hash_block.F,v 1.2 2008-06-09 19:19:53 jhammond Exp $ +c $Id$ c implicit none integer d_file @@ -22,7 +22,7 @@ c subroutine put_hash_block_sf(d_file,array,size,hash,key) c -c $Id: put_hash_block.F,v 1.2 2008-06-09 19:19:53 jhammond Exp $ +c $Id$ c implicit none integer d_file diff --git a/src/tce/qcisd/GNUmakefile b/src/tce/qcisd/GNUmakefile index 44273de0c1..7d47c121e3 100644 --- a/src/tce/qcisd/GNUmakefile +++ b/src/tce/qcisd/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.2 2005-12-20 21:19:40 edo Exp $ +#$Id$ OBJ_OPTIMIZE = qcisd_e.o qcisd_t1.o qcisd_t2.o diff --git a/src/tce/qcisd/qcisd_e.F b/src/tce/qcisd/qcisd_e.F index 93e9b24bc2..93b87d4aba 100644 --- a/src/tce/qcisd/qcisd_e.F +++ b/src/tce/qcisd/qcisd_e.F @@ -1,6 +1,6 @@ SUBROUTINE qcisd_e(d_i0,d_t2,d_v2,k_i0_offset,k_t2_offset,k_v2_off &set) -C $Id: qcisd_e.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 p1 p2 )_v @@ -20,7 +20,7 @@ C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 RETURN END SUBROUTINE qcisd_e_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: qcisd_e.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 p1 p2 )_v diff --git a/src/tce/qcisd/qcisd_t1.F b/src/tce/qcisd/qcisd_t1.F index 0d1e2e820d..bf26439cd3 100644 --- a/src/tce/qcisd/qcisd_t1.F +++ b/src/tce/qcisd/qcisd_t1.F @@ -1,6 +1,6 @@ SUBROUTINE qcisd_t1(d_f1,d_i0,d_t1,d_t2,d_v2,k_f1_offset,k_i0_offs &et,k_t1_offset,k_t2_offset,k_v2_offset) -C $Id: qcisd_t1.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = -1 * Sum ( h7 ) * t ( p2 h7 )_t * i1 ( h7 h1 )_f @@ -82,7 +82,7 @@ C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 END SUBROUTINE qcisd_t1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: qcisd_t1.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = -1 * Sum ( h7 ) * t ( p2 h7 )_t * i1 ( h7 h1 )_f @@ -206,7 +206,7 @@ C i0 ( p2 h1 )_tf + = -1 * Sum ( h7 ) * t ( p2 h7 )_t * i1 ( h7 h1 )_f RETURN END SUBROUTINE qcisd_t1_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: qcisd_t1.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_f + = 1 * f ( h7 h1 )_f @@ -288,7 +288,7 @@ C i1 ( h7 h1 )_f + = 1 * f ( h7 h1 )_f RETURN END SUBROUTINE OFFSET_qcisd_t1_1_1(l_a_offset,k_a_offset,size) -C $Id: qcisd_t1.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_f @@ -344,7 +344,7 @@ C i1 ( h7 h1 )_f END SUBROUTINE qcisd_t1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: qcisd_t1.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 h7 p3 p4 )_v @@ -517,7 +517,7 @@ C i1 ( h7 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 END SUBROUTINE qcisd_t1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: qcisd_t1.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * f ( p2 p3 )_f @@ -642,7 +642,7 @@ C i0 ( p2 h1 )_tf + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * f ( p2 p3 )_f END SUBROUTINE qcisd_t1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: qcisd_t1.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 h1 p3 )_v @@ -776,7 +776,7 @@ C i0 ( p2 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 h1 p3 ) END SUBROUTINE qcisd_t1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: qcisd_t1.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = 1 * Sum ( p7 h8 ) * t ( p2 p7 h1 h8 )_t * i1 ( h8 p7 )_f @@ -934,7 +934,7 @@ C i0 ( p2 h1 )_tf + = 1 * Sum ( p7 h8 ) * t ( p2 p7 h1 h8 )_t * i1 ( h8 p7 ) RETURN END SUBROUTINE qcisd_t1_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: qcisd_t1.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 p7 )_f + = 1 * f ( h8 p7 )_f @@ -1016,7 +1016,7 @@ C i1 ( h8 p7 )_f + = 1 * f ( h8 p7 )_f RETURN END SUBROUTINE OFFSET_qcisd_t1_4_1(l_a_offset,k_a_offset,size) -C $Id: qcisd_t1.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 p7 )_f @@ -1072,7 +1072,7 @@ C i1 ( h8 p7 )_f END SUBROUTINE qcisd_t1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: qcisd_t1.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 p7 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h8 p5 p7 )_v @@ -1230,7 +1230,7 @@ C i1 ( h8 p7 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h8 p5 p7 )_ END SUBROUTINE qcisd_t1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: qcisd_t1.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( h4 h5 h1 p3 )_v @@ -1392,7 +1392,7 @@ C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( h RETURN END SUBROUTINE qcisd_t1_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: qcisd_t1.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_v + = 1 * v ( h4 h5 h1 p3 )_v @@ -1491,7 +1491,7 @@ C i1 ( h4 h5 h1 p3 )_v + = 1 * v ( h4 h5 h1 p3 )_v RETURN END SUBROUTINE OFFSET_qcisd_t1_5_1(l_a_offset,k_a_offset,size) -C $Id: qcisd_t1.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_v @@ -1561,7 +1561,7 @@ C i1 ( h4 h5 h1 p3 )_v END SUBROUTINE qcisd_t1_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: qcisd_t1.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_vt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h4 h5 p3 p6 )_v @@ -1712,7 +1712,7 @@ C i1 ( h4 h5 h1 p3 )_vt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h4 h5 p3 p END SUBROUTINE qcisd_t1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: qcisd_t1.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 p2 p3 p4 )_v diff --git a/src/tce/qcisd/qcisd_t2.F b/src/tce/qcisd/qcisd_t2.F index 7ac4a8eeac..76bee39e3b 100644 --- a/src/tce/qcisd/qcisd_t2.F +++ b/src/tce/qcisd/qcisd_t2.F @@ -1,6 +1,6 @@ SUBROUTINE qcisd_t2(d_f1,d_i0,d_t1,d_t2,d_v2,k_f1_offset,k_i0_offs &et,k_t1_offset,k_t2_offset,k_v2_offset) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v @@ -98,7 +98,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( RETURN END SUBROUTINE qcisd_t2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v @@ -196,7 +196,7 @@ C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v END SUBROUTINE qcisd_t2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * v ( h5 p4 h1 h2 )_v @@ -349,7 +349,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * v ( h END SUBROUTINE qcisd_t2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * v ( p3 p4 h2 p5 )_v @@ -502,7 +502,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * v ( p END SUBROUTINE qcisd_t2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_f @@ -663,7 +663,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * RETURN END SUBROUTINE qcisd_t2_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_f + = 1 * f ( h5 h1 )_f @@ -745,7 +745,7 @@ C i1 ( h5 h1 )_f + = 1 * f ( h5 h1 )_f RETURN END SUBROUTINE OFFSET_qcisd_t2_4_1(l_a_offset,k_a_offset,size) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_f @@ -801,7 +801,7 @@ C i1 ( h5 h1 )_f END SUBROUTINE qcisd_t2_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_vt + = 1/2 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * v ( h5 h8 p6 p7 )_v @@ -974,7 +974,7 @@ C i1 ( h5 h1 )_vt + = 1/2 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * v ( h5 END SUBROUTINE qcisd_t2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i1 ( p4 p5 )_f @@ -1135,7 +1135,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * RETURN END SUBROUTINE qcisd_t2_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_f + = 1 * f ( p3 p5 )_f @@ -1217,7 +1217,7 @@ C i1 ( p3 p5 )_f + = 1 * f ( p3 p5 )_f RETURN END SUBROUTINE OFFSET_qcisd_t2_5_1(l_a_offset,k_a_offset,size) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_f @@ -1273,7 +1273,7 @@ C i1 ( p3 p5 )_f END SUBROUTINE qcisd_t2_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_vt + = -1/2 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * v ( h7 h8 p5 p6 )_v @@ -1446,7 +1446,7 @@ C i1 ( p3 p5 )_vt + = -1/2 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * v ( h7 END SUBROUTINE qcisd_t2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1/2 * Sum ( h9 h7 ) * t ( p3 p4 h7 h9 )_t * i1 ( h7 h9 h1 h2 )_v @@ -1605,7 +1605,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1/2 * Sum ( h9 h7 ) * t ( p3 p4 h7 h9 )_t * i1 RETURN END SUBROUTINE qcisd_t2_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h9 h1 h2 )_v + = -1 * v ( h7 h9 h1 h2 )_v @@ -1701,7 +1701,7 @@ C i1 ( h7 h9 h1 h2 )_v + = -1 * v ( h7 h9 h1 h2 )_v RETURN END SUBROUTINE OFFSET_qcisd_t2_6_1(l_a_offset,k_a_offset,size) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h9 h1 h2 )_v @@ -1771,7 +1771,7 @@ C i1 ( h7 h9 h1 h2 )_v END SUBROUTINE qcisd_t2_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h9 h1 h2 )_vt + = -1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( h7 h9 p5 p6 )_v @@ -1930,7 +1930,7 @@ C i1 ( h7 h9 h1 h2 )_vt + = -1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( END SUBROUTINE qcisd_t2_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i1 ( h6 p4 h2 p5 )_v @@ -2129,7 +2129,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_ RETURN END SUBROUTINE qcisd_t2_7_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_v + = 1 * v ( h6 p3 h1 p5 )_v @@ -2228,7 +2228,7 @@ C i1 ( h6 p3 h1 p5 )_v + = 1 * v ( h6 p3 h1 p5 )_v RETURN END SUBROUTINE OFFSET_qcisd_t2_7_1(l_a_offset,k_a_offset,size) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_v @@ -2298,7 +2298,7 @@ C i1 ( h6 p3 h1 p5 )_v END SUBROUTINE qcisd_t2_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_vt + = -1/2 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * v ( h6 h8 p5 p7 )_v @@ -2498,7 +2498,7 @@ C i1 ( h6 p3 h1 p5 )_vt + = -1/2 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * v ( END SUBROUTINE qcisd_t2_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( p3 p4 p5 p6 )_v diff --git a/src/tce/reconcilefile.F b/src/tce/reconcilefile.F index c140539250..beee8278ef 100644 --- a/src/tce/reconcilefile.F +++ b/src/tce/reconcilefile.F @@ -1,6 +1,6 @@ subroutine reconcilefile(d_sf,size) c -c $Id: reconcilefile.F,v 1.10 2008-12-11 20:20:38 jhammond Exp $ +c $Id$ c c Accumulate local distributed files and update all files c with the one accumulated file diff --git a/src/tce/response/GNUmakefile b/src/tce/response/GNUmakefile index 3d5cc81a19..c8bdba4e3a 100644 --- a/src/tce/response/GNUmakefile +++ b/src/tce/response/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.3 2008-08-18 02:13:40 jhammond Exp $ +#$Id$ OBJ_OPTIMIZE = \ ccsd_o1.o \ diff --git a/src/tce/response/ccsd_o1.F b/src/tce/response/ccsd_o1.F index 039247297a..7f2845e930 100644 --- a/src/tce/response/ccsd_o1.F +++ b/src/tce/response/ccsd_o1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_o1(d_i0,d_o1,d_t1,d_t2,k_i0_offset,k_o1_offset,k_t &1_offset,k_t2_offset) -C $Id: ccsd_o1.F,v 1.1 2007-08-11 01:21:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_o + = 1 * o ( p2 h1 )_o @@ -45,7 +45,7 @@ C i0 ( p2 h1 )_to + = 1 * Sum ( p4 h3 ) * o ( h3 p4 )_o * t ( p2 p4 h1 h3 )_ RETURN END SUBROUTINE ccsd_o1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_o1.F,v 1.1 2007-08-11 01:21:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_o + = 1 * o ( p2 h1 )_o @@ -127,7 +127,7 @@ C i0 ( p2 h1 )_o + = 1 * o ( p2 h1 )_o RETURN END SUBROUTINE ccsd_o1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: ccsd_o1.F,v 1.1 2007-08-11 01:21:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_to + = -1 * Sum ( h5 ) * t ( p2 h5 )_t * i1 ( h5 h1 )_o @@ -251,7 +251,7 @@ C i0 ( p2 h1 )_to + = -1 * Sum ( h5 ) * t ( p2 h5 )_t * i1 ( h5 h1 )_o RETURN END SUBROUTINE ccsd_o1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_o1.F,v 1.1 2007-08-11 01:21:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_o + = 1 * o ( h5 h1 )_o @@ -333,7 +333,7 @@ C i1 ( h5 h1 )_o + = 1 * o ( h5 h1 )_o RETURN END SUBROUTINE OFFSET_ccsd_o1_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_o1.F,v 1.1 2007-08-11 01:21:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_o @@ -389,7 +389,7 @@ C i1 ( h5 h1 )_o END SUBROUTINE ccsd_o1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_o1.F,v 1.1 2007-08-11 01:21:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_ot + = 1 * Sum ( p3 ) * o ( h5 p3 )_o * t ( p3 h1 )_t @@ -513,7 +513,7 @@ C i1 ( h5 h1 )_ot + = 1 * Sum ( p3 ) * o ( h5 p3 )_o * t ( p3 h1 )_t RETURN END SUBROUTINE ccsd_o1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: ccsd_o1.F,v 1.1 2007-08-11 01:21:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_to + = 1 * Sum ( p3 ) * o ( p2 p3 )_o * t ( p3 h1 )_t @@ -637,7 +637,7 @@ C i0 ( p2 h1 )_to + = 1 * Sum ( p3 ) * o ( p2 p3 )_o * t ( p3 h1 )_t RETURN END SUBROUTINE ccsd_o1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: ccsd_o1.F,v 1.1 2007-08-11 01:21:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_to + = 1 * Sum ( p4 h3 ) * o ( h3 p4 )_o * t ( p2 p4 h1 h3 )_t diff --git a/src/tce/response/ccsd_o2.F b/src/tce/response/ccsd_o2.F index 51ddd519b8..c8531bb0df 100644 --- a/src/tce/response/ccsd_o2.F +++ b/src/tce/response/ccsd_o2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_o2(d_i0,d_o1,d_t1,d_t2,k_i0_offset,k_o1_offset,k_t &1_offset,k_t2_offset) -C $Id: ccsd_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_to + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_o @@ -53,7 +53,7 @@ C i1 ( h5 p3 h1 h2 )_ot + = -1 * Sum ( p6 ) * o ( h5 p6 )_o * t ( p3 p6 RETURN END SUBROUTINE ccsd_o2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: ccsd_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_to + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_o @@ -214,7 +214,7 @@ C i0 ( p3 p4 h1 h2 )_to + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * RETURN END SUBROUTINE ccsd_o2_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_o + = 1 * o ( h5 h1 )_o @@ -296,7 +296,7 @@ C i1 ( h5 h1 )_o + = 1 * o ( h5 h1 )_o RETURN END SUBROUTINE OFFSET_ccsd_o2_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_o @@ -352,7 +352,7 @@ C i1 ( h5 h1 )_o END SUBROUTINE ccsd_o2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_ot + = 1 * Sum ( p6 ) * o ( h5 p6 )_o * t ( p6 h1 )_t @@ -476,7 +476,7 @@ C i1 ( h5 h1 )_ot + = 1 * Sum ( p6 ) * o ( h5 p6 )_o * t ( p6 h1 )_t RETURN END SUBROUTINE ccsd_o2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: ccsd_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_to + = -1 * P( 2 ) * Sum ( p5 ) * o ( p3 p5 )_o * t ( p4 p5 h1 h2 )_t @@ -636,7 +636,7 @@ C i0 ( p3 p4 h1 h2 )_to + = -1 * P( 2 ) * Sum ( p5 ) * o ( p3 p5 )_o * t ( p RETURN END SUBROUTINE ccsd_o2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: ccsd_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ott + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * i1 ( h5 p4 h1 h2 )_ot @@ -787,7 +787,7 @@ C i0 ( p3 p4 h1 h2 )_ott + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * i1 ( END SUBROUTINE ccsd_o2_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p3 h1 h2 )_ot + = -1 * Sum ( p6 ) * o ( h5 p6 )_o * t ( p3 p6 h1 h2 )_t @@ -937,7 +937,7 @@ C i1 ( h5 p3 h1 h2 )_ot + = -1 * Sum ( p6 ) * o ( h5 p6 )_o * t ( p3 p6 h1 h RETURN END SUBROUTINE OFFSET_ccsd_o2_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p3 h1 h2 )_ot diff --git a/src/tce/response/ccsdt_o1.F b/src/tce/response/ccsdt_o1.F index 424e932357..09ae756927 100644 --- a/src/tce/response/ccsdt_o1.F +++ b/src/tce/response/ccsdt_o1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_o1(d_i0,d_o1,d_t1,d_t2,k_i0_offset,k_o1_offset,k_ &t1_offset,k_t2_offset) -C $Id: ccsdt_o1.F,v 1.1 2007-08-11 01:21:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_o + = 1 * o ( p2 h1 )_o @@ -48,7 +48,7 @@ C i0 ( p2 h1 )_to + = 1 * Sum ( p4 h3 ) * o ( h3 p4 )_o * t ( p2 p4 h1 h3 )_ RETURN END SUBROUTINE ccsdt_o1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_o1.F,v 1.1 2007-08-11 01:21:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_o + = 1 * o ( p2 h1 )_o @@ -131,7 +131,7 @@ C i0 ( p2 h1 )_o + = 1 * o ( p2 h1 )_o END SUBROUTINE ccsdt_o1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsdt_o1.F,v 1.1 2007-08-11 01:21:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_to + = -1 * Sum ( h5 ) * t ( p2 h5 )_t * i1 ( h5 h1 )_o @@ -255,7 +255,7 @@ C i0 ( p2 h1 )_to + = -1 * Sum ( h5 ) * t ( p2 h5 )_t * i1 ( h5 h1 )_o RETURN END SUBROUTINE ccsdt_o1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_o1.F,v 1.1 2007-08-11 01:21:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_o + = 1 * o ( h5 h1 )_o @@ -337,7 +337,7 @@ C i1 ( h5 h1 )_o + = 1 * o ( h5 h1 )_o RETURN END SUBROUTINE OFFSET_ccsdt_o1_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_o1.F,v 1.1 2007-08-11 01:21:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_o @@ -393,7 +393,7 @@ C i1 ( h5 h1 )_o END SUBROUTINE ccsdt_o1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsdt_o1.F,v 1.1 2007-08-11 01:21:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_ot + = 1 * Sum ( p3 ) * o ( h5 p3 )_o * t ( p3 h1 )_t @@ -518,7 +518,7 @@ C i1 ( h5 h1 )_ot + = 1 * Sum ( p3 ) * o ( h5 p3 )_o * t ( p3 h1 )_t END SUBROUTINE ccsdt_o1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsdt_o1.F,v 1.1 2007-08-11 01:21:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_to + = 1 * Sum ( p3 ) * o ( p2 p3 )_o * t ( p3 h1 )_t @@ -643,7 +643,7 @@ C i0 ( p2 h1 )_to + = 1 * Sum ( p3 ) * o ( p2 p3 )_o * t ( p3 h1 )_t END SUBROUTINE ccsdt_o1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsdt_o1.F,v 1.1 2007-08-11 01:21:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_to + = 1 * Sum ( p4 h3 ) * o ( h3 p4 )_o * t ( p2 p4 h1 h3 )_t diff --git a/src/tce/response/ccsdt_o2.F b/src/tce/response/ccsdt_o2.F index dcd4fcd8cb..24804f4fc5 100644 --- a/src/tce/response/ccsdt_o2.F +++ b/src/tce/response/ccsdt_o2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_o2(d_i0,d_o1,d_t1,d_t2,d_t3,k_i0_offset,k_o1_offs &et,k_t1_offset,k_t2_offset,k_t3_offset) -C $Id: ccsdt_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_to + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_o @@ -62,7 +62,7 @@ C i1 ( h5 p3 h1 h2 )_ot + = -1 * Sum ( p6 ) * o ( h5 p6 )_o * t ( p3 p6 END SUBROUTINE ccsdt_o2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsdt_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_to + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_o @@ -223,7 +223,7 @@ C i0 ( p3 p4 h1 h2 )_to + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * RETURN END SUBROUTINE ccsdt_o2_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_o + = 1 * o ( h5 h1 )_o @@ -305,7 +305,7 @@ C i1 ( h5 h1 )_o + = 1 * o ( h5 h1 )_o RETURN END SUBROUTINE OFFSET_ccsdt_o2_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_o @@ -361,7 +361,7 @@ C i1 ( h5 h1 )_o END SUBROUTINE ccsdt_o2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsdt_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_ot + = 1 * Sum ( p6 ) * o ( h5 p6 )_o * t ( p6 h1 )_t @@ -486,7 +486,7 @@ C i1 ( h5 h1 )_ot + = 1 * Sum ( p6 ) * o ( h5 p6 )_o * t ( p6 h1 )_t END SUBROUTINE ccsdt_o2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsdt_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_to + = -1 * P( 2 ) * Sum ( p5 ) * o ( p3 p5 )_o * t ( p4 p5 h1 h2 )_t @@ -647,7 +647,7 @@ C i0 ( p3 p4 h1 h2 )_to + = -1 * P( 2 ) * Sum ( p5 ) * o ( p3 p5 )_o * t ( p END SUBROUTINE ccsdt_o2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsdt_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_to + = 1 * Sum ( p6 h5 ) * o ( h5 p6 )_o * t ( p3 p4 p6 h1 h2 h5 )_t @@ -861,7 +861,7 @@ C i0 ( p3 p4 h1 h2 )_to + = 1 * Sum ( p6 h5 ) * o ( h5 p6 )_o * t ( p3 p4 p6 END SUBROUTINE ccsdt_o2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsdt_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ott + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * i1 ( h5 p4 h1 h2 )_ot @@ -1012,7 +1012,7 @@ C i0 ( p3 p4 h1 h2 )_ott + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * i1 ( END SUBROUTINE ccsdt_o2_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsdt_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p3 h1 h2 )_ot + = -1 * Sum ( p6 ) * o ( h5 p6 )_o * t ( p3 p6 h1 h2 )_t @@ -1162,7 +1162,7 @@ C i1 ( h5 p3 h1 h2 )_ot + = -1 * Sum ( p6 ) * o ( h5 p6 )_o * t ( p3 p6 h1 h RETURN END SUBROUTINE OFFSET_ccsdt_o2_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p3 h1 h2 )_ot diff --git a/src/tce/response/ccsdt_o3.F b/src/tce/response/ccsdt_o3.F index 93bed44111..81e89cba37 100644 --- a/src/tce/response/ccsdt_o3.F +++ b/src/tce/response/ccsdt_o3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_o3(d_i0,d_o1,d_t1,d_t2,d_t3,k_i0_offset,k_o1_offs &et,k_t1_offset,k_t2_offset,k_t3_offset) -C $Id: ccsdt_o3.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_to + = -1 * P( 3 ) * Sum ( h7 ) * o ( h7 h1 )_o * t ( p4 p5 p6 h2 h3 h7 )_t @@ -73,7 +73,7 @@ C i1 ( h8 p4 h1 h2 )_ot + = -1 * Sum ( p7 ) * o ( h8 p7 )_o * t ( p4 p7 END SUBROUTINE ccsdt_o3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsdt_o3.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_to + = -1 * P( 3 ) * Sum ( h7 ) * o ( h7 h1 )_o * t ( p4 p5 p6 h2 h3 h7 )_t @@ -262,7 +262,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_to + = -1 * P( 3 ) * Sum ( h7 ) * o ( h7 h1 )_o * END SUBROUTINE ccsdt_o3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsdt_o3.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_to + = 1 * P( 3 ) * Sum ( p7 ) * o ( p4 p7 )_o * t ( p5 p6 p7 h1 h2 h3 )_t @@ -451,7 +451,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_to + = 1 * P( 3 ) * Sum ( p7 ) * o ( p4 p7 )_o * END SUBROUTINE ccsdt_o3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsdt_o3.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_ott + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 h2 h7 )_t * i1 ( h7 h3 )_ot @@ -644,7 +644,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_ott + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h END SUBROUTINE ccsdt_o3_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsdt_o3.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_ot + = 1 * Sum ( p8 ) * o ( h7 p8 )_o * t ( p8 h1 )_t @@ -768,7 +768,7 @@ C i1 ( h7 h1 )_ot + = 1 * Sum ( p8 ) * o ( h7 p8 )_o * t ( p8 h1 )_t RETURN END SUBROUTINE OFFSET_ccsdt_o3_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_o3.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_ot @@ -824,7 +824,7 @@ C i1 ( h7 h1 )_ot END SUBROUTINE ccsdt_o3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsdt_o3.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_ott + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 h7 )_t * i1 ( h7 p5 p6 h1 h2 h3 )_ot @@ -996,7 +996,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_ott + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 h7 )_t END SUBROUTINE ccsdt_o3_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsdt_o3.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p4 p5 h1 h2 h3 )_ot + = 1 * Sum ( p8 ) * o ( h7 p8 )_o * t ( p4 p5 p8 h1 h2 h3 )_t @@ -1166,7 +1166,7 @@ C i1 ( h7 p4 p5 h1 h2 h3 )_ot + = 1 * Sum ( p8 ) * o ( h7 p8 )_o * t ( p4 p5 RETURN END SUBROUTINE OFFSET_ccsdt_o3_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_o3.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p4 p5 h1 h2 h3 )_ot @@ -1254,7 +1254,7 @@ C i1 ( h7 p4 p5 h1 h2 h3 )_ot END SUBROUTINE ccsdt_o3_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsdt_o3.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_ott + = -1 * P( 9 ) * Sum ( h8 ) * t ( p4 p5 h1 h8 )_t * i1 ( h8 p6 h2 h3 )_ot @@ -1488,7 +1488,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_ott + = -1 * P( 9 ) * Sum ( h8 ) * t ( p4 p5 h1 h END SUBROUTINE ccsdt_o3_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsdt_o3.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 p4 h1 h2 )_ot + = -1 * Sum ( p7 ) * o ( h8 p7 )_o * t ( p4 p7 h1 h2 )_t @@ -1638,7 +1638,7 @@ C i1 ( h8 p4 h1 h2 )_ot + = -1 * Sum ( p7 ) * o ( h8 p7 )_o * t ( p4 p7 h1 h RETURN END SUBROUTINE OFFSET_ccsdt_o3_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_o3.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 p4 h1 h2 )_ot diff --git a/src/tce/response/ccsdtq_o1.F b/src/tce/response/ccsdtq_o1.F index b0100eacd9..c98e630d5c 100644 --- a/src/tce/response/ccsdtq_o1.F +++ b/src/tce/response/ccsdtq_o1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdtq_o1(d_i0,d_o1,d_t1,d_t2,k_i0_offset,k_o1_offset,k &_t1_offset,k_t2_offset) -C $Id: ccsdtq_o1.F,v 1.1 2007-08-11 01:21:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_o + = 1 * o ( p2 h1 )_o @@ -48,7 +48,7 @@ C i0 ( p2 h1 )_to + = 1 * Sum ( p4 h3 ) * o ( h3 p4 )_o * t ( p2 p4 h1 h3 )_ RETURN END SUBROUTINE ccsdtq_o1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdtq_o1.F,v 1.1 2007-08-11 01:21:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_o + = 1 * o ( p2 h1 )_o @@ -131,7 +131,7 @@ C i0 ( p2 h1 )_o + = 1 * o ( p2 h1 )_o END SUBROUTINE ccsdtq_o1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o1.F,v 1.1 2007-08-11 01:21:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_to + = -1 * Sum ( h5 ) * t ( p2 h5 )_t * i1 ( h5 h1 )_o @@ -255,7 +255,7 @@ C i0 ( p2 h1 )_to + = -1 * Sum ( h5 ) * t ( p2 h5 )_t * i1 ( h5 h1 )_o RETURN END SUBROUTINE ccsdtq_o1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdtq_o1.F,v 1.1 2007-08-11 01:21:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_o + = 1 * o ( h5 h1 )_o @@ -337,7 +337,7 @@ C i1 ( h5 h1 )_o + = 1 * o ( h5 h1 )_o RETURN END SUBROUTINE OFFSET_ccsdtq_o1_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsdtq_o1.F,v 1.1 2007-08-11 01:21:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_o @@ -393,7 +393,7 @@ C i1 ( h5 h1 )_o END SUBROUTINE ccsdtq_o1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdtq_o1.F,v 1.1 2007-08-11 01:21:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_ot + = 1 * Sum ( p3 ) * o ( h5 p3 )_o * t ( p3 h1 )_t @@ -519,7 +519,7 @@ C i1 ( h5 h1 )_ot + = 1 * Sum ( p3 ) * o ( h5 p3 )_o * t ( p3 h1 )_t END SUBROUTINE ccsdtq_o1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o1.F,v 1.1 2007-08-11 01:21:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_to + = 1 * Sum ( p3 ) * o ( p2 p3 )_o * t ( p3 h1 )_t @@ -644,7 +644,7 @@ C i0 ( p2 h1 )_to + = 1 * Sum ( p3 ) * o ( p2 p3 )_o * t ( p3 h1 )_t END SUBROUTINE ccsdtq_o1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o1.F,v 1.1 2007-08-11 01:21:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_to + = 1 * Sum ( p4 h3 ) * o ( h3 p4 )_o * t ( p2 p4 h1 h3 )_t diff --git a/src/tce/response/ccsdtq_o2.F b/src/tce/response/ccsdtq_o2.F index 4aa8e4fa36..d7b64c4957 100644 --- a/src/tce/response/ccsdtq_o2.F +++ b/src/tce/response/ccsdtq_o2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdtq_o2(d_i0,d_o1,d_t1,d_t2,d_t3,k_i0_offset,k_o1_off &set,k_t1_offset,k_t2_offset,k_t3_offset) -C $Id: ccsdtq_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_to + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_o @@ -62,7 +62,7 @@ C i1 ( h5 p3 h1 h2 )_ot + = -1 * Sum ( p6 ) * o ( h5 p6 )_o * t ( p3 p6 END SUBROUTINE ccsdtq_o2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_to + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_o @@ -223,7 +223,7 @@ C i0 ( p3 p4 h1 h2 )_to + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * RETURN END SUBROUTINE ccsdtq_o2_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdtq_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_o + = 1 * o ( h5 h1 )_o @@ -305,7 +305,7 @@ C i1 ( h5 h1 )_o + = 1 * o ( h5 h1 )_o RETURN END SUBROUTINE OFFSET_ccsdtq_o2_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsdtq_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_o @@ -361,7 +361,7 @@ C i1 ( h5 h1 )_o END SUBROUTINE ccsdtq_o2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdtq_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_ot + = 1 * Sum ( p6 ) * o ( h5 p6 )_o * t ( p6 h1 )_t @@ -487,7 +487,7 @@ C i1 ( h5 h1 )_ot + = 1 * Sum ( p6 ) * o ( h5 p6 )_o * t ( p6 h1 )_t END SUBROUTINE ccsdtq_o2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_to + = -1 * P( 2 ) * Sum ( p5 ) * o ( p3 p5 )_o * t ( p4 p5 h1 h2 )_t @@ -648,7 +648,7 @@ C i0 ( p3 p4 h1 h2 )_to + = -1 * P( 2 ) * Sum ( p5 ) * o ( p3 p5 )_o * t ( p END SUBROUTINE ccsdtq_o2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_to + = 1 * Sum ( p6 h5 ) * o ( h5 p6 )_o * t ( p3 p4 p6 h1 h2 h5 )_t @@ -862,7 +862,7 @@ C i0 ( p3 p4 h1 h2 )_to + = 1 * Sum ( p6 h5 ) * o ( h5 p6 )_o * t ( p3 p4 p6 END SUBROUTINE ccsdtq_o2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ott + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * i1 ( h5 p4 h1 h2 )_ot @@ -1013,7 +1013,7 @@ C i0 ( p3 p4 h1 h2 )_ott + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * i1 ( END SUBROUTINE ccsdtq_o2_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdtq_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p3 h1 h2 )_ot + = -1 * Sum ( p6 ) * o ( h5 p6 )_o * t ( p3 p6 h1 h2 )_t @@ -1164,7 +1164,7 @@ C i1 ( h5 p3 h1 h2 )_ot + = -1 * Sum ( p6 ) * o ( h5 p6 )_o * t ( p3 p6 h1 h RETURN END SUBROUTINE OFFSET_ccsdtq_o2_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsdtq_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p3 h1 h2 )_ot diff --git a/src/tce/response/ccsdtq_o3.F b/src/tce/response/ccsdtq_o3.F index e950e24967..4f6b934d69 100644 --- a/src/tce/response/ccsdtq_o3.F +++ b/src/tce/response/ccsdtq_o3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdtq_o3(d_i0,d_o1,d_t1,d_t2,d_t3,d_t4,k_i0_offset,k_o &1_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_t4_offset) -C $Id: ccsdtq_o3.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_to + = -1 * P( 3 ) * Sum ( h7 ) * o ( h7 h1 )_o * t ( p4 p5 p6 h2 h3 h7 )_t @@ -78,7 +78,7 @@ C i1 ( h8 p4 h1 h2 )_ot + = -1 * Sum ( p7 ) * o ( h8 p7 )_o * t ( p4 p7 END SUBROUTINE ccsdtq_o3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o3.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_to + = -1 * P( 3 ) * Sum ( h7 ) * o ( h7 h1 )_o * t ( p4 p5 p6 h2 h3 h7 )_t @@ -267,7 +267,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_to + = -1 * P( 3 ) * Sum ( h7 ) * o ( h7 h1 )_o * END SUBROUTINE ccsdtq_o3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o3.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_to + = 1 * P( 3 ) * Sum ( p7 ) * o ( p4 p7 )_o * t ( p5 p6 p7 h1 h2 h3 )_t @@ -456,7 +456,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_to + = 1 * P( 3 ) * Sum ( p7 ) * o ( p4 p7 )_o * END SUBROUTINE ccsdtq_o3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o3.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_to + = 1 * Sum ( p8 h7 ) * o ( h7 p8 )_o * t ( p4 p5 p6 p8 h1 h2 h3 h7 )_t @@ -773,7 +773,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_to + = 1 * Sum ( p8 h7 ) * o ( h7 p8 )_o * t ( p4 END SUBROUTINE ccsdtq_o3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o3.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_ott + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 h2 h7 )_t * i1 ( h7 h3 )_ot @@ -966,7 +966,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_ott + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h END SUBROUTINE ccsdtq_o3_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdtq_o3.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_ot + = 1 * Sum ( p8 ) * o ( h7 p8 )_o * t ( p8 h1 )_t @@ -1091,7 +1091,7 @@ C i1 ( h7 h1 )_ot + = 1 * Sum ( p8 ) * o ( h7 p8 )_o * t ( p8 h1 )_t RETURN END SUBROUTINE OFFSET_ccsdtq_o3_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsdtq_o3.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_ot @@ -1147,7 +1147,7 @@ C i1 ( h7 h1 )_ot END SUBROUTINE ccsdtq_o3_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o3.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_ott + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 h7 )_t * i1 ( h7 p5 p6 h1 h2 h3 )_ot @@ -1319,7 +1319,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_ott + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 h7 )_t END SUBROUTINE ccsdtq_o3_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdtq_o3.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p4 p5 h1 h2 h3 )_ot + = 1 * Sum ( p8 ) * o ( h7 p8 )_o * t ( p4 p5 p8 h1 h2 h3 )_t @@ -1490,7 +1490,7 @@ C i1 ( h7 p4 p5 h1 h2 h3 )_ot + = 1 * Sum ( p8 ) * o ( h7 p8 )_o * t ( p4 p5 RETURN END SUBROUTINE OFFSET_ccsdtq_o3_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsdtq_o3.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p4 p5 h1 h2 h3 )_ot @@ -1578,7 +1578,7 @@ C i1 ( h7 p4 p5 h1 h2 h3 )_ot END SUBROUTINE ccsdtq_o3_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o3.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_ott + = -1 * P( 9 ) * Sum ( h8 ) * t ( p4 p5 h1 h8 )_t * i1 ( h8 p6 h2 h3 )_ot @@ -1812,7 +1812,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_ott + = -1 * P( 9 ) * Sum ( h8 ) * t ( p4 p5 h1 h END SUBROUTINE ccsdtq_o3_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdtq_o3.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 p4 h1 h2 )_ot + = -1 * Sum ( p7 ) * o ( h8 p7 )_o * t ( p4 p7 h1 h2 )_t @@ -1963,7 +1963,7 @@ C i1 ( h8 p4 h1 h2 )_ot + = -1 * Sum ( p7 ) * o ( h8 p7 )_o * t ( p4 p7 h1 h RETURN END SUBROUTINE OFFSET_ccsdtq_o3_6_1(l_a_offset,k_a_offset,size) -C $Id: ccsdtq_o3.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 p4 h1 h2 )_ot diff --git a/src/tce/response/ccsdtq_o4.F b/src/tce/response/ccsdtq_o4.F index a2f6810b2d..0562f1bba1 100644 --- a/src/tce/response/ccsdtq_o4.F +++ b/src/tce/response/ccsdtq_o4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdtq_o4(d_i0,d_o1,d_t1,d_t2,d_t3,d_t4,k_i0_offset,k_o &1_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_t4_offset) -C $Id: ccsdtq_o4.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_to + = 1 * P( 4 ) * Sum ( h9 ) * o ( h9 h1 )_o * t ( p5 p6 p7 p8 h2 h3 h4 h9 )_t @@ -88,7 +88,7 @@ C i1 ( h9 p5 p6 h1 h2 h3 )_ot + = 1 * Sum ( p10 ) * o ( h9 p10 )_o * t ( END SUBROUTINE ccsdtq_o4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o4.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_to + = 1 * P( 4 ) * Sum ( h9 ) * o ( h9 h1 )_o * t ( p5 p6 p7 p8 h2 h3 h4 h9 )_t @@ -320,7 +320,7 @@ C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_to + = 1 * P( 4 ) * Sum ( h9 ) * o ( h9 h1 END SUBROUTINE ccsdtq_o4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o4.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_to + = -1 * P( 4 ) * Sum ( p9 ) * o ( p5 p9 )_o * t ( p6 p7 p8 p9 h1 h2 h3 h4 )_t @@ -552,7 +552,7 @@ C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_to + = -1 * P( 4 ) * Sum ( p9 ) * o ( p5 p9 END SUBROUTINE ccsdtq_o4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o4.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_ott + = -1 * P( 4 ) * Sum ( h9 ) * t ( p5 p6 p7 p8 h1 h2 h3 h9 )_t * i1 ( h9 h4 )_ot @@ -788,7 +788,7 @@ C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_ott + = -1 * P( 4 ) * Sum ( h9 ) * t ( p5 p END SUBROUTINE ccsdtq_o4_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdtq_o4.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h1 )_ot + = 1 * Sum ( p10 ) * o ( h9 p10 )_o * t ( p10 h1 )_t @@ -913,7 +913,7 @@ C i1 ( h9 h1 )_ot + = 1 * Sum ( p10 ) * o ( h9 p10 )_o * t ( p10 h1 )_t RETURN END SUBROUTINE OFFSET_ccsdtq_o4_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsdtq_o4.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h1 )_ot @@ -969,7 +969,7 @@ C i1 ( h9 h1 )_ot END SUBROUTINE ccsdtq_o4_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o4.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_ott + = -1 * P( 4 ) * Sum ( h9 ) * t ( p5 h9 )_t * i1 ( h9 p6 p7 p8 h1 h2 h3 h4 )_ot @@ -1169,7 +1169,7 @@ C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_ott + = -1 * P( 4 ) * Sum ( h9 ) * t ( p5 h END SUBROUTINE ccsdtq_o4_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdtq_o4.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p5 p6 p7 h1 h2 h3 h4 )_ot + = -1 * Sum ( p10 ) * o ( h9 p10 )_o * t ( p5 p6 p7 p10 h1 h2 h3 h4 )_t @@ -1369,7 +1369,7 @@ C i1 ( h9 p5 p6 p7 h1 h2 h3 h4 )_ot + = -1 * Sum ( p10 ) * o ( h9 p10 )_o * RETURN END SUBROUTINE OFFSET_ccsdtq_o4_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsdtq_o4.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p5 p6 p7 h1 h2 h3 h4 )_ot @@ -1472,7 +1472,7 @@ C i1 ( h9 p5 p6 p7 h1 h2 h3 h4 )_ot END SUBROUTINE ccsdtq_o4_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o4.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_ott + = -1 * P( 24 ) * Sum ( h9 ) * t ( p5 p6 p7 h1 h2 h9 )_t * i1 ( h9 p8 h3 h4 )_ot @@ -1905,7 +1905,7 @@ C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_ott + = -1 * P( 24 ) * Sum ( h9 ) * t ( p5 END SUBROUTINE ccsdtq_o4_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdtq_o4.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p5 h1 h2 )_ot + = -1 * Sum ( p10 ) * o ( h9 p10 )_o * t ( p5 p10 h1 h2 )_t @@ -2056,7 +2056,7 @@ C i1 ( h9 p5 h1 h2 )_ot + = -1 * Sum ( p10 ) * o ( h9 p10 )_o * t ( p5 p10 h RETURN END SUBROUTINE OFFSET_ccsdtq_o4_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsdtq_o4.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p5 h1 h2 )_ot @@ -2128,7 +2128,7 @@ C i1 ( h9 p5 h1 h2 )_ot END SUBROUTINE ccsdtq_o4_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o4.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_ott + = -1 * P( 24 ) * Sum ( h9 ) * t ( p5 p6 h1 h9 )_t * i1 ( h9 p7 p8 h2 h3 h4 )_ot @@ -2551,7 +2551,7 @@ C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_ott + = -1 * P( 24 ) * Sum ( h9 ) * t ( p5 END SUBROUTINE ccsdtq_o4_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdtq_o4.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p5 p6 h1 h2 h3 )_ot + = 1 * Sum ( p10 ) * o ( h9 p10 )_o * t ( p5 p6 p10 h1 h2 h3 )_t @@ -2725,7 +2725,7 @@ C i1 ( h9 p5 p6 h1 h2 h3 )_ot + = 1 * Sum ( p10 ) * o ( h9 p10 )_o * t ( p5 RETURN END SUBROUTINE OFFSET_ccsdtq_o4_6_1(l_a_offset,k_a_offset,size) -C $Id: ccsdtq_o4.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p5 p6 h1 h2 h3 )_ot diff --git a/src/tce/response/eomccsd_o1.F b/src/tce/response/eomccsd_o1.F index e3f90c9160..41b68d9181 100644 --- a/src/tce/response/eomccsd_o1.F +++ b/src/tce/response/eomccsd_o1.F @@ -1,6 +1,6 @@ SUBROUTINE eomccsd_o1(d_f1,d_i0,d_t1,d_x1,d_x2,k_f1_offset,k_i0_of &fset,k_t1_offset,k_x1_offset,k_x2_offset) -C $Id: eomccsd_o1.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = -1 * Sum ( h3 ) * x ( p2 h3 )_x * i1 ( h3 h1 )_f @@ -62,7 +62,7 @@ C i1 ( h3 h1 )_fx + = 1 * Sum ( p4 ) * x ( p4 h1 )_x * f ( h3 p4 )_f END SUBROUTINE eomccsd_o1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_o1.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = -1 * Sum ( h3 ) * x ( p2 h3 )_x * i1 ( h3 h1 )_f @@ -186,7 +186,7 @@ C i0 ( p2 h1 )_xf + = -1 * Sum ( h3 ) * x ( p2 h3 )_x * i1 ( h3 h1 )_f RETURN END SUBROUTINE eomccsd_o1_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_o1.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h1 )_f + = 1 * f ( h3 h1 )_f @@ -270,7 +270,7 @@ C i1 ( h3 h1 )_f + = 1 * f ( h3 h1 )_f RETURN END SUBROUTINE OFFSET_eomccsd_o1_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_o1.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h1 )_f @@ -326,7 +326,7 @@ C i1 ( h3 h1 )_f END SUBROUTINE eomccsd_o1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_o1.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h1 )_ft + = 1 * Sum ( p4 ) * t ( p4 h1 )_t * f ( h3 p4 )_f @@ -454,7 +454,7 @@ C i1 ( h3 h1 )_ft + = 1 * Sum ( p4 ) * t ( p4 h1 )_t * f ( h3 p4 )_f END SUBROUTINE eomccsd_o1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_o1.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * f ( p2 p3 )_f @@ -579,7 +579,7 @@ C i0 ( p2 h1 )_xf + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * f ( p2 p3 )_f END SUBROUTINE eomccsd_o1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_o1.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = 1 * Sum ( p4 h3 ) * x ( p2 p4 h1 h3 )_x * f ( h3 p4 )_f @@ -738,7 +738,7 @@ C i0 ( p2 h1 )_xf + = 1 * Sum ( p4 h3 ) * x ( p2 p4 h1 h3 )_x * f ( h3 p4 )_ END SUBROUTINE eomccsd_o1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_o1.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_fxt + = -1 * Sum ( h3 ) * t ( p2 h3 )_t * i1 ( h3 h1 )_fx @@ -863,7 +863,7 @@ C i0 ( p2 h1 )_fxt + = -1 * Sum ( h3 ) * t ( p2 h3 )_t * i1 ( h3 h1 )_fx END SUBROUTINE eomccsd_o1_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_o1.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h1 )_fx + = 1 * Sum ( p4 ) * x ( p4 h1 )_x * f ( h3 p4 )_f @@ -990,7 +990,7 @@ C i1 ( h3 h1 )_fx + = 1 * Sum ( p4 ) * x ( p4 h1 )_x * f ( h3 p4 )_f RETURN END SUBROUTINE OFFSET_eomccsd_o1_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_o1.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h1 )_fx diff --git a/src/tce/response/eomccsd_o2.F b/src/tce/response/eomccsd_o2.F index c187957aba..394eea1aef 100644 --- a/src/tce/response/eomccsd_o2.F +++ b/src/tce/response/eomccsd_o2.F @@ -1,6 +1,6 @@ SUBROUTINE eomccsd_o2(d_f1,d_i0,d_t1,d_t2,d_x1,d_x2,k_f1_offset,k_ &i0_offset,k_t1_offset,k_t2_offset,k_x1_offset,k_x2_offset) -C $Id: eomccsd_o2.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xf + = -1 * P( 2 ) * Sum ( h5 ) * x ( p3 p4 h1 h5 )_x * i1 ( h5 h2 )_f @@ -87,7 +87,7 @@ C i1 ( h5 h1 )_fx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * f ( h5 p6 )_f END SUBROUTINE eomccsd_o2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_o2.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xf + = -1 * P( 2 ) * Sum ( h5 ) * x ( p3 p4 h1 h5 )_x * i1 ( h5 h2 )_f @@ -248,7 +248,7 @@ C i0 ( p3 p4 h1 h2 )_xf + = -1 * P( 2 ) * Sum ( h5 ) * x ( p3 p4 h1 h5 )_x * RETURN END SUBROUTINE eomccsd_o2_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_o2.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_f + = 1 * f ( h5 h1 )_f @@ -332,7 +332,7 @@ C i1 ( h5 h1 )_f + = 1 * f ( h5 h1 )_f RETURN END SUBROUTINE OFFSET_eomccsd_o2_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_o2.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_f @@ -388,7 +388,7 @@ C i1 ( h5 h1 )_f END SUBROUTINE eomccsd_o2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_o2.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_ft + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * f ( h5 p6 )_f @@ -516,7 +516,7 @@ C i1 ( h5 h1 )_ft + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * f ( h5 p6 )_f END SUBROUTINE eomccsd_o2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_o2.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xf + = 1 * P( 2 ) * Sum ( p5 ) * x ( p3 p5 h1 h2 )_x * f ( p4 p5 )_f @@ -678,7 +678,7 @@ C i0 ( p3 p4 h1 h2 )_xf + = 1 * P( 2 ) * Sum ( p5 ) * x ( p3 p5 h1 h2 )_x * END SUBROUTINE eomccsd_o2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_o2.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_fxt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * i1 ( h5 p4 h1 h2 )_fx @@ -829,7 +829,7 @@ C i0 ( p3 p4 h1 h2 )_fxt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * i1 ( END SUBROUTINE eomccsd_o2_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_o2.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p3 h1 h2 )_fx + = -1 * Sum ( p6 ) * x ( p3 p6 h1 h2 )_x * f ( h5 p6 )_f @@ -983,7 +983,7 @@ C i1 ( h5 p3 h1 h2 )_fx + = -1 * Sum ( p6 ) * x ( p3 p6 h1 h2 )_x * f ( h5 p RETURN END SUBROUTINE OFFSET_eomccsd_o2_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_o2.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p3 h1 h2 )_fx @@ -1055,7 +1055,7 @@ C i1 ( h5 p3 h1 h2 )_fx END SUBROUTINE eomccsd_o2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_o2.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ftx + = -1 * P( 2 ) * Sum ( h5 ) * x ( p3 h5 )_x * i1 ( h5 p4 h1 h2 )_ft @@ -1206,7 +1206,7 @@ C i0 ( p3 p4 h1 h2 )_ftx + = -1 * P( 2 ) * Sum ( h5 ) * x ( p3 h5 )_x * i1 ( END SUBROUTINE eomccsd_o2_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_o2.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p3 h1 h2 )_ft + = -1 * Sum ( p6 ) * t ( p3 p6 h1 h2 )_t * f ( h5 p6 )_f @@ -1360,7 +1360,7 @@ C i1 ( h5 p3 h1 h2 )_ft + = -1 * Sum ( p6 ) * t ( p3 p6 h1 h2 )_t * f ( h5 p RETURN END SUBROUTINE OFFSET_eomccsd_o2_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_o2.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p3 h1 h2 )_ft @@ -1432,7 +1432,7 @@ C i1 ( h5 p3 h1 h2 )_ft END SUBROUTINE eomccsd_o2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_o2.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_fxt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_fx @@ -1594,7 +1594,7 @@ C i0 ( p3 p4 h1 h2 )_fxt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t END SUBROUTINE eomccsd_o2_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_o2.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_fx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * f ( h5 p6 )_f @@ -1721,7 +1721,7 @@ C i1 ( h5 h1 )_fx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * f ( h5 p6 )_f RETURN END SUBROUTINE OFFSET_eomccsd_o2_5_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_o2.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_fx diff --git a/src/tce/sf_print.F b/src/tce/sf_print.F index fa4afdd4dd..1881d9f748 100644 --- a/src/tce/sf_print.F +++ b/src/tce/sf_print.F @@ -1,6 +1,6 @@ subroutine sf_print(sf_handle,size) c -c $Id: sf_print.F,v 1.10 2008-01-14 15:20:32 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/sf_test.F b/src/tce/sf_test.F index 89d40d157b..6c709fbe75 100644 --- a/src/tce/sf_test.F +++ b/src/tce/sf_test.F @@ -1,6 +1,6 @@ subroutine sf_test c -c $Id: sf_test.F,v 1.14 2008-12-07 22:37:58 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/splitfiles.py b/src/tce/splitfiles.py index 9c06620bf8..b7bae6d647 100644 --- a/src/tce/splitfiles.py +++ b/src/tce/splitfiles.py @@ -1,6 +1,6 @@ # Usage: python splitfiles.py < inputfile.F # (c) All rights reserved by Battelle & Pacific Northwest Nat'l Lab (2002) -# $Id: splitfiles.py,v 1.2 2003-07-25 21:26:59 sohirata Exp $ +# $Id$ import string import copy diff --git a/src/tce/sym_abelian_axis.F b/src/tce/sym_abelian_axis.F index 111cba332e..b8aa1f0917 100644 --- a/src/tce/sym_abelian_axis.F +++ b/src/tce/sym_abelian_axis.F @@ -1,6 +1,6 @@ integer function sym_abelian_axis(geom,axis) c -c $Id: sym_abelian_axis.F,v 1.3 2008-01-29 18:26:11 jhammond Exp $ +c $Id$ c c Returns irrep of a given axis if real Abelian, c otherwise returns -1. diff --git a/src/tce/tce.py b/src/tce/tce.py index 65a12d96bc..824a62d842 100644 --- a/src/tce/tce.py +++ b/src/tce/tce.py @@ -1,6 +1,6 @@ # Tensor Contraction Engine v.1.0 # (c) All rights reserved by Battelle & Pacific Northwest Nat'l Lab (2002) -# $Id: tce.py,v 1.19 2008-10-06 18:21:45 d3p975 Exp $ +# $Id$ import string import types @@ -8785,7 +8785,7 @@ class Code: return "Unknown language" # Standard headers - newline = "!$Id: tce.py,v 1.19 2008-10-06 18:21:45 d3p975 Exp $" + newline = "!$Id$" self.headers.append(newline) newline = "!This is a " + self.language + " program generated by Tensor Contraction Engine v.1.0" self.headers.append(newline) diff --git a/src/tce/tce_ao1e.F b/src/tce/tce_ao1e.F index c7c2d5c66f..16a06c82a5 100644 --- a/src/tce/tce_ao1e.F +++ b/src/tce/tce_ao1e.F @@ -1,6 +1,6 @@ subroutine tce_ao1e_shellfockbuild(rtdb,g_ao1e) c -c $Id: tce_ao1e.F,v 1.7 2008-01-14 15:20:32 jhammond Exp $ +c $Id$ c c Returns a GA handle for AO Fock matrix. c diff --git a/src/tce/tce_ao2e.F b/src/tce/tce_ao2e.F index 62e263b37e..82e9cb6bca 100644 --- a/src/tce/tce_ao2e.F +++ b/src/tce/tce_ao2e.F @@ -1,6 +1,6 @@ subroutine tce_ao2e(rtdb,d_ao2e) c -c $Id: tce_ao2e.F,v 1.18 2008-09-17 03:46:20 jhammond Exp $ +c $Id$ c c Returns a SF handle for the AO 2-e integral matrix. c diff --git a/src/tce/tce_ao2e_cholesky.F b/src/tce/tce_ao2e_cholesky.F index b55b2e6b8f..20ebedc65d 100644 --- a/src/tce/tce_ao2e_cholesky.F +++ b/src/tce/tce_ao2e_cholesky.F @@ -1,7 +1,7 @@ subroutine tce_ao2e_cholesky(rtdb, ! input & d_ao2e) ! output (first full AO matrix, then replaced by full Cholesky factor) c -c $Id: tce_ao2e_cholesky.F,v 1.3 2008-08-18 02:13:36 jhammond Exp $ +c $Id$ c c Returns a SF handle for the AO 2-e integral matrix. c diff --git a/src/tce/tce_ao2e_cholesky_2d.F b/src/tce/tce_ao2e_cholesky_2d.F index 6efbb94b65..81dd175bf0 100644 --- a/src/tce/tce_ao2e_cholesky_2d.F +++ b/src/tce/tce_ao2e_cholesky_2d.F @@ -1,7 +1,7 @@ subroutine tce_ao2e_cholesky_2d(rtdb, ! input & d_ao2e) ! output (first full AO matrix, then replaced by full Cholesky factor) c -c $Id: tce_ao2e_cholesky_2d.F,v 1.2 2008-08-18 02:13:36 jhammond Exp $ +c $Id$ c c Returns a SF handle for the AO 2-e integral matrix. c diff --git a/src/tce/tce_ao2e_cholesky_4d.F b/src/tce/tce_ao2e_cholesky_4d.F index 7fc09b7f08..6bc65bcd86 100644 --- a/src/tce/tce_ao2e_cholesky_4d.F +++ b/src/tce/tce_ao2e_cholesky_4d.F @@ -1,7 +1,7 @@ subroutine tce_ao2e_cholesky_4d(rtdb, ! input & d_ao2e) ! output (first full AO matrix, then replaced by full Cholesky factor) c -c $Id: tce_ao2e_cholesky_4d.F,v 1.2 2008-08-18 02:13:36 jhammond Exp $ +c $Id$ c c Returns a SF handle for the AO 2-e integral matrix. c diff --git a/src/tce/tce_ao2e_cholesky_orb.F b/src/tce/tce_ao2e_cholesky_orb.F index 29eb96eeb8..4ef9823abf 100644 --- a/src/tce/tce_ao2e_cholesky_orb.F +++ b/src/tce/tce_ao2e_cholesky_orb.F @@ -1,6 +1,6 @@ SUBROUTINE tce_ao2e_cholesky_orb(rtdb,d_v2,kax_v2_alpha_offset, 1 size_2e) -C $Id: tce_ao2e_cholesky_orb.F,v 1.2 2008-08-18 02:13:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t @@ -1575,7 +1575,7 @@ c c c SUBROUTINE tce_4a_offsetx2(l_a_offset,k_a_offset,size) -C $Id: tce_ao2e_cholesky_orb.F,v 1.2 2008-08-18 02:13:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) IMPLICIT NONE @@ -1629,7 +1629,7 @@ C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) c c SUBROUTINE tce_3a1m_offsetx2(l_a_offset,k_a_offset,size) -C $Id: tce_ao2e_cholesky_orb.F,v 1.2 2008-08-18 02:13:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) IMPLICIT NONE @@ -1686,7 +1686,7 @@ c c c SUBROUTINE tce_2a2m_offsetx2(l_a_offset,k_a_offset,size) -C $Id: tce_ao2e_cholesky_orb.F,v 1.2 2008-08-18 02:13:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) IMPLICIT NONE @@ -1739,7 +1739,7 @@ c c c SUBROUTINE tce_1a3m_offsetx2(l_a_offset,k_a_offset,size) -C $Id: tce_ao2e_cholesky_orb.F,v 1.2 2008-08-18 02:13:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) IMPLICIT NONE diff --git a/src/tce/tce_ao2e_disk.F b/src/tce/tce_ao2e_disk.F index 52cf2fe244..aa072cb75d 100644 --- a/src/tce/tce_ao2e_disk.F +++ b/src/tce/tce_ao2e_disk.F @@ -1,6 +1,6 @@ subroutine tce_ao2e_disk(rtdb,d_ao2e) c -c $Id: tce_ao2e_disk.F,v 1.3 2008-06-09 22:17:37 jhammond Exp $ +c $Id$ c c Returns a SF handle for the AO 2-e integral matrix. c diff --git a/src/tce/tce_ao2e_new.F b/src/tce/tce_ao2e_new.F index e91f362edd..c2a6dffa31 100644 --- a/src/tce/tce_ao2e_new.F +++ b/src/tce/tce_ao2e_new.F @@ -5,7 +5,7 @@ ! & ipol, ! input & d_ao2e) ! output c -c $Id: tce_ao2e_new.F,v 1.4 2008-08-18 02:13:36 jhammond Exp $ +c $Id$ c c Returns a SF handle for the AO 2-e integral matrix. c diff --git a/src/tce/tce_aod1.F b/src/tce/tce_aod1.F index 71d4b3a377..dd0bc24646 100644 --- a/src/tce/tce_aod1.F +++ b/src/tce/tce_aod1.F @@ -1,6 +1,6 @@ subroutine tce_aod1(rtdb,g_aod1,dipole) c -c $Id: tce_aod1.F,v 1.3 2008-01-14 15:20:33 jhammond Exp $ +c $Id$ c c Returns a GA handle for AO Fock matrix. c diff --git a/src/tce/tce_ccsd_asym_polar.F b/src/tce/tce_ccsd_asym_polar.F index fc7cb306c7..d0ebc908ab 100644 --- a/src/tce/tce_ccsd_asym_polar.F +++ b/src/tce/tce_ccsd_asym_polar.F @@ -5,7 +5,7 @@ & d_tr1,k_tr1_offset,d_tr2,k_tr2_offset, & d_yr1,k_yr1_offset,d_yr2,k_yr2_offset) c -c $Id: tce_ccsd_asym_polar.F,v 1.5 2008-03-12 21:34:17 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_ccsd_driver.F b/src/tce/tce_ccsd_driver.F index 65931386d6..d1963f1385 100644 --- a/src/tce/tce_ccsd_driver.F +++ b/src/tce/tce_ccsd_driver.F @@ -2,7 +2,7 @@ & d_t1,k_t1_offset,size_t1,d_t2,k_t2_offset,size_t2, & d_f1,k_f1_offset,d_v2,k_v2_offset) c -c $Id: tce_ccsd_driver.F,v 1.5 2008-02-16 02:42:52 jhammond Exp $ +c $Id$ c c Main routine for many-electron theory calculations. c Some of the subroutines have been generated by diff --git a/src/tce/tce_ccsd_hyperpolar.F b/src/tce/tce_ccsd_hyperpolar.F index bc472a43f7..c5a35aa5e4 100644 --- a/src/tce/tce_ccsd_hyperpolar.F +++ b/src/tce/tce_ccsd_hyperpolar.F @@ -6,7 +6,7 @@ & d_tr1,k_tr1_offset,d_tr2,k_tr2_offset, & d_yr1,k_yr1_offset,d_yr2,k_yr2_offset) c -c $Id: tce_ccsd_hyperpolar.F,v 1.5 2008-03-12 21:34:17 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c @@ -155,7 +155,7 @@ c & d_tr1c,k_tr1c_offset,d_tr2c,k_tr2c_offset, & d_yr1a,k_yr1a_offset,d_yr2a,k_yr2a_offset) c -c $Id: tce_ccsd_hyperpolar.F,v 1.5 2008-03-12 21:34:17 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, February 2008. c @@ -337,7 +337,7 @@ c & d_tr1,k_tr1_offset,d_tr2,k_tr2_offset, & d_yr1,k_yr1_offset,d_yr2,k_yr2_offset) c -c $Id: tce_ccsd_hyperpolar.F,v 1.5 2008-03-12 21:34:17 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, February 2008. c diff --git a/src/tce/tce_ccsd_hyperpolar_static.F b/src/tce/tce_ccsd_hyperpolar_static.F index c7e017a703..fb3c97ee87 100644 --- a/src/tce/tce_ccsd_hyperpolar_static.F +++ b/src/tce/tce_ccsd_hyperpolar_static.F @@ -6,7 +6,7 @@ & d_tr1,k_tr1_offset,d_tr2,k_tr2_offset, & d_yr1,k_yr1_offset,d_yr2,k_yr2_offset) c -c $Id: tce_ccsd_hyperpolar_static.F,v 1.1 2008-07-16 21:55:25 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c @@ -178,7 +178,7 @@ c & d_tr1c,k_tr1c_offset,d_tr2c,k_tr2c_offset, & d_yr1a,k_yr1a_offset,d_yr2a,k_yr2a_offset) c -c $Id: tce_ccsd_hyperpolar_static.F,v 1.1 2008-07-16 21:55:25 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, February 2008. c diff --git a/src/tce/tce_ccsd_lambda_driver.F b/src/tce/tce_ccsd_lambda_driver.F index 6267a6e2a7..9df27be6c2 100644 --- a/src/tce/tce_ccsd_lambda_driver.F +++ b/src/tce/tce_ccsd_lambda_driver.F @@ -3,7 +3,7 @@ & d_t1,k_t1_offset,size_t1,d_t2,k_t2_offset,size_t2, & d_f1,k_f1_offset,d_v2,k_v2_offset) c -c $Id: tce_ccsd_lambda_driver.F,v 1.2 2008-02-12 02:27:36 jhammond Exp $ +c $Id$ c c Main routine for many-electron theory calculations. c Some of the subroutines have been generated by diff --git a/src/tce/tce_ccsd_lambda_perturbative.F b/src/tce/tce_ccsd_lambda_perturbative.F index 6e6bdd97d9..ccc386c214 100644 --- a/src/tce/tce_ccsd_lambda_perturbative.F +++ b/src/tce/tce_ccsd_lambda_perturbative.F @@ -3,7 +3,7 @@ & d_y1,k_y1_offset,d_y2,k_y2_offset, & d_f1,k_f1_offset,d_v2,k_v2_offset) c -c $Id: tce_ccsd_lambda_perturbative.F,v 1.1 2008-05-05 17:42:09 jhammond Exp $ +c $Id$ c c Main routine for many-electron theory calculations. c Some of the subroutines have been generated by diff --git a/src/tce/tce_ccsd_lambda_response_driver.F b/src/tce/tce_ccsd_lambda_response_driver.F index 4c2dab36d3..9705f3791b 100644 --- a/src/tce/tce_ccsd_lambda_response_driver.F +++ b/src/tce/tce_ccsd_lambda_response_driver.F @@ -6,7 +6,7 @@ & d_t1,k_t1_offset,size_t1,d_t2,k_t2_offset,size_t2, & d_f1,k_f1_offset,d_v2,k_v2_offset,d_o1,k_o1_offset,omega) c -c $Id: tce_ccsd_lambda_response_driver.F,v 1.1 2008-02-12 02:27:36 jhammond Exp $ +c $Id$ c c Main routine for many-electron theory calculations. c Some of the subroutines have been generated by diff --git a/src/tce/tce_ccsd_perturbative.F b/src/tce/tce_ccsd_perturbative.F index 82022eb07f..2b8ed353df 100644 --- a/src/tce/tce_ccsd_perturbative.F +++ b/src/tce/tce_ccsd_perturbative.F @@ -2,7 +2,7 @@ & d_t1,k_t1_offset,d_t2,k_t2_offset, & d_f1,k_f1_offset,d_v2,k_v2_offset) c -c $Id: tce_ccsd_perturbative.F,v 1.2 2008-02-12 17:19:27 jhammond Exp $ +c $Id$ c c Main routine for many-electron theory calculations. c Some of the subroutines have been generated by diff --git a/src/tce/tce_ccsd_response_driver.F b/src/tce/tce_ccsd_response_driver.F index be403e7d06..16873ef526 100644 --- a/src/tce/tce_ccsd_response_driver.F +++ b/src/tce/tce_ccsd_response_driver.F @@ -3,7 +3,7 @@ & d_t1,k_t1_offset,d_t2,k_t2_offset, & d_f1,k_f1_offset,d_v2,k_v2_offset,d_o1,k_o1_offset,omega) c -c $Id: tce_ccsd_response_driver.F,v 1.4 2008-02-16 02:42:53 jhammond Exp $ +c $Id$ c c Main routine for many-electron theory calculations. c Some of the subroutines have been generated by diff --git a/src/tce/tce_ccsd_symm_polar.F b/src/tce/tce_ccsd_symm_polar.F index 6532516939..4cdad4c171 100644 --- a/src/tce/tce_ccsd_symm_polar.F +++ b/src/tce/tce_ccsd_symm_polar.F @@ -9,7 +9,7 @@ & d_tr1bp,d_tr1bm,k_tr1b_offset, & d_tr2bp,d_tr2bm,k_tr2b_offset) c -c $Id: tce_ccsd_symm_polar.F,v 1.5 2008-03-09 01:34:25 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_ccsdt_driver.F b/src/tce/tce_ccsdt_driver.F index 2f70d4ad55..2bb84c7947 100644 --- a/src/tce/tce_ccsdt_driver.F +++ b/src/tce/tce_ccsdt_driver.F @@ -3,7 +3,7 @@ & d_t3,k_t3_offset,size_t3,d_f1,k_f1_offset, & d_v2,k_v2_offset,diis_t3) c -c $Id: tce_ccsdt_driver.F,v 1.4 2008-02-16 02:42:53 jhammond Exp $ +c $Id$ c c Main routine for many-electron theory calculations. c Some of the subroutines have been generated by diff --git a/src/tce/tce_ccsdt_lambda_driver.F b/src/tce/tce_ccsdt_lambda_driver.F index 7cb1443cc5..a022803983 100644 --- a/src/tce/tce_ccsdt_lambda_driver.F +++ b/src/tce/tce_ccsdt_lambda_driver.F @@ -4,7 +4,7 @@ & d_t2,k_t2_offset,d_t3,k_t3_offset, & d_f1,k_f1_offset,d_v2,k_v2_offset,diis_y3) c -c $Id: tce_ccsdt_lambda_driver.F,v 1.3 2008-03-07 04:34:11 jhammond Exp $ +c $Id$ c c Main routine for many-electron theory calculations. c Some of the subroutines have been generated by diff --git a/src/tce/tce_ccsdt_response_driver.F b/src/tce/tce_ccsdt_response_driver.F index 33ed6ca396..0be652b2c6 100644 --- a/src/tce/tce_ccsdt_response_driver.F +++ b/src/tce/tce_ccsdt_response_driver.F @@ -4,7 +4,7 @@ & d_t2,k_t2_offset,d_t3,k_t3_offset,d_f1,k_f1_offset, & d_v2,k_v2_offset,d_o1,k_o1_offset,omega,diis_tr3) c -c $Id: tce_ccsdt_response_driver.F,v 1.3 2008-02-16 02:42:53 jhammond Exp $ +c $Id$ c c Main routine for many-electron theory calculations. c Some of the subroutines have been generated by diff --git a/src/tce/tce_ccsdt_symm_polar.F b/src/tce/tce_ccsdt_symm_polar.F index ce23880b7c..dcdaaf1e84 100644 --- a/src/tce/tce_ccsdt_symm_polar.F +++ b/src/tce/tce_ccsdt_symm_polar.F @@ -7,7 +7,7 @@ & d_tr3ap,d_tr3am,k_tr3a_offset,d_tr1bp,d_tr1bm,k_tr1b_offset, & d_tr2bp,d_tr2bm,k_tr2b_offset,d_tr3bp,d_tr3bm,k_tr3b_offset) c -c $Id: tce_ccsdt_symm_polar.F,v 1.4 2008-03-07 04:34:12 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_ccsdtq_driver.F b/src/tce/tce_ccsdtq_driver.F index 8508b8c1fe..3095619203 100644 --- a/src/tce/tce_ccsdtq_driver.F +++ b/src/tce/tce_ccsdtq_driver.F @@ -3,7 +3,7 @@ & d_t3,k_t3_offset,size_t3,d_t4,k_t4_offset,size_t4, & d_f1,k_f1_offset,d_v2,k_v2_offset,diis_t4) c -c $Id: tce_ccsdtq_driver.F,v 1.4 2008-03-07 04:34:11 jhammond Exp $ +c $Id$ c c Main routine for many-electron theory calculations. c Some of the subroutines have been generated by diff --git a/src/tce/tce_ccsdtq_lambda_driver.F b/src/tce/tce_ccsdtq_lambda_driver.F index 06ffff3724..e48903ae6b 100644 --- a/src/tce/tce_ccsdtq_lambda_driver.F +++ b/src/tce/tce_ccsdtq_lambda_driver.F @@ -5,7 +5,7 @@ & d_t3,k_t3_offset,size_t3,d_t4,k_t4_offset,size_t4, & d_f1,k_f1_offset,d_v2,k_v2_offset,diis_y4) c -c $Id: tce_ccsdtq_lambda_driver.F,v 1.2 2008-03-07 04:34:11 jhammond Exp $ +c $Id$ c c Main routine for many-electron theory calculations. c Some of the subroutines have been generated by diff --git a/src/tce/tce_ccsdtq_response_driver.F b/src/tce/tce_ccsdtq_response_driver.F index 877f13a99f..93595c832f 100644 --- a/src/tce/tce_ccsdtq_response_driver.F +++ b/src/tce/tce_ccsdtq_response_driver.F @@ -6,7 +6,7 @@ & d_f1,k_f1_offset,d_v2,k_v2_offset,d_o1,k_o1_offset,omega, & diis_tr4) c -c $Id: tce_ccsdtq_response_driver.F,v 1.2 2008-03-07 04:34:11 jhammond Exp $ +c $Id$ c c Main routine for many-electron theory calculations. c Some of the subroutines have been generated by diff --git a/src/tce/tce_ccsdtq_symm_polar.F b/src/tce/tce_ccsdtq_symm_polar.F index 8d42fcb9d5..33dd97eb4b 100644 --- a/src/tce/tce_ccsdtq_symm_polar.F +++ b/src/tce/tce_ccsdtq_symm_polar.F @@ -10,7 +10,7 @@ & d_tr1bp,d_tr1bm,k_tr1b_offset,d_tr2bp,d_tr2bm,k_tr2b_offset, & d_tr3bp,d_tr3bm,k_tr3b_offset,d_tr4bp,d_tr4bm,k_tr4b_offset) c -c $Id: tce_ccsdtq_symm_polar.F,v 1.3 2008-03-07 04:34:12 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_cholesky.F b/src/tce/tce_cholesky.F index 035917fd30..f3a805ee43 100644 --- a/src/tce/tce_cholesky.F +++ b/src/tce/tce_cholesky.F @@ -1,6 +1,6 @@ logical function tce_cholesky(rtdb,dim) c -c $Id: tce_cholesky.F,v 1.2 2008-07-16 21:47:09 jhammond Exp $ +c $Id$ c c Main routine for many-electron theory calculations. c Some of the subroutines have been generated by diff --git a/src/tce/tce_clone_x1.F b/src/tce/tce_clone_x1.F index 70c011965b..7b07aaa9a3 100644 --- a/src/tce/tce_clone_x1.F +++ b/src/tce/tce_clone_x1.F @@ -1,6 +1,6 @@ subroutine tce_clone_x1(d_x1,size_x1,irrep,title) c -c $Id: tce_clone_x1.F,v 1.2 2008-02-16 02:42:53 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_clone_x2.F b/src/tce/tce_clone_x2.F index dd4fedf18c..8d5be2db29 100644 --- a/src/tce/tce_clone_x2.F +++ b/src/tce/tce_clone_x2.F @@ -1,6 +1,6 @@ subroutine tce_clone_x2(d_x2,size_x2,irrep,title) c -c $Id: tce_clone_x2.F,v 1.2 2008-02-16 02:42:53 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_clone_x3.F b/src/tce/tce_clone_x3.F index 8ce91c2662..60b495a1d1 100644 --- a/src/tce/tce_clone_x3.F +++ b/src/tce/tce_clone_x3.F @@ -1,6 +1,6 @@ subroutine tce_clone_x3(d_x3,size_x3,irrep,title) c -c $Id: tce_clone_x3.F,v 1.2 2008-02-16 02:42:53 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_clone_x4.F b/src/tce/tce_clone_x4.F index fed927e203..021e96d1ab 100644 --- a/src/tce/tce_clone_x4.F +++ b/src/tce/tce_clone_x4.F @@ -1,6 +1,6 @@ subroutine tce_clone_x4(d_x4,size_x4,irrep,title) c -c $Id: tce_clone_x4.F,v 1.2 2008-02-16 02:42:53 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_clone_y1.F b/src/tce/tce_clone_y1.F index 0fa615586a..7d60117190 100644 --- a/src/tce/tce_clone_y1.F +++ b/src/tce/tce_clone_y1.F @@ -1,6 +1,6 @@ subroutine tce_clone_y1(d_y1,size_y1,irrep,title) c -c $Id: tce_clone_y1.F,v 1.2 2008-02-16 02:42:54 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_clone_y2.F b/src/tce/tce_clone_y2.F index f40cb414b7..f2b6259ede 100644 --- a/src/tce/tce_clone_y2.F +++ b/src/tce/tce_clone_y2.F @@ -1,6 +1,6 @@ subroutine tce_clone_y2(d_y2,size_y2,irrep,title) c -c $Id: tce_clone_y2.F,v 1.2 2008-02-16 02:42:54 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_clone_y3.F b/src/tce/tce_clone_y3.F index 2af959a680..f0c538bbca 100644 --- a/src/tce/tce_clone_y3.F +++ b/src/tce/tce_clone_y3.F @@ -1,6 +1,6 @@ subroutine tce_clone_y3(d_y3,size_y3,irrep,title) c -c $Id: tce_clone_y3.F,v 1.2 2008-02-16 02:42:54 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_clone_y4.F b/src/tce/tce_clone_y4.F index bc0aa95dc3..9b7ccb7cf8 100644 --- a/src/tce/tce_clone_y4.F +++ b/src/tce/tce_clone_y4.F @@ -1,6 +1,6 @@ subroutine tce_clone_y4(d_y4,size_y4,irrep,title) c -c $Id: tce_clone_y4.F,v 1.2 2008-02-16 02:42:54 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_create_movecs.F b/src/tce/tce_create_movecs.F index 2cc368824a..2aa8397d94 100644 --- a/src/tce/tce_create_movecs.F +++ b/src/tce/tce_create_movecs.F @@ -1,6 +1,6 @@ subroutine tce_create_movecs(rtdb) c -c $Id: tce_create_movecs.F,v 1.1 2008-02-11 17:08:23 jhammond Exp $ +c $Id$ c c Initialize for many-electron calculations. c diff --git a/src/tce/tce_create_t1.F b/src/tce/tce_create_t1.F index 936365226a..a403c82fb4 100644 --- a/src/tce/tce_create_t1.F +++ b/src/tce/tce_create_t1.F @@ -1,7 +1,7 @@ subroutine tce_create_t1(d_t1,l_t1_offset,k_t1_offset,size_t1, & irrep,title) c -c $Id: tce_create_t1.F,v 1.3 2008-02-16 02:42:54 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_create_t2.F b/src/tce/tce_create_t2.F index 636b3a71da..2a4ffde51e 100644 --- a/src/tce/tce_create_t2.F +++ b/src/tce/tce_create_t2.F @@ -5,7 +5,7 @@ & d_v2,k_v2_offset,size_2e, & ref,needt1,ioalg,model) c -c $Id: tce_create_t2.F,v 1.3 2008-02-16 02:42:54 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_create_t3.F b/src/tce/tce_create_t3.F index 5583a3e66b..5a87aa03cb 100644 --- a/src/tce/tce_create_t3.F +++ b/src/tce/tce_create_t3.F @@ -1,7 +1,7 @@ subroutine tce_create_t3(d_t3,l_t3_offset,k_t3_offset,size_t3, & irrep,title) c -c $Id: tce_create_t3.F,v 1.3 2008-02-16 02:42:54 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_create_t4.F b/src/tce/tce_create_t4.F index 2cf835e49a..3e10bd22ed 100644 --- a/src/tce/tce_create_t4.F +++ b/src/tce/tce_create_t4.F @@ -1,7 +1,7 @@ subroutine tce_create_t4(d_t4,l_t4_offset,k_t4_offset,size_t4, & irrep,title) c -c $Id: tce_create_t4.F,v 1.3 2008-02-16 02:42:54 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_create_x1.F b/src/tce/tce_create_x1.F index 914763650e..e6c5a213d5 100644 --- a/src/tce/tce_create_x1.F +++ b/src/tce/tce_create_x1.F @@ -1,7 +1,7 @@ subroutine tce_create_x1(d_x1,l_x1_offset,k_x1_offset,size_x1, & irrep,title) c -c $Id: tce_create_x1.F,v 1.3 2008-02-16 02:42:54 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_create_x2.F b/src/tce/tce_create_x2.F index d3589f4678..2482af9254 100644 --- a/src/tce/tce_create_x2.F +++ b/src/tce/tce_create_x2.F @@ -1,7 +1,7 @@ subroutine tce_create_x2(d_x2,l_x2_offset,k_x2_offset,size_x2, & irrep,title) c -c $Id: tce_create_x2.F,v 1.3 2008-02-16 02:42:54 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_create_x3.F b/src/tce/tce_create_x3.F index 1a5a173685..eb038b1c3d 100644 --- a/src/tce/tce_create_x3.F +++ b/src/tce/tce_create_x3.F @@ -1,7 +1,7 @@ subroutine tce_create_x3(d_x3,l_x3_offset,k_x3_offset,size_x3, & irrep,title) c -c $Id: tce_create_x3.F,v 1.3 2008-02-16 02:42:54 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_create_x4.F b/src/tce/tce_create_x4.F index f2bfa9845d..9b554a1b88 100644 --- a/src/tce/tce_create_x4.F +++ b/src/tce/tce_create_x4.F @@ -1,7 +1,7 @@ subroutine tce_create_x4(d_x4,l_x4_offset,k_x4_offset,size_x4, & irrep,title) c -c $Id: tce_create_x4.F,v 1.3 2008-02-16 02:42:54 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_create_y1.F b/src/tce/tce_create_y1.F index 30855a24b8..91b4942190 100644 --- a/src/tce/tce_create_y1.F +++ b/src/tce/tce_create_y1.F @@ -1,7 +1,7 @@ subroutine tce_create_y1(d_y1,l_y1_offset,k_y1_offset,size_y1, & irrep,title) c -c $Id: tce_create_y1.F,v 1.3 2008-02-16 02:42:54 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_create_y2.F b/src/tce/tce_create_y2.F index ede3d1da20..cbbaaa35f7 100644 --- a/src/tce/tce_create_y2.F +++ b/src/tce/tce_create_y2.F @@ -1,7 +1,7 @@ subroutine tce_create_y2(d_y2,l_y2_offset,k_y2_offset,size_y2, & irrep,title) c -c $Id: tce_create_y2.F,v 1.3 2008-02-16 02:42:54 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_create_y3.F b/src/tce/tce_create_y3.F index 3a47b6ec70..2ffceec6f3 100644 --- a/src/tce/tce_create_y3.F +++ b/src/tce/tce_create_y3.F @@ -1,7 +1,7 @@ subroutine tce_create_y3(d_y3,l_y3_offset,k_y3_offset,size_y3, & irrep,title) c -c $Id: tce_create_y3.F,v 1.3 2008-02-16 02:42:55 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_create_y4.F b/src/tce/tce_create_y4.F index 94892a3a6a..d72373d5f8 100644 --- a/src/tce/tce_create_y4.F +++ b/src/tce/tce_create_y4.F @@ -1,7 +1,7 @@ subroutine tce_create_y4(d_y4,l_y4_offset,k_y4_offset,size_y4, & irrep,title) c -c $Id: tce_create_y4.F,v 1.3 2008-02-16 02:42:55 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_dgeev.F b/src/tce/tce_dgeev.F index 4334a553a8..50d8f02cbc 100644 --- a/src/tce/tce_dgeev.F +++ b/src/tce/tce_dgeev.F @@ -1,7 +1,7 @@ SUBROUTINE TCE_DGEEV $ ( JOBVL, JOBVR, N, A, LDA, WR, WI, VL, LDVL, VR, $ LDVR, WORK, LWORK, INFO ) -c $Id: tce_dgeev.F,v 1.2 2002-04-28 19:09:13 sohirata Exp $ +c $Id$ c The subdoutine is identical to the original dgeev but had to be renamed, c since otherwise, for IBM SP2, dynamically linked dgeev having different c interface syntax is going to be used rather than this. diff --git a/src/tce/tce_e_offset.F b/src/tce/tce_e_offset.F index f58d98337f..b3b7920b8a 100644 --- a/src/tce/tce_e_offset.F +++ b/src/tce/tce_e_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_e_offset(l_a_offset,k_a_offset,size) -C $Id: tce_e_offset.F,v 1.4 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C e ( )_e diff --git a/src/tce/tce_energy.F b/src/tce/tce_energy.F index c9284c85fc..d2db51f3f1 100644 --- a/src/tce/tce_energy.F +++ b/src/tce/tce_energy.F @@ -1,6 +1,6 @@ logical function tce_energy(rtdb,excitedfragment) c -c $Id: tce_energy.F,v 1.164 2009-03-16 03:49:57 jhammond Exp $ +c $Id$ c implicit none #include "mafdecls.fh" diff --git a/src/tce/tce_energy_fragment.F b/src/tce/tce_energy_fragment.F index 09dada957c..cd76b4c09c 100644 --- a/src/tce/tce_energy_fragment.F +++ b/src/tce/tce_energy_fragment.F @@ -1,6 +1,6 @@ logical function tce_energy_fragment(rtdb) c -c $Id: tce_energy_fragment.F,v 1.7 2005-12-16 22:16:04 kowalski Exp $ +c $Id$ c c Wrapper for tce_energy for fragment MO calculations. c diff --git a/src/tce/tce_eom_init.F b/src/tce/tce_eom_init.F index 9c6d207f2b..1493f1d274 100644 --- a/src/tce/tce_eom_init.F +++ b/src/tce/tce_eom_init.F @@ -1,6 +1,6 @@ subroutine tce_eom_init c -c $Id: tce_eom_init.F,v 1.3 2008-01-14 15:20:33 jhammond Exp $ +c $Id$ c c Initializes file handle holders c diff --git a/src/tce/tce_eom_tidy.F b/src/tce/tce_eom_tidy.F index 270b4308f8..3ce80618ba 100644 --- a/src/tce/tce_eom_tidy.F +++ b/src/tce/tce_eom_tidy.F @@ -1,6 +1,6 @@ subroutine tce_eom_tidy c -c $Id: tce_eom_tidy.F,v 1.3 2008-01-14 15:20:33 jhammond Exp $ +c $Id$ c c Delete files for trial and product vectors c @@ -25,7 +25,7 @@ c subroutine tce_eom_xtidy c -c $Id: tce_eom_tidy.F,v 1.3 2008-01-14 15:20:33 jhammond Exp $ +c $Id$ c c Delete files for trial and product vectors c @@ -50,7 +50,7 @@ c subroutine tce_eom_ytidy c -c $Id: tce_eom_tidy.F,v 1.3 2008-01-14 15:20:33 jhammond Exp $ +c $Id$ c c Delete files for trial and product vectors c diff --git a/src/tce/tce_eom_xdiagon.F b/src/tce/tce_eom_xdiagon.F index 4a9cbe1099..7e87b87130 100644 --- a/src/tce/tce_eom_xdiagon.F +++ b/src/tce/tce_eom_xdiagon.F @@ -3,7 +3,7 @@ 2 k_x1_offset,k_x2_offset,k_x3_offset,k_x4_offset, 3 d_r1,d_r2,d_r3,d_r4,omega,residual,k_hbar,iteration) c -c $Id: tce_eom_xdiagon.F,v 1.7 2008/06/18 21:48:22 kowalski Exp $ +c $Id$ c c Form a subspace matrix and diagonalize c @@ -552,7 +552,7 @@ c 1 size_x1,size_x2, 1 imicro,xdiis) c -c $Id: tce_eom_xdiagon.F,v 1.7 2008/06/18 21:48:22 kowalski Exp $ +c $Id$ c c Form a subspace matrix and diagonalize c @@ -637,7 +637,7 @@ c & size_x1,size_x2, & c_eff,imicro_x,xdiis,iroot) c -c $Id: tce_eom_xdiagon.F,v 1.7 2008/06/18 21:48:22 kowalski Exp $ +c $Id$ c c xc(iroot) = sum(i=1,...,imicro) x(i) c @@ -687,7 +687,7 @@ c & size_x1,size_x2, & c_eff,omega,imicro,xdiis,residual) c -c $Id: tce_eom_xdiagon.F,v 1.7 2008/06/18 21:48:22 kowalski Exp $ +c $Id$ c c delta_x = (omega - H-bar) xc c @@ -780,7 +780,7 @@ c subroutine form_heff(k_x1_offset,k_x2_offset,size_x1,size_x2, & c_eff,h_eff,omega,imicro,xdiis,iter_eomcc) c -c $Id: tce_eom_xdiagon.F,v 1.7 2008/06/18 21:48:22 kowalski Exp $ +c $Id$ c c Form a subspace matrix and diagonalize c @@ -962,7 +962,7 @@ c subroutine norm_xc_vector(k_x1_offset,k_x2_offset, 1 size_x1,size_x2,iroot) c -c $Id: tce_eom_xdiagon.F,v 1.7 2008/06/18 21:48:22 kowalski Exp $ +c $Id$ c c Form a subspace matrix and diagonalize c @@ -1022,7 +1022,7 @@ c subroutine eom_starts(size_x1,k_x1_offset,d_f1,k_f1_offset,d_v2, 1 k_v2_offset,k_omegax) c -c $Id: tce_eom_xdiagon.F,v 1.7 2008/06/18 21:48:22 kowalski Exp $ +c $Id$ c c Form a subspace matrix and diagonalize c @@ -1192,7 +1192,7 @@ c subroutine norm_x_vector_mr(k_x1_offset,k_x2_offset, 1 size_x1,size_x2,totr) c -c $Id: tce_eom_xdiagon.F,v 1.7 2008/06/18 21:48:22 kowalski Exp $ +c $Id$ c c Form a subspace matrix and diagonalize c @@ -1279,7 +1279,7 @@ c subroutine form_heff_mr(k_x1_offset,k_x2_offset,size_x1,size_x2, & c_eff,h_eff,omega,imicro,xdiis,iter_eomcc) c -c $Id: tce_eom_xdiagon.F,v 1.7 2008/06/18 21:48:22 kowalski Exp $ +c $Id$ c c Form a subspace matrix and diagonalize c @@ -1466,7 +1466,7 @@ c & size_x1,size_x2, & c_eff,omega,imicro,xdiis,residual,iroot) c -c $Id: tce_eom_xdiagon.F,v 1.7 2008/06/18 21:48:22 kowalski Exp $ +c $Id$ c c delta_x = (omega - H-bar) xc c @@ -1555,7 +1555,7 @@ c & size_x1,size_x2, & c_eff,imicro_x,xdiis,iroot) c -c $Id: tce_eom_xdiagon.F,v 1.7 2008/06/18 21:48:22 kowalski Exp $ +c $Id$ c c xc(iroot) = sum(i=1,...,imicro) x(i) c @@ -1608,7 +1608,7 @@ c 1 size_x1,size_x2, 1 imicro,xdiis) c -c $Id: tce_eom_xdiagon.F,v 1.7 2008/06/18 21:48:22 kowalski Exp $ +c $Id$ c c Form a subspace matrix and diagonalize c diff --git a/src/tce/tce_eom_xguess.F b/src/tce/tce_eom_xguess.F index 0b48a93131..1ae60096dc 100644 --- a/src/tce/tce_eom_xguess.F +++ b/src/tce/tce_eom_xguess.F @@ -2,7 +2,7 @@ 1 size_x1,size_x2,size_x3,size_x4, 2 k_x1_offset,k_x2_offset,k_x3_offset,k_x4_offset) c -c $Id: tce_eom_xguess.F,v 1.7 2008-10-15 18:22:18 kowalski Exp $ +c $Id$ c c Generates initial trial vectors that are all singly excited c determinants within the same irrep_x diff --git a/src/tce/tce_eom_ydiagon.F b/src/tce/tce_eom_ydiagon.F index 012682a878..e941412cc4 100644 --- a/src/tce/tce_eom_ydiagon.F +++ b/src/tce/tce_eom_ydiagon.F @@ -3,7 +3,7 @@ 2 k_y1_offset,k_y2_offset,k_y3_offset,k_y4_offset, 3 d_r1,d_r2,d_r3,d_r4,omega,residual) c -c $Id: tce_eom_ydiagon.F,v 1.4 2008-01-26 00:26:18 kowalski Exp $ +c $Id$ c c Form a subspace matrix and diagonalize c diff --git a/src/tce/tce_eom_yguess.F b/src/tce/tce_eom_yguess.F index c288db7bfb..b9edb405ba 100644 --- a/src/tce/tce_eom_yguess.F +++ b/src/tce/tce_eom_yguess.F @@ -2,7 +2,7 @@ 1 size_y1,size_y2,size_y3,size_y4, 2 k_y1_offset,k_y2_offset,k_y3_offset,k_y4_offset) c -c $Id: tce_eom_yguess.F,v 1.7 2008-10-16 16:43:11 kowalski Exp $ +c $Id$ c c Generates initial trial vectors that are all singly excited c determinants within the same irrep_y diff --git a/src/tce/tce_filename.F b/src/tce/tce_filename.F index c63d37f4bd..55652065d1 100644 --- a/src/tce/tce_filename.F +++ b/src/tce/tce_filename.F @@ -1,6 +1,6 @@ subroutine tce_filename(stub,filename) c -c $Id: tce_filename.F,v 1.9 2008-07-02 03:30:10 jhammond Exp $ +c $Id$ c implicit none c#include "global.fh" @@ -37,7 +37,7 @@ c subroutine tce_filenameindexed(index,stub,filename) c -c $Id: tce_filename.F,v 1.9 2008-07-02 03:30:10 jhammond Exp $ +c $Id$ c implicit none c#include "global.fh" @@ -73,7 +73,7 @@ c subroutine tce_filename_4ind(index,stub,filename) c -c $Id: tce_filename.F,v 1.9 2008-07-02 03:30:10 jhammond Exp $ +c $Id$ c implicit none c#include "global.fh" @@ -112,7 +112,7 @@ ccx call tce_filename(stub,temporary) subroutine tce_filename_sf(stub,filename) c -c $Id: tce_filename.F,v 1.9 2008-07-02 03:30:10 jhammond Exp $ +c $Id$ c implicit none c#include "global.fh" diff --git a/src/tce/tce_fock_create.F b/src/tce/tce_fock_create.F index ec3bb46b95..7a96149dd1 100644 --- a/src/tce/tce_fock_create.F +++ b/src/tce/tce_fock_create.F @@ -1,6 +1,6 @@ subroutine tce_fock_create(rtdb,d_f1,l_f1_offset,k_f1_offset) c -c $Id: tce_fock_create.F,v 1.2 2008-09-18 14:38:46 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_fock_destroy.F b/src/tce/tce_fock_destroy.F index d5d6319a1b..b67e97dda9 100644 --- a/src/tce/tce_fock_destroy.F +++ b/src/tce/tce_fock_destroy.F @@ -1,6 +1,6 @@ subroutine tce_fock_driver(d_f1,l_f1_offset) c -c $Id: tce_fock_destroy.F,v 1.1 2008-02-11 17:08:23 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_fourindex_cleanup.F b/src/tce/tce_fourindex_cleanup.F index ae69e667a1..c29566d60e 100644 --- a/src/tce/tce_fourindex_cleanup.F +++ b/src/tce/tce_fourindex_cleanup.F @@ -1,6 +1,6 @@ subroutine tce_fourindex_cleanup(d_f1,l_f1_offset,k_f1_offset) c -c $Id: tce_fourindex_cleanup.F,v 1.2 2008-02-12 17:19:28 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_fourindex_driver.F b/src/tce/tce_fourindex_driver.F index fec306fe3c..7edbfbba85 100644 --- a/src/tce/tce_fourindex_driver.F +++ b/src/tce/tce_fourindex_driver.F @@ -1,6 +1,6 @@ subroutine tce_fourindex_driver(rtdb,d_v2,l_v2_offset,k_v2_offset) c -c $Id: tce_fourindex_driver.F,v 1.2 2008-02-11 17:08:24 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_guess_t1.F b/src/tce/tce_guess_t1.F index ef2668f448..b43b0bdbe7 100644 --- a/src/tce/tce_guess_t1.F +++ b/src/tce/tce_guess_t1.F @@ -1,6 +1,6 @@ subroutine tce_guess_t1(d_t1,k_t1_offset) c -c $Id: tce_guess_t1.F,v 1.9 2008-07-17 21:47:57 marat Exp $ +c $Id$ c implicit none #include "global.fh" @@ -94,7 +94,7 @@ c c subroutine tce_guess_t1_zero(d_t1,k_t1_offset) c -c $Id: tce_guess_t1.F,v 1.9 2008-07-17 21:47:57 marat Exp $ +c $Id$ c implicit none #include "global.fh" @@ -172,7 +172,7 @@ c c SUBROUTINE t1mp2(d_f1,d_i0,d_t2,d_v2,k_f1_offset,k_i0_offset,k_t2_ &offset,k_v2_offset) -C $Id: tce_guess_t1.F,v 1.9 2008-07-17 21:47:57 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_f + = 1 * f ( p2 h1 )_f @@ -198,7 +198,7 @@ C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 RETURN END SUBROUTINE t1mp2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce_guess_t1.F,v 1.9 2008-07-17 21:47:57 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_f + = 1 * f ( p2 h1 )_f @@ -284,7 +284,7 @@ cc next = NXTVAL(-nprocs) RETURN END SUBROUTINE t1mp2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: tce_guess_t1.F,v 1.9 2008-07-17 21:47:57 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * v ( h4 h5 h1 p3 )_v @@ -457,7 +457,7 @@ cc next = NXTVAL(-nprocs) RETURN END SUBROUTINE t1mp2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: tce_guess_t1.F,v 1.9 2008-07-17 21:47:57 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 p2 p3 p4 )_v diff --git a/src/tce/tce_guess_t2.F b/src/tce/tce_guess_t2.F index 964e1d0900..f9b77dd501 100644 --- a/src/tce/tce_guess_t2.F +++ b/src/tce/tce_guess_t2.F @@ -1,7 +1,7 @@ subroutine tce_guess_t2(d_mo2e,k_2e_offset, 1 d_t2,k_t2_offset) c -c $Id: tce_guess_t2.F,v 1.11 2008-07-17 21:47:57 marat Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/tce_hash.F b/src/tce/tce_hash.F index 86c9b00f3c..c3a2d64e4b 100644 --- a/src/tce/tce_hash.F +++ b/src/tce/tce_hash.F @@ -1,6 +1,6 @@ subroutine tce_hash(hash,key,offset) c -c $Id: tce_hash.F,v 1.2 2006-06-06 17:10:59 kowalski Exp $ +c $Id$ c implicit none #include "util.fh" @@ -53,7 +53,7 @@ c c subroutine tce_hash_n(hash,key,offset) c -c $Id: tce_hash.F,v 1.2 2006-06-06 17:10:59 kowalski Exp $ +c $Id$ c implicit none #include "util.fh" diff --git a/src/tce/tce_hash_ind.F b/src/tce/tce_hash_ind.F index d76b1c26d1..21ffbd5629 100644 --- a/src/tce/tce_hash_ind.F +++ b/src/tce/tce_hash_ind.F @@ -2,7 +2,7 @@ cccx subroutine tce_hash_ind(hash,key,indexc) cccx subroutine tce_hash_ind(hash,key,offset,indexc) c -c $Id: tce_hash_ind.F,v 1.2 2006-06-05 18:25:27 kowalski Exp $ +c $Id$ c implicit none #include "util.fh" diff --git a/src/tce/tce_init.F b/src/tce/tce_init.F index 4e28dc17c8..1dd9163449 100644 --- a/src/tce/tce_init.F +++ b/src/tce/tce_init.F @@ -1,6 +1,6 @@ subroutine tce_init(rtdb) c -c $Id: tce_init.F,v 1.71 2009/01/28 18:11:42 marat Exp $ +c $Id$ c c Initialize for many-electron calculations. c diff --git a/src/tce/tce_init_new.F b/src/tce/tce_init_new.F index 505a0fb800..bebed99611 100644 --- a/src/tce/tce_init_new.F +++ b/src/tce/tce_init_new.F @@ -1,6 +1,6 @@ subroutine tce_init_new(rtdb) c -c $Id: tce_init_new.F,v 1.2 2008-09-18 14:38:47 jhammond Exp $ +c $Id$ c c Initialize for many-electron calculations. c diff --git a/src/tce/tce_input.F b/src/tce/tce_input.F index b553a770a1..e23403fe23 100644 --- a/src/tce/tce_input.F +++ b/src/tce/tce_input.F @@ -3,7 +3,7 @@ #endif subroutine tce_input(rtdb) c -c $Id: tce_input.F,v 1.37 2009/03/05 23:48:58 d3p975 Exp $ +c $Id$ c c Input parser for TCE module for various many-electron theories. c Also sets default values for input parameters. diff --git a/src/tce/tce_make_denom1.F b/src/tce/tce_make_denom1.F index 612832fa20..52f189bb0f 100644 --- a/src/tce/tce_make_denom1.F +++ b/src/tce/tce_make_denom1.F @@ -1,7 +1,7 @@ subroutine tce_make_denom1(d_denom1,k_denom1_offset,irrep, 1 denom_power,omega,shift) c -c $Id: tce_make_denom1.F,v 1.2 2008-09-30 18:43:17 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/tce_make_denom2.F b/src/tce/tce_make_denom2.F index 33c3fbfed9..bc42d44c4b 100644 --- a/src/tce/tce_make_denom2.F +++ b/src/tce/tce_make_denom2.F @@ -1,7 +1,7 @@ subroutine tce_make_denom2(d_denom2,k_denom2_offset,irrep, 1 denom_power,omega,shift) c -c $Id: tce_make_denom2.F,v 1.2 2008-09-30 18:43:17 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/tce_mbpt2.F b/src/tce/tce_mbpt2.F index 783fb276ea..04238db422 100644 --- a/src/tce/tce_mbpt2.F +++ b/src/tce/tce_mbpt2.F @@ -1,7 +1,7 @@ subroutine tce_mbpt2(d_mo2e,k_2e_offset, 1 d_t2,k_t2_offset,mbpt2) c -c $Id: tce_mbpt2.F,v 1.7 2008-10-16 14:20:17 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/tce_mo1e.F b/src/tce/tce_mo1e.F index 96d8f41a0b..90422d60e4 100644 --- a/src/tce/tce_mo1e.F +++ b/src/tce/tce_mo1e.F @@ -1,6 +1,6 @@ subroutine tce_mo1e(g_ao1e,d_mo1e,k_f1_offset) c -c $Id: tce_mo1e.F,v 1.11 2008-01-14 15:20:34 jhammond Exp $ +c $Id$ c c Spin-spatial-symmetry blocked Fock matrix transformations. c diff --git a/src/tce/tce_mo1e_offset.F b/src/tce/tce_mo1e_offset.F index d76eb9f53f..6c815b33f1 100644 --- a/src/tce/tce_mo1e_offset.F +++ b/src/tce/tce_mo1e_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_mo1e_offset(l_a_offset,k_a_offset,size) -C $Id: tce_mo1e_offset.F,v 1.6 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C f ( g6 g5 )_f diff --git a/src/tce/tce_mo2e.F b/src/tce/tce_mo2e.F index 1047aadafc..fb5f124957 100644 --- a/src/tce/tce_mo2e.F +++ b/src/tce/tce_mo2e.F @@ -1,6 +1,6 @@ subroutine tce_mo2e(rtdb,d_ao2e,d_mo2e,k_2e_offset) c -c $Id: tce_mo2e.F,v 1.16 2008-10-05 02:59:09 jhammond Exp $ +c $Id$ c c Returns a SF handle for the MO 2-e integral matrix. c diff --git a/src/tce/tce_mo2e_2emet3.F b/src/tce/tce_mo2e_2emet3.F index af5060dcce..c3ea237582 100644 --- a/src/tce/tce_mo2e_2emet3.F +++ b/src/tce/tce_mo2e_2emet3.F @@ -1,5 +1,5 @@ SUBROUTINE tce_mo2e_2emet3(d_v2,kax_v2_alpha_offset,size_2e) -C $Id: tce_mo2e_2emet3.F,v 1.1 2008-08-18 02:13:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t @@ -785,7 +785,7 @@ c c c ccx SUBROUTINE tce_4a_offset(l_a_offset,k_a_offset,size) -ccxC $Id: tce_mo2e_2emet3.F,v 1.1 2008-08-18 02:13:36 jhammond Exp $ +ccxC $Id$ ccxC This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 ccxC Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) ccx IMPLICIT NONE diff --git a/src/tce/tce_mo2e_2emet3_n5.F b/src/tce/tce_mo2e_2emet3_n5.F index 4061010b6d..4b43be165e 100644 --- a/src/tce/tce_mo2e_2emet3_n5.F +++ b/src/tce/tce_mo2e_2emet3_n5.F @@ -1,5 +1,5 @@ SUBROUTINE tce_mo2e_2emet3_n5(d_v2,kax_v2_alpha_offset,size_2e) -C $Id: tce_mo2e_2emet3_n5.F,v 1.1 2008-08-18 02:13:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t @@ -815,7 +815,7 @@ c c c ccx SUBROUTINE tce_4a_offset(l_a_offset,k_a_offset,size) -ccxC $Id: tce_mo2e_2emet3_n5.F,v 1.1 2008-08-18 02:13:36 jhammond Exp $ +ccxC $Id$ ccxC This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 ccxC Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) ccx IMPLICIT NONE diff --git a/src/tce/tce_mo2e_2emet4.F b/src/tce/tce_mo2e_2emet4.F index 2322522870..86f37eeb01 100644 --- a/src/tce/tce_mo2e_2emet4.F +++ b/src/tce/tce_mo2e_2emet4.F @@ -1,5 +1,5 @@ SUBROUTINE tce_mo2e_2emet4(d_v2,kax_v2_alpha_offset,size_2e) -C $Id: tce_mo2e_2emet4.F,v 1.1 2008-08-18 02:13:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t @@ -787,7 +787,7 @@ c c ! ! ! SUBROUTINE tce_4a_offset_chop(l_a_offset,k_a_offset,size, ! ! ! & igo,isumr,taskl_az12) -! ! ! C $Id: tce_mo2e_2emet4.F,v 1.1 2008-08-18 02:13:37 jhammond Exp $ +! ! ! C $Id$ ! ! ! C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 ! ! ! C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) ! ! ! IMPLICIT NONE @@ -847,7 +847,7 @@ c c ! ! ! SUBROUTINE tce_4a_chop_size(size, ! ! ! & igo,isumr,taskl_az12) -! ! ! C $Id: tce_mo2e_2emet4.F,v 1.1 2008-08-18 02:13:37 jhammond Exp $ +! ! ! C $Id$ ! ! ! C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 ! ! ! C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) ! ! ! IMPLICIT NONE diff --git a/src/tce/tce_mo2e_2emet4_n5.F b/src/tce/tce_mo2e_2emet4_n5.F index e292fb3ed3..fb378365d1 100644 --- a/src/tce/tce_mo2e_2emet4_n5.F +++ b/src/tce/tce_mo2e_2emet4_n5.F @@ -1,5 +1,5 @@ SUBROUTINE tce_mo2e_2emet4_n5(d_v2,kax_v2_alpha_offset,size_2e) -C $Id: tce_mo2e_2emet4_n5.F,v 1.1 2008-08-18 02:13:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t @@ -787,7 +787,7 @@ c c ! ! ! SUBROUTINE tce_4a_offset_chop(l_a_offset,k_a_offset,size, ! ! ! & igo,isumr,taskl_az12) -! ! ! C $Id: tce_mo2e_2emet4_n5.F,v 1.1 2008-08-18 02:13:37 jhammond Exp $ +! ! ! C $Id$ ! ! ! C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 ! ! ! C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) ! ! ! IMPLICIT NONE @@ -847,7 +847,7 @@ c c ! ! ! SUBROUTINE tce_4a_chop_size(size, ! ! ! & igo,isumr,taskl_az12) -! ! ! C $Id: tce_mo2e_2emet4_n5.F,v 1.1 2008-08-18 02:13:37 jhammond Exp $ +! ! ! C $Id$ ! ! ! C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 ! ! ! C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) ! ! ! IMPLICIT NONE diff --git a/src/tce/tce_mo2e_disk.F b/src/tce/tce_mo2e_disk.F index b1697062f7..9555c3ebd3 100644 --- a/src/tce/tce_mo2e_disk.F +++ b/src/tce/tce_mo2e_disk.F @@ -1,6 +1,6 @@ subroutine tce_mo2e_disk(rtdb,d_ao2e,d_mo2e,k_2e_offset) c -c $Id: tce_mo2e_disk.F,v 1.3 2008-10-05 02:59:09 jhammond Exp $ +c $Id$ c c Returns a SF handle for the MO 2-e integral matrix. c diff --git a/src/tce/tce_mo2e_disk_2eorb.F b/src/tce/tce_mo2e_disk_2eorb.F index b6538b1476..ed90870870 100644 --- a/src/tce/tce_mo2e_disk_2eorb.F +++ b/src/tce/tce_mo2e_disk_2eorb.F @@ -1,6 +1,6 @@ SUBROUTINE tce_mo2e_disk_2eorb(rtdb,d_v2,kax_v2_alpha_offset, 1 size_2e) -C $Id: tce_mo2e_disk_2eorb.F,v 1.6 2008-07-30 14:35:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t diff --git a/src/tce/tce_mo2e_hybrid_2eorb_split.F b/src/tce/tce_mo2e_hybrid_2eorb_split.F index 770a7b921c..326041ca2f 100644 --- a/src/tce/tce_mo2e_hybrid_2eorb_split.F +++ b/src/tce/tce_mo2e_hybrid_2eorb_split.F @@ -1,6 +1,6 @@ SUBROUTINE tce_mo2e_hybrid_2eorb_split(d_v2ga,d_v2sf, 1 kax_v2_alpha_offset) -C $Id: tce_mo2e_hybrid_2eorb_split.F,v 1.2 2008-08-18 02:13:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t diff --git a/src/tce/tce_mo2e_incore_2eorb.F b/src/tce/tce_mo2e_incore_2eorb.F index 4d00296261..89e227c4e2 100644 --- a/src/tce/tce_mo2e_incore_2eorb.F +++ b/src/tce/tce_mo2e_incore_2eorb.F @@ -1,7 +1,7 @@ SUBROUTINE tce_mo2e_incore_2eorb(rtdb,d_v2, 1 kax_v2_alpha_offset, 1 size_2e) -C $Id: tce_mo2e_incore_2eorb.F,v 1.7 2008-08-18 02:13:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t diff --git a/src/tce/tce_mo2e_incore_2eorb_split.F b/src/tce/tce_mo2e_incore_2eorb_split.F index 918e418ff6..3afe515ad2 100644 --- a/src/tce/tce_mo2e_incore_2eorb_split.F +++ b/src/tce/tce_mo2e_incore_2eorb_split.F @@ -1,6 +1,6 @@ SUBROUTINE tce_mo2e_incore_2eorb_split(rtdb,d_v2, 1 kax_v2_alpha_offset,size_2e) -C $Id: tce_mo2e_incore_2eorb_split.F,v 1.2 2008-08-18 02:13:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t diff --git a/src/tce/tce_mo2e_new.F b/src/tce/tce_mo2e_new.F index 863c163319..b163cd464d 100644 --- a/src/tce/tce_mo2e_new.F +++ b/src/tce/tce_mo2e_new.F @@ -1,6 +1,6 @@ subroutine tce_mo2e_new(d_ao2e,d_mo2e,k_2e_offset) c -c $Id: tce_mo2e_new.F,v 1.5 2008-10-05 02:59:08 jhammond Exp $ +c $Id$ c c Returns a SF handle for the MO 2-e integral matrix. c diff --git a/src/tce/tce_mo2e_offset.F b/src/tce/tce_mo2e_offset.F index 26f866d6ad..0fa686c2ac 100644 --- a/src/tce/tce_mo2e_offset.F +++ b/src/tce/tce_mo2e_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_mo2e_offset(l_a_offset,k_a_offset,size) -C $Id: tce_mo2e_offset.F,v 1.6 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C v ( g3 g4 g1 g2 )_v diff --git a/src/tce/tce_mo2e_offset_intorb.F b/src/tce/tce_mo2e_offset_intorb.F index 8efd5a91c1..620c0b0d88 100644 --- a/src/tce/tce_mo2e_offset_intorb.F +++ b/src/tce/tce_mo2e_offset_intorb.F @@ -1,5 +1,5 @@ SUBROUTINE tce_mo2e_offset_intorb(l_a_offset,k_a_offset,size) -C $Id: tce_mo2e_offset_intorb.F,v 1.2 2008-01-14 15:20:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C v ( g3 g4 g1 g2 )_v @@ -86,7 +86,7 @@ c SUBROUTINE tce_mo2e_pairs(l_a_offset,k_a_offset,size) -C $Id: tce_mo2e_offset_intorb.F,v 1.2 2008-01-14 15:20:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C v ( g3 g4 g1 g2 )_v diff --git a/src/tce/tce_mo2e_offset_intorb_hybrid.F b/src/tce/tce_mo2e_offset_intorb_hybrid.F index 7294ea936a..111e1712fa 100644 --- a/src/tce/tce_mo2e_offset_intorb_hybrid.F +++ b/src/tce/tce_mo2e_offset_intorb_hybrid.F @@ -1,6 +1,6 @@ SUBROUTINE tce_mo2e_offset_intorb_hybrid(l_a_offset,k_a_offset, 1 size) -C $Id: tce_mo2e_offset_intorb_hybrid.F,v 1.1 2008-07-28 19:28:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C v ( g3 g4 g1 g2 )_v diff --git a/src/tce/tce_mo2e_offset_size.F b/src/tce/tce_mo2e_offset_size.F index 5f0c4be719..7fb69cf356 100644 --- a/src/tce/tce_mo2e_offset_size.F +++ b/src/tce/tce_mo2e_offset_size.F @@ -1,5 +1,5 @@ SUBROUTINE tce_mo2e_offset_size(length) -C $Id: tce_mo2e_offset_size.F,v 1.2 2006-06-05 18:24:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C v ( g3 g4 g1 g2 )_v diff --git a/src/tce/tce_mo2e_zones_4a_disk_2s_new.F b/src/tce/tce_mo2e_zones_4a_disk_2s_new.F index 8de5c55597..147e6d1214 100644 --- a/src/tce/tce_mo2e_zones_4a_disk_2s_new.F +++ b/src/tce/tce_mo2e_zones_4a_disk_2s_new.F @@ -1,7 +1,7 @@ SUBROUTINE tce_mo2e_zones_4a_disk_2s_new(rtdb,d_v2, 1 kax_v2_alpha_offset, 1 size_2e) -C $Id: tce_mo2e_zones_4a_disk_2s_new.F,v 1.5 2008-08-18 02:13:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t @@ -860,7 +860,7 @@ c c c SUBROUTINE tce_4a_offset(l_a_offset,k_a_offset,size) -C $Id: tce_mo2e_zones_4a_disk_2s_new.F,v 1.5 2008-08-18 02:13:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) IMPLICIT NONE @@ -916,7 +916,7 @@ c c c SUBROUTINE tce_2a2m_offset(l_a_offset,k_a_offset,size) -C $Id: tce_mo2e_zones_4a_disk_2s_new.F,v 1.5 2008-08-18 02:13:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) IMPLICIT NONE diff --git a/src/tce/tce_mo2e_zones_4a_disk_4s_new_patch.F b/src/tce/tce_mo2e_zones_4a_disk_4s_new_patch.F index 5b34177e65..644510733b 100644 --- a/src/tce/tce_mo2e_zones_4a_disk_4s_new_patch.F +++ b/src/tce/tce_mo2e_zones_4a_disk_4s_new_patch.F @@ -1,6 +1,6 @@ SUBROUTINE tce_mo2e_zones_4a_disk_4s_new_patch(rtdb,d_v2, 1 kax_v2_alpha_offset,size_2e) -C $Id: tce_mo2e_zones_4a_disk_4s_new_patch.F,v 1.10 2008-08-18 02:13:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t @@ -1573,7 +1573,7 @@ c c c SUBROUTINE tce_4a_offsetx1(l_a_offset,k_a_offset,size) -C $Id: tce_mo2e_zones_4a_disk_4s_new_patch.F,v 1.10 2008-08-18 02:13:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) IMPLICIT NONE @@ -1627,7 +1627,7 @@ C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) c c SUBROUTINE tce_3a1m_offsetx1(l_a_offset,k_a_offset,size) -C $Id: tce_mo2e_zones_4a_disk_4s_new_patch.F,v 1.10 2008-08-18 02:13:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) IMPLICIT NONE @@ -1684,7 +1684,7 @@ c c c SUBROUTINE tce_2a2m_offsetx1(l_a_offset,k_a_offset,size) -C $Id: tce_mo2e_zones_4a_disk_4s_new_patch.F,v 1.10 2008-08-18 02:13:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) IMPLICIT NONE @@ -1737,7 +1737,7 @@ c c c SUBROUTINE tce_1a3m_offsetx1(l_a_offset,k_a_offset,size) -C $Id: tce_mo2e_zones_4a_disk_4s_new_patch.F,v 1.10 2008-08-18 02:13:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) IMPLICIT NONE diff --git a/src/tce/tce_mo2e_zones_4a_disk_4s_new_patch_m2.F b/src/tce/tce_mo2e_zones_4a_disk_4s_new_patch_m2.F index 061542d920..02998b35d6 100644 --- a/src/tce/tce_mo2e_zones_4a_disk_4s_new_patch_m2.F +++ b/src/tce/tce_mo2e_zones_4a_disk_4s_new_patch_m2.F @@ -1,6 +1,6 @@ SUBROUTINE tce_mo2e_zones_4a_disk_4s_new_patch_m2(rtdb,d_v2, 1 kax_v2_alpha_offset,size_2e) -C $Id: tce_mo2e_zones_4a_disk_4s_new_patch_m2.F,v 1.8 2008-08-18 02:13:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t diff --git a/src/tce/tce_mo2e_zones_4a_disk_4s_new_patch_m3.F b/src/tce/tce_mo2e_zones_4a_disk_4s_new_patch_m3.F index 1f31b1fed4..5665a0e245 100644 --- a/src/tce/tce_mo2e_zones_4a_disk_4s_new_patch_m3.F +++ b/src/tce/tce_mo2e_zones_4a_disk_4s_new_patch_m3.F @@ -1,6 +1,6 @@ SUBROUTINE tce_mo2e_zones_4a_disk_4s_new_patch_m3(rtdb,d_v2, 1 kax_v2_alpha_offset,size_2e) -C $Id: tce_mo2e_zones_4a_disk_4s_new_patch_m3.F,v 1.6 2008-08-18 02:13:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t diff --git a/src/tce/tce_mo2e_zones_4a_disk_ga.F b/src/tce/tce_mo2e_zones_4a_disk_ga.F index d2e9a6c819..7b8e50699d 100644 --- a/src/tce/tce_mo2e_zones_4a_disk_ga.F +++ b/src/tce/tce_mo2e_zones_4a_disk_ga.F @@ -1,7 +1,7 @@ SUBROUTINE tce_mo2e_zones_4a_disk_ga(rtdb,d_v2, 1 kax_v2_alpha_offset, 1 size_2e) -C $Id: tce_mo2e_zones_4a_disk_ga.F,v 1.5 2008-08-18 02:13:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t @@ -787,7 +787,7 @@ c c c ccx SUBROUTINE tce_4a_offset(l_a_offset,k_a_offset,size) -ccxC $Id: tce_mo2e_zones_4a_disk_ga.F,v 1.5 2008-08-18 02:13:38 jhammond Exp $ +ccxC $Id$ ccxC This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 ccxC Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) ccx IMPLICIT NONE diff --git a/src/tce/tce_mo2e_zones_4a_disk_ga_N5.F b/src/tce/tce_mo2e_zones_4a_disk_ga_N5.F index e21c167014..240d14cf7f 100644 --- a/src/tce/tce_mo2e_zones_4a_disk_ga_N5.F +++ b/src/tce/tce_mo2e_zones_4a_disk_ga_N5.F @@ -1,7 +1,7 @@ SUBROUTINE tce_mo2e_zones_4a_disk_ga_N5(rtdb,d_v2, 1 kax_v2_alpha_offset, 1 size_2e) -C $Id: tce_mo2e_zones_4a_disk_ga_N5.F,v 1.1 2008-12-08 19:14:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t diff --git a/src/tce/tce_mo2e_zones_4a_disk_ga_chop.F b/src/tce/tce_mo2e_zones_4a_disk_ga_chop.F index 3c6cab1e19..411f01e927 100644 --- a/src/tce/tce_mo2e_zones_4a_disk_ga_chop.F +++ b/src/tce/tce_mo2e_zones_4a_disk_ga_chop.F @@ -1,7 +1,7 @@ SUBROUTINE tce_mo2e_zones_4a_disk_ga_chop(rtdb,d_v2, 1 kax_v2_alpha_offset, 1 size_2e) -C $Id: tce_mo2e_zones_4a_disk_ga_chop.F,v 1.5 2008-08-18 02:13:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t @@ -789,7 +789,7 @@ c c SUBROUTINE tce_4a_offset_chop(l_a_offset,k_a_offset,size, & igo,isumr,taskl_az12) -C $Id: tce_mo2e_zones_4a_disk_ga_chop.F,v 1.5 2008-08-18 02:13:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) IMPLICIT NONE @@ -849,7 +849,7 @@ cccx DO azone4 = azone3,atpart !rho c SUBROUTINE tce_4a_chop_size(size, & igo,isumr,taskl_az12) -C $Id: tce_mo2e_zones_4a_disk_ga_chop.F,v 1.5 2008-08-18 02:13:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) IMPLICIT NONE diff --git a/src/tce/tce_mo2e_zones_4a_disk_ga_chop_N5.F b/src/tce/tce_mo2e_zones_4a_disk_ga_chop_N5.F index e5a28bab8a..244563ff69 100644 --- a/src/tce/tce_mo2e_zones_4a_disk_ga_chop_N5.F +++ b/src/tce/tce_mo2e_zones_4a_disk_ga_chop_N5.F @@ -1,7 +1,7 @@ SUBROUTINE tce_mo2e_zones_4a_disk_ga_chop_N5(rtdb,d_v2, 1 kax_v2_alpha_offset, 1 size_2e) -C $Id: tce_mo2e_zones_4a_disk_ga_chop_N5.F,v 1.1 2008-12-08 19:14:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t diff --git a/src/tce/tce_mod1.F b/src/tce/tce_mod1.F index 2f1f2a6cb6..e4c3e4bf15 100644 --- a/src/tce/tce_mod1.F +++ b/src/tce/tce_mod1.F @@ -1,6 +1,6 @@ subroutine tce_mod1(g_aod1,d_mod1) c -c $Id: tce_mod1.F,v 1.5 2008-01-14 15:20:35 jhammond Exp $ +c $Id$ c c Spin-spatial-symmetry blocked dipole matrix transformations. c diff --git a/src/tce/tce_mod1_new.F b/src/tce/tce_mod1_new.F index 2a773ae35f..f751f17045 100644 --- a/src/tce/tce_mod1_new.F +++ b/src/tce/tce_mod1_new.F @@ -1,6 +1,6 @@ subroutine tce_mod1_new(rtdb,d_mod1,mpole) c -c $Id: tce_mod1_new.F,v 1.4 2008-05-08 19:14:51 jhammond Exp $ +c $Id$ c c Spin-spatial-symmetry blocked dipole matrix transformations. c diff --git a/src/tce/tce_mod1_offset.F b/src/tce/tce_mod1_offset.F index 06abea5dc1..f6f175e2b5 100644 --- a/src/tce/tce_mod1_offset.F +++ b/src/tce/tce_mod1_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_mod1_offset(l_a_offset,k_a_offset,size) -C $Id: tce_mod1_offset.F,v 1.4 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C d ( g6 g5 )_d diff --git a/src/tce/tce_mod1_offset_new.F b/src/tce/tce_mod1_offset_new.F index 84c2d9d17e..f588abf35a 100644 --- a/src/tce/tce_mod1_offset_new.F +++ b/src/tce/tce_mod1_offset_new.F @@ -1,5 +1,5 @@ SUBROUTINE tce_mod1_offset_new(l_a_offset,k_a_offset,size,irrep_q) -C $Id: tce_mod1_offset_new.F,v 1.1 2008-05-05 17:43:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C q ( g6 g5 )_q diff --git a/src/tce/tce_multipole_create.F b/src/tce/tce_multipole_create.F index 9a85c033c4..c20324df31 100644 --- a/src/tce/tce_multipole_create.F +++ b/src/tce/tce_multipole_create.F @@ -1,6 +1,6 @@ subroutine tce_multipole_create(rtdb,d_d1,l_d1_offset,k_d1_offset) c -c $Id: tce_multipole_create.F,v 1.2 2008-05-05 18:17:54 jhammond Exp $ +c $Id$ c c Main routine for many-electron theory calculations. c Some of the subroutines have been generated by diff --git a/src/tce/tce_multipole_destroy.F b/src/tce/tce_multipole_destroy.F index 132c27e09b..57b92e329b 100644 --- a/src/tce/tce_multipole_destroy.F +++ b/src/tce/tce_multipole_destroy.F @@ -1,7 +1,7 @@ subroutine tce_multipole_destroy(d_mo_mp1,l_mo_mp1_offset, & multipole) c -c $Id: tce_multipole_destroy.F,v 1.1 2008-02-11 17:08:24 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_nud1.F b/src/tce/tce_nud1.F index e4a861d1db..4d089a2efd 100644 --- a/src/tce/tce_nud1.F +++ b/src/tce/tce_nud1.F @@ -1,6 +1,6 @@ subroutine tce_nud1(dipole) c -c $Id: tce_nud1.F,v 1.3 2008-01-14 15:20:35 jhammond Exp $ +c $Id$ c c Computes nuclear contributions of dipole moments c diff --git a/src/tce/tce_print_x1.F b/src/tce/tce_print_x1.F index 9eb287c64c..06621c7789 100644 --- a/src/tce/tce_print_x1.F +++ b/src/tce/tce_print_x1.F @@ -1,6 +1,6 @@ subroutine tce_print_x1(d_r1,k_r1_offset,r1_thresh,irrep) c -c $Id: tce_print_x1.F,v 1.11 2009-02-25 00:46:20 d3p975 Exp $ +c $Id$ c c Prints the X1 tensor c diff --git a/src/tce/tce_print_x2.F b/src/tce/tce_print_x2.F index 72b1f241e1..43578fad21 100644 --- a/src/tce/tce_print_x2.F +++ b/src/tce/tce_print_x2.F @@ -1,6 +1,6 @@ subroutine tce_print_x2(d_r2,k_r2_offset,r2_thresh,irrep) c -c $Id: tce_print_x2.F,v 1.11 2009-02-25 00:46:45 d3p975 Exp $ +c $Id$ c c Prints the X2 tensor c diff --git a/src/tce/tce_prop_start.F b/src/tce/tce_prop_start.F index 3a1b30d1e3..5fc14e8f92 100644 --- a/src/tce/tce_prop_start.F +++ b/src/tce/tce_prop_start.F @@ -1,6 +1,6 @@ logical function tce_prop_start(rtdb) c -c $Id: tce_prop_start.F,v 1.4 2008-05-08 19:14:51 jhammond Exp $ +c $Id$ c c Wrapper for tce_property - the only reason to keep this around is c because eventually there may be code wrapped around the real property diff --git a/src/tce/tce_property.F b/src/tce/tce_property.F index e6b7b420c0..6619dc035b 100644 --- a/src/tce/tce_property.F +++ b/src/tce/tce_property.F @@ -1,6 +1,6 @@ logical function tce_property(rtdb) c -c $Id: tce_property.F,v 1.18 2008-11-01 19:09:37 jhammond Exp $ +c $Id$ c c Main routine for many-electron theory calculations. c Some of the subroutines have been generated by diff --git a/src/tce/tce_reference_check.F b/src/tce/tce_reference_check.F index a45a12e1fa..46fd0cb373 100644 --- a/src/tce/tce_reference_check.F +++ b/src/tce/tce_reference_check.F @@ -1,6 +1,6 @@ subroutine tce_reference_check(rtdb,ref) c -c $Id: tce_reference_check.F,v 1.1 2008-01-29 18:26:14 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_residual_t1.F b/src/tce/tce_residual_t1.F index 297d5c5784..b4ecc00fd4 100644 --- a/src/tce/tce_residual_t1.F +++ b/src/tce/tce_residual_t1.F @@ -1,6 +1,6 @@ subroutine tce_residual_t1(d_r1,k_r1_offset,residual) c -c $Id: tce_residual_t1.F,v 1.13 2008-10-05 02:59:10 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -103,7 +103,7 @@ cc next = nxtval(-nprocs) subroutine tce_residual_tr1(d_r1,k_r1_offset,residual) c -c $Id: tce_residual_t1.F,v 1.13 2008-10-05 02:59:10 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/tce_residual_t2.F b/src/tce/tce_residual_t2.F index 446f5ab7ed..3a49f67856 100644 --- a/src/tce/tce_residual_t2.F +++ b/src/tce/tce_residual_t2.F @@ -1,6 +1,6 @@ subroutine tce_residual_t2(d_r2,k_r2_offset,residual) c -c $Id: tce_residual_t2.F,v 1.11 2008-10-05 02:59:10 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -109,7 +109,7 @@ cc next = nxtval(-nprocs) end subroutine tce_residual_tr2(d_r2,k_r2_offset,residual) c -c $Id: tce_residual_t2.F,v 1.11 2008-10-05 02:59:10 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/tce_residual_t3.F b/src/tce/tce_residual_t3.F index 9e4adf399b..34c671092c 100644 --- a/src/tce/tce_residual_t3.F +++ b/src/tce/tce_residual_t3.F @@ -1,6 +1,6 @@ subroutine tce_residual_t3(d_r3,k_r3_offset,residual) c -c $Id: tce_residual_t3.F,v 1.12 2008-10-05 02:59:10 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -143,7 +143,7 @@ c end subroutine tce_residual_tr3(d_r3,k_r3_offset,residual) c -c $Id: tce_residual_t3.F,v 1.12 2008-10-05 02:59:10 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/tce_residual_t3a.F b/src/tce/tce_residual_t3a.F index 269d5cdcd7..7a32c4728d 100644 --- a/src/tce/tce_residual_t3a.F +++ b/src/tce/tce_residual_t3a.F @@ -1,6 +1,6 @@ subroutine tce_residual_t3a(d_r3,k_r3_offset,residual) c -c $Id: tce_residual_t3a.F,v 1.4 2008-10-05 02:59:11 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/tce_residual_t4.F b/src/tce/tce_residual_t4.F index fc0200caf8..090fb7cd38 100644 --- a/src/tce/tce_residual_t4.F +++ b/src/tce/tce_residual_t4.F @@ -1,6 +1,6 @@ subroutine tce_residual_t4(d_r4,k_r4_offset,residual) c -c $Id: tce_residual_t4.F,v 1.10 2008-10-05 02:59:10 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -176,7 +176,7 @@ c end subroutine tce_residual_tr4(d_r4,k_r4_offset,residual) c -c $Id: tce_residual_t4.F,v 1.10 2008-10-05 02:59:10 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/tce_restricted.F b/src/tce/tce_restricted.F index 0d65f44633..a1f284e088 100644 --- a/src/tce/tce_restricted.F +++ b/src/tce/tce_restricted.F @@ -1,6 +1,6 @@ subroutine tce_restricted_2(a1b,a2b,b1b,b2b) c -c $Id: tce_restricted.F,v 1.2 2008-10-16 14:20:17 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -33,7 +33,7 @@ c subroutine tce_restricted_4(a1b,a2b,a3b,a4b, 1 b1b,b2b,b3b,b4b) c -c $Id: tce_restricted.F,v 1.2 2008-10-16 14:20:17 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -72,7 +72,7 @@ c subroutine tce_restricted_6(a1b,a2b,a3b,a4b,a5b,a6b, 1 b1b,b2b,b3b,b4b,b5b,b6b) c -c $Id: tce_restricted.F,v 1.2 2008-10-16 14:20:17 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -117,7 +117,7 @@ c subroutine tce_restricted_8(a1b,a2b,a3b,a4b,a5b,a6b,a7b,a8b, 1 b1b,b2b,b3b,b4b,b5b,b6b,b7b,b8b) c -c $Id: tce_restricted.F,v 1.2 2008-10-16 14:20:17 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/tce_schmidt.F b/src/tce/tce_schmidt.F index e4ff3d529f..34832d017d 100644 --- a/src/tce/tce_schmidt.F +++ b/src/tce/tce_schmidt.F @@ -1,6 +1,6 @@ subroutine tce_schmidt(n,vector) c -c $Id: tce_schmidt.F,v 1.5 2003-10-17 22:58:29 carlfahl Exp $ +c $Id$ c c Schmidt orthonormalize vectors c Written by So Hirata, Feb 2002. diff --git a/src/tce/tce_sort.F b/src/tce/tce_sort.F index ec30a714dc..0002a4a6af 100644 --- a/src/tce/tce_sort.F +++ b/src/tce/tce_sort.F @@ -1,6 +1,6 @@ subroutine tce_sort_0(unsorted,sorted,factor) c -c $Id: tce_sort.F,v 1.2 2008-01-14 15:20:35 jhammond Exp $ +c $Id$ c implicit none c#include "global.fh" @@ -22,7 +22,7 @@ c subroutine tce_sort_2(unsorted,sorted,a,b, 1 i,j,factor) c -c $Id: tce_sort.F,v 1.2 2008-01-14 15:20:35 jhammond Exp $ +c $Id$ c implicit none c#include "global.fh" @@ -62,7 +62,7 @@ c subroutine tce_sort_4(unsorted,sorted,a,b,c,d, 1 i,j,k,l,factor) c -c $Id: tce_sort.F,v 1.2 2008-01-14 15:20:35 jhammond Exp $ +c $Id$ c implicit none c#include "global.fh" @@ -143,7 +143,7 @@ c subroutine tce_sort_6(unsorted,sorted,a,b,c,d,e,f, 1 i,j,k,l,m,n,factor) c -c $Id: tce_sort.F,v 1.2 2008-01-14 15:20:35 jhammond Exp $ +c $Id$ c implicit none c#include "global.fh" @@ -303,7 +303,7 @@ c write(*,*) cpu subroutine tce_sort_8(unsorted,sorted,a,b,c,d,e,f,g,h, 1 i,j,k,l,m,n,o,p,factor) c -c $Id: tce_sort.F,v 1.2 2008-01-14 15:20:35 jhammond Exp $ +c $Id$ c implicit none c#include "global.fh" @@ -564,7 +564,7 @@ c now lives under /nwdft as LR-TDDFT c subroutine tce_sort(n,value,vector,order) c -c $Id: tce_sort.F,v 1.3 2002-04-28 19:09:14 sohirata Exp $ +c $Id$ c c Sort the eigenvalues and eigenvectors c in an ascending/descending order diff --git a/src/tce/tce_sort0.F b/src/tce/tce_sort0.F index cd0e5176e3..d45a8f14ee 100644 --- a/src/tce/tce_sort0.F +++ b/src/tce/tce_sort0.F @@ -1,6 +1,6 @@ subroutine tce_sort_0(unsorted,sorted,factor) c -c $Id: tce_sort0.F,v 1.1 2008-09-25 14:54:18 jhammond Exp $ +c $Id$ c implicit none double precision sorted diff --git a/src/tce/tce_sort2.F b/src/tce/tce_sort2.F index eed647770d..a18ae6b888 100644 --- a/src/tce/tce_sort2.F +++ b/src/tce/tce_sort2.F @@ -1,6 +1,6 @@ subroutine tce_sort_2(unsorted,sorted,a,b,i,j,factor) c -c $Id: tce_sort2.F,v 1.1 2008-09-25 14:54:18 jhammond Exp $ +c $Id$ c implicit none c#include "util.fh" diff --git a/src/tce/tce_sort6.F b/src/tce/tce_sort6.F index 508341b592..2bd4755c7f 100644 --- a/src/tce/tce_sort6.F +++ b/src/tce/tce_sort6.F @@ -1,7 +1,7 @@ subroutine tce_sort_6(unsorted,sorted,a,b,c,d,e,f, 1 i,j,k,l,m,n,factor) c -c $Id: tce_sort6.F,v 1.1 2008-09-25 14:54:18 jhammond Exp $ +c $Id$ c implicit none c#include "global.fh" diff --git a/src/tce/tce_sort8.F b/src/tce/tce_sort8.F index a59728b1f8..4508c1e35f 100644 --- a/src/tce/tce_sort8.F +++ b/src/tce/tce_sort8.F @@ -1,7 +1,7 @@ subroutine tce_sort_8(unsorted,sorted,a,b,c,d,e,f,g,h, 1 i,j,k,l,m,n,o,p,factor) c -c $Id: tce_sort8.F,v 1.1 2008-09-25 14:54:19 jhammond Exp $ +c $Id$ c implicit none c#include "global.fh" diff --git a/src/tce/tce_sortacc.F b/src/tce/tce_sortacc.F index ac4848b253..0850748462 100644 --- a/src/tce/tce_sortacc.F +++ b/src/tce/tce_sortacc.F @@ -1,6 +1,6 @@ subroutine tce_sortacc_0(unsorted,sorted,factor) c -c $Id: tce_sortacc.F,v 1.2 2008-01-14 15:20:35 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -22,7 +22,7 @@ c subroutine tce_sortacc_2(unsorted,sorted,a,b, 1 i,j,factor) c -c $Id: tce_sortacc.F,v 1.2 2008-01-14 15:20:35 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -62,7 +62,7 @@ c subroutine tce_sortacc_4(unsorted,sorted,a,b,c,d, 1 i,j,k,l,factor) c -c $Id: tce_sortacc.F,v 1.2 2008-01-14 15:20:35 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -143,7 +143,7 @@ c subroutine tce_sortacc_6(unsorted,sorted,a,b,c,d,e,f, 1 i,j,k,l,m,n,factor) c -c $Id: tce_sortacc.F,v 1.2 2008-01-14 15:20:35 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -303,7 +303,7 @@ c write(*,*) cpu subroutine tce_sortacc_8(unsorted,sorted,a,b,c,d,e,f,g,h, 1 i,j,k,l,m,n,o,p,factor) c -c $Id: tce_sortacc.F,v 1.2 2008-01-14 15:20:35 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/tce_sortacc8.F b/src/tce/tce_sortacc8.F index cd64d87095..db569c3e67 100644 --- a/src/tce/tce_sortacc8.F +++ b/src/tce/tce_sortacc8.F @@ -1,7 +1,7 @@ subroutine tce_sortacc_8(unsorted,sorted,a,b,c,d,e,f,g,h, 1 i,j,k,l,m,n,o,p,factor) c -c $Id: tce_sortacc8.F,v 1.1 2008-09-25 14:54:19 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/tce_t1_offset.F b/src/tce/tce_t1_offset.F index 8b1fb7ddc7..787def5452 100644 --- a/src/tce/tce_t1_offset.F +++ b/src/tce/tce_t1_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_t1_offset(l_a_offset,k_a_offset,size) -C $Id: tce_t1_offset.F,v 1.8 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p5 h6 )_t diff --git a/src/tce/tce_t1_offset_new.F b/src/tce/tce_t1_offset_new.F index 9e82d413ca..45d17562be 100644 --- a/src/tce/tce_t1_offset_new.F +++ b/src/tce/tce_t1_offset_new.F @@ -1,5 +1,5 @@ SUBROUTINE tce_t1_offset_new(l_a_offset,k_a_offset,size,irrep) -C $Id: tce_t1_offset_new.F,v 1.1 2008-01-29 18:26:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p5 h6 )_t diff --git a/src/tce/tce_t2_offset.F b/src/tce/tce_t2_offset.F index b099fc2491..9deb042bf9 100644 --- a/src/tce/tce_t2_offset.F +++ b/src/tce/tce_t2_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_t2_offset(l_a_offset,k_a_offset,size) -C $Id: tce_t2_offset.F,v 1.8 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t diff --git a/src/tce/tce_t2_offset_new.F b/src/tce/tce_t2_offset_new.F index 4eac76b970..34288bd159 100644 --- a/src/tce/tce_t2_offset_new.F +++ b/src/tce/tce_t2_offset_new.F @@ -1,5 +1,5 @@ SUBROUTINE tce_t2_offset_new(l_a_offset,k_a_offset,size,irrep) -C $Id: tce_t2_offset_new.F,v 1.1 2008-01-29 18:26:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t diff --git a/src/tce/tce_t3_offset.F b/src/tce/tce_t3_offset.F index 7c2950a62f..36a023c5b3 100644 --- a/src/tce/tce_t3_offset.F +++ b/src/tce/tce_t3_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_t3_offset(l_a_offset,k_a_offset,size) -C $Id: tce_t3_offset.F,v 1.8 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p2 p3 p4 h1 h5 h6 )_t diff --git a/src/tce/tce_t3_offset_new.F b/src/tce/tce_t3_offset_new.F index e049b2a820..39b322adaf 100644 --- a/src/tce/tce_t3_offset_new.F +++ b/src/tce/tce_t3_offset_new.F @@ -1,5 +1,5 @@ SUBROUTINE tce_t3_offset_new(l_a_offset,k_a_offset,size,irrep) -C $Id: tce_t3_offset_new.F,v 1.1 2008-01-29 18:26:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p2 p3 p4 h1 h5 h6 )_t diff --git a/src/tce/tce_t3a_offset.F b/src/tce/tce_t3a_offset.F index 489f27a4b3..def383d701 100644 --- a/src/tce/tce_t3a_offset.F +++ b/src/tce/tce_t3a_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_t3a_offset(l_a_offset,k_a_offset,size) -C $Id: tce_t3a_offset.F,v 1.3 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p2 p3 p4 h1 h5 h6 )_t diff --git a/src/tce/tce_t4_offset.F b/src/tce/tce_t4_offset.F index 1f7c457e39..781612681d 100644 --- a/src/tce/tce_t4_offset.F +++ b/src/tce/tce_t4_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_t4_offset(l_a_offset,k_a_offset,size) -C $Id: tce_t4_offset.F,v 1.8 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p3 p4 p5 p6 h1 h2 h7 h8 )_t diff --git a/src/tce/tce_t4_offset_new.F b/src/tce/tce_t4_offset_new.F index d87116f221..8803f930fc 100644 --- a/src/tce/tce_t4_offset_new.F +++ b/src/tce/tce_t4_offset_new.F @@ -1,5 +1,5 @@ SUBROUTINE tce_t4_offset_new(l_a_offset,k_a_offset,size,irrep) -C $Id: tce_t4_offset_new.F,v 1.1 2008-01-29 18:26:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p3 p4 p5 p6 h1 h2 h7 h8 )_t diff --git a/src/tce/tce_tidy.F b/src/tce/tce_tidy.F index e12dd018d3..6340755292 100644 --- a/src/tce/tce_tidy.F +++ b/src/tce/tce_tidy.F @@ -1,6 +1,6 @@ subroutine tce_tidy(rtdb) c -c $Id: tce_tidy.F,v 1.11 2008-01-14 15:20:35 jhammond Exp $ +c $Id$ c c Terminate TCE modulem. c diff --git a/src/tce/tce_tile.F b/src/tce/tce_tile.F index 35e28b4463..0ec7975a32 100644 --- a/src/tce/tce_tile.F +++ b/src/tce/tce_tile.F @@ -1,6 +1,6 @@ subroutine tce_tile(rtdb) c -c $Id: tce_tile.F,v 1.28 2009-02-25 00:35:53 d3p975 Exp $ +c $Id$ c c Reorder and tile orbitals. Minimal tiling scheme is c hole(alpha), hole(beta), particle(alpha), particle(beta) diff --git a/src/tce/tce_tile_new.F b/src/tce/tce_tile_new.F index dc6bf9667c..c6688c824a 100644 --- a/src/tce/tce_tile_new.F +++ b/src/tce/tce_tile_new.F @@ -1,6 +1,6 @@ subroutine tce_tile_new(rtdb) c -c $Id: tce_tile_new.F,v 1.3 2008-12-07 22:37:57 jhammond Exp $ +c $Id$ c c Reorder and tile orbitals. Minimal tiling scheme is c hole(alpha), hole(beta), particle(alpha), particle(beta) diff --git a/src/tce/tce_x1_offset.F b/src/tce/tce_x1_offset.F index b52eb94084..a620a13212 100644 --- a/src/tce/tce_x1_offset.F +++ b/src/tce/tce_x1_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_x1_offset(l_a_offset,k_a_offset,size) -C $Id: tce_x1_offset.F,v 1.4 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C x ( p2 h3 )_x diff --git a/src/tce/tce_x1_offset_new.F b/src/tce/tce_x1_offset_new.F index bd27ee876b..01480ee38e 100644 --- a/src/tce/tce_x1_offset_new.F +++ b/src/tce/tce_x1_offset_new.F @@ -1,5 +1,5 @@ SUBROUTINE tce_x1_offset_new(l_a_offset,k_a_offset,size,irrep) -C $Id: tce_x1_offset_new.F,v 1.1 2008-01-29 18:26:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C x ( p2 h3 )_x diff --git a/src/tce/tce_x2_offset.F b/src/tce/tce_x2_offset.F index 745efe5204..e45a3882c0 100644 --- a/src/tce/tce_x2_offset.F +++ b/src/tce/tce_x2_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_x2_offset(l_a_offset,k_a_offset,size) -C $Id: tce_x2_offset.F,v 1.4 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C x ( p2 p4 h1 h3 )_x diff --git a/src/tce/tce_x2_offset_new.F b/src/tce/tce_x2_offset_new.F index 31dd5c293d..0aec54a61e 100644 --- a/src/tce/tce_x2_offset_new.F +++ b/src/tce/tce_x2_offset_new.F @@ -1,5 +1,5 @@ SUBROUTINE tce_x2_offset_new(l_a_offset,k_a_offset,size,irrep) -C $Id: tce_x2_offset_new.F,v 1.1 2008-01-29 18:26:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C x ( p2 p4 h1 h3 )_x diff --git a/src/tce/tce_x3_offset.F b/src/tce/tce_x3_offset.F index 63f313f5b0..1d59b948c8 100644 --- a/src/tce/tce_x3_offset.F +++ b/src/tce/tce_x3_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_x3_offset(l_a_offset,k_a_offset,size) -C $Id: tce_x3_offset.F,v 1.4 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C x ( p5 p6 p7 h3 h4 h9 )_x diff --git a/src/tce/tce_x3_offset_new.F b/src/tce/tce_x3_offset_new.F index 6f02e291d7..156182e867 100644 --- a/src/tce/tce_x3_offset_new.F +++ b/src/tce/tce_x3_offset_new.F @@ -1,5 +1,5 @@ SUBROUTINE tce_x3_offset_new(l_a_offset,k_a_offset,size,irrep) -C $Id: tce_x3_offset_new.F,v 1.1 2008-01-29 18:26:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C x ( p5 p6 p7 h3 h4 h9 )_x diff --git a/src/tce/tce_x3a_offset.F b/src/tce/tce_x3a_offset.F index 727ccdd21d..d5c2e796ee 100644 --- a/src/tce/tce_x3a_offset.F +++ b/src/tce/tce_x3a_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_x3a_offset(l_a_offset,k_a_offset,size) -C $Id: tce_x3a_offset.F,v 1.2 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C x ( p5 p6 p7 h3 h4 h9 )_x diff --git a/src/tce/tce_x4_offset.F b/src/tce/tce_x4_offset.F index 98465aaee0..78070cc897 100644 --- a/src/tce/tce_x4_offset.F +++ b/src/tce/tce_x4_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_x4_offset(l_a_offset,k_a_offset,size) -C $Id: tce_x4_offset.F,v 1.4 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C x ( p5 p6 p7 p8 h2 h3 h4 h9 )_x diff --git a/src/tce/tce_x4_offset_new.F b/src/tce/tce_x4_offset_new.F index fe189f7883..67e6f1564e 100644 --- a/src/tce/tce_x4_offset_new.F +++ b/src/tce/tce_x4_offset_new.F @@ -1,5 +1,5 @@ SUBROUTINE tce_x4_offset_new(l_a_offset,k_a_offset,size,irrep) -C $Id: tce_x4_offset_new.F,v 1.1 2008-01-29 18:26:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C x ( p5 p6 p7 p8 h2 h3 h4 h9 )_x diff --git a/src/tce/tce_xy1_offset.F b/src/tce/tce_xy1_offset.F index 8b76a61cb8..9617e1108f 100644 --- a/src/tce/tce_xy1_offset.F +++ b/src/tce/tce_xy1_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_xy1_offset(l_a_offset,k_a_offset,size) -C $Id: tce_xy1_offset.F,v 1.2 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yx diff --git a/src/tce/tce_xy2_offset.F b/src/tce/tce_xy2_offset.F index d0fe1f7c57..8e1dbb8539 100644 --- a/src/tce/tce_xy2_offset.F +++ b/src/tce/tce_xy2_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_xy2_offset(l_a_offset,k_a_offset,size) -C $Id: tce_xy2_offset.F,v 1.2 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 p6 h1 h2 )_yx diff --git a/src/tce/tce_y1_offset.F b/src/tce/tce_y1_offset.F index 2b034bb238..9604b46de1 100644 --- a/src/tce/tce_y1_offset.F +++ b/src/tce/tce_y1_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_y1_offset(l_a_offset,k_a_offset,size) -C $Id: tce_y1_offset.F,v 1.4 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C y ( h4 p1 )_y diff --git a/src/tce/tce_y1_offset_new.F b/src/tce/tce_y1_offset_new.F index 08bb7f3dcd..23191d9355 100644 --- a/src/tce/tce_y1_offset_new.F +++ b/src/tce/tce_y1_offset_new.F @@ -1,5 +1,5 @@ SUBROUTINE tce_y1_offset_new(l_a_offset,k_a_offset,size,irrep) -C $Id: tce_y1_offset_new.F,v 1.1 2008-01-29 18:26:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C y ( h4 p1 )_y diff --git a/src/tce/tce_y2_offset.F b/src/tce/tce_y2_offset.F index cfb0e6dc1f..fb345ea170 100644 --- a/src/tce/tce_y2_offset.F +++ b/src/tce/tce_y2_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_y2_offset(l_a_offset,k_a_offset,size) -C $Id: tce_y2_offset.F,v 1.4 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C y ( h7 h8 p1 p2 )_y diff --git a/src/tce/tce_y2_offset_new.F b/src/tce/tce_y2_offset_new.F index 600dd12baa..10f714090e 100644 --- a/src/tce/tce_y2_offset_new.F +++ b/src/tce/tce_y2_offset_new.F @@ -1,5 +1,5 @@ SUBROUTINE tce_y2_offset_new(l_a_offset,k_a_offset,size,irrep) -C $Id: tce_y2_offset_new.F,v 1.1 2008-01-29 18:26:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C y ( h7 h8 p1 p2 )_y diff --git a/src/tce/tce_y3_offset.F b/src/tce/tce_y3_offset.F index a5ab8d72f5..ca212ad9c6 100644 --- a/src/tce/tce_y3_offset.F +++ b/src/tce/tce_y3_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_y3_offset(l_a_offset,k_a_offset,size) -C $Id: tce_y3_offset.F,v 1.4 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C y ( h6 h7 h8 p1 p2 p3 )_y diff --git a/src/tce/tce_y3_offset_new.F b/src/tce/tce_y3_offset_new.F index 40db6d6b45..563106bb25 100644 --- a/src/tce/tce_y3_offset_new.F +++ b/src/tce/tce_y3_offset_new.F @@ -1,5 +1,5 @@ SUBROUTINE tce_y3_offset_new(l_a_offset,k_a_offset,size,irrep) -C $Id: tce_y3_offset_new.F,v 1.1 2008-01-29 18:26:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C y ( h6 h7 h8 p1 p2 p3 )_y diff --git a/src/tce/tce_y4_offset.F b/src/tce/tce_y4_offset.F index 2a8958eaae..b3cc4f14b4 100644 --- a/src/tce/tce_y4_offset.F +++ b/src/tce/tce_y4_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_y4_offset(l_a_offset,k_a_offset,size) -C $Id: tce_y4_offset.F,v 1.4 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C y ( h6 h7 h8 h9 p1 p2 p3 p4 )_y diff --git a/src/tce/tce_y4_offset_new.F b/src/tce/tce_y4_offset_new.F index b32a7c15b6..7005ab802b 100644 --- a/src/tce/tce_y4_offset_new.F +++ b/src/tce/tce_y4_offset_new.F @@ -1,5 +1,5 @@ SUBROUTINE tce_y4_offset_new(l_a_offset,k_a_offset,size,irrep) -C $Id: tce_y4_offset_new.F,v 1.1 2008-01-29 18:26:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C y ( h6 h7 h8 h9 p1 p2 p3 p4 )_y diff --git a/src/tce/tce_zero.F b/src/tce/tce_zero.F index 67ccf7f1ca..47e2ce86a0 100644 --- a/src/tce/tce_zero.F +++ b/src/tce/tce_zero.F @@ -1,6 +1,6 @@ subroutine tce_zero(d_sf,size) c -c $Id: tce_zero.F,v 1.16 2008-07-22 16:12:24 jhammond Exp $ +c $Id$ c c Zero scratch a file c @@ -102,7 +102,7 @@ cc next = NXTVAL(-nprocs) subroutine tce_zero_sf(d_sf,size) c -c $Id: tce_zero.F,v 1.16 2008-07-22 16:12:24 jhammond Exp $ +c $Id$ c c Zero scratch a file c