comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-28 06:05:44 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

HvD: In the CVS era the $Id: $ tags in the source code files would

Browse source 
automatically be expanded to include useful information about the
checkin (including the file's revision number). With the switch over
to SVN this was lost because SVN only does this expansion if you 
explicitly ask for it (for every single file). 

I have added a script to the contrib directory that sets the appropriate
property to get SVN to do this expansion. This script will make it easy
to do this every time new source files are added. It is called
svn_expand_Id, the script contains some comments that explain the issue
and how it addresses this.  

This checkin sets this property for a subset of the relevant files
(trying to commit all files at once failed with svn crashing). 
In future the script will only affect those files for which the property
was not set before.
This commit is contained in:
Huub Van Dam 2010-10-29 17:52:31 +00:00
parent bcce6d89f0
commit 9de06595c8
2698 changed files with 6779 additions and 6779 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/tce/GNUmakefile
View file

@ -1,4 +1,4 @@
#$Id: GNUmakefile,v 1.99 2008-12-09 18:37:00 jhammond Exp $
#$Id$
#
SUBDIRS = include diis diis2 diis3 gradients \

2
src/tce/add_block.F
View file

@ -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

2
src/tce/add_hash_block.F
View file

@ -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

2
src/tce/atpart_nalength.F
View file

@ -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

2
src/tce/cc3/GNUmakefile
View file

@ -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

180
src/tce/cc3/cc3_lambda3.F
View file

@ -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

62
src/tce/cc3/cc3_t3.F
View file

@ -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

10
src/tce/cc3/ccsdt1b_t3.F
View file

@ -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

26
src/tce/cc3/ccsdt2_t3.F
View file

@ -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

92
src/tce/cc3/ccsdt3_t3.F
View file

@ -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

178
src/tce/cc3/eomcc3_x3.F
View file

@ -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

10
src/tce/cc3/eomccsdt1_x3.F
View file

@ -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

200
src/tce/cc3/eomccsdt3_x3.F
View file

@ -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

2
src/tce/ccd/GNUmakefile
View file

@ -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

4
src/tce/ccd/ccd_e.F
View file

@ -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

38
src/tce/ccd/ccd_t2.F
View file

@ -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

2
src/tce/ccsd_yr/GNUmakefile
View file

@ -1,4 +1,4 @@
#$Id: GNUmakefile,v 1.2 2007-09-13 17:26:27 jhammond Exp $
#$Id$
OBJ_OPTIMIZE = \
ccsd_y_o1.o \

44
src/tce/ccsd_yr/alpha_2_yr.F
View file

@ -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

8
src/tce/ccsd_yr/ccsd_lr_d1_hh.F
View file

@ -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

40
src/tce/ccsd_yr/ccsd_lr_d1_hp.F
View file

@ -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

10
src/tce/ccsd_yr/ccsd_lr_d1_ph.F
View file

@ -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

10
src/tce/ccsd_yr/ccsd_lr_d1_pp.F
View file

@ -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

46
src/tce/ccsd_yr/ccsd_y_o1.F
View file

@ -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

20
src/tce/ccsd_yr/ccsd_y_o2.F
View file

@ -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

364
src/tce/ccsd_yr/ccsd_y_tr1.F
View file

File diff suppressed because it is too large Load diff

138
src/tce/ccsd_yr/ccsd_y_tr2.F
View file

@ -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

248
src/tce/ccsd_yr/ccsd_yr1.F
View file

@ -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

136
src/tce/ccsd_yr/ccsd_yr2.F
View file

@ -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

2
src/tce/ccsdt_beta/GNUmakefile
View file

@ -1,4 +1,4 @@
#$Id: GNUmakefile,v 1.3 2008-09-17 04:39:03 jhammond Exp $
#$Id$
ifndef CCSDTLR

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_1_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_2_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_3_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_4_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_5_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_6_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_7_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_8_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_4_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_1_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_2_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_3_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_4_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_5_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_6_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1_3_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1_4_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_2_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_3_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_4_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_4_3_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_4_4_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_5_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_6_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_7_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_8_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_9_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_9_1_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_9_2_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_1_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_2_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_3_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_4_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_1_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_2_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_3_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_4_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_2_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_3_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_4_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_5_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_6_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_7_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_11_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_12_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_13_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_14_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_1_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_2_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_3_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_4_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_5_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_6_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_16_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_16_1_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_16_2_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_17_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_17_1_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_17_2_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_18_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_18_1_1.F
View file

@ -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

2
src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_18_2_1.F
View file

@ -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

Some files were not shown because too many files have changed in this diff Show more